{-# LANGUAGE ExplicitForAll #-}
{-# LANGUAGE MultiWayIf #-}
{-# LANGUAGE OverloadedStrings #-}
module StripeAPI.Operations.PostTokens where
import qualified Control.Monad.Fail
import qualified Control.Monad.Trans.Reader
import qualified Data.Aeson
import qualified Data.Aeson as Data.Aeson.Encoding.Internal
import qualified Data.Aeson as Data.Aeson.Types
import qualified Data.Aeson as Data.Aeson.Types.FromJSON
import qualified Data.Aeson as Data.Aeson.Types.Internal
import qualified Data.Aeson as Data.Aeson.Types.ToJSON
import qualified Data.ByteString.Char8
import qualified Data.ByteString.Char8 as Data.ByteString.Internal
import qualified Data.Either
import qualified Data.Functor
import qualified Data.Scientific
import qualified Data.Text
import qualified Data.Text.Internal
import qualified Data.Time.Calendar as Data.Time.Calendar.Days
import qualified Data.Time.LocalTime as Data.Time.LocalTime.Internal.ZonedTime
import qualified Data.Vector
import qualified GHC.Base
import qualified GHC.Classes
import qualified GHC.Int
import qualified GHC.Show
import qualified GHC.Types
import qualified Network.HTTP.Client
import qualified Network.HTTP.Client as Network.HTTP.Client.Request
import qualified Network.HTTP.Client as Network.HTTP.Client.Types
import qualified Network.HTTP.Simple
import qualified Network.HTTP.Types
import qualified Network.HTTP.Types as Network.HTTP.Types.Status
import qualified Network.HTTP.Types as Network.HTTP.Types.URI
import qualified StripeAPI.Common
import StripeAPI.Types
import qualified Prelude as GHC.Integer.Type
import qualified Prelude as GHC.Maybe
postTokens ::
forall m.
StripeAPI.Common.MonadHTTP m =>
GHC.Maybe.Maybe PostTokensRequestBody ->
StripeAPI.Common.StripeT m (Network.HTTP.Client.Types.Response PostTokensResponse)
postTokens :: Maybe PostTokensRequestBody
-> StripeT m (Response PostTokensResponse)
postTokens Maybe PostTokensRequestBody
body =
(Response ByteString -> Response PostTokensResponse)
-> StripeT m (Response ByteString)
-> StripeT m (Response PostTokensResponse)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
GHC.Base.fmap
( \Response ByteString
response_0 ->
(ByteString -> PostTokensResponse)
-> Response ByteString -> Response PostTokensResponse
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
GHC.Base.fmap
( (String -> PostTokensResponse)
-> (PostTokensResponse -> PostTokensResponse)
-> Either String PostTokensResponse
-> PostTokensResponse
forall a c b. (a -> c) -> (b -> c) -> Either a b -> c
Data.Either.either String -> PostTokensResponse
PostTokensResponseError PostTokensResponse -> PostTokensResponse
forall a. a -> a
GHC.Base.id
(Either String PostTokensResponse -> PostTokensResponse)
-> (ByteString -> Either String PostTokensResponse)
-> ByteString
-> PostTokensResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
GHC.Base.. ( \Response ByteString
response ByteString
body ->
if
| (\Status
status_1 -> Status -> Int
Network.HTTP.Types.Status.statusCode Status
status_1 Int -> Int -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Int
200) (Response ByteString -> Status
forall body. Response body -> Status
Network.HTTP.Client.Types.responseStatus Response ByteString
response) ->
Token -> PostTokensResponse
PostTokensResponse200
(Token -> PostTokensResponse)
-> Either String Token -> Either String PostTokensResponse
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Data.Functor.<$> ( ByteString -> Either String Token
forall a. FromJSON a => ByteString -> Either String a
Data.Aeson.eitherDecodeStrict ByteString
body ::
Data.Either.Either
GHC.Base.String
Token
)
| Bool -> Status -> Bool
forall a b. a -> b -> a
GHC.Base.const Bool
GHC.Types.True (Response ByteString -> Status
forall body. Response body -> Status
Network.HTTP.Client.Types.responseStatus Response ByteString
response) ->
Error -> PostTokensResponse
PostTokensResponseDefault
(Error -> PostTokensResponse)
-> Either String Error -> Either String PostTokensResponse
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Data.Functor.<$> ( ByteString -> Either String Error
forall a. FromJSON a => ByteString -> Either String a
Data.Aeson.eitherDecodeStrict ByteString
body ::
Data.Either.Either
GHC.Base.String
Error
)
| Bool
GHC.Base.otherwise -> String -> Either String PostTokensResponse
forall a b. a -> Either a b
Data.Either.Left String
"Missing default response type"
)
Response ByteString
response_0
)
Response ByteString
response_0
)
(Text
-> Text
-> [QueryParameter]
-> Maybe PostTokensRequestBody
-> RequestBodyEncoding
-> StripeT m (Response ByteString)
forall (m :: * -> *) body.
(MonadHTTP m, ToJSON body) =>
Text
-> Text
-> [QueryParameter]
-> Maybe body
-> RequestBodyEncoding
-> StripeT m (Response ByteString)
StripeAPI.Common.doBodyCallWithConfigurationM (Text -> Text
Data.Text.toUpper (Text -> Text) -> Text -> Text
forall a b. (a -> b) -> a -> b
GHC.Base.$ String -> Text
Data.Text.pack String
"POST") (String -> Text
Data.Text.pack String
"/v1/tokens") [QueryParameter]
forall a. Monoid a => a
GHC.Base.mempty Maybe PostTokensRequestBody
body RequestBodyEncoding
StripeAPI.Common.RequestBodyEncodingFormData)
data PostTokensRequestBody = PostTokensRequestBody
{
PostTokensRequestBody -> Maybe PostTokensRequestBodyAccount'
postTokensRequestBodyAccount :: (GHC.Maybe.Maybe PostTokensRequestBodyAccount'),
PostTokensRequestBody -> Maybe PostTokensRequestBodyBankAccount'
postTokensRequestBodyBankAccount :: (GHC.Maybe.Maybe PostTokensRequestBodyBankAccount'),
PostTokensRequestBody -> Maybe PostTokensRequestBodyCard'Variants
postTokensRequestBodyCard :: (GHC.Maybe.Maybe PostTokensRequestBodyCard'Variants),
PostTokensRequestBody -> Maybe Text
postTokensRequestBodyCustomer :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
PostTokensRequestBody -> Maybe PostTokensRequestBodyCvcUpdate'
postTokensRequestBodyCvcUpdate :: (GHC.Maybe.Maybe PostTokensRequestBodyCvcUpdate'),
PostTokensRequestBody -> Maybe [Text]
postTokensRequestBodyExpand :: (GHC.Maybe.Maybe ([Data.Text.Internal.Text])),
PostTokensRequestBody -> Maybe PostTokensRequestBodyPerson'
postTokensRequestBodyPerson :: (GHC.Maybe.Maybe PostTokensRequestBodyPerson'),
PostTokensRequestBody -> Maybe PostTokensRequestBodyPii'
postTokensRequestBodyPii :: (GHC.Maybe.Maybe PostTokensRequestBodyPii')
}
deriving
( Int -> PostTokensRequestBody -> ShowS
[PostTokensRequestBody] -> ShowS
PostTokensRequestBody -> String
(Int -> PostTokensRequestBody -> ShowS)
-> (PostTokensRequestBody -> String)
-> ([PostTokensRequestBody] -> ShowS)
-> Show PostTokensRequestBody
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PostTokensRequestBody] -> ShowS
$cshowList :: [PostTokensRequestBody] -> ShowS
show :: PostTokensRequestBody -> String
$cshow :: PostTokensRequestBody -> String
showsPrec :: Int -> PostTokensRequestBody -> ShowS
$cshowsPrec :: Int -> PostTokensRequestBody -> ShowS
GHC.Show.Show,
PostTokensRequestBody -> PostTokensRequestBody -> Bool
(PostTokensRequestBody -> PostTokensRequestBody -> Bool)
-> (PostTokensRequestBody -> PostTokensRequestBody -> Bool)
-> Eq PostTokensRequestBody
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostTokensRequestBody -> PostTokensRequestBody -> Bool
$c/= :: PostTokensRequestBody -> PostTokensRequestBody -> Bool
== :: PostTokensRequestBody -> PostTokensRequestBody -> Bool
$c== :: PostTokensRequestBody -> PostTokensRequestBody -> Bool
GHC.Classes.Eq
)
instance Data.Aeson.Types.ToJSON.ToJSON PostTokensRequestBody where
toJSON :: PostTokensRequestBody -> Value
toJSON PostTokensRequestBody
obj = [Pair] -> Value
Data.Aeson.Types.Internal.object (Text
"account" Text -> Maybe PostTokensRequestBodyAccount' -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBody -> Maybe PostTokensRequestBodyAccount'
postTokensRequestBodyAccount PostTokensRequestBody
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"bank_account" Text -> Maybe PostTokensRequestBodyBankAccount' -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBody -> Maybe PostTokensRequestBodyBankAccount'
postTokensRequestBodyBankAccount PostTokensRequestBody
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"card" Text -> Maybe PostTokensRequestBodyCard'Variants -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBody -> Maybe PostTokensRequestBodyCard'Variants
postTokensRequestBodyCard PostTokensRequestBody
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"customer" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBody -> Maybe Text
postTokensRequestBodyCustomer PostTokensRequestBody
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"cvc_update" Text -> Maybe PostTokensRequestBodyCvcUpdate' -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBody -> Maybe PostTokensRequestBodyCvcUpdate'
postTokensRequestBodyCvcUpdate PostTokensRequestBody
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"expand" Text -> Maybe [Text] -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBody -> Maybe [Text]
postTokensRequestBodyExpand PostTokensRequestBody
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"person" Text -> Maybe PostTokensRequestBodyPerson' -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBody -> Maybe PostTokensRequestBodyPerson'
postTokensRequestBodyPerson PostTokensRequestBody
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"pii" Text -> Maybe PostTokensRequestBodyPii' -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBody -> Maybe PostTokensRequestBodyPii'
postTokensRequestBodyPii PostTokensRequestBody
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: [Pair]
forall a. Monoid a => a
GHC.Base.mempty)
toEncoding :: PostTokensRequestBody -> Encoding
toEncoding PostTokensRequestBody
obj = Series -> Encoding
Data.Aeson.Encoding.Internal.pairs ((Text
"account" Text -> Maybe PostTokensRequestBodyAccount' -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBody -> Maybe PostTokensRequestBodyAccount'
postTokensRequestBodyAccount PostTokensRequestBody
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"bank_account" Text -> Maybe PostTokensRequestBodyBankAccount' -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBody -> Maybe PostTokensRequestBodyBankAccount'
postTokensRequestBodyBankAccount PostTokensRequestBody
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"card" Text -> Maybe PostTokensRequestBodyCard'Variants -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBody -> Maybe PostTokensRequestBodyCard'Variants
postTokensRequestBodyCard PostTokensRequestBody
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"customer" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBody -> Maybe Text
postTokensRequestBodyCustomer PostTokensRequestBody
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"cvc_update" Text -> Maybe PostTokensRequestBodyCvcUpdate' -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBody -> Maybe PostTokensRequestBodyCvcUpdate'
postTokensRequestBodyCvcUpdate PostTokensRequestBody
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"expand" Text -> Maybe [Text] -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBody -> Maybe [Text]
postTokensRequestBodyExpand PostTokensRequestBody
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"person" Text -> Maybe PostTokensRequestBodyPerson' -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBody -> Maybe PostTokensRequestBodyPerson'
postTokensRequestBodyPerson PostTokensRequestBody
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> (Text
"pii" Text -> Maybe PostTokensRequestBodyPii' -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBody -> Maybe PostTokensRequestBodyPii'
postTokensRequestBodyPii PostTokensRequestBody
obj))))))))
instance Data.Aeson.Types.FromJSON.FromJSON PostTokensRequestBody where
parseJSON :: Value -> Parser PostTokensRequestBody
parseJSON = String
-> (Object -> Parser PostTokensRequestBody)
-> Value
-> Parser PostTokensRequestBody
forall a. String -> (Object -> Parser a) -> Value -> Parser a
Data.Aeson.Types.FromJSON.withObject String
"PostTokensRequestBody" (\Object
obj -> ((((((((Maybe PostTokensRequestBodyAccount'
-> Maybe PostTokensRequestBodyBankAccount'
-> Maybe PostTokensRequestBodyCard'Variants
-> Maybe Text
-> Maybe PostTokensRequestBodyCvcUpdate'
-> Maybe [Text]
-> Maybe PostTokensRequestBodyPerson'
-> Maybe PostTokensRequestBodyPii'
-> PostTokensRequestBody)
-> Parser
(Maybe PostTokensRequestBodyAccount'
-> Maybe PostTokensRequestBodyBankAccount'
-> Maybe PostTokensRequestBodyCard'Variants
-> Maybe Text
-> Maybe PostTokensRequestBodyCvcUpdate'
-> Maybe [Text]
-> Maybe PostTokensRequestBodyPerson'
-> Maybe PostTokensRequestBodyPii'
-> PostTokensRequestBody)
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure Maybe PostTokensRequestBodyAccount'
-> Maybe PostTokensRequestBodyBankAccount'
-> Maybe PostTokensRequestBodyCard'Variants
-> Maybe Text
-> Maybe PostTokensRequestBodyCvcUpdate'
-> Maybe [Text]
-> Maybe PostTokensRequestBodyPerson'
-> Maybe PostTokensRequestBodyPii'
-> PostTokensRequestBody
PostTokensRequestBody Parser
(Maybe PostTokensRequestBodyAccount'
-> Maybe PostTokensRequestBodyBankAccount'
-> Maybe PostTokensRequestBodyCard'Variants
-> Maybe Text
-> Maybe PostTokensRequestBodyCvcUpdate'
-> Maybe [Text]
-> Maybe PostTokensRequestBodyPerson'
-> Maybe PostTokensRequestBodyPii'
-> PostTokensRequestBody)
-> Parser (Maybe PostTokensRequestBodyAccount')
-> Parser
(Maybe PostTokensRequestBodyBankAccount'
-> Maybe PostTokensRequestBodyCard'Variants
-> Maybe Text
-> Maybe PostTokensRequestBodyCvcUpdate'
-> Maybe [Text]
-> Maybe PostTokensRequestBodyPerson'
-> Maybe PostTokensRequestBodyPii'
-> PostTokensRequestBody)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe PostTokensRequestBodyAccount')
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"account")) Parser
(Maybe PostTokensRequestBodyBankAccount'
-> Maybe PostTokensRequestBodyCard'Variants
-> Maybe Text
-> Maybe PostTokensRequestBodyCvcUpdate'
-> Maybe [Text]
-> Maybe PostTokensRequestBodyPerson'
-> Maybe PostTokensRequestBodyPii'
-> PostTokensRequestBody)
-> Parser (Maybe PostTokensRequestBodyBankAccount')
-> Parser
(Maybe PostTokensRequestBodyCard'Variants
-> Maybe Text
-> Maybe PostTokensRequestBodyCvcUpdate'
-> Maybe [Text]
-> Maybe PostTokensRequestBodyPerson'
-> Maybe PostTokensRequestBodyPii'
-> PostTokensRequestBody)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe PostTokensRequestBodyBankAccount')
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"bank_account")) Parser
(Maybe PostTokensRequestBodyCard'Variants
-> Maybe Text
-> Maybe PostTokensRequestBodyCvcUpdate'
-> Maybe [Text]
-> Maybe PostTokensRequestBodyPerson'
-> Maybe PostTokensRequestBodyPii'
-> PostTokensRequestBody)
-> Parser (Maybe PostTokensRequestBodyCard'Variants)
-> Parser
(Maybe Text
-> Maybe PostTokensRequestBodyCvcUpdate'
-> Maybe [Text]
-> Maybe PostTokensRequestBodyPerson'
-> Maybe PostTokensRequestBodyPii'
-> PostTokensRequestBody)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe PostTokensRequestBodyCard'Variants)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"card")) Parser
(Maybe Text
-> Maybe PostTokensRequestBodyCvcUpdate'
-> Maybe [Text]
-> Maybe PostTokensRequestBodyPerson'
-> Maybe PostTokensRequestBodyPii'
-> PostTokensRequestBody)
-> Parser (Maybe Text)
-> Parser
(Maybe PostTokensRequestBodyCvcUpdate'
-> Maybe [Text]
-> Maybe PostTokensRequestBodyPerson'
-> Maybe PostTokensRequestBodyPii'
-> PostTokensRequestBody)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"customer")) Parser
(Maybe PostTokensRequestBodyCvcUpdate'
-> Maybe [Text]
-> Maybe PostTokensRequestBodyPerson'
-> Maybe PostTokensRequestBodyPii'
-> PostTokensRequestBody)
-> Parser (Maybe PostTokensRequestBodyCvcUpdate')
-> Parser
(Maybe [Text]
-> Maybe PostTokensRequestBodyPerson'
-> Maybe PostTokensRequestBodyPii'
-> PostTokensRequestBody)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe PostTokensRequestBodyCvcUpdate')
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"cvc_update")) Parser
(Maybe [Text]
-> Maybe PostTokensRequestBodyPerson'
-> Maybe PostTokensRequestBodyPii'
-> PostTokensRequestBody)
-> Parser (Maybe [Text])
-> Parser
(Maybe PostTokensRequestBodyPerson'
-> Maybe PostTokensRequestBodyPii' -> PostTokensRequestBody)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe [Text])
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"expand")) Parser
(Maybe PostTokensRequestBodyPerson'
-> Maybe PostTokensRequestBodyPii' -> PostTokensRequestBody)
-> Parser (Maybe PostTokensRequestBodyPerson')
-> Parser
(Maybe PostTokensRequestBodyPii' -> PostTokensRequestBody)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe PostTokensRequestBodyPerson')
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"person")) Parser (Maybe PostTokensRequestBodyPii' -> PostTokensRequestBody)
-> Parser (Maybe PostTokensRequestBodyPii')
-> Parser PostTokensRequestBody
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe PostTokensRequestBodyPii')
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"pii"))
mkPostTokensRequestBody :: PostTokensRequestBody
mkPostTokensRequestBody :: PostTokensRequestBody
mkPostTokensRequestBody =
PostTokensRequestBody :: Maybe PostTokensRequestBodyAccount'
-> Maybe PostTokensRequestBodyBankAccount'
-> Maybe PostTokensRequestBodyCard'Variants
-> Maybe Text
-> Maybe PostTokensRequestBodyCvcUpdate'
-> Maybe [Text]
-> Maybe PostTokensRequestBodyPerson'
-> Maybe PostTokensRequestBodyPii'
-> PostTokensRequestBody
PostTokensRequestBody
{ postTokensRequestBodyAccount :: Maybe PostTokensRequestBodyAccount'
postTokensRequestBodyAccount = Maybe PostTokensRequestBodyAccount'
forall a. Maybe a
GHC.Maybe.Nothing,
postTokensRequestBodyBankAccount :: Maybe PostTokensRequestBodyBankAccount'
postTokensRequestBodyBankAccount = Maybe PostTokensRequestBodyBankAccount'
forall a. Maybe a
GHC.Maybe.Nothing,
postTokensRequestBodyCard :: Maybe PostTokensRequestBodyCard'Variants
postTokensRequestBodyCard = Maybe PostTokensRequestBodyCard'Variants
forall a. Maybe a
GHC.Maybe.Nothing,
postTokensRequestBodyCustomer :: Maybe Text
postTokensRequestBodyCustomer = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
postTokensRequestBodyCvcUpdate :: Maybe PostTokensRequestBodyCvcUpdate'
postTokensRequestBodyCvcUpdate = Maybe PostTokensRequestBodyCvcUpdate'
forall a. Maybe a
GHC.Maybe.Nothing,
postTokensRequestBodyExpand :: Maybe [Text]
postTokensRequestBodyExpand = Maybe [Text]
forall a. Maybe a
GHC.Maybe.Nothing,
postTokensRequestBodyPerson :: Maybe PostTokensRequestBodyPerson'
postTokensRequestBodyPerson = Maybe PostTokensRequestBodyPerson'
forall a. Maybe a
GHC.Maybe.Nothing,
postTokensRequestBodyPii :: Maybe PostTokensRequestBodyPii'
postTokensRequestBodyPii = Maybe PostTokensRequestBodyPii'
forall a. Maybe a
GHC.Maybe.Nothing
}
data PostTokensRequestBodyAccount' = PostTokensRequestBodyAccount'
{
PostTokensRequestBodyAccount'
-> Maybe PostTokensRequestBodyAccount'BusinessType'
postTokensRequestBodyAccount'BusinessType :: (GHC.Maybe.Maybe PostTokensRequestBodyAccount'BusinessType'),
PostTokensRequestBodyAccount'
-> Maybe PostTokensRequestBodyAccount'Company'
postTokensRequestBodyAccount'Company :: (GHC.Maybe.Maybe PostTokensRequestBodyAccount'Company'),
PostTokensRequestBodyAccount'
-> Maybe PostTokensRequestBodyAccount'Individual'
postTokensRequestBodyAccount'Individual :: (GHC.Maybe.Maybe PostTokensRequestBodyAccount'Individual'),
PostTokensRequestBodyAccount' -> Maybe Bool
postTokensRequestBodyAccount'TosShownAndAccepted :: (GHC.Maybe.Maybe GHC.Types.Bool)
}
deriving
( Int -> PostTokensRequestBodyAccount' -> ShowS
[PostTokensRequestBodyAccount'] -> ShowS
PostTokensRequestBodyAccount' -> String
(Int -> PostTokensRequestBodyAccount' -> ShowS)
-> (PostTokensRequestBodyAccount' -> String)
-> ([PostTokensRequestBodyAccount'] -> ShowS)
-> Show PostTokensRequestBodyAccount'
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PostTokensRequestBodyAccount'] -> ShowS
$cshowList :: [PostTokensRequestBodyAccount'] -> ShowS
show :: PostTokensRequestBodyAccount' -> String
$cshow :: PostTokensRequestBodyAccount' -> String
showsPrec :: Int -> PostTokensRequestBodyAccount' -> ShowS
$cshowsPrec :: Int -> PostTokensRequestBodyAccount' -> ShowS
GHC.Show.Show,
PostTokensRequestBodyAccount'
-> PostTokensRequestBodyAccount' -> Bool
(PostTokensRequestBodyAccount'
-> PostTokensRequestBodyAccount' -> Bool)
-> (PostTokensRequestBodyAccount'
-> PostTokensRequestBodyAccount' -> Bool)
-> Eq PostTokensRequestBodyAccount'
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostTokensRequestBodyAccount'
-> PostTokensRequestBodyAccount' -> Bool
$c/= :: PostTokensRequestBodyAccount'
-> PostTokensRequestBodyAccount' -> Bool
== :: PostTokensRequestBodyAccount'
-> PostTokensRequestBodyAccount' -> Bool
$c== :: PostTokensRequestBodyAccount'
-> PostTokensRequestBodyAccount' -> Bool
GHC.Classes.Eq
)
instance Data.Aeson.Types.ToJSON.ToJSON PostTokensRequestBodyAccount' where
toJSON :: PostTokensRequestBodyAccount' -> Value
toJSON PostTokensRequestBodyAccount'
obj = [Pair] -> Value
Data.Aeson.Types.Internal.object (Text
"business_type" Text -> Maybe PostTokensRequestBodyAccount'BusinessType' -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'
-> Maybe PostTokensRequestBodyAccount'BusinessType'
postTokensRequestBodyAccount'BusinessType PostTokensRequestBodyAccount'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"company" Text -> Maybe PostTokensRequestBodyAccount'Company' -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'
-> Maybe PostTokensRequestBodyAccount'Company'
postTokensRequestBodyAccount'Company PostTokensRequestBodyAccount'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"individual" Text -> Maybe PostTokensRequestBodyAccount'Individual' -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'
-> Maybe PostTokensRequestBodyAccount'Individual'
postTokensRequestBodyAccount'Individual PostTokensRequestBodyAccount'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"tos_shown_and_accepted" Text -> Maybe Bool -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount' -> Maybe Bool
postTokensRequestBodyAccount'TosShownAndAccepted PostTokensRequestBodyAccount'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: [Pair]
forall a. Monoid a => a
GHC.Base.mempty)
toEncoding :: PostTokensRequestBodyAccount' -> Encoding
toEncoding PostTokensRequestBodyAccount'
obj = Series -> Encoding
Data.Aeson.Encoding.Internal.pairs ((Text
"business_type" Text -> Maybe PostTokensRequestBodyAccount'BusinessType' -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'
-> Maybe PostTokensRequestBodyAccount'BusinessType'
postTokensRequestBodyAccount'BusinessType PostTokensRequestBodyAccount'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"company" Text -> Maybe PostTokensRequestBodyAccount'Company' -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'
-> Maybe PostTokensRequestBodyAccount'Company'
postTokensRequestBodyAccount'Company PostTokensRequestBodyAccount'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"individual" Text -> Maybe PostTokensRequestBodyAccount'Individual' -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'
-> Maybe PostTokensRequestBodyAccount'Individual'
postTokensRequestBodyAccount'Individual PostTokensRequestBodyAccount'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> (Text
"tos_shown_and_accepted" Text -> Maybe Bool -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount' -> Maybe Bool
postTokensRequestBodyAccount'TosShownAndAccepted PostTokensRequestBodyAccount'
obj))))
instance Data.Aeson.Types.FromJSON.FromJSON PostTokensRequestBodyAccount' where
parseJSON :: Value -> Parser PostTokensRequestBodyAccount'
parseJSON = String
-> (Object -> Parser PostTokensRequestBodyAccount')
-> Value
-> Parser PostTokensRequestBodyAccount'
forall a. String -> (Object -> Parser a) -> Value -> Parser a
Data.Aeson.Types.FromJSON.withObject String
"PostTokensRequestBodyAccount'" (\Object
obj -> ((((Maybe PostTokensRequestBodyAccount'BusinessType'
-> Maybe PostTokensRequestBodyAccount'Company'
-> Maybe PostTokensRequestBodyAccount'Individual'
-> Maybe Bool
-> PostTokensRequestBodyAccount')
-> Parser
(Maybe PostTokensRequestBodyAccount'BusinessType'
-> Maybe PostTokensRequestBodyAccount'Company'
-> Maybe PostTokensRequestBodyAccount'Individual'
-> Maybe Bool
-> PostTokensRequestBodyAccount')
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure Maybe PostTokensRequestBodyAccount'BusinessType'
-> Maybe PostTokensRequestBodyAccount'Company'
-> Maybe PostTokensRequestBodyAccount'Individual'
-> Maybe Bool
-> PostTokensRequestBodyAccount'
PostTokensRequestBodyAccount' Parser
(Maybe PostTokensRequestBodyAccount'BusinessType'
-> Maybe PostTokensRequestBodyAccount'Company'
-> Maybe PostTokensRequestBodyAccount'Individual'
-> Maybe Bool
-> PostTokensRequestBodyAccount')
-> Parser (Maybe PostTokensRequestBodyAccount'BusinessType')
-> Parser
(Maybe PostTokensRequestBodyAccount'Company'
-> Maybe PostTokensRequestBodyAccount'Individual'
-> Maybe Bool
-> PostTokensRequestBodyAccount')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object
-> Text
-> Parser (Maybe PostTokensRequestBodyAccount'BusinessType')
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"business_type")) Parser
(Maybe PostTokensRequestBodyAccount'Company'
-> Maybe PostTokensRequestBodyAccount'Individual'
-> Maybe Bool
-> PostTokensRequestBodyAccount')
-> Parser (Maybe PostTokensRequestBodyAccount'Company')
-> Parser
(Maybe PostTokensRequestBodyAccount'Individual'
-> Maybe Bool -> PostTokensRequestBodyAccount')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object
-> Text -> Parser (Maybe PostTokensRequestBodyAccount'Company')
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"company")) Parser
(Maybe PostTokensRequestBodyAccount'Individual'
-> Maybe Bool -> PostTokensRequestBodyAccount')
-> Parser (Maybe PostTokensRequestBodyAccount'Individual')
-> Parser (Maybe Bool -> PostTokensRequestBodyAccount')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object
-> Text -> Parser (Maybe PostTokensRequestBodyAccount'Individual')
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"individual")) Parser (Maybe Bool -> PostTokensRequestBodyAccount')
-> Parser (Maybe Bool) -> Parser PostTokensRequestBodyAccount'
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Bool)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"tos_shown_and_accepted"))
mkPostTokensRequestBodyAccount' :: PostTokensRequestBodyAccount'
mkPostTokensRequestBodyAccount' :: PostTokensRequestBodyAccount'
mkPostTokensRequestBodyAccount' =
PostTokensRequestBodyAccount' :: Maybe PostTokensRequestBodyAccount'BusinessType'
-> Maybe PostTokensRequestBodyAccount'Company'
-> Maybe PostTokensRequestBodyAccount'Individual'
-> Maybe Bool
-> PostTokensRequestBodyAccount'
PostTokensRequestBodyAccount'
{ postTokensRequestBodyAccount'BusinessType :: Maybe PostTokensRequestBodyAccount'BusinessType'
postTokensRequestBodyAccount'BusinessType = Maybe PostTokensRequestBodyAccount'BusinessType'
forall a. Maybe a
GHC.Maybe.Nothing,
postTokensRequestBodyAccount'Company :: Maybe PostTokensRequestBodyAccount'Company'
postTokensRequestBodyAccount'Company = Maybe PostTokensRequestBodyAccount'Company'
forall a. Maybe a
GHC.Maybe.Nothing,
postTokensRequestBodyAccount'Individual :: Maybe PostTokensRequestBodyAccount'Individual'
postTokensRequestBodyAccount'Individual = Maybe PostTokensRequestBodyAccount'Individual'
forall a. Maybe a
GHC.Maybe.Nothing,
postTokensRequestBodyAccount'TosShownAndAccepted :: Maybe Bool
postTokensRequestBodyAccount'TosShownAndAccepted = Maybe Bool
forall a. Maybe a
GHC.Maybe.Nothing
}
data PostTokensRequestBodyAccount'BusinessType'
=
PostTokensRequestBodyAccount'BusinessType'Other Data.Aeson.Types.Internal.Value
|
PostTokensRequestBodyAccount'BusinessType'Typed Data.Text.Internal.Text
|
PostTokensRequestBodyAccount'BusinessType'EnumCompany
|
PostTokensRequestBodyAccount'BusinessType'EnumGovernmentEntity
|
PostTokensRequestBodyAccount'BusinessType'EnumIndividual
|
PostTokensRequestBodyAccount'BusinessType'EnumNonProfit
deriving (Int -> PostTokensRequestBodyAccount'BusinessType' -> ShowS
[PostTokensRequestBodyAccount'BusinessType'] -> ShowS
PostTokensRequestBodyAccount'BusinessType' -> String
(Int -> PostTokensRequestBodyAccount'BusinessType' -> ShowS)
-> (PostTokensRequestBodyAccount'BusinessType' -> String)
-> ([PostTokensRequestBodyAccount'BusinessType'] -> ShowS)
-> Show PostTokensRequestBodyAccount'BusinessType'
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PostTokensRequestBodyAccount'BusinessType'] -> ShowS
$cshowList :: [PostTokensRequestBodyAccount'BusinessType'] -> ShowS
show :: PostTokensRequestBodyAccount'BusinessType' -> String
$cshow :: PostTokensRequestBodyAccount'BusinessType' -> String
showsPrec :: Int -> PostTokensRequestBodyAccount'BusinessType' -> ShowS
$cshowsPrec :: Int -> PostTokensRequestBodyAccount'BusinessType' -> ShowS
GHC.Show.Show, PostTokensRequestBodyAccount'BusinessType'
-> PostTokensRequestBodyAccount'BusinessType' -> Bool
(PostTokensRequestBodyAccount'BusinessType'
-> PostTokensRequestBodyAccount'BusinessType' -> Bool)
-> (PostTokensRequestBodyAccount'BusinessType'
-> PostTokensRequestBodyAccount'BusinessType' -> Bool)
-> Eq PostTokensRequestBodyAccount'BusinessType'
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostTokensRequestBodyAccount'BusinessType'
-> PostTokensRequestBodyAccount'BusinessType' -> Bool
$c/= :: PostTokensRequestBodyAccount'BusinessType'
-> PostTokensRequestBodyAccount'BusinessType' -> Bool
== :: PostTokensRequestBodyAccount'BusinessType'
-> PostTokensRequestBodyAccount'BusinessType' -> Bool
$c== :: PostTokensRequestBodyAccount'BusinessType'
-> PostTokensRequestBodyAccount'BusinessType' -> Bool
GHC.Classes.Eq)
instance Data.Aeson.Types.ToJSON.ToJSON PostTokensRequestBodyAccount'BusinessType' where
toJSON :: PostTokensRequestBodyAccount'BusinessType' -> Value
toJSON (PostTokensRequestBodyAccount'BusinessType'Other Value
val) = Value
val
toJSON (PostTokensRequestBodyAccount'BusinessType'Typed Text
val) = Text -> Value
forall a. ToJSON a => a -> Value
Data.Aeson.Types.ToJSON.toJSON Text
val
toJSON (PostTokensRequestBodyAccount'BusinessType'
PostTokensRequestBodyAccount'BusinessType'EnumCompany) = Value
"company"
toJSON (PostTokensRequestBodyAccount'BusinessType'
PostTokensRequestBodyAccount'BusinessType'EnumGovernmentEntity) = Value
"government_entity"
toJSON (PostTokensRequestBodyAccount'BusinessType'
PostTokensRequestBodyAccount'BusinessType'EnumIndividual) = Value
"individual"
toJSON (PostTokensRequestBodyAccount'BusinessType'
PostTokensRequestBodyAccount'BusinessType'EnumNonProfit) = Value
"non_profit"
instance Data.Aeson.Types.FromJSON.FromJSON PostTokensRequestBodyAccount'BusinessType' where
parseJSON :: Value -> Parser PostTokensRequestBodyAccount'BusinessType'
parseJSON Value
val =
PostTokensRequestBodyAccount'BusinessType'
-> Parser PostTokensRequestBodyAccount'BusinessType'
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure
( if
| Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"company" -> PostTokensRequestBodyAccount'BusinessType'
PostTokensRequestBodyAccount'BusinessType'EnumCompany
| Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"government_entity" -> PostTokensRequestBodyAccount'BusinessType'
PostTokensRequestBodyAccount'BusinessType'EnumGovernmentEntity
| Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"individual" -> PostTokensRequestBodyAccount'BusinessType'
PostTokensRequestBodyAccount'BusinessType'EnumIndividual
| Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"non_profit" -> PostTokensRequestBodyAccount'BusinessType'
PostTokensRequestBodyAccount'BusinessType'EnumNonProfit
| Bool
GHC.Base.otherwise -> Value -> PostTokensRequestBodyAccount'BusinessType'
PostTokensRequestBodyAccount'BusinessType'Other Value
val
)
data PostTokensRequestBodyAccount'Company' = PostTokensRequestBodyAccount'Company'
{
PostTokensRequestBodyAccount'Company'
-> Maybe PostTokensRequestBodyAccount'Company'Address'
postTokensRequestBodyAccount'Company'Address :: (GHC.Maybe.Maybe PostTokensRequestBodyAccount'Company'Address'),
PostTokensRequestBodyAccount'Company'
-> Maybe PostTokensRequestBodyAccount'Company'AddressKana'
postTokensRequestBodyAccount'Company'AddressKana :: (GHC.Maybe.Maybe PostTokensRequestBodyAccount'Company'AddressKana'),
PostTokensRequestBodyAccount'Company'
-> Maybe PostTokensRequestBodyAccount'Company'AddressKanji'
postTokensRequestBodyAccount'Company'AddressKanji :: (GHC.Maybe.Maybe PostTokensRequestBodyAccount'Company'AddressKanji'),
PostTokensRequestBodyAccount'Company' -> Maybe Bool
postTokensRequestBodyAccount'Company'DirectorsProvided :: (GHC.Maybe.Maybe GHC.Types.Bool),
PostTokensRequestBodyAccount'Company' -> Maybe Bool
postTokensRequestBodyAccount'Company'ExecutivesProvided :: (GHC.Maybe.Maybe GHC.Types.Bool),
PostTokensRequestBodyAccount'Company' -> Maybe Text
postTokensRequestBodyAccount'Company'Name :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
PostTokensRequestBodyAccount'Company' -> Maybe Text
postTokensRequestBodyAccount'Company'NameKana :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
PostTokensRequestBodyAccount'Company' -> Maybe Text
postTokensRequestBodyAccount'Company'NameKanji :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
PostTokensRequestBodyAccount'Company' -> Maybe Bool
postTokensRequestBodyAccount'Company'OwnersProvided :: (GHC.Maybe.Maybe GHC.Types.Bool),
PostTokensRequestBodyAccount'Company' -> Maybe Text
postTokensRequestBodyAccount'Company'Phone :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
PostTokensRequestBodyAccount'Company' -> Maybe Text
postTokensRequestBodyAccount'Company'RegistrationNumber :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
PostTokensRequestBodyAccount'Company'
-> Maybe PostTokensRequestBodyAccount'Company'Structure'
postTokensRequestBodyAccount'Company'Structure :: (GHC.Maybe.Maybe PostTokensRequestBodyAccount'Company'Structure'),
PostTokensRequestBodyAccount'Company' -> Maybe Text
postTokensRequestBodyAccount'Company'TaxId :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
PostTokensRequestBodyAccount'Company' -> Maybe Text
postTokensRequestBodyAccount'Company'TaxIdRegistrar :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
PostTokensRequestBodyAccount'Company' -> Maybe Text
postTokensRequestBodyAccount'Company'VatId :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
PostTokensRequestBodyAccount'Company'
-> Maybe PostTokensRequestBodyAccount'Company'Verification'
postTokensRequestBodyAccount'Company'Verification :: (GHC.Maybe.Maybe PostTokensRequestBodyAccount'Company'Verification')
}
deriving
( Int -> PostTokensRequestBodyAccount'Company' -> ShowS
[PostTokensRequestBodyAccount'Company'] -> ShowS
PostTokensRequestBodyAccount'Company' -> String
(Int -> PostTokensRequestBodyAccount'Company' -> ShowS)
-> (PostTokensRequestBodyAccount'Company' -> String)
-> ([PostTokensRequestBodyAccount'Company'] -> ShowS)
-> Show PostTokensRequestBodyAccount'Company'
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PostTokensRequestBodyAccount'Company'] -> ShowS
$cshowList :: [PostTokensRequestBodyAccount'Company'] -> ShowS
show :: PostTokensRequestBodyAccount'Company' -> String
$cshow :: PostTokensRequestBodyAccount'Company' -> String
showsPrec :: Int -> PostTokensRequestBodyAccount'Company' -> ShowS
$cshowsPrec :: Int -> PostTokensRequestBodyAccount'Company' -> ShowS
GHC.Show.Show,
PostTokensRequestBodyAccount'Company'
-> PostTokensRequestBodyAccount'Company' -> Bool
(PostTokensRequestBodyAccount'Company'
-> PostTokensRequestBodyAccount'Company' -> Bool)
-> (PostTokensRequestBodyAccount'Company'
-> PostTokensRequestBodyAccount'Company' -> Bool)
-> Eq PostTokensRequestBodyAccount'Company'
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostTokensRequestBodyAccount'Company'
-> PostTokensRequestBodyAccount'Company' -> Bool
$c/= :: PostTokensRequestBodyAccount'Company'
-> PostTokensRequestBodyAccount'Company' -> Bool
== :: PostTokensRequestBodyAccount'Company'
-> PostTokensRequestBodyAccount'Company' -> Bool
$c== :: PostTokensRequestBodyAccount'Company'
-> PostTokensRequestBodyAccount'Company' -> Bool
GHC.Classes.Eq
)
instance Data.Aeson.Types.ToJSON.ToJSON PostTokensRequestBodyAccount'Company' where
toJSON :: PostTokensRequestBodyAccount'Company' -> Value
toJSON PostTokensRequestBodyAccount'Company'
obj = [Pair] -> Value
Data.Aeson.Types.Internal.object (Text
"address" Text -> Maybe PostTokensRequestBodyAccount'Company'Address' -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'Company'
-> Maybe PostTokensRequestBodyAccount'Company'Address'
postTokensRequestBodyAccount'Company'Address PostTokensRequestBodyAccount'Company'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"address_kana" Text
-> Maybe PostTokensRequestBodyAccount'Company'AddressKana' -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'Company'
-> Maybe PostTokensRequestBodyAccount'Company'AddressKana'
postTokensRequestBodyAccount'Company'AddressKana PostTokensRequestBodyAccount'Company'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"address_kanji" Text
-> Maybe PostTokensRequestBodyAccount'Company'AddressKanji' -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'Company'
-> Maybe PostTokensRequestBodyAccount'Company'AddressKanji'
postTokensRequestBodyAccount'Company'AddressKanji PostTokensRequestBodyAccount'Company'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"directors_provided" Text -> Maybe Bool -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'Company' -> Maybe Bool
postTokensRequestBodyAccount'Company'DirectorsProvided PostTokensRequestBodyAccount'Company'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"executives_provided" Text -> Maybe Bool -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'Company' -> Maybe Bool
postTokensRequestBodyAccount'Company'ExecutivesProvided PostTokensRequestBodyAccount'Company'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"name" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'Company' -> Maybe Text
postTokensRequestBodyAccount'Company'Name PostTokensRequestBodyAccount'Company'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"name_kana" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'Company' -> Maybe Text
postTokensRequestBodyAccount'Company'NameKana PostTokensRequestBodyAccount'Company'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"name_kanji" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'Company' -> Maybe Text
postTokensRequestBodyAccount'Company'NameKanji PostTokensRequestBodyAccount'Company'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"owners_provided" Text -> Maybe Bool -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'Company' -> Maybe Bool
postTokensRequestBodyAccount'Company'OwnersProvided PostTokensRequestBodyAccount'Company'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"phone" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'Company' -> Maybe Text
postTokensRequestBodyAccount'Company'Phone PostTokensRequestBodyAccount'Company'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"registration_number" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'Company' -> Maybe Text
postTokensRequestBodyAccount'Company'RegistrationNumber PostTokensRequestBodyAccount'Company'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"structure" Text
-> Maybe PostTokensRequestBodyAccount'Company'Structure' -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'Company'
-> Maybe PostTokensRequestBodyAccount'Company'Structure'
postTokensRequestBodyAccount'Company'Structure PostTokensRequestBodyAccount'Company'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"tax_id" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'Company' -> Maybe Text
postTokensRequestBodyAccount'Company'TaxId PostTokensRequestBodyAccount'Company'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"tax_id_registrar" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'Company' -> Maybe Text
postTokensRequestBodyAccount'Company'TaxIdRegistrar PostTokensRequestBodyAccount'Company'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"vat_id" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'Company' -> Maybe Text
postTokensRequestBodyAccount'Company'VatId PostTokensRequestBodyAccount'Company'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"verification" Text
-> Maybe PostTokensRequestBodyAccount'Company'Verification' -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'Company'
-> Maybe PostTokensRequestBodyAccount'Company'Verification'
postTokensRequestBodyAccount'Company'Verification PostTokensRequestBodyAccount'Company'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: [Pair]
forall a. Monoid a => a
GHC.Base.mempty)
toEncoding :: PostTokensRequestBodyAccount'Company' -> Encoding
toEncoding PostTokensRequestBodyAccount'Company'
obj = Series -> Encoding
Data.Aeson.Encoding.Internal.pairs ((Text
"address" Text
-> Maybe PostTokensRequestBodyAccount'Company'Address' -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'Company'
-> Maybe PostTokensRequestBodyAccount'Company'Address'
postTokensRequestBodyAccount'Company'Address PostTokensRequestBodyAccount'Company'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"address_kana" Text
-> Maybe PostTokensRequestBodyAccount'Company'AddressKana'
-> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'Company'
-> Maybe PostTokensRequestBodyAccount'Company'AddressKana'
postTokensRequestBodyAccount'Company'AddressKana PostTokensRequestBodyAccount'Company'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"address_kanji" Text
-> Maybe PostTokensRequestBodyAccount'Company'AddressKanji'
-> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'Company'
-> Maybe PostTokensRequestBodyAccount'Company'AddressKanji'
postTokensRequestBodyAccount'Company'AddressKanji PostTokensRequestBodyAccount'Company'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"directors_provided" Text -> Maybe Bool -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'Company' -> Maybe Bool
postTokensRequestBodyAccount'Company'DirectorsProvided PostTokensRequestBodyAccount'Company'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"executives_provided" Text -> Maybe Bool -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'Company' -> Maybe Bool
postTokensRequestBodyAccount'Company'ExecutivesProvided PostTokensRequestBodyAccount'Company'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"name" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'Company' -> Maybe Text
postTokensRequestBodyAccount'Company'Name PostTokensRequestBodyAccount'Company'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"name_kana" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'Company' -> Maybe Text
postTokensRequestBodyAccount'Company'NameKana PostTokensRequestBodyAccount'Company'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"name_kanji" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'Company' -> Maybe Text
postTokensRequestBodyAccount'Company'NameKanji PostTokensRequestBodyAccount'Company'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"owners_provided" Text -> Maybe Bool -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'Company' -> Maybe Bool
postTokensRequestBodyAccount'Company'OwnersProvided PostTokensRequestBodyAccount'Company'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"phone" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'Company' -> Maybe Text
postTokensRequestBodyAccount'Company'Phone PostTokensRequestBodyAccount'Company'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"registration_number" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'Company' -> Maybe Text
postTokensRequestBodyAccount'Company'RegistrationNumber PostTokensRequestBodyAccount'Company'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"structure" Text
-> Maybe PostTokensRequestBodyAccount'Company'Structure' -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'Company'
-> Maybe PostTokensRequestBodyAccount'Company'Structure'
postTokensRequestBodyAccount'Company'Structure PostTokensRequestBodyAccount'Company'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"tax_id" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'Company' -> Maybe Text
postTokensRequestBodyAccount'Company'TaxId PostTokensRequestBodyAccount'Company'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"tax_id_registrar" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'Company' -> Maybe Text
postTokensRequestBodyAccount'Company'TaxIdRegistrar PostTokensRequestBodyAccount'Company'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"vat_id" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'Company' -> Maybe Text
postTokensRequestBodyAccount'Company'VatId PostTokensRequestBodyAccount'Company'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> (Text
"verification" Text
-> Maybe PostTokensRequestBodyAccount'Company'Verification'
-> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'Company'
-> Maybe PostTokensRequestBodyAccount'Company'Verification'
postTokensRequestBodyAccount'Company'Verification PostTokensRequestBodyAccount'Company'
obj))))))))))))))))
instance Data.Aeson.Types.FromJSON.FromJSON PostTokensRequestBodyAccount'Company' where
parseJSON :: Value -> Parser PostTokensRequestBodyAccount'Company'
parseJSON = String
-> (Object -> Parser PostTokensRequestBodyAccount'Company')
-> Value
-> Parser PostTokensRequestBodyAccount'Company'
forall a. String -> (Object -> Parser a) -> Value -> Parser a
Data.Aeson.Types.FromJSON.withObject String
"PostTokensRequestBodyAccount'Company'" (\Object
obj -> ((((((((((((((((Maybe PostTokensRequestBodyAccount'Company'Address'
-> Maybe PostTokensRequestBodyAccount'Company'AddressKana'
-> Maybe PostTokensRequestBodyAccount'Company'AddressKanji'
-> Maybe Bool
-> Maybe Bool
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Bool
-> Maybe Text
-> Maybe Text
-> Maybe PostTokensRequestBodyAccount'Company'Structure'
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostTokensRequestBodyAccount'Company'Verification'
-> PostTokensRequestBodyAccount'Company')
-> Parser
(Maybe PostTokensRequestBodyAccount'Company'Address'
-> Maybe PostTokensRequestBodyAccount'Company'AddressKana'
-> Maybe PostTokensRequestBodyAccount'Company'AddressKanji'
-> Maybe Bool
-> Maybe Bool
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Bool
-> Maybe Text
-> Maybe Text
-> Maybe PostTokensRequestBodyAccount'Company'Structure'
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostTokensRequestBodyAccount'Company'Verification'
-> PostTokensRequestBodyAccount'Company')
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure Maybe PostTokensRequestBodyAccount'Company'Address'
-> Maybe PostTokensRequestBodyAccount'Company'AddressKana'
-> Maybe PostTokensRequestBodyAccount'Company'AddressKanji'
-> Maybe Bool
-> Maybe Bool
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Bool
-> Maybe Text
-> Maybe Text
-> Maybe PostTokensRequestBodyAccount'Company'Structure'
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostTokensRequestBodyAccount'Company'Verification'
-> PostTokensRequestBodyAccount'Company'
PostTokensRequestBodyAccount'Company' Parser
(Maybe PostTokensRequestBodyAccount'Company'Address'
-> Maybe PostTokensRequestBodyAccount'Company'AddressKana'
-> Maybe PostTokensRequestBodyAccount'Company'AddressKanji'
-> Maybe Bool
-> Maybe Bool
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Bool
-> Maybe Text
-> Maybe Text
-> Maybe PostTokensRequestBodyAccount'Company'Structure'
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostTokensRequestBodyAccount'Company'Verification'
-> PostTokensRequestBodyAccount'Company')
-> Parser (Maybe PostTokensRequestBodyAccount'Company'Address')
-> Parser
(Maybe PostTokensRequestBodyAccount'Company'AddressKana'
-> Maybe PostTokensRequestBodyAccount'Company'AddressKanji'
-> Maybe Bool
-> Maybe Bool
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Bool
-> Maybe Text
-> Maybe Text
-> Maybe PostTokensRequestBodyAccount'Company'Structure'
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostTokensRequestBodyAccount'Company'Verification'
-> PostTokensRequestBodyAccount'Company')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object
-> Text
-> Parser (Maybe PostTokensRequestBodyAccount'Company'Address')
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"address")) Parser
(Maybe PostTokensRequestBodyAccount'Company'AddressKana'
-> Maybe PostTokensRequestBodyAccount'Company'AddressKanji'
-> Maybe Bool
-> Maybe Bool
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Bool
-> Maybe Text
-> Maybe Text
-> Maybe PostTokensRequestBodyAccount'Company'Structure'
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostTokensRequestBodyAccount'Company'Verification'
-> PostTokensRequestBodyAccount'Company')
-> Parser (Maybe PostTokensRequestBodyAccount'Company'AddressKana')
-> Parser
(Maybe PostTokensRequestBodyAccount'Company'AddressKanji'
-> Maybe Bool
-> Maybe Bool
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Bool
-> Maybe Text
-> Maybe Text
-> Maybe PostTokensRequestBodyAccount'Company'Structure'
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostTokensRequestBodyAccount'Company'Verification'
-> PostTokensRequestBodyAccount'Company')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object
-> Text
-> Parser (Maybe PostTokensRequestBodyAccount'Company'AddressKana')
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"address_kana")) Parser
(Maybe PostTokensRequestBodyAccount'Company'AddressKanji'
-> Maybe Bool
-> Maybe Bool
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Bool
-> Maybe Text
-> Maybe Text
-> Maybe PostTokensRequestBodyAccount'Company'Structure'
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostTokensRequestBodyAccount'Company'Verification'
-> PostTokensRequestBodyAccount'Company')
-> Parser
(Maybe PostTokensRequestBodyAccount'Company'AddressKanji')
-> Parser
(Maybe Bool
-> Maybe Bool
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Bool
-> Maybe Text
-> Maybe Text
-> Maybe PostTokensRequestBodyAccount'Company'Structure'
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostTokensRequestBodyAccount'Company'Verification'
-> PostTokensRequestBodyAccount'Company')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object
-> Text
-> Parser
(Maybe PostTokensRequestBodyAccount'Company'AddressKanji')
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"address_kanji")) Parser
(Maybe Bool
-> Maybe Bool
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Bool
-> Maybe Text
-> Maybe Text
-> Maybe PostTokensRequestBodyAccount'Company'Structure'
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostTokensRequestBodyAccount'Company'Verification'
-> PostTokensRequestBodyAccount'Company')
-> Parser (Maybe Bool)
-> Parser
(Maybe Bool
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Bool
-> Maybe Text
-> Maybe Text
-> Maybe PostTokensRequestBodyAccount'Company'Structure'
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostTokensRequestBodyAccount'Company'Verification'
-> PostTokensRequestBodyAccount'Company')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Bool)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"directors_provided")) Parser
(Maybe Bool
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Bool
-> Maybe Text
-> Maybe Text
-> Maybe PostTokensRequestBodyAccount'Company'Structure'
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostTokensRequestBodyAccount'Company'Verification'
-> PostTokensRequestBodyAccount'Company')
-> Parser (Maybe Bool)
-> Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Bool
-> Maybe Text
-> Maybe Text
-> Maybe PostTokensRequestBodyAccount'Company'Structure'
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostTokensRequestBodyAccount'Company'Verification'
-> PostTokensRequestBodyAccount'Company')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Bool)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"executives_provided")) Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Bool
-> Maybe Text
-> Maybe Text
-> Maybe PostTokensRequestBodyAccount'Company'Structure'
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostTokensRequestBodyAccount'Company'Verification'
-> PostTokensRequestBodyAccount'Company')
-> Parser (Maybe Text)
-> Parser
(Maybe Text
-> Maybe Text
-> Maybe Bool
-> Maybe Text
-> Maybe Text
-> Maybe PostTokensRequestBodyAccount'Company'Structure'
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostTokensRequestBodyAccount'Company'Verification'
-> PostTokensRequestBodyAccount'Company')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"name")) Parser
(Maybe Text
-> Maybe Text
-> Maybe Bool
-> Maybe Text
-> Maybe Text
-> Maybe PostTokensRequestBodyAccount'Company'Structure'
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostTokensRequestBodyAccount'Company'Verification'
-> PostTokensRequestBodyAccount'Company')
-> Parser (Maybe Text)
-> Parser
(Maybe Text
-> Maybe Bool
-> Maybe Text
-> Maybe Text
-> Maybe PostTokensRequestBodyAccount'Company'Structure'
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostTokensRequestBodyAccount'Company'Verification'
-> PostTokensRequestBodyAccount'Company')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"name_kana")) Parser
(Maybe Text
-> Maybe Bool
-> Maybe Text
-> Maybe Text
-> Maybe PostTokensRequestBodyAccount'Company'Structure'
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostTokensRequestBodyAccount'Company'Verification'
-> PostTokensRequestBodyAccount'Company')
-> Parser (Maybe Text)
-> Parser
(Maybe Bool
-> Maybe Text
-> Maybe Text
-> Maybe PostTokensRequestBodyAccount'Company'Structure'
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostTokensRequestBodyAccount'Company'Verification'
-> PostTokensRequestBodyAccount'Company')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"name_kanji")) Parser
(Maybe Bool
-> Maybe Text
-> Maybe Text
-> Maybe PostTokensRequestBodyAccount'Company'Structure'
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostTokensRequestBodyAccount'Company'Verification'
-> PostTokensRequestBodyAccount'Company')
-> Parser (Maybe Bool)
-> Parser
(Maybe Text
-> Maybe Text
-> Maybe PostTokensRequestBodyAccount'Company'Structure'
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostTokensRequestBodyAccount'Company'Verification'
-> PostTokensRequestBodyAccount'Company')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Bool)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"owners_provided")) Parser
(Maybe Text
-> Maybe Text
-> Maybe PostTokensRequestBodyAccount'Company'Structure'
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostTokensRequestBodyAccount'Company'Verification'
-> PostTokensRequestBodyAccount'Company')
-> Parser (Maybe Text)
-> Parser
(Maybe Text
-> Maybe PostTokensRequestBodyAccount'Company'Structure'
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostTokensRequestBodyAccount'Company'Verification'
-> PostTokensRequestBodyAccount'Company')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"phone")) Parser
(Maybe Text
-> Maybe PostTokensRequestBodyAccount'Company'Structure'
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostTokensRequestBodyAccount'Company'Verification'
-> PostTokensRequestBodyAccount'Company')
-> Parser (Maybe Text)
-> Parser
(Maybe PostTokensRequestBodyAccount'Company'Structure'
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostTokensRequestBodyAccount'Company'Verification'
-> PostTokensRequestBodyAccount'Company')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"registration_number")) Parser
(Maybe PostTokensRequestBodyAccount'Company'Structure'
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostTokensRequestBodyAccount'Company'Verification'
-> PostTokensRequestBodyAccount'Company')
-> Parser (Maybe PostTokensRequestBodyAccount'Company'Structure')
-> Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostTokensRequestBodyAccount'Company'Verification'
-> PostTokensRequestBodyAccount'Company')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object
-> Text
-> Parser (Maybe PostTokensRequestBodyAccount'Company'Structure')
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"structure")) Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostTokensRequestBodyAccount'Company'Verification'
-> PostTokensRequestBodyAccount'Company')
-> Parser (Maybe Text)
-> Parser
(Maybe Text
-> Maybe Text
-> Maybe PostTokensRequestBodyAccount'Company'Verification'
-> PostTokensRequestBodyAccount'Company')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"tax_id")) Parser
(Maybe Text
-> Maybe Text
-> Maybe PostTokensRequestBodyAccount'Company'Verification'
-> PostTokensRequestBodyAccount'Company')
-> Parser (Maybe Text)
-> Parser
(Maybe Text
-> Maybe PostTokensRequestBodyAccount'Company'Verification'
-> PostTokensRequestBodyAccount'Company')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"tax_id_registrar")) Parser
(Maybe Text
-> Maybe PostTokensRequestBodyAccount'Company'Verification'
-> PostTokensRequestBodyAccount'Company')
-> Parser (Maybe Text)
-> Parser
(Maybe PostTokensRequestBodyAccount'Company'Verification'
-> PostTokensRequestBodyAccount'Company')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"vat_id")) Parser
(Maybe PostTokensRequestBodyAccount'Company'Verification'
-> PostTokensRequestBodyAccount'Company')
-> Parser
(Maybe PostTokensRequestBodyAccount'Company'Verification')
-> Parser PostTokensRequestBodyAccount'Company'
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object
-> Text
-> Parser
(Maybe PostTokensRequestBodyAccount'Company'Verification')
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"verification"))
mkPostTokensRequestBodyAccount'Company' :: PostTokensRequestBodyAccount'Company'
mkPostTokensRequestBodyAccount'Company' :: PostTokensRequestBodyAccount'Company'
mkPostTokensRequestBodyAccount'Company' =
PostTokensRequestBodyAccount'Company' :: Maybe PostTokensRequestBodyAccount'Company'Address'
-> Maybe PostTokensRequestBodyAccount'Company'AddressKana'
-> Maybe PostTokensRequestBodyAccount'Company'AddressKanji'
-> Maybe Bool
-> Maybe Bool
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Bool
-> Maybe Text
-> Maybe Text
-> Maybe PostTokensRequestBodyAccount'Company'Structure'
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostTokensRequestBodyAccount'Company'Verification'
-> PostTokensRequestBodyAccount'Company'
PostTokensRequestBodyAccount'Company'
{ postTokensRequestBodyAccount'Company'Address :: Maybe PostTokensRequestBodyAccount'Company'Address'
postTokensRequestBodyAccount'Company'Address = Maybe PostTokensRequestBodyAccount'Company'Address'
forall a. Maybe a
GHC.Maybe.Nothing,
postTokensRequestBodyAccount'Company'AddressKana :: Maybe PostTokensRequestBodyAccount'Company'AddressKana'
postTokensRequestBodyAccount'Company'AddressKana = Maybe PostTokensRequestBodyAccount'Company'AddressKana'
forall a. Maybe a
GHC.Maybe.Nothing,
postTokensRequestBodyAccount'Company'AddressKanji :: Maybe PostTokensRequestBodyAccount'Company'AddressKanji'
postTokensRequestBodyAccount'Company'AddressKanji = Maybe PostTokensRequestBodyAccount'Company'AddressKanji'
forall a. Maybe a
GHC.Maybe.Nothing,
postTokensRequestBodyAccount'Company'DirectorsProvided :: Maybe Bool
postTokensRequestBodyAccount'Company'DirectorsProvided = Maybe Bool
forall a. Maybe a
GHC.Maybe.Nothing,
postTokensRequestBodyAccount'Company'ExecutivesProvided :: Maybe Bool
postTokensRequestBodyAccount'Company'ExecutivesProvided = Maybe Bool
forall a. Maybe a
GHC.Maybe.Nothing,
postTokensRequestBodyAccount'Company'Name :: Maybe Text
postTokensRequestBodyAccount'Company'Name = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
postTokensRequestBodyAccount'Company'NameKana :: Maybe Text
postTokensRequestBodyAccount'Company'NameKana = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
postTokensRequestBodyAccount'Company'NameKanji :: Maybe Text
postTokensRequestBodyAccount'Company'NameKanji = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
postTokensRequestBodyAccount'Company'OwnersProvided :: Maybe Bool
postTokensRequestBodyAccount'Company'OwnersProvided = Maybe Bool
forall a. Maybe a
GHC.Maybe.Nothing,
postTokensRequestBodyAccount'Company'Phone :: Maybe Text
postTokensRequestBodyAccount'Company'Phone = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
postTokensRequestBodyAccount'Company'RegistrationNumber :: Maybe Text
postTokensRequestBodyAccount'Company'RegistrationNumber = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
postTokensRequestBodyAccount'Company'Structure :: Maybe PostTokensRequestBodyAccount'Company'Structure'
postTokensRequestBodyAccount'Company'Structure = Maybe PostTokensRequestBodyAccount'Company'Structure'
forall a. Maybe a
GHC.Maybe.Nothing,
postTokensRequestBodyAccount'Company'TaxId :: Maybe Text
postTokensRequestBodyAccount'Company'TaxId = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
postTokensRequestBodyAccount'Company'TaxIdRegistrar :: Maybe Text
postTokensRequestBodyAccount'Company'TaxIdRegistrar = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
postTokensRequestBodyAccount'Company'VatId :: Maybe Text
postTokensRequestBodyAccount'Company'VatId = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
postTokensRequestBodyAccount'Company'Verification :: Maybe PostTokensRequestBodyAccount'Company'Verification'
postTokensRequestBodyAccount'Company'Verification = Maybe PostTokensRequestBodyAccount'Company'Verification'
forall a. Maybe a
GHC.Maybe.Nothing
}
data PostTokensRequestBodyAccount'Company'Address' = PostTokensRequestBodyAccount'Company'Address'
{
PostTokensRequestBodyAccount'Company'Address' -> Maybe Text
postTokensRequestBodyAccount'Company'Address'City :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
PostTokensRequestBodyAccount'Company'Address' -> Maybe Text
postTokensRequestBodyAccount'Company'Address'Country :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
PostTokensRequestBodyAccount'Company'Address' -> Maybe Text
postTokensRequestBodyAccount'Company'Address'Line1 :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
PostTokensRequestBodyAccount'Company'Address' -> Maybe Text
postTokensRequestBodyAccount'Company'Address'Line2 :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
PostTokensRequestBodyAccount'Company'Address' -> Maybe Text
postTokensRequestBodyAccount'Company'Address'PostalCode :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
PostTokensRequestBodyAccount'Company'Address' -> Maybe Text
postTokensRequestBodyAccount'Company'Address'State :: (GHC.Maybe.Maybe Data.Text.Internal.Text)
}
deriving
( Int -> PostTokensRequestBodyAccount'Company'Address' -> ShowS
[PostTokensRequestBodyAccount'Company'Address'] -> ShowS
PostTokensRequestBodyAccount'Company'Address' -> String
(Int -> PostTokensRequestBodyAccount'Company'Address' -> ShowS)
-> (PostTokensRequestBodyAccount'Company'Address' -> String)
-> ([PostTokensRequestBodyAccount'Company'Address'] -> ShowS)
-> Show PostTokensRequestBodyAccount'Company'Address'
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PostTokensRequestBodyAccount'Company'Address'] -> ShowS
$cshowList :: [PostTokensRequestBodyAccount'Company'Address'] -> ShowS
show :: PostTokensRequestBodyAccount'Company'Address' -> String
$cshow :: PostTokensRequestBodyAccount'Company'Address' -> String
showsPrec :: Int -> PostTokensRequestBodyAccount'Company'Address' -> ShowS
$cshowsPrec :: Int -> PostTokensRequestBodyAccount'Company'Address' -> ShowS
GHC.Show.Show,
PostTokensRequestBodyAccount'Company'Address'
-> PostTokensRequestBodyAccount'Company'Address' -> Bool
(PostTokensRequestBodyAccount'Company'Address'
-> PostTokensRequestBodyAccount'Company'Address' -> Bool)
-> (PostTokensRequestBodyAccount'Company'Address'
-> PostTokensRequestBodyAccount'Company'Address' -> Bool)
-> Eq PostTokensRequestBodyAccount'Company'Address'
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostTokensRequestBodyAccount'Company'Address'
-> PostTokensRequestBodyAccount'Company'Address' -> Bool
$c/= :: PostTokensRequestBodyAccount'Company'Address'
-> PostTokensRequestBodyAccount'Company'Address' -> Bool
== :: PostTokensRequestBodyAccount'Company'Address'
-> PostTokensRequestBodyAccount'Company'Address' -> Bool
$c== :: PostTokensRequestBodyAccount'Company'Address'
-> PostTokensRequestBodyAccount'Company'Address' -> Bool
GHC.Classes.Eq
)
instance Data.Aeson.Types.ToJSON.ToJSON PostTokensRequestBodyAccount'Company'Address' where
toJSON :: PostTokensRequestBodyAccount'Company'Address' -> Value
toJSON PostTokensRequestBodyAccount'Company'Address'
obj = [Pair] -> Value
Data.Aeson.Types.Internal.object (Text
"city" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'Company'Address' -> Maybe Text
postTokensRequestBodyAccount'Company'Address'City PostTokensRequestBodyAccount'Company'Address'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"country" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'Company'Address' -> Maybe Text
postTokensRequestBodyAccount'Company'Address'Country PostTokensRequestBodyAccount'Company'Address'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"line1" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'Company'Address' -> Maybe Text
postTokensRequestBodyAccount'Company'Address'Line1 PostTokensRequestBodyAccount'Company'Address'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"line2" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'Company'Address' -> Maybe Text
postTokensRequestBodyAccount'Company'Address'Line2 PostTokensRequestBodyAccount'Company'Address'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"postal_code" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'Company'Address' -> Maybe Text
postTokensRequestBodyAccount'Company'Address'PostalCode PostTokensRequestBodyAccount'Company'Address'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"state" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'Company'Address' -> Maybe Text
postTokensRequestBodyAccount'Company'Address'State PostTokensRequestBodyAccount'Company'Address'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: [Pair]
forall a. Monoid a => a
GHC.Base.mempty)
toEncoding :: PostTokensRequestBodyAccount'Company'Address' -> Encoding
toEncoding PostTokensRequestBodyAccount'Company'Address'
obj = Series -> Encoding
Data.Aeson.Encoding.Internal.pairs ((Text
"city" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'Company'Address' -> Maybe Text
postTokensRequestBodyAccount'Company'Address'City PostTokensRequestBodyAccount'Company'Address'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"country" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'Company'Address' -> Maybe Text
postTokensRequestBodyAccount'Company'Address'Country PostTokensRequestBodyAccount'Company'Address'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"line1" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'Company'Address' -> Maybe Text
postTokensRequestBodyAccount'Company'Address'Line1 PostTokensRequestBodyAccount'Company'Address'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"line2" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'Company'Address' -> Maybe Text
postTokensRequestBodyAccount'Company'Address'Line2 PostTokensRequestBodyAccount'Company'Address'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"postal_code" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'Company'Address' -> Maybe Text
postTokensRequestBodyAccount'Company'Address'PostalCode PostTokensRequestBodyAccount'Company'Address'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> (Text
"state" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'Company'Address' -> Maybe Text
postTokensRequestBodyAccount'Company'Address'State PostTokensRequestBodyAccount'Company'Address'
obj))))))
instance Data.Aeson.Types.FromJSON.FromJSON PostTokensRequestBodyAccount'Company'Address' where
parseJSON :: Value -> Parser PostTokensRequestBodyAccount'Company'Address'
parseJSON = String
-> (Object -> Parser PostTokensRequestBodyAccount'Company'Address')
-> Value
-> Parser PostTokensRequestBodyAccount'Company'Address'
forall a. String -> (Object -> Parser a) -> Value -> Parser a
Data.Aeson.Types.FromJSON.withObject String
"PostTokensRequestBodyAccount'Company'Address'" (\Object
obj -> ((((((Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> PostTokensRequestBodyAccount'Company'Address')
-> Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> PostTokensRequestBodyAccount'Company'Address')
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> PostTokensRequestBodyAccount'Company'Address'
PostTokensRequestBodyAccount'Company'Address' Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> PostTokensRequestBodyAccount'Company'Address')
-> Parser (Maybe Text)
-> Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> PostTokensRequestBodyAccount'Company'Address')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"city")) Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> PostTokensRequestBodyAccount'Company'Address')
-> Parser (Maybe Text)
-> Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> PostTokensRequestBodyAccount'Company'Address')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"country")) Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> PostTokensRequestBodyAccount'Company'Address')
-> Parser (Maybe Text)
-> Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> PostTokensRequestBodyAccount'Company'Address')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"line1")) Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> PostTokensRequestBodyAccount'Company'Address')
-> Parser (Maybe Text)
-> Parser
(Maybe Text
-> Maybe Text -> PostTokensRequestBodyAccount'Company'Address')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"line2")) Parser
(Maybe Text
-> Maybe Text -> PostTokensRequestBodyAccount'Company'Address')
-> Parser (Maybe Text)
-> Parser
(Maybe Text -> PostTokensRequestBodyAccount'Company'Address')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"postal_code")) Parser
(Maybe Text -> PostTokensRequestBodyAccount'Company'Address')
-> Parser (Maybe Text)
-> Parser PostTokensRequestBodyAccount'Company'Address'
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"state"))
mkPostTokensRequestBodyAccount'Company'Address' :: PostTokensRequestBodyAccount'Company'Address'
mkPostTokensRequestBodyAccount'Company'Address' :: PostTokensRequestBodyAccount'Company'Address'
mkPostTokensRequestBodyAccount'Company'Address' =
PostTokensRequestBodyAccount'Company'Address' :: Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> PostTokensRequestBodyAccount'Company'Address'
PostTokensRequestBodyAccount'Company'Address'
{ postTokensRequestBodyAccount'Company'Address'City :: Maybe Text
postTokensRequestBodyAccount'Company'Address'City = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
postTokensRequestBodyAccount'Company'Address'Country :: Maybe Text
postTokensRequestBodyAccount'Company'Address'Country = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
postTokensRequestBodyAccount'Company'Address'Line1 :: Maybe Text
postTokensRequestBodyAccount'Company'Address'Line1 = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
postTokensRequestBodyAccount'Company'Address'Line2 :: Maybe Text
postTokensRequestBodyAccount'Company'Address'Line2 = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
postTokensRequestBodyAccount'Company'Address'PostalCode :: Maybe Text
postTokensRequestBodyAccount'Company'Address'PostalCode = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
postTokensRequestBodyAccount'Company'Address'State :: Maybe Text
postTokensRequestBodyAccount'Company'Address'State = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing
}
data PostTokensRequestBodyAccount'Company'AddressKana' = PostTokensRequestBodyAccount'Company'AddressKana'
{
PostTokensRequestBodyAccount'Company'AddressKana' -> Maybe Text
postTokensRequestBodyAccount'Company'AddressKana'City :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
PostTokensRequestBodyAccount'Company'AddressKana' -> Maybe Text
postTokensRequestBodyAccount'Company'AddressKana'Country :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
PostTokensRequestBodyAccount'Company'AddressKana' -> Maybe Text
postTokensRequestBodyAccount'Company'AddressKana'Line1 :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
PostTokensRequestBodyAccount'Company'AddressKana' -> Maybe Text
postTokensRequestBodyAccount'Company'AddressKana'Line2 :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
PostTokensRequestBodyAccount'Company'AddressKana' -> Maybe Text
postTokensRequestBodyAccount'Company'AddressKana'PostalCode :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
PostTokensRequestBodyAccount'Company'AddressKana' -> Maybe Text
postTokensRequestBodyAccount'Company'AddressKana'State :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
PostTokensRequestBodyAccount'Company'AddressKana' -> Maybe Text
postTokensRequestBodyAccount'Company'AddressKana'Town :: (GHC.Maybe.Maybe Data.Text.Internal.Text)
}
deriving
( Int -> PostTokensRequestBodyAccount'Company'AddressKana' -> ShowS
[PostTokensRequestBodyAccount'Company'AddressKana'] -> ShowS
PostTokensRequestBodyAccount'Company'AddressKana' -> String
(Int -> PostTokensRequestBodyAccount'Company'AddressKana' -> ShowS)
-> (PostTokensRequestBodyAccount'Company'AddressKana' -> String)
-> ([PostTokensRequestBodyAccount'Company'AddressKana'] -> ShowS)
-> Show PostTokensRequestBodyAccount'Company'AddressKana'
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PostTokensRequestBodyAccount'Company'AddressKana'] -> ShowS
$cshowList :: [PostTokensRequestBodyAccount'Company'AddressKana'] -> ShowS
show :: PostTokensRequestBodyAccount'Company'AddressKana' -> String
$cshow :: PostTokensRequestBodyAccount'Company'AddressKana' -> String
showsPrec :: Int -> PostTokensRequestBodyAccount'Company'AddressKana' -> ShowS
$cshowsPrec :: Int -> PostTokensRequestBodyAccount'Company'AddressKana' -> ShowS
GHC.Show.Show,
PostTokensRequestBodyAccount'Company'AddressKana'
-> PostTokensRequestBodyAccount'Company'AddressKana' -> Bool
(PostTokensRequestBodyAccount'Company'AddressKana'
-> PostTokensRequestBodyAccount'Company'AddressKana' -> Bool)
-> (PostTokensRequestBodyAccount'Company'AddressKana'
-> PostTokensRequestBodyAccount'Company'AddressKana' -> Bool)
-> Eq PostTokensRequestBodyAccount'Company'AddressKana'
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostTokensRequestBodyAccount'Company'AddressKana'
-> PostTokensRequestBodyAccount'Company'AddressKana' -> Bool
$c/= :: PostTokensRequestBodyAccount'Company'AddressKana'
-> PostTokensRequestBodyAccount'Company'AddressKana' -> Bool
== :: PostTokensRequestBodyAccount'Company'AddressKana'
-> PostTokensRequestBodyAccount'Company'AddressKana' -> Bool
$c== :: PostTokensRequestBodyAccount'Company'AddressKana'
-> PostTokensRequestBodyAccount'Company'AddressKana' -> Bool
GHC.Classes.Eq
)
instance Data.Aeson.Types.ToJSON.ToJSON PostTokensRequestBodyAccount'Company'AddressKana' where
toJSON :: PostTokensRequestBodyAccount'Company'AddressKana' -> Value
toJSON PostTokensRequestBodyAccount'Company'AddressKana'
obj = [Pair] -> Value
Data.Aeson.Types.Internal.object (Text
"city" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'Company'AddressKana' -> Maybe Text
postTokensRequestBodyAccount'Company'AddressKana'City PostTokensRequestBodyAccount'Company'AddressKana'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"country" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'Company'AddressKana' -> Maybe Text
postTokensRequestBodyAccount'Company'AddressKana'Country PostTokensRequestBodyAccount'Company'AddressKana'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"line1" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'Company'AddressKana' -> Maybe Text
postTokensRequestBodyAccount'Company'AddressKana'Line1 PostTokensRequestBodyAccount'Company'AddressKana'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"line2" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'Company'AddressKana' -> Maybe Text
postTokensRequestBodyAccount'Company'AddressKana'Line2 PostTokensRequestBodyAccount'Company'AddressKana'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"postal_code" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'Company'AddressKana' -> Maybe Text
postTokensRequestBodyAccount'Company'AddressKana'PostalCode PostTokensRequestBodyAccount'Company'AddressKana'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"state" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'Company'AddressKana' -> Maybe Text
postTokensRequestBodyAccount'Company'AddressKana'State PostTokensRequestBodyAccount'Company'AddressKana'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"town" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'Company'AddressKana' -> Maybe Text
postTokensRequestBodyAccount'Company'AddressKana'Town PostTokensRequestBodyAccount'Company'AddressKana'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: [Pair]
forall a. Monoid a => a
GHC.Base.mempty)
toEncoding :: PostTokensRequestBodyAccount'Company'AddressKana' -> Encoding
toEncoding PostTokensRequestBodyAccount'Company'AddressKana'
obj = Series -> Encoding
Data.Aeson.Encoding.Internal.pairs ((Text
"city" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'Company'AddressKana' -> Maybe Text
postTokensRequestBodyAccount'Company'AddressKana'City PostTokensRequestBodyAccount'Company'AddressKana'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"country" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'Company'AddressKana' -> Maybe Text
postTokensRequestBodyAccount'Company'AddressKana'Country PostTokensRequestBodyAccount'Company'AddressKana'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"line1" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'Company'AddressKana' -> Maybe Text
postTokensRequestBodyAccount'Company'AddressKana'Line1 PostTokensRequestBodyAccount'Company'AddressKana'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"line2" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'Company'AddressKana' -> Maybe Text
postTokensRequestBodyAccount'Company'AddressKana'Line2 PostTokensRequestBodyAccount'Company'AddressKana'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"postal_code" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'Company'AddressKana' -> Maybe Text
postTokensRequestBodyAccount'Company'AddressKana'PostalCode PostTokensRequestBodyAccount'Company'AddressKana'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"state" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'Company'AddressKana' -> Maybe Text
postTokensRequestBodyAccount'Company'AddressKana'State PostTokensRequestBodyAccount'Company'AddressKana'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> (Text
"town" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'Company'AddressKana' -> Maybe Text
postTokensRequestBodyAccount'Company'AddressKana'Town PostTokensRequestBodyAccount'Company'AddressKana'
obj)))))))
instance Data.Aeson.Types.FromJSON.FromJSON PostTokensRequestBodyAccount'Company'AddressKana' where
parseJSON :: Value -> Parser PostTokensRequestBodyAccount'Company'AddressKana'
parseJSON = String
-> (Object
-> Parser PostTokensRequestBodyAccount'Company'AddressKana')
-> Value
-> Parser PostTokensRequestBodyAccount'Company'AddressKana'
forall a. String -> (Object -> Parser a) -> Value -> Parser a
Data.Aeson.Types.FromJSON.withObject String
"PostTokensRequestBodyAccount'Company'AddressKana'" (\Object
obj -> (((((((Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> PostTokensRequestBodyAccount'Company'AddressKana')
-> Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> PostTokensRequestBodyAccount'Company'AddressKana')
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> PostTokensRequestBodyAccount'Company'AddressKana'
PostTokensRequestBodyAccount'Company'AddressKana' Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> PostTokensRequestBodyAccount'Company'AddressKana')
-> Parser (Maybe Text)
-> Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> PostTokensRequestBodyAccount'Company'AddressKana')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"city")) Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> PostTokensRequestBodyAccount'Company'AddressKana')
-> Parser (Maybe Text)
-> Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> PostTokensRequestBodyAccount'Company'AddressKana')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"country")) Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> PostTokensRequestBodyAccount'Company'AddressKana')
-> Parser (Maybe Text)
-> Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> PostTokensRequestBodyAccount'Company'AddressKana')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"line1")) Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> PostTokensRequestBodyAccount'Company'AddressKana')
-> Parser (Maybe Text)
-> Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> PostTokensRequestBodyAccount'Company'AddressKana')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"line2")) Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> PostTokensRequestBodyAccount'Company'AddressKana')
-> Parser (Maybe Text)
-> Parser
(Maybe Text
-> Maybe Text -> PostTokensRequestBodyAccount'Company'AddressKana')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"postal_code")) Parser
(Maybe Text
-> Maybe Text -> PostTokensRequestBodyAccount'Company'AddressKana')
-> Parser (Maybe Text)
-> Parser
(Maybe Text -> PostTokensRequestBodyAccount'Company'AddressKana')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"state")) Parser
(Maybe Text -> PostTokensRequestBodyAccount'Company'AddressKana')
-> Parser (Maybe Text)
-> Parser PostTokensRequestBodyAccount'Company'AddressKana'
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"town"))
mkPostTokensRequestBodyAccount'Company'AddressKana' :: PostTokensRequestBodyAccount'Company'AddressKana'
mkPostTokensRequestBodyAccount'Company'AddressKana' :: PostTokensRequestBodyAccount'Company'AddressKana'
mkPostTokensRequestBodyAccount'Company'AddressKana' =
PostTokensRequestBodyAccount'Company'AddressKana' :: Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> PostTokensRequestBodyAccount'Company'AddressKana'
PostTokensRequestBodyAccount'Company'AddressKana'
{ postTokensRequestBodyAccount'Company'AddressKana'City :: Maybe Text
postTokensRequestBodyAccount'Company'AddressKana'City = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
postTokensRequestBodyAccount'Company'AddressKana'Country :: Maybe Text
postTokensRequestBodyAccount'Company'AddressKana'Country = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
postTokensRequestBodyAccount'Company'AddressKana'Line1 :: Maybe Text
postTokensRequestBodyAccount'Company'AddressKana'Line1 = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
postTokensRequestBodyAccount'Company'AddressKana'Line2 :: Maybe Text
postTokensRequestBodyAccount'Company'AddressKana'Line2 = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
postTokensRequestBodyAccount'Company'AddressKana'PostalCode :: Maybe Text
postTokensRequestBodyAccount'Company'AddressKana'PostalCode = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
postTokensRequestBodyAccount'Company'AddressKana'State :: Maybe Text
postTokensRequestBodyAccount'Company'AddressKana'State = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
postTokensRequestBodyAccount'Company'AddressKana'Town :: Maybe Text
postTokensRequestBodyAccount'Company'AddressKana'Town = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing
}
data PostTokensRequestBodyAccount'Company'AddressKanji' = PostTokensRequestBodyAccount'Company'AddressKanji'
{
PostTokensRequestBodyAccount'Company'AddressKanji' -> Maybe Text
postTokensRequestBodyAccount'Company'AddressKanji'City :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
PostTokensRequestBodyAccount'Company'AddressKanji' -> Maybe Text
postTokensRequestBodyAccount'Company'AddressKanji'Country :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
PostTokensRequestBodyAccount'Company'AddressKanji' -> Maybe Text
postTokensRequestBodyAccount'Company'AddressKanji'Line1 :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
PostTokensRequestBodyAccount'Company'AddressKanji' -> Maybe Text
postTokensRequestBodyAccount'Company'AddressKanji'Line2 :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
PostTokensRequestBodyAccount'Company'AddressKanji' -> Maybe Text
postTokensRequestBodyAccount'Company'AddressKanji'PostalCode :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
PostTokensRequestBodyAccount'Company'AddressKanji' -> Maybe Text
postTokensRequestBodyAccount'Company'AddressKanji'State :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
PostTokensRequestBodyAccount'Company'AddressKanji' -> Maybe Text
postTokensRequestBodyAccount'Company'AddressKanji'Town :: (GHC.Maybe.Maybe Data.Text.Internal.Text)
}
deriving
( Int -> PostTokensRequestBodyAccount'Company'AddressKanji' -> ShowS
[PostTokensRequestBodyAccount'Company'AddressKanji'] -> ShowS
PostTokensRequestBodyAccount'Company'AddressKanji' -> String
(Int
-> PostTokensRequestBodyAccount'Company'AddressKanji' -> ShowS)
-> (PostTokensRequestBodyAccount'Company'AddressKanji' -> String)
-> ([PostTokensRequestBodyAccount'Company'AddressKanji'] -> ShowS)
-> Show PostTokensRequestBodyAccount'Company'AddressKanji'
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PostTokensRequestBodyAccount'Company'AddressKanji'] -> ShowS
$cshowList :: [PostTokensRequestBodyAccount'Company'AddressKanji'] -> ShowS
show :: PostTokensRequestBodyAccount'Company'AddressKanji' -> String
$cshow :: PostTokensRequestBodyAccount'Company'AddressKanji' -> String
showsPrec :: Int -> PostTokensRequestBodyAccount'Company'AddressKanji' -> ShowS
$cshowsPrec :: Int -> PostTokensRequestBodyAccount'Company'AddressKanji' -> ShowS
GHC.Show.Show,
PostTokensRequestBodyAccount'Company'AddressKanji'
-> PostTokensRequestBodyAccount'Company'AddressKanji' -> Bool
(PostTokensRequestBodyAccount'Company'AddressKanji'
-> PostTokensRequestBodyAccount'Company'AddressKanji' -> Bool)
-> (PostTokensRequestBodyAccount'Company'AddressKanji'
-> PostTokensRequestBodyAccount'Company'AddressKanji' -> Bool)
-> Eq PostTokensRequestBodyAccount'Company'AddressKanji'
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostTokensRequestBodyAccount'Company'AddressKanji'
-> PostTokensRequestBodyAccount'Company'AddressKanji' -> Bool
$c/= :: PostTokensRequestBodyAccount'Company'AddressKanji'
-> PostTokensRequestBodyAccount'Company'AddressKanji' -> Bool
== :: PostTokensRequestBodyAccount'Company'AddressKanji'
-> PostTokensRequestBodyAccount'Company'AddressKanji' -> Bool
$c== :: PostTokensRequestBodyAccount'Company'AddressKanji'
-> PostTokensRequestBodyAccount'Company'AddressKanji' -> Bool
GHC.Classes.Eq
)
instance Data.Aeson.Types.ToJSON.ToJSON PostTokensRequestBodyAccount'Company'AddressKanji' where
toJSON :: PostTokensRequestBodyAccount'Company'AddressKanji' -> Value
toJSON PostTokensRequestBodyAccount'Company'AddressKanji'
obj = [Pair] -> Value
Data.Aeson.Types.Internal.object (Text
"city" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'Company'AddressKanji' -> Maybe Text
postTokensRequestBodyAccount'Company'AddressKanji'City PostTokensRequestBodyAccount'Company'AddressKanji'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"country" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'Company'AddressKanji' -> Maybe Text
postTokensRequestBodyAccount'Company'AddressKanji'Country PostTokensRequestBodyAccount'Company'AddressKanji'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"line1" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'Company'AddressKanji' -> Maybe Text
postTokensRequestBodyAccount'Company'AddressKanji'Line1 PostTokensRequestBodyAccount'Company'AddressKanji'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"line2" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'Company'AddressKanji' -> Maybe Text
postTokensRequestBodyAccount'Company'AddressKanji'Line2 PostTokensRequestBodyAccount'Company'AddressKanji'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"postal_code" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'Company'AddressKanji' -> Maybe Text
postTokensRequestBodyAccount'Company'AddressKanji'PostalCode PostTokensRequestBodyAccount'Company'AddressKanji'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"state" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'Company'AddressKanji' -> Maybe Text
postTokensRequestBodyAccount'Company'AddressKanji'State PostTokensRequestBodyAccount'Company'AddressKanji'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"town" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'Company'AddressKanji' -> Maybe Text
postTokensRequestBodyAccount'Company'AddressKanji'Town PostTokensRequestBodyAccount'Company'AddressKanji'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: [Pair]
forall a. Monoid a => a
GHC.Base.mempty)
toEncoding :: PostTokensRequestBodyAccount'Company'AddressKanji' -> Encoding
toEncoding PostTokensRequestBodyAccount'Company'AddressKanji'
obj = Series -> Encoding
Data.Aeson.Encoding.Internal.pairs ((Text
"city" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'Company'AddressKanji' -> Maybe Text
postTokensRequestBodyAccount'Company'AddressKanji'City PostTokensRequestBodyAccount'Company'AddressKanji'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"country" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'Company'AddressKanji' -> Maybe Text
postTokensRequestBodyAccount'Company'AddressKanji'Country PostTokensRequestBodyAccount'Company'AddressKanji'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"line1" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'Company'AddressKanji' -> Maybe Text
postTokensRequestBodyAccount'Company'AddressKanji'Line1 PostTokensRequestBodyAccount'Company'AddressKanji'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"line2" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'Company'AddressKanji' -> Maybe Text
postTokensRequestBodyAccount'Company'AddressKanji'Line2 PostTokensRequestBodyAccount'Company'AddressKanji'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"postal_code" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'Company'AddressKanji' -> Maybe Text
postTokensRequestBodyAccount'Company'AddressKanji'PostalCode PostTokensRequestBodyAccount'Company'AddressKanji'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"state" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'Company'AddressKanji' -> Maybe Text
postTokensRequestBodyAccount'Company'AddressKanji'State PostTokensRequestBodyAccount'Company'AddressKanji'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> (Text
"town" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'Company'AddressKanji' -> Maybe Text
postTokensRequestBodyAccount'Company'AddressKanji'Town PostTokensRequestBodyAccount'Company'AddressKanji'
obj)))))))
instance Data.Aeson.Types.FromJSON.FromJSON PostTokensRequestBodyAccount'Company'AddressKanji' where
parseJSON :: Value -> Parser PostTokensRequestBodyAccount'Company'AddressKanji'
parseJSON = String
-> (Object
-> Parser PostTokensRequestBodyAccount'Company'AddressKanji')
-> Value
-> Parser PostTokensRequestBodyAccount'Company'AddressKanji'
forall a. String -> (Object -> Parser a) -> Value -> Parser a
Data.Aeson.Types.FromJSON.withObject String
"PostTokensRequestBodyAccount'Company'AddressKanji'" (\Object
obj -> (((((((Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> PostTokensRequestBodyAccount'Company'AddressKanji')
-> Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> PostTokensRequestBodyAccount'Company'AddressKanji')
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> PostTokensRequestBodyAccount'Company'AddressKanji'
PostTokensRequestBodyAccount'Company'AddressKanji' Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> PostTokensRequestBodyAccount'Company'AddressKanji')
-> Parser (Maybe Text)
-> Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> PostTokensRequestBodyAccount'Company'AddressKanji')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"city")) Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> PostTokensRequestBodyAccount'Company'AddressKanji')
-> Parser (Maybe Text)
-> Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> PostTokensRequestBodyAccount'Company'AddressKanji')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"country")) Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> PostTokensRequestBodyAccount'Company'AddressKanji')
-> Parser (Maybe Text)
-> Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> PostTokensRequestBodyAccount'Company'AddressKanji')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"line1")) Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> PostTokensRequestBodyAccount'Company'AddressKanji')
-> Parser (Maybe Text)
-> Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> PostTokensRequestBodyAccount'Company'AddressKanji')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"line2")) Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> PostTokensRequestBodyAccount'Company'AddressKanji')
-> Parser (Maybe Text)
-> Parser
(Maybe Text
-> Maybe Text
-> PostTokensRequestBodyAccount'Company'AddressKanji')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"postal_code")) Parser
(Maybe Text
-> Maybe Text
-> PostTokensRequestBodyAccount'Company'AddressKanji')
-> Parser (Maybe Text)
-> Parser
(Maybe Text -> PostTokensRequestBodyAccount'Company'AddressKanji')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"state")) Parser
(Maybe Text -> PostTokensRequestBodyAccount'Company'AddressKanji')
-> Parser (Maybe Text)
-> Parser PostTokensRequestBodyAccount'Company'AddressKanji'
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"town"))
mkPostTokensRequestBodyAccount'Company'AddressKanji' :: PostTokensRequestBodyAccount'Company'AddressKanji'
mkPostTokensRequestBodyAccount'Company'AddressKanji' :: PostTokensRequestBodyAccount'Company'AddressKanji'
mkPostTokensRequestBodyAccount'Company'AddressKanji' =
PostTokensRequestBodyAccount'Company'AddressKanji' :: Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> PostTokensRequestBodyAccount'Company'AddressKanji'
PostTokensRequestBodyAccount'Company'AddressKanji'
{ postTokensRequestBodyAccount'Company'AddressKanji'City :: Maybe Text
postTokensRequestBodyAccount'Company'AddressKanji'City = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
postTokensRequestBodyAccount'Company'AddressKanji'Country :: Maybe Text
postTokensRequestBodyAccount'Company'AddressKanji'Country = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
postTokensRequestBodyAccount'Company'AddressKanji'Line1 :: Maybe Text
postTokensRequestBodyAccount'Company'AddressKanji'Line1 = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
postTokensRequestBodyAccount'Company'AddressKanji'Line2 :: Maybe Text
postTokensRequestBodyAccount'Company'AddressKanji'Line2 = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
postTokensRequestBodyAccount'Company'AddressKanji'PostalCode :: Maybe Text
postTokensRequestBodyAccount'Company'AddressKanji'PostalCode = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
postTokensRequestBodyAccount'Company'AddressKanji'State :: Maybe Text
postTokensRequestBodyAccount'Company'AddressKanji'State = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
postTokensRequestBodyAccount'Company'AddressKanji'Town :: Maybe Text
postTokensRequestBodyAccount'Company'AddressKanji'Town = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing
}
data PostTokensRequestBodyAccount'Company'Structure'
=
PostTokensRequestBodyAccount'Company'Structure'Other Data.Aeson.Types.Internal.Value
|
PostTokensRequestBodyAccount'Company'Structure'Typed Data.Text.Internal.Text
|
PostTokensRequestBodyAccount'Company'Structure'EnumEmptyString
|
PostTokensRequestBodyAccount'Company'Structure'EnumFreeZoneEstablishment
|
PostTokensRequestBodyAccount'Company'Structure'EnumFreeZoneLlc
|
PostTokensRequestBodyAccount'Company'Structure'EnumGovernmentInstrumentality
|
PostTokensRequestBodyAccount'Company'Structure'EnumGovernmentalUnit
|
PostTokensRequestBodyAccount'Company'Structure'EnumIncorporatedNonProfit
|
PostTokensRequestBodyAccount'Company'Structure'EnumLimitedLiabilityPartnership
|
PostTokensRequestBodyAccount'Company'Structure'EnumLlc
|
PostTokensRequestBodyAccount'Company'Structure'EnumMultiMemberLlc
|
PostTokensRequestBodyAccount'Company'Structure'EnumPrivateCompany
|
PostTokensRequestBodyAccount'Company'Structure'EnumPrivateCorporation
|
PostTokensRequestBodyAccount'Company'Structure'EnumPrivatePartnership
|
PostTokensRequestBodyAccount'Company'Structure'EnumPublicCompany
|
PostTokensRequestBodyAccount'Company'Structure'EnumPublicCorporation
|
PostTokensRequestBodyAccount'Company'Structure'EnumPublicPartnership
|
PostTokensRequestBodyAccount'Company'Structure'EnumSingleMemberLlc
|
PostTokensRequestBodyAccount'Company'Structure'EnumSoleEstablishment
|
PostTokensRequestBodyAccount'Company'Structure'EnumSoleProprietorship
|
PostTokensRequestBodyAccount'Company'Structure'EnumTaxExemptGovernmentInstrumentality
|
PostTokensRequestBodyAccount'Company'Structure'EnumUnincorporatedAssociation
|
PostTokensRequestBodyAccount'Company'Structure'EnumUnincorporatedNonProfit
deriving (Int -> PostTokensRequestBodyAccount'Company'Structure' -> ShowS
[PostTokensRequestBodyAccount'Company'Structure'] -> ShowS
PostTokensRequestBodyAccount'Company'Structure' -> String
(Int -> PostTokensRequestBodyAccount'Company'Structure' -> ShowS)
-> (PostTokensRequestBodyAccount'Company'Structure' -> String)
-> ([PostTokensRequestBodyAccount'Company'Structure'] -> ShowS)
-> Show PostTokensRequestBodyAccount'Company'Structure'
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PostTokensRequestBodyAccount'Company'Structure'] -> ShowS
$cshowList :: [PostTokensRequestBodyAccount'Company'Structure'] -> ShowS
show :: PostTokensRequestBodyAccount'Company'Structure' -> String
$cshow :: PostTokensRequestBodyAccount'Company'Structure' -> String
showsPrec :: Int -> PostTokensRequestBodyAccount'Company'Structure' -> ShowS
$cshowsPrec :: Int -> PostTokensRequestBodyAccount'Company'Structure' -> ShowS
GHC.Show.Show, PostTokensRequestBodyAccount'Company'Structure'
-> PostTokensRequestBodyAccount'Company'Structure' -> Bool
(PostTokensRequestBodyAccount'Company'Structure'
-> PostTokensRequestBodyAccount'Company'Structure' -> Bool)
-> (PostTokensRequestBodyAccount'Company'Structure'
-> PostTokensRequestBodyAccount'Company'Structure' -> Bool)
-> Eq PostTokensRequestBodyAccount'Company'Structure'
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostTokensRequestBodyAccount'Company'Structure'
-> PostTokensRequestBodyAccount'Company'Structure' -> Bool
$c/= :: PostTokensRequestBodyAccount'Company'Structure'
-> PostTokensRequestBodyAccount'Company'Structure' -> Bool
== :: PostTokensRequestBodyAccount'Company'Structure'
-> PostTokensRequestBodyAccount'Company'Structure' -> Bool
$c== :: PostTokensRequestBodyAccount'Company'Structure'
-> PostTokensRequestBodyAccount'Company'Structure' -> Bool
GHC.Classes.Eq)
instance Data.Aeson.Types.ToJSON.ToJSON PostTokensRequestBodyAccount'Company'Structure' where
toJSON :: PostTokensRequestBodyAccount'Company'Structure' -> Value
toJSON (PostTokensRequestBodyAccount'Company'Structure'Other Value
val) = Value
val
toJSON (PostTokensRequestBodyAccount'Company'Structure'Typed Text
val) = Text -> Value
forall a. ToJSON a => a -> Value
Data.Aeson.Types.ToJSON.toJSON Text
val
toJSON (PostTokensRequestBodyAccount'Company'Structure'
PostTokensRequestBodyAccount'Company'Structure'EnumEmptyString) = Value
""
toJSON (PostTokensRequestBodyAccount'Company'Structure'
PostTokensRequestBodyAccount'Company'Structure'EnumFreeZoneEstablishment) = Value
"free_zone_establishment"
toJSON (PostTokensRequestBodyAccount'Company'Structure'
PostTokensRequestBodyAccount'Company'Structure'EnumFreeZoneLlc) = Value
"free_zone_llc"
toJSON (PostTokensRequestBodyAccount'Company'Structure'
PostTokensRequestBodyAccount'Company'Structure'EnumGovernmentInstrumentality) = Value
"government_instrumentality"
toJSON (PostTokensRequestBodyAccount'Company'Structure'
PostTokensRequestBodyAccount'Company'Structure'EnumGovernmentalUnit) = Value
"governmental_unit"
toJSON (PostTokensRequestBodyAccount'Company'Structure'
PostTokensRequestBodyAccount'Company'Structure'EnumIncorporatedNonProfit) = Value
"incorporated_non_profit"
toJSON (PostTokensRequestBodyAccount'Company'Structure'
PostTokensRequestBodyAccount'Company'Structure'EnumLimitedLiabilityPartnership) = Value
"limited_liability_partnership"
toJSON (PostTokensRequestBodyAccount'Company'Structure'
PostTokensRequestBodyAccount'Company'Structure'EnumLlc) = Value
"llc"
toJSON (PostTokensRequestBodyAccount'Company'Structure'
PostTokensRequestBodyAccount'Company'Structure'EnumMultiMemberLlc) = Value
"multi_member_llc"
toJSON (PostTokensRequestBodyAccount'Company'Structure'
PostTokensRequestBodyAccount'Company'Structure'EnumPrivateCompany) = Value
"private_company"
toJSON (PostTokensRequestBodyAccount'Company'Structure'
PostTokensRequestBodyAccount'Company'Structure'EnumPrivateCorporation) = Value
"private_corporation"
toJSON (PostTokensRequestBodyAccount'Company'Structure'
PostTokensRequestBodyAccount'Company'Structure'EnumPrivatePartnership) = Value
"private_partnership"
toJSON (PostTokensRequestBodyAccount'Company'Structure'
PostTokensRequestBodyAccount'Company'Structure'EnumPublicCompany) = Value
"public_company"
toJSON (PostTokensRequestBodyAccount'Company'Structure'
PostTokensRequestBodyAccount'Company'Structure'EnumPublicCorporation) = Value
"public_corporation"
toJSON (PostTokensRequestBodyAccount'Company'Structure'
PostTokensRequestBodyAccount'Company'Structure'EnumPublicPartnership) = Value
"public_partnership"
toJSON (PostTokensRequestBodyAccount'Company'Structure'
PostTokensRequestBodyAccount'Company'Structure'EnumSingleMemberLlc) = Value
"single_member_llc"
toJSON (PostTokensRequestBodyAccount'Company'Structure'
PostTokensRequestBodyAccount'Company'Structure'EnumSoleEstablishment) = Value
"sole_establishment"
toJSON (PostTokensRequestBodyAccount'Company'Structure'
PostTokensRequestBodyAccount'Company'Structure'EnumSoleProprietorship) = Value
"sole_proprietorship"
toJSON (PostTokensRequestBodyAccount'Company'Structure'
PostTokensRequestBodyAccount'Company'Structure'EnumTaxExemptGovernmentInstrumentality) = Value
"tax_exempt_government_instrumentality"
toJSON (PostTokensRequestBodyAccount'Company'Structure'
PostTokensRequestBodyAccount'Company'Structure'EnumUnincorporatedAssociation) = Value
"unincorporated_association"
toJSON (PostTokensRequestBodyAccount'Company'Structure'
PostTokensRequestBodyAccount'Company'Structure'EnumUnincorporatedNonProfit) = Value
"unincorporated_non_profit"
instance Data.Aeson.Types.FromJSON.FromJSON PostTokensRequestBodyAccount'Company'Structure' where
parseJSON :: Value -> Parser PostTokensRequestBodyAccount'Company'Structure'
parseJSON Value
val =
PostTokensRequestBodyAccount'Company'Structure'
-> Parser PostTokensRequestBodyAccount'Company'Structure'
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure
( if
| Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"" -> PostTokensRequestBodyAccount'Company'Structure'
PostTokensRequestBodyAccount'Company'Structure'EnumEmptyString
| Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"free_zone_establishment" -> PostTokensRequestBodyAccount'Company'Structure'
PostTokensRequestBodyAccount'Company'Structure'EnumFreeZoneEstablishment
| Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"free_zone_llc" -> PostTokensRequestBodyAccount'Company'Structure'
PostTokensRequestBodyAccount'Company'Structure'EnumFreeZoneLlc
| Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"government_instrumentality" -> PostTokensRequestBodyAccount'Company'Structure'
PostTokensRequestBodyAccount'Company'Structure'EnumGovernmentInstrumentality
| Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"governmental_unit" -> PostTokensRequestBodyAccount'Company'Structure'
PostTokensRequestBodyAccount'Company'Structure'EnumGovernmentalUnit
| Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"incorporated_non_profit" -> PostTokensRequestBodyAccount'Company'Structure'
PostTokensRequestBodyAccount'Company'Structure'EnumIncorporatedNonProfit
| Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"limited_liability_partnership" -> PostTokensRequestBodyAccount'Company'Structure'
PostTokensRequestBodyAccount'Company'Structure'EnumLimitedLiabilityPartnership
| Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"llc" -> PostTokensRequestBodyAccount'Company'Structure'
PostTokensRequestBodyAccount'Company'Structure'EnumLlc
| Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"multi_member_llc" -> PostTokensRequestBodyAccount'Company'Structure'
PostTokensRequestBodyAccount'Company'Structure'EnumMultiMemberLlc
| Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"private_company" -> PostTokensRequestBodyAccount'Company'Structure'
PostTokensRequestBodyAccount'Company'Structure'EnumPrivateCompany
| Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"private_corporation" -> PostTokensRequestBodyAccount'Company'Structure'
PostTokensRequestBodyAccount'Company'Structure'EnumPrivateCorporation
| Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"private_partnership" -> PostTokensRequestBodyAccount'Company'Structure'
PostTokensRequestBodyAccount'Company'Structure'EnumPrivatePartnership
| Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"public_company" -> PostTokensRequestBodyAccount'Company'Structure'
PostTokensRequestBodyAccount'Company'Structure'EnumPublicCompany
| Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"public_corporation" -> PostTokensRequestBodyAccount'Company'Structure'
PostTokensRequestBodyAccount'Company'Structure'EnumPublicCorporation
| Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"public_partnership" -> PostTokensRequestBodyAccount'Company'Structure'
PostTokensRequestBodyAccount'Company'Structure'EnumPublicPartnership
| Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"single_member_llc" -> PostTokensRequestBodyAccount'Company'Structure'
PostTokensRequestBodyAccount'Company'Structure'EnumSingleMemberLlc
| Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"sole_establishment" -> PostTokensRequestBodyAccount'Company'Structure'
PostTokensRequestBodyAccount'Company'Structure'EnumSoleEstablishment
| Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"sole_proprietorship" -> PostTokensRequestBodyAccount'Company'Structure'
PostTokensRequestBodyAccount'Company'Structure'EnumSoleProprietorship
| Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"tax_exempt_government_instrumentality" -> PostTokensRequestBodyAccount'Company'Structure'
PostTokensRequestBodyAccount'Company'Structure'EnumTaxExemptGovernmentInstrumentality
| Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"unincorporated_association" -> PostTokensRequestBodyAccount'Company'Structure'
PostTokensRequestBodyAccount'Company'Structure'EnumUnincorporatedAssociation
| Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"unincorporated_non_profit" -> PostTokensRequestBodyAccount'Company'Structure'
PostTokensRequestBodyAccount'Company'Structure'EnumUnincorporatedNonProfit
| Bool
GHC.Base.otherwise -> Value -> PostTokensRequestBodyAccount'Company'Structure'
PostTokensRequestBodyAccount'Company'Structure'Other Value
val
)
data PostTokensRequestBodyAccount'Company'Verification' = PostTokensRequestBodyAccount'Company'Verification'
{
PostTokensRequestBodyAccount'Company'Verification'
-> Maybe
PostTokensRequestBodyAccount'Company'Verification'Document'
postTokensRequestBodyAccount'Company'Verification'Document :: (GHC.Maybe.Maybe PostTokensRequestBodyAccount'Company'Verification'Document')
}
deriving
( Int -> PostTokensRequestBodyAccount'Company'Verification' -> ShowS
[PostTokensRequestBodyAccount'Company'Verification'] -> ShowS
PostTokensRequestBodyAccount'Company'Verification' -> String
(Int
-> PostTokensRequestBodyAccount'Company'Verification' -> ShowS)
-> (PostTokensRequestBodyAccount'Company'Verification' -> String)
-> ([PostTokensRequestBodyAccount'Company'Verification'] -> ShowS)
-> Show PostTokensRequestBodyAccount'Company'Verification'
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PostTokensRequestBodyAccount'Company'Verification'] -> ShowS
$cshowList :: [PostTokensRequestBodyAccount'Company'Verification'] -> ShowS
show :: PostTokensRequestBodyAccount'Company'Verification' -> String
$cshow :: PostTokensRequestBodyAccount'Company'Verification' -> String
showsPrec :: Int -> PostTokensRequestBodyAccount'Company'Verification' -> ShowS
$cshowsPrec :: Int -> PostTokensRequestBodyAccount'Company'Verification' -> ShowS
GHC.Show.Show,
PostTokensRequestBodyAccount'Company'Verification'
-> PostTokensRequestBodyAccount'Company'Verification' -> Bool
(PostTokensRequestBodyAccount'Company'Verification'
-> PostTokensRequestBodyAccount'Company'Verification' -> Bool)
-> (PostTokensRequestBodyAccount'Company'Verification'
-> PostTokensRequestBodyAccount'Company'Verification' -> Bool)
-> Eq PostTokensRequestBodyAccount'Company'Verification'
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostTokensRequestBodyAccount'Company'Verification'
-> PostTokensRequestBodyAccount'Company'Verification' -> Bool
$c/= :: PostTokensRequestBodyAccount'Company'Verification'
-> PostTokensRequestBodyAccount'Company'Verification' -> Bool
== :: PostTokensRequestBodyAccount'Company'Verification'
-> PostTokensRequestBodyAccount'Company'Verification' -> Bool
$c== :: PostTokensRequestBodyAccount'Company'Verification'
-> PostTokensRequestBodyAccount'Company'Verification' -> Bool
GHC.Classes.Eq
)
instance Data.Aeson.Types.ToJSON.ToJSON PostTokensRequestBodyAccount'Company'Verification' where
toJSON :: PostTokensRequestBodyAccount'Company'Verification' -> Value
toJSON PostTokensRequestBodyAccount'Company'Verification'
obj = [Pair] -> Value
Data.Aeson.Types.Internal.object (Text
"document" Text
-> Maybe
PostTokensRequestBodyAccount'Company'Verification'Document'
-> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'Company'Verification'
-> Maybe
PostTokensRequestBodyAccount'Company'Verification'Document'
postTokensRequestBodyAccount'Company'Verification'Document PostTokensRequestBodyAccount'Company'Verification'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: [Pair]
forall a. Monoid a => a
GHC.Base.mempty)
toEncoding :: PostTokensRequestBodyAccount'Company'Verification' -> Encoding
toEncoding PostTokensRequestBodyAccount'Company'Verification'
obj = Series -> Encoding
Data.Aeson.Encoding.Internal.pairs (Text
"document" Text
-> Maybe
PostTokensRequestBodyAccount'Company'Verification'Document'
-> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'Company'Verification'
-> Maybe
PostTokensRequestBodyAccount'Company'Verification'Document'
postTokensRequestBodyAccount'Company'Verification'Document PostTokensRequestBodyAccount'Company'Verification'
obj)
instance Data.Aeson.Types.FromJSON.FromJSON PostTokensRequestBodyAccount'Company'Verification' where
parseJSON :: Value -> Parser PostTokensRequestBodyAccount'Company'Verification'
parseJSON = String
-> (Object
-> Parser PostTokensRequestBodyAccount'Company'Verification')
-> Value
-> Parser PostTokensRequestBodyAccount'Company'Verification'
forall a. String -> (Object -> Parser a) -> Value -> Parser a
Data.Aeson.Types.FromJSON.withObject String
"PostTokensRequestBodyAccount'Company'Verification'" (\Object
obj -> (Maybe PostTokensRequestBodyAccount'Company'Verification'Document'
-> PostTokensRequestBodyAccount'Company'Verification')
-> Parser
(Maybe PostTokensRequestBodyAccount'Company'Verification'Document'
-> PostTokensRequestBodyAccount'Company'Verification')
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure Maybe PostTokensRequestBodyAccount'Company'Verification'Document'
-> PostTokensRequestBodyAccount'Company'Verification'
PostTokensRequestBodyAccount'Company'Verification' Parser
(Maybe PostTokensRequestBodyAccount'Company'Verification'Document'
-> PostTokensRequestBodyAccount'Company'Verification')
-> Parser
(Maybe PostTokensRequestBodyAccount'Company'Verification'Document')
-> Parser PostTokensRequestBodyAccount'Company'Verification'
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object
-> Text
-> Parser
(Maybe PostTokensRequestBodyAccount'Company'Verification'Document')
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"document"))
mkPostTokensRequestBodyAccount'Company'Verification' :: PostTokensRequestBodyAccount'Company'Verification'
mkPostTokensRequestBodyAccount'Company'Verification' :: PostTokensRequestBodyAccount'Company'Verification'
mkPostTokensRequestBodyAccount'Company'Verification' = PostTokensRequestBodyAccount'Company'Verification' :: Maybe PostTokensRequestBodyAccount'Company'Verification'Document'
-> PostTokensRequestBodyAccount'Company'Verification'
PostTokensRequestBodyAccount'Company'Verification' {postTokensRequestBodyAccount'Company'Verification'Document :: Maybe PostTokensRequestBodyAccount'Company'Verification'Document'
postTokensRequestBodyAccount'Company'Verification'Document = Maybe PostTokensRequestBodyAccount'Company'Verification'Document'
forall a. Maybe a
GHC.Maybe.Nothing}
data PostTokensRequestBodyAccount'Company'Verification'Document' = PostTokensRequestBodyAccount'Company'Verification'Document'
{
PostTokensRequestBodyAccount'Company'Verification'Document'
-> Maybe Text
postTokensRequestBodyAccount'Company'Verification'Document'Back :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
PostTokensRequestBodyAccount'Company'Verification'Document'
-> Maybe Text
postTokensRequestBodyAccount'Company'Verification'Document'Front :: (GHC.Maybe.Maybe Data.Text.Internal.Text)
}
deriving
( Int
-> PostTokensRequestBodyAccount'Company'Verification'Document'
-> ShowS
[PostTokensRequestBodyAccount'Company'Verification'Document']
-> ShowS
PostTokensRequestBodyAccount'Company'Verification'Document'
-> String
(Int
-> PostTokensRequestBodyAccount'Company'Verification'Document'
-> ShowS)
-> (PostTokensRequestBodyAccount'Company'Verification'Document'
-> String)
-> ([PostTokensRequestBodyAccount'Company'Verification'Document']
-> ShowS)
-> Show PostTokensRequestBodyAccount'Company'Verification'Document'
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PostTokensRequestBodyAccount'Company'Verification'Document']
-> ShowS
$cshowList :: [PostTokensRequestBodyAccount'Company'Verification'Document']
-> ShowS
show :: PostTokensRequestBodyAccount'Company'Verification'Document'
-> String
$cshow :: PostTokensRequestBodyAccount'Company'Verification'Document'
-> String
showsPrec :: Int
-> PostTokensRequestBodyAccount'Company'Verification'Document'
-> ShowS
$cshowsPrec :: Int
-> PostTokensRequestBodyAccount'Company'Verification'Document'
-> ShowS
GHC.Show.Show,
PostTokensRequestBodyAccount'Company'Verification'Document'
-> PostTokensRequestBodyAccount'Company'Verification'Document'
-> Bool
(PostTokensRequestBodyAccount'Company'Verification'Document'
-> PostTokensRequestBodyAccount'Company'Verification'Document'
-> Bool)
-> (PostTokensRequestBodyAccount'Company'Verification'Document'
-> PostTokensRequestBodyAccount'Company'Verification'Document'
-> Bool)
-> Eq PostTokensRequestBodyAccount'Company'Verification'Document'
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostTokensRequestBodyAccount'Company'Verification'Document'
-> PostTokensRequestBodyAccount'Company'Verification'Document'
-> Bool
$c/= :: PostTokensRequestBodyAccount'Company'Verification'Document'
-> PostTokensRequestBodyAccount'Company'Verification'Document'
-> Bool
== :: PostTokensRequestBodyAccount'Company'Verification'Document'
-> PostTokensRequestBodyAccount'Company'Verification'Document'
-> Bool
$c== :: PostTokensRequestBodyAccount'Company'Verification'Document'
-> PostTokensRequestBodyAccount'Company'Verification'Document'
-> Bool
GHC.Classes.Eq
)
instance Data.Aeson.Types.ToJSON.ToJSON PostTokensRequestBodyAccount'Company'Verification'Document' where
toJSON :: PostTokensRequestBodyAccount'Company'Verification'Document'
-> Value
toJSON PostTokensRequestBodyAccount'Company'Verification'Document'
obj = [Pair] -> Value
Data.Aeson.Types.Internal.object (Text
"back" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'Company'Verification'Document'
-> Maybe Text
postTokensRequestBodyAccount'Company'Verification'Document'Back PostTokensRequestBodyAccount'Company'Verification'Document'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"front" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'Company'Verification'Document'
-> Maybe Text
postTokensRequestBodyAccount'Company'Verification'Document'Front PostTokensRequestBodyAccount'Company'Verification'Document'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: [Pair]
forall a. Monoid a => a
GHC.Base.mempty)
toEncoding :: PostTokensRequestBodyAccount'Company'Verification'Document'
-> Encoding
toEncoding PostTokensRequestBodyAccount'Company'Verification'Document'
obj = Series -> Encoding
Data.Aeson.Encoding.Internal.pairs ((Text
"back" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'Company'Verification'Document'
-> Maybe Text
postTokensRequestBodyAccount'Company'Verification'Document'Back PostTokensRequestBodyAccount'Company'Verification'Document'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> (Text
"front" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'Company'Verification'Document'
-> Maybe Text
postTokensRequestBodyAccount'Company'Verification'Document'Front PostTokensRequestBodyAccount'Company'Verification'Document'
obj))
instance Data.Aeson.Types.FromJSON.FromJSON PostTokensRequestBodyAccount'Company'Verification'Document' where
parseJSON :: Value
-> Parser
PostTokensRequestBodyAccount'Company'Verification'Document'
parseJSON = String
-> (Object
-> Parser
PostTokensRequestBodyAccount'Company'Verification'Document')
-> Value
-> Parser
PostTokensRequestBodyAccount'Company'Verification'Document'
forall a. String -> (Object -> Parser a) -> Value -> Parser a
Data.Aeson.Types.FromJSON.withObject String
"PostTokensRequestBodyAccount'Company'Verification'Document'" (\Object
obj -> ((Maybe Text
-> Maybe Text
-> PostTokensRequestBodyAccount'Company'Verification'Document')
-> Parser
(Maybe Text
-> Maybe Text
-> PostTokensRequestBodyAccount'Company'Verification'Document')
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure Maybe Text
-> Maybe Text
-> PostTokensRequestBodyAccount'Company'Verification'Document'
PostTokensRequestBodyAccount'Company'Verification'Document' Parser
(Maybe Text
-> Maybe Text
-> PostTokensRequestBodyAccount'Company'Verification'Document')
-> Parser (Maybe Text)
-> Parser
(Maybe Text
-> PostTokensRequestBodyAccount'Company'Verification'Document')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"back")) Parser
(Maybe Text
-> PostTokensRequestBodyAccount'Company'Verification'Document')
-> Parser (Maybe Text)
-> Parser
PostTokensRequestBodyAccount'Company'Verification'Document'
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"front"))
mkPostTokensRequestBodyAccount'Company'Verification'Document' :: PostTokensRequestBodyAccount'Company'Verification'Document'
mkPostTokensRequestBodyAccount'Company'Verification'Document' :: PostTokensRequestBodyAccount'Company'Verification'Document'
mkPostTokensRequestBodyAccount'Company'Verification'Document' =
PostTokensRequestBodyAccount'Company'Verification'Document' :: Maybe Text
-> Maybe Text
-> PostTokensRequestBodyAccount'Company'Verification'Document'
PostTokensRequestBodyAccount'Company'Verification'Document'
{ postTokensRequestBodyAccount'Company'Verification'Document'Back :: Maybe Text
postTokensRequestBodyAccount'Company'Verification'Document'Back = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
postTokensRequestBodyAccount'Company'Verification'Document'Front :: Maybe Text
postTokensRequestBodyAccount'Company'Verification'Document'Front = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing
}
data PostTokensRequestBodyAccount'Individual' = PostTokensRequestBodyAccount'Individual'
{
PostTokensRequestBodyAccount'Individual'
-> Maybe PostTokensRequestBodyAccount'Individual'Address'
postTokensRequestBodyAccount'Individual'Address :: (GHC.Maybe.Maybe PostTokensRequestBodyAccount'Individual'Address'),
PostTokensRequestBodyAccount'Individual'
-> Maybe PostTokensRequestBodyAccount'Individual'AddressKana'
postTokensRequestBodyAccount'Individual'AddressKana :: (GHC.Maybe.Maybe PostTokensRequestBodyAccount'Individual'AddressKana'),
PostTokensRequestBodyAccount'Individual'
-> Maybe PostTokensRequestBodyAccount'Individual'AddressKanji'
postTokensRequestBodyAccount'Individual'AddressKanji :: (GHC.Maybe.Maybe PostTokensRequestBodyAccount'Individual'AddressKanji'),
PostTokensRequestBodyAccount'Individual'
-> Maybe PostTokensRequestBodyAccount'Individual'Dob'Variants
postTokensRequestBodyAccount'Individual'Dob :: (GHC.Maybe.Maybe PostTokensRequestBodyAccount'Individual'Dob'Variants),
PostTokensRequestBodyAccount'Individual' -> Maybe Text
postTokensRequestBodyAccount'Individual'Email :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
PostTokensRequestBodyAccount'Individual' -> Maybe Text
postTokensRequestBodyAccount'Individual'FirstName :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
PostTokensRequestBodyAccount'Individual' -> Maybe Text
postTokensRequestBodyAccount'Individual'FirstNameKana :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
PostTokensRequestBodyAccount'Individual' -> Maybe Text
postTokensRequestBodyAccount'Individual'FirstNameKanji :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
PostTokensRequestBodyAccount'Individual' -> Maybe Text
postTokensRequestBodyAccount'Individual'Gender :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
PostTokensRequestBodyAccount'Individual' -> Maybe Text
postTokensRequestBodyAccount'Individual'IdNumber :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
PostTokensRequestBodyAccount'Individual' -> Maybe Text
postTokensRequestBodyAccount'Individual'LastName :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
PostTokensRequestBodyAccount'Individual' -> Maybe Text
postTokensRequestBodyAccount'Individual'LastNameKana :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
PostTokensRequestBodyAccount'Individual' -> Maybe Text
postTokensRequestBodyAccount'Individual'LastNameKanji :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
PostTokensRequestBodyAccount'Individual' -> Maybe Text
postTokensRequestBodyAccount'Individual'MaidenName :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
PostTokensRequestBodyAccount'Individual'
-> Maybe PostTokensRequestBodyAccount'Individual'Metadata'Variants
postTokensRequestBodyAccount'Individual'Metadata :: (GHC.Maybe.Maybe PostTokensRequestBodyAccount'Individual'Metadata'Variants),
PostTokensRequestBodyAccount'Individual' -> Maybe Text
postTokensRequestBodyAccount'Individual'Phone :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
PostTokensRequestBodyAccount'Individual'
-> Maybe PostTokensRequestBodyAccount'Individual'PoliticalExposure'
postTokensRequestBodyAccount'Individual'PoliticalExposure :: (GHC.Maybe.Maybe PostTokensRequestBodyAccount'Individual'PoliticalExposure'),
PostTokensRequestBodyAccount'Individual' -> Maybe Text
postTokensRequestBodyAccount'Individual'SsnLast_4 :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
PostTokensRequestBodyAccount'Individual'
-> Maybe PostTokensRequestBodyAccount'Individual'Verification'
postTokensRequestBodyAccount'Individual'Verification :: (GHC.Maybe.Maybe PostTokensRequestBodyAccount'Individual'Verification')
}
deriving
( Int -> PostTokensRequestBodyAccount'Individual' -> ShowS
[PostTokensRequestBodyAccount'Individual'] -> ShowS
PostTokensRequestBodyAccount'Individual' -> String
(Int -> PostTokensRequestBodyAccount'Individual' -> ShowS)
-> (PostTokensRequestBodyAccount'Individual' -> String)
-> ([PostTokensRequestBodyAccount'Individual'] -> ShowS)
-> Show PostTokensRequestBodyAccount'Individual'
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PostTokensRequestBodyAccount'Individual'] -> ShowS
$cshowList :: [PostTokensRequestBodyAccount'Individual'] -> ShowS
show :: PostTokensRequestBodyAccount'Individual' -> String
$cshow :: PostTokensRequestBodyAccount'Individual' -> String
showsPrec :: Int -> PostTokensRequestBodyAccount'Individual' -> ShowS
$cshowsPrec :: Int -> PostTokensRequestBodyAccount'Individual' -> ShowS
GHC.Show.Show,
PostTokensRequestBodyAccount'Individual'
-> PostTokensRequestBodyAccount'Individual' -> Bool
(PostTokensRequestBodyAccount'Individual'
-> PostTokensRequestBodyAccount'Individual' -> Bool)
-> (PostTokensRequestBodyAccount'Individual'
-> PostTokensRequestBodyAccount'Individual' -> Bool)
-> Eq PostTokensRequestBodyAccount'Individual'
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostTokensRequestBodyAccount'Individual'
-> PostTokensRequestBodyAccount'Individual' -> Bool
$c/= :: PostTokensRequestBodyAccount'Individual'
-> PostTokensRequestBodyAccount'Individual' -> Bool
== :: PostTokensRequestBodyAccount'Individual'
-> PostTokensRequestBodyAccount'Individual' -> Bool
$c== :: PostTokensRequestBodyAccount'Individual'
-> PostTokensRequestBodyAccount'Individual' -> Bool
GHC.Classes.Eq
)
instance Data.Aeson.Types.ToJSON.ToJSON PostTokensRequestBodyAccount'Individual' where
toJSON :: PostTokensRequestBodyAccount'Individual' -> Value
toJSON PostTokensRequestBodyAccount'Individual'
obj = [Pair] -> Value
Data.Aeson.Types.Internal.object (Text
"address" Text
-> Maybe PostTokensRequestBodyAccount'Individual'Address' -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'Individual'
-> Maybe PostTokensRequestBodyAccount'Individual'Address'
postTokensRequestBodyAccount'Individual'Address PostTokensRequestBodyAccount'Individual'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"address_kana" Text
-> Maybe PostTokensRequestBodyAccount'Individual'AddressKana'
-> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'Individual'
-> Maybe PostTokensRequestBodyAccount'Individual'AddressKana'
postTokensRequestBodyAccount'Individual'AddressKana PostTokensRequestBodyAccount'Individual'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"address_kanji" Text
-> Maybe PostTokensRequestBodyAccount'Individual'AddressKanji'
-> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'Individual'
-> Maybe PostTokensRequestBodyAccount'Individual'AddressKanji'
postTokensRequestBodyAccount'Individual'AddressKanji PostTokensRequestBodyAccount'Individual'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"dob" Text
-> Maybe PostTokensRequestBodyAccount'Individual'Dob'Variants
-> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'Individual'
-> Maybe PostTokensRequestBodyAccount'Individual'Dob'Variants
postTokensRequestBodyAccount'Individual'Dob PostTokensRequestBodyAccount'Individual'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"email" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'Individual' -> Maybe Text
postTokensRequestBodyAccount'Individual'Email PostTokensRequestBodyAccount'Individual'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"first_name" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'Individual' -> Maybe Text
postTokensRequestBodyAccount'Individual'FirstName PostTokensRequestBodyAccount'Individual'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"first_name_kana" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'Individual' -> Maybe Text
postTokensRequestBodyAccount'Individual'FirstNameKana PostTokensRequestBodyAccount'Individual'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"first_name_kanji" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'Individual' -> Maybe Text
postTokensRequestBodyAccount'Individual'FirstNameKanji PostTokensRequestBodyAccount'Individual'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"gender" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'Individual' -> Maybe Text
postTokensRequestBodyAccount'Individual'Gender PostTokensRequestBodyAccount'Individual'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"id_number" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'Individual' -> Maybe Text
postTokensRequestBodyAccount'Individual'IdNumber PostTokensRequestBodyAccount'Individual'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"last_name" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'Individual' -> Maybe Text
postTokensRequestBodyAccount'Individual'LastName PostTokensRequestBodyAccount'Individual'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"last_name_kana" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'Individual' -> Maybe Text
postTokensRequestBodyAccount'Individual'LastNameKana PostTokensRequestBodyAccount'Individual'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"last_name_kanji" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'Individual' -> Maybe Text
postTokensRequestBodyAccount'Individual'LastNameKanji PostTokensRequestBodyAccount'Individual'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"maiden_name" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'Individual' -> Maybe Text
postTokensRequestBodyAccount'Individual'MaidenName PostTokensRequestBodyAccount'Individual'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"metadata" Text
-> Maybe PostTokensRequestBodyAccount'Individual'Metadata'Variants
-> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'Individual'
-> Maybe PostTokensRequestBodyAccount'Individual'Metadata'Variants
postTokensRequestBodyAccount'Individual'Metadata PostTokensRequestBodyAccount'Individual'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"phone" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'Individual' -> Maybe Text
postTokensRequestBodyAccount'Individual'Phone PostTokensRequestBodyAccount'Individual'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"political_exposure" Text
-> Maybe PostTokensRequestBodyAccount'Individual'PoliticalExposure'
-> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'Individual'
-> Maybe PostTokensRequestBodyAccount'Individual'PoliticalExposure'
postTokensRequestBodyAccount'Individual'PoliticalExposure PostTokensRequestBodyAccount'Individual'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"ssn_last_4" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'Individual' -> Maybe Text
postTokensRequestBodyAccount'Individual'SsnLast_4 PostTokensRequestBodyAccount'Individual'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"verification" Text
-> Maybe PostTokensRequestBodyAccount'Individual'Verification'
-> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'Individual'
-> Maybe PostTokensRequestBodyAccount'Individual'Verification'
postTokensRequestBodyAccount'Individual'Verification PostTokensRequestBodyAccount'Individual'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: [Pair]
forall a. Monoid a => a
GHC.Base.mempty)
toEncoding :: PostTokensRequestBodyAccount'Individual' -> Encoding
toEncoding PostTokensRequestBodyAccount'Individual'
obj = Series -> Encoding
Data.Aeson.Encoding.Internal.pairs ((Text
"address" Text
-> Maybe PostTokensRequestBodyAccount'Individual'Address' -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'Individual'
-> Maybe PostTokensRequestBodyAccount'Individual'Address'
postTokensRequestBodyAccount'Individual'Address PostTokensRequestBodyAccount'Individual'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"address_kana" Text
-> Maybe PostTokensRequestBodyAccount'Individual'AddressKana'
-> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'Individual'
-> Maybe PostTokensRequestBodyAccount'Individual'AddressKana'
postTokensRequestBodyAccount'Individual'AddressKana PostTokensRequestBodyAccount'Individual'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"address_kanji" Text
-> Maybe PostTokensRequestBodyAccount'Individual'AddressKanji'
-> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'Individual'
-> Maybe PostTokensRequestBodyAccount'Individual'AddressKanji'
postTokensRequestBodyAccount'Individual'AddressKanji PostTokensRequestBodyAccount'Individual'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"dob" Text
-> Maybe PostTokensRequestBodyAccount'Individual'Dob'Variants
-> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'Individual'
-> Maybe PostTokensRequestBodyAccount'Individual'Dob'Variants
postTokensRequestBodyAccount'Individual'Dob PostTokensRequestBodyAccount'Individual'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"email" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'Individual' -> Maybe Text
postTokensRequestBodyAccount'Individual'Email PostTokensRequestBodyAccount'Individual'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"first_name" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'Individual' -> Maybe Text
postTokensRequestBodyAccount'Individual'FirstName PostTokensRequestBodyAccount'Individual'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"first_name_kana" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'Individual' -> Maybe Text
postTokensRequestBodyAccount'Individual'FirstNameKana PostTokensRequestBodyAccount'Individual'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"first_name_kanji" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'Individual' -> Maybe Text
postTokensRequestBodyAccount'Individual'FirstNameKanji PostTokensRequestBodyAccount'Individual'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"gender" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'Individual' -> Maybe Text
postTokensRequestBodyAccount'Individual'Gender PostTokensRequestBodyAccount'Individual'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"id_number" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'Individual' -> Maybe Text
postTokensRequestBodyAccount'Individual'IdNumber PostTokensRequestBodyAccount'Individual'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"last_name" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'Individual' -> Maybe Text
postTokensRequestBodyAccount'Individual'LastName PostTokensRequestBodyAccount'Individual'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"last_name_kana" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'Individual' -> Maybe Text
postTokensRequestBodyAccount'Individual'LastNameKana PostTokensRequestBodyAccount'Individual'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"last_name_kanji" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'Individual' -> Maybe Text
postTokensRequestBodyAccount'Individual'LastNameKanji PostTokensRequestBodyAccount'Individual'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"maiden_name" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'Individual' -> Maybe Text
postTokensRequestBodyAccount'Individual'MaidenName PostTokensRequestBodyAccount'Individual'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"metadata" Text
-> Maybe PostTokensRequestBodyAccount'Individual'Metadata'Variants
-> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'Individual'
-> Maybe PostTokensRequestBodyAccount'Individual'Metadata'Variants
postTokensRequestBodyAccount'Individual'Metadata PostTokensRequestBodyAccount'Individual'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"phone" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'Individual' -> Maybe Text
postTokensRequestBodyAccount'Individual'Phone PostTokensRequestBodyAccount'Individual'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"political_exposure" Text
-> Maybe PostTokensRequestBodyAccount'Individual'PoliticalExposure'
-> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'Individual'
-> Maybe PostTokensRequestBodyAccount'Individual'PoliticalExposure'
postTokensRequestBodyAccount'Individual'PoliticalExposure PostTokensRequestBodyAccount'Individual'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"ssn_last_4" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'Individual' -> Maybe Text
postTokensRequestBodyAccount'Individual'SsnLast_4 PostTokensRequestBodyAccount'Individual'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> (Text
"verification" Text
-> Maybe PostTokensRequestBodyAccount'Individual'Verification'
-> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'Individual'
-> Maybe PostTokensRequestBodyAccount'Individual'Verification'
postTokensRequestBodyAccount'Individual'Verification PostTokensRequestBodyAccount'Individual'
obj)))))))))))))))))))
instance Data.Aeson.Types.FromJSON.FromJSON PostTokensRequestBodyAccount'Individual' where
parseJSON :: Value -> Parser PostTokensRequestBodyAccount'Individual'
parseJSON = String
-> (Object -> Parser PostTokensRequestBodyAccount'Individual')
-> Value
-> Parser PostTokensRequestBodyAccount'Individual'
forall a. String -> (Object -> Parser a) -> Value -> Parser a
Data.Aeson.Types.FromJSON.withObject String
"PostTokensRequestBodyAccount'Individual'" (\Object
obj -> (((((((((((((((((((Maybe PostTokensRequestBodyAccount'Individual'Address'
-> Maybe PostTokensRequestBodyAccount'Individual'AddressKana'
-> Maybe PostTokensRequestBodyAccount'Individual'AddressKanji'
-> Maybe PostTokensRequestBodyAccount'Individual'Dob'Variants
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostTokensRequestBodyAccount'Individual'Metadata'Variants
-> Maybe Text
-> Maybe PostTokensRequestBodyAccount'Individual'PoliticalExposure'
-> Maybe Text
-> Maybe PostTokensRequestBodyAccount'Individual'Verification'
-> PostTokensRequestBodyAccount'Individual')
-> Parser
(Maybe PostTokensRequestBodyAccount'Individual'Address'
-> Maybe PostTokensRequestBodyAccount'Individual'AddressKana'
-> Maybe PostTokensRequestBodyAccount'Individual'AddressKanji'
-> Maybe PostTokensRequestBodyAccount'Individual'Dob'Variants
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostTokensRequestBodyAccount'Individual'Metadata'Variants
-> Maybe Text
-> Maybe PostTokensRequestBodyAccount'Individual'PoliticalExposure'
-> Maybe Text
-> Maybe PostTokensRequestBodyAccount'Individual'Verification'
-> PostTokensRequestBodyAccount'Individual')
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure Maybe PostTokensRequestBodyAccount'Individual'Address'
-> Maybe PostTokensRequestBodyAccount'Individual'AddressKana'
-> Maybe PostTokensRequestBodyAccount'Individual'AddressKanji'
-> Maybe PostTokensRequestBodyAccount'Individual'Dob'Variants
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostTokensRequestBodyAccount'Individual'Metadata'Variants
-> Maybe Text
-> Maybe PostTokensRequestBodyAccount'Individual'PoliticalExposure'
-> Maybe Text
-> Maybe PostTokensRequestBodyAccount'Individual'Verification'
-> PostTokensRequestBodyAccount'Individual'
PostTokensRequestBodyAccount'Individual' Parser
(Maybe PostTokensRequestBodyAccount'Individual'Address'
-> Maybe PostTokensRequestBodyAccount'Individual'AddressKana'
-> Maybe PostTokensRequestBodyAccount'Individual'AddressKanji'
-> Maybe PostTokensRequestBodyAccount'Individual'Dob'Variants
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostTokensRequestBodyAccount'Individual'Metadata'Variants
-> Maybe Text
-> Maybe PostTokensRequestBodyAccount'Individual'PoliticalExposure'
-> Maybe Text
-> Maybe PostTokensRequestBodyAccount'Individual'Verification'
-> PostTokensRequestBodyAccount'Individual')
-> Parser (Maybe PostTokensRequestBodyAccount'Individual'Address')
-> Parser
(Maybe PostTokensRequestBodyAccount'Individual'AddressKana'
-> Maybe PostTokensRequestBodyAccount'Individual'AddressKanji'
-> Maybe PostTokensRequestBodyAccount'Individual'Dob'Variants
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostTokensRequestBodyAccount'Individual'Metadata'Variants
-> Maybe Text
-> Maybe PostTokensRequestBodyAccount'Individual'PoliticalExposure'
-> Maybe Text
-> Maybe PostTokensRequestBodyAccount'Individual'Verification'
-> PostTokensRequestBodyAccount'Individual')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object
-> Text
-> Parser (Maybe PostTokensRequestBodyAccount'Individual'Address')
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"address")) Parser
(Maybe PostTokensRequestBodyAccount'Individual'AddressKana'
-> Maybe PostTokensRequestBodyAccount'Individual'AddressKanji'
-> Maybe PostTokensRequestBodyAccount'Individual'Dob'Variants
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostTokensRequestBodyAccount'Individual'Metadata'Variants
-> Maybe Text
-> Maybe PostTokensRequestBodyAccount'Individual'PoliticalExposure'
-> Maybe Text
-> Maybe PostTokensRequestBodyAccount'Individual'Verification'
-> PostTokensRequestBodyAccount'Individual')
-> Parser
(Maybe PostTokensRequestBodyAccount'Individual'AddressKana')
-> Parser
(Maybe PostTokensRequestBodyAccount'Individual'AddressKanji'
-> Maybe PostTokensRequestBodyAccount'Individual'Dob'Variants
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostTokensRequestBodyAccount'Individual'Metadata'Variants
-> Maybe Text
-> Maybe PostTokensRequestBodyAccount'Individual'PoliticalExposure'
-> Maybe Text
-> Maybe PostTokensRequestBodyAccount'Individual'Verification'
-> PostTokensRequestBodyAccount'Individual')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object
-> Text
-> Parser
(Maybe PostTokensRequestBodyAccount'Individual'AddressKana')
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"address_kana")) Parser
(Maybe PostTokensRequestBodyAccount'Individual'AddressKanji'
-> Maybe PostTokensRequestBodyAccount'Individual'Dob'Variants
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostTokensRequestBodyAccount'Individual'Metadata'Variants
-> Maybe Text
-> Maybe PostTokensRequestBodyAccount'Individual'PoliticalExposure'
-> Maybe Text
-> Maybe PostTokensRequestBodyAccount'Individual'Verification'
-> PostTokensRequestBodyAccount'Individual')
-> Parser
(Maybe PostTokensRequestBodyAccount'Individual'AddressKanji')
-> Parser
(Maybe PostTokensRequestBodyAccount'Individual'Dob'Variants
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostTokensRequestBodyAccount'Individual'Metadata'Variants
-> Maybe Text
-> Maybe PostTokensRequestBodyAccount'Individual'PoliticalExposure'
-> Maybe Text
-> Maybe PostTokensRequestBodyAccount'Individual'Verification'
-> PostTokensRequestBodyAccount'Individual')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object
-> Text
-> Parser
(Maybe PostTokensRequestBodyAccount'Individual'AddressKanji')
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"address_kanji")) Parser
(Maybe PostTokensRequestBodyAccount'Individual'Dob'Variants
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostTokensRequestBodyAccount'Individual'Metadata'Variants
-> Maybe Text
-> Maybe PostTokensRequestBodyAccount'Individual'PoliticalExposure'
-> Maybe Text
-> Maybe PostTokensRequestBodyAccount'Individual'Verification'
-> PostTokensRequestBodyAccount'Individual')
-> Parser
(Maybe PostTokensRequestBodyAccount'Individual'Dob'Variants)
-> Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostTokensRequestBodyAccount'Individual'Metadata'Variants
-> Maybe Text
-> Maybe PostTokensRequestBodyAccount'Individual'PoliticalExposure'
-> Maybe Text
-> Maybe PostTokensRequestBodyAccount'Individual'Verification'
-> PostTokensRequestBodyAccount'Individual')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object
-> Text
-> Parser
(Maybe PostTokensRequestBodyAccount'Individual'Dob'Variants)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"dob")) Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostTokensRequestBodyAccount'Individual'Metadata'Variants
-> Maybe Text
-> Maybe PostTokensRequestBodyAccount'Individual'PoliticalExposure'
-> Maybe Text
-> Maybe PostTokensRequestBodyAccount'Individual'Verification'
-> PostTokensRequestBodyAccount'Individual')
-> Parser (Maybe Text)
-> Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostTokensRequestBodyAccount'Individual'Metadata'Variants
-> Maybe Text
-> Maybe PostTokensRequestBodyAccount'Individual'PoliticalExposure'
-> Maybe Text
-> Maybe PostTokensRequestBodyAccount'Individual'Verification'
-> PostTokensRequestBodyAccount'Individual')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"email")) Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostTokensRequestBodyAccount'Individual'Metadata'Variants
-> Maybe Text
-> Maybe PostTokensRequestBodyAccount'Individual'PoliticalExposure'
-> Maybe Text
-> Maybe PostTokensRequestBodyAccount'Individual'Verification'
-> PostTokensRequestBodyAccount'Individual')
-> Parser (Maybe Text)
-> Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostTokensRequestBodyAccount'Individual'Metadata'Variants
-> Maybe Text
-> Maybe PostTokensRequestBodyAccount'Individual'PoliticalExposure'
-> Maybe Text
-> Maybe PostTokensRequestBodyAccount'Individual'Verification'
-> PostTokensRequestBodyAccount'Individual')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"first_name")) Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostTokensRequestBodyAccount'Individual'Metadata'Variants
-> Maybe Text
-> Maybe PostTokensRequestBodyAccount'Individual'PoliticalExposure'
-> Maybe Text
-> Maybe PostTokensRequestBodyAccount'Individual'Verification'
-> PostTokensRequestBodyAccount'Individual')
-> Parser (Maybe Text)
-> Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostTokensRequestBodyAccount'Individual'Metadata'Variants
-> Maybe Text
-> Maybe PostTokensRequestBodyAccount'Individual'PoliticalExposure'
-> Maybe Text
-> Maybe PostTokensRequestBodyAccount'Individual'Verification'
-> PostTokensRequestBodyAccount'Individual')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"first_name_kana")) Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostTokensRequestBodyAccount'Individual'Metadata'Variants
-> Maybe Text
-> Maybe PostTokensRequestBodyAccount'Individual'PoliticalExposure'
-> Maybe Text
-> Maybe PostTokensRequestBodyAccount'Individual'Verification'
-> PostTokensRequestBodyAccount'Individual')
-> Parser (Maybe Text)
-> Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostTokensRequestBodyAccount'Individual'Metadata'Variants
-> Maybe Text
-> Maybe PostTokensRequestBodyAccount'Individual'PoliticalExposure'
-> Maybe Text
-> Maybe PostTokensRequestBodyAccount'Individual'Verification'
-> PostTokensRequestBodyAccount'Individual')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"first_name_kanji")) Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostTokensRequestBodyAccount'Individual'Metadata'Variants
-> Maybe Text
-> Maybe PostTokensRequestBodyAccount'Individual'PoliticalExposure'
-> Maybe Text
-> Maybe PostTokensRequestBodyAccount'Individual'Verification'
-> PostTokensRequestBodyAccount'Individual')
-> Parser (Maybe Text)
-> Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostTokensRequestBodyAccount'Individual'Metadata'Variants
-> Maybe Text
-> Maybe PostTokensRequestBodyAccount'Individual'PoliticalExposure'
-> Maybe Text
-> Maybe PostTokensRequestBodyAccount'Individual'Verification'
-> PostTokensRequestBodyAccount'Individual')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"gender")) Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostTokensRequestBodyAccount'Individual'Metadata'Variants
-> Maybe Text
-> Maybe PostTokensRequestBodyAccount'Individual'PoliticalExposure'
-> Maybe Text
-> Maybe PostTokensRequestBodyAccount'Individual'Verification'
-> PostTokensRequestBodyAccount'Individual')
-> Parser (Maybe Text)
-> Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostTokensRequestBodyAccount'Individual'Metadata'Variants
-> Maybe Text
-> Maybe PostTokensRequestBodyAccount'Individual'PoliticalExposure'
-> Maybe Text
-> Maybe PostTokensRequestBodyAccount'Individual'Verification'
-> PostTokensRequestBodyAccount'Individual')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"id_number")) Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostTokensRequestBodyAccount'Individual'Metadata'Variants
-> Maybe Text
-> Maybe PostTokensRequestBodyAccount'Individual'PoliticalExposure'
-> Maybe Text
-> Maybe PostTokensRequestBodyAccount'Individual'Verification'
-> PostTokensRequestBodyAccount'Individual')
-> Parser (Maybe Text)
-> Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostTokensRequestBodyAccount'Individual'Metadata'Variants
-> Maybe Text
-> Maybe PostTokensRequestBodyAccount'Individual'PoliticalExposure'
-> Maybe Text
-> Maybe PostTokensRequestBodyAccount'Individual'Verification'
-> PostTokensRequestBodyAccount'Individual')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"last_name")) Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostTokensRequestBodyAccount'Individual'Metadata'Variants
-> Maybe Text
-> Maybe PostTokensRequestBodyAccount'Individual'PoliticalExposure'
-> Maybe Text
-> Maybe PostTokensRequestBodyAccount'Individual'Verification'
-> PostTokensRequestBodyAccount'Individual')
-> Parser (Maybe Text)
-> Parser
(Maybe Text
-> Maybe Text
-> Maybe PostTokensRequestBodyAccount'Individual'Metadata'Variants
-> Maybe Text
-> Maybe PostTokensRequestBodyAccount'Individual'PoliticalExposure'
-> Maybe Text
-> Maybe PostTokensRequestBodyAccount'Individual'Verification'
-> PostTokensRequestBodyAccount'Individual')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"last_name_kana")) Parser
(Maybe Text
-> Maybe Text
-> Maybe PostTokensRequestBodyAccount'Individual'Metadata'Variants
-> Maybe Text
-> Maybe PostTokensRequestBodyAccount'Individual'PoliticalExposure'
-> Maybe Text
-> Maybe PostTokensRequestBodyAccount'Individual'Verification'
-> PostTokensRequestBodyAccount'Individual')
-> Parser (Maybe Text)
-> Parser
(Maybe Text
-> Maybe PostTokensRequestBodyAccount'Individual'Metadata'Variants
-> Maybe Text
-> Maybe PostTokensRequestBodyAccount'Individual'PoliticalExposure'
-> Maybe Text
-> Maybe PostTokensRequestBodyAccount'Individual'Verification'
-> PostTokensRequestBodyAccount'Individual')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"last_name_kanji")) Parser
(Maybe Text
-> Maybe PostTokensRequestBodyAccount'Individual'Metadata'Variants
-> Maybe Text
-> Maybe PostTokensRequestBodyAccount'Individual'PoliticalExposure'
-> Maybe Text
-> Maybe PostTokensRequestBodyAccount'Individual'Verification'
-> PostTokensRequestBodyAccount'Individual')
-> Parser (Maybe Text)
-> Parser
(Maybe PostTokensRequestBodyAccount'Individual'Metadata'Variants
-> Maybe Text
-> Maybe PostTokensRequestBodyAccount'Individual'PoliticalExposure'
-> Maybe Text
-> Maybe PostTokensRequestBodyAccount'Individual'Verification'
-> PostTokensRequestBodyAccount'Individual')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"maiden_name")) Parser
(Maybe PostTokensRequestBodyAccount'Individual'Metadata'Variants
-> Maybe Text
-> Maybe PostTokensRequestBodyAccount'Individual'PoliticalExposure'
-> Maybe Text
-> Maybe PostTokensRequestBodyAccount'Individual'Verification'
-> PostTokensRequestBodyAccount'Individual')
-> Parser
(Maybe PostTokensRequestBodyAccount'Individual'Metadata'Variants)
-> Parser
(Maybe Text
-> Maybe PostTokensRequestBodyAccount'Individual'PoliticalExposure'
-> Maybe Text
-> Maybe PostTokensRequestBodyAccount'Individual'Verification'
-> PostTokensRequestBodyAccount'Individual')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object
-> Text
-> Parser
(Maybe PostTokensRequestBodyAccount'Individual'Metadata'Variants)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"metadata")) Parser
(Maybe Text
-> Maybe PostTokensRequestBodyAccount'Individual'PoliticalExposure'
-> Maybe Text
-> Maybe PostTokensRequestBodyAccount'Individual'Verification'
-> PostTokensRequestBodyAccount'Individual')
-> Parser (Maybe Text)
-> Parser
(Maybe PostTokensRequestBodyAccount'Individual'PoliticalExposure'
-> Maybe Text
-> Maybe PostTokensRequestBodyAccount'Individual'Verification'
-> PostTokensRequestBodyAccount'Individual')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"phone")) Parser
(Maybe PostTokensRequestBodyAccount'Individual'PoliticalExposure'
-> Maybe Text
-> Maybe PostTokensRequestBodyAccount'Individual'Verification'
-> PostTokensRequestBodyAccount'Individual')
-> Parser
(Maybe PostTokensRequestBodyAccount'Individual'PoliticalExposure')
-> Parser
(Maybe Text
-> Maybe PostTokensRequestBodyAccount'Individual'Verification'
-> PostTokensRequestBodyAccount'Individual')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object
-> Text
-> Parser
(Maybe PostTokensRequestBodyAccount'Individual'PoliticalExposure')
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"political_exposure")) Parser
(Maybe Text
-> Maybe PostTokensRequestBodyAccount'Individual'Verification'
-> PostTokensRequestBodyAccount'Individual')
-> Parser (Maybe Text)
-> Parser
(Maybe PostTokensRequestBodyAccount'Individual'Verification'
-> PostTokensRequestBodyAccount'Individual')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"ssn_last_4")) Parser
(Maybe PostTokensRequestBodyAccount'Individual'Verification'
-> PostTokensRequestBodyAccount'Individual')
-> Parser
(Maybe PostTokensRequestBodyAccount'Individual'Verification')
-> Parser PostTokensRequestBodyAccount'Individual'
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object
-> Text
-> Parser
(Maybe PostTokensRequestBodyAccount'Individual'Verification')
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"verification"))
mkPostTokensRequestBodyAccount'Individual' :: PostTokensRequestBodyAccount'Individual'
mkPostTokensRequestBodyAccount'Individual' :: PostTokensRequestBodyAccount'Individual'
mkPostTokensRequestBodyAccount'Individual' =
PostTokensRequestBodyAccount'Individual' :: Maybe PostTokensRequestBodyAccount'Individual'Address'
-> Maybe PostTokensRequestBodyAccount'Individual'AddressKana'
-> Maybe PostTokensRequestBodyAccount'Individual'AddressKanji'
-> Maybe PostTokensRequestBodyAccount'Individual'Dob'Variants
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostTokensRequestBodyAccount'Individual'Metadata'Variants
-> Maybe Text
-> Maybe PostTokensRequestBodyAccount'Individual'PoliticalExposure'
-> Maybe Text
-> Maybe PostTokensRequestBodyAccount'Individual'Verification'
-> PostTokensRequestBodyAccount'Individual'
PostTokensRequestBodyAccount'Individual'
{ postTokensRequestBodyAccount'Individual'Address :: Maybe PostTokensRequestBodyAccount'Individual'Address'
postTokensRequestBodyAccount'Individual'Address = Maybe PostTokensRequestBodyAccount'Individual'Address'
forall a. Maybe a
GHC.Maybe.Nothing,
postTokensRequestBodyAccount'Individual'AddressKana :: Maybe PostTokensRequestBodyAccount'Individual'AddressKana'
postTokensRequestBodyAccount'Individual'AddressKana = Maybe PostTokensRequestBodyAccount'Individual'AddressKana'
forall a. Maybe a
GHC.Maybe.Nothing,
postTokensRequestBodyAccount'Individual'AddressKanji :: Maybe PostTokensRequestBodyAccount'Individual'AddressKanji'
postTokensRequestBodyAccount'Individual'AddressKanji = Maybe PostTokensRequestBodyAccount'Individual'AddressKanji'
forall a. Maybe a
GHC.Maybe.Nothing,
postTokensRequestBodyAccount'Individual'Dob :: Maybe PostTokensRequestBodyAccount'Individual'Dob'Variants
postTokensRequestBodyAccount'Individual'Dob = Maybe PostTokensRequestBodyAccount'Individual'Dob'Variants
forall a. Maybe a
GHC.Maybe.Nothing,
postTokensRequestBodyAccount'Individual'Email :: Maybe Text
postTokensRequestBodyAccount'Individual'Email = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
postTokensRequestBodyAccount'Individual'FirstName :: Maybe Text
postTokensRequestBodyAccount'Individual'FirstName = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
postTokensRequestBodyAccount'Individual'FirstNameKana :: Maybe Text
postTokensRequestBodyAccount'Individual'FirstNameKana = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
postTokensRequestBodyAccount'Individual'FirstNameKanji :: Maybe Text
postTokensRequestBodyAccount'Individual'FirstNameKanji = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
postTokensRequestBodyAccount'Individual'Gender :: Maybe Text
postTokensRequestBodyAccount'Individual'Gender = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
postTokensRequestBodyAccount'Individual'IdNumber :: Maybe Text
postTokensRequestBodyAccount'Individual'IdNumber = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
postTokensRequestBodyAccount'Individual'LastName :: Maybe Text
postTokensRequestBodyAccount'Individual'LastName = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
postTokensRequestBodyAccount'Individual'LastNameKana :: Maybe Text
postTokensRequestBodyAccount'Individual'LastNameKana = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
postTokensRequestBodyAccount'Individual'LastNameKanji :: Maybe Text
postTokensRequestBodyAccount'Individual'LastNameKanji = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
postTokensRequestBodyAccount'Individual'MaidenName :: Maybe Text
postTokensRequestBodyAccount'Individual'MaidenName = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
postTokensRequestBodyAccount'Individual'Metadata :: Maybe PostTokensRequestBodyAccount'Individual'Metadata'Variants
postTokensRequestBodyAccount'Individual'Metadata = Maybe PostTokensRequestBodyAccount'Individual'Metadata'Variants
forall a. Maybe a
GHC.Maybe.Nothing,
postTokensRequestBodyAccount'Individual'Phone :: Maybe Text
postTokensRequestBodyAccount'Individual'Phone = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
postTokensRequestBodyAccount'Individual'PoliticalExposure :: Maybe PostTokensRequestBodyAccount'Individual'PoliticalExposure'
postTokensRequestBodyAccount'Individual'PoliticalExposure = Maybe PostTokensRequestBodyAccount'Individual'PoliticalExposure'
forall a. Maybe a
GHC.Maybe.Nothing,
postTokensRequestBodyAccount'Individual'SsnLast_4 :: Maybe Text
postTokensRequestBodyAccount'Individual'SsnLast_4 = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
postTokensRequestBodyAccount'Individual'Verification :: Maybe PostTokensRequestBodyAccount'Individual'Verification'
postTokensRequestBodyAccount'Individual'Verification = Maybe PostTokensRequestBodyAccount'Individual'Verification'
forall a. Maybe a
GHC.Maybe.Nothing
}
data PostTokensRequestBodyAccount'Individual'Address' = PostTokensRequestBodyAccount'Individual'Address'
{
PostTokensRequestBodyAccount'Individual'Address' -> Maybe Text
postTokensRequestBodyAccount'Individual'Address'City :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
PostTokensRequestBodyAccount'Individual'Address' -> Maybe Text
postTokensRequestBodyAccount'Individual'Address'Country :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
PostTokensRequestBodyAccount'Individual'Address' -> Maybe Text
postTokensRequestBodyAccount'Individual'Address'Line1 :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
PostTokensRequestBodyAccount'Individual'Address' -> Maybe Text
postTokensRequestBodyAccount'Individual'Address'Line2 :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
PostTokensRequestBodyAccount'Individual'Address' -> Maybe Text
postTokensRequestBodyAccount'Individual'Address'PostalCode :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
PostTokensRequestBodyAccount'Individual'Address' -> Maybe Text
postTokensRequestBodyAccount'Individual'Address'State :: (GHC.Maybe.Maybe Data.Text.Internal.Text)
}
deriving
( Int -> PostTokensRequestBodyAccount'Individual'Address' -> ShowS
[PostTokensRequestBodyAccount'Individual'Address'] -> ShowS
PostTokensRequestBodyAccount'Individual'Address' -> String
(Int -> PostTokensRequestBodyAccount'Individual'Address' -> ShowS)
-> (PostTokensRequestBodyAccount'Individual'Address' -> String)
-> ([PostTokensRequestBodyAccount'Individual'Address'] -> ShowS)
-> Show PostTokensRequestBodyAccount'Individual'Address'
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PostTokensRequestBodyAccount'Individual'Address'] -> ShowS
$cshowList :: [PostTokensRequestBodyAccount'Individual'Address'] -> ShowS
show :: PostTokensRequestBodyAccount'Individual'Address' -> String
$cshow :: PostTokensRequestBodyAccount'Individual'Address' -> String
showsPrec :: Int -> PostTokensRequestBodyAccount'Individual'Address' -> ShowS
$cshowsPrec :: Int -> PostTokensRequestBodyAccount'Individual'Address' -> ShowS
GHC.Show.Show,
PostTokensRequestBodyAccount'Individual'Address'
-> PostTokensRequestBodyAccount'Individual'Address' -> Bool
(PostTokensRequestBodyAccount'Individual'Address'
-> PostTokensRequestBodyAccount'Individual'Address' -> Bool)
-> (PostTokensRequestBodyAccount'Individual'Address'
-> PostTokensRequestBodyAccount'Individual'Address' -> Bool)
-> Eq PostTokensRequestBodyAccount'Individual'Address'
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostTokensRequestBodyAccount'Individual'Address'
-> PostTokensRequestBodyAccount'Individual'Address' -> Bool
$c/= :: PostTokensRequestBodyAccount'Individual'Address'
-> PostTokensRequestBodyAccount'Individual'Address' -> Bool
== :: PostTokensRequestBodyAccount'Individual'Address'
-> PostTokensRequestBodyAccount'Individual'Address' -> Bool
$c== :: PostTokensRequestBodyAccount'Individual'Address'
-> PostTokensRequestBodyAccount'Individual'Address' -> Bool
GHC.Classes.Eq
)
instance Data.Aeson.Types.ToJSON.ToJSON PostTokensRequestBodyAccount'Individual'Address' where
toJSON :: PostTokensRequestBodyAccount'Individual'Address' -> Value
toJSON PostTokensRequestBodyAccount'Individual'Address'
obj = [Pair] -> Value
Data.Aeson.Types.Internal.object (Text
"city" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'Individual'Address' -> Maybe Text
postTokensRequestBodyAccount'Individual'Address'City PostTokensRequestBodyAccount'Individual'Address'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"country" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'Individual'Address' -> Maybe Text
postTokensRequestBodyAccount'Individual'Address'Country PostTokensRequestBodyAccount'Individual'Address'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"line1" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'Individual'Address' -> Maybe Text
postTokensRequestBodyAccount'Individual'Address'Line1 PostTokensRequestBodyAccount'Individual'Address'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"line2" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'Individual'Address' -> Maybe Text
postTokensRequestBodyAccount'Individual'Address'Line2 PostTokensRequestBodyAccount'Individual'Address'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"postal_code" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'Individual'Address' -> Maybe Text
postTokensRequestBodyAccount'Individual'Address'PostalCode PostTokensRequestBodyAccount'Individual'Address'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"state" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'Individual'Address' -> Maybe Text
postTokensRequestBodyAccount'Individual'Address'State PostTokensRequestBodyAccount'Individual'Address'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: [Pair]
forall a. Monoid a => a
GHC.Base.mempty)
toEncoding :: PostTokensRequestBodyAccount'Individual'Address' -> Encoding
toEncoding PostTokensRequestBodyAccount'Individual'Address'
obj = Series -> Encoding
Data.Aeson.Encoding.Internal.pairs ((Text
"city" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'Individual'Address' -> Maybe Text
postTokensRequestBodyAccount'Individual'Address'City PostTokensRequestBodyAccount'Individual'Address'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"country" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'Individual'Address' -> Maybe Text
postTokensRequestBodyAccount'Individual'Address'Country PostTokensRequestBodyAccount'Individual'Address'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"line1" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'Individual'Address' -> Maybe Text
postTokensRequestBodyAccount'Individual'Address'Line1 PostTokensRequestBodyAccount'Individual'Address'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"line2" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'Individual'Address' -> Maybe Text
postTokensRequestBodyAccount'Individual'Address'Line2 PostTokensRequestBodyAccount'Individual'Address'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"postal_code" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'Individual'Address' -> Maybe Text
postTokensRequestBodyAccount'Individual'Address'PostalCode PostTokensRequestBodyAccount'Individual'Address'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> (Text
"state" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'Individual'Address' -> Maybe Text
postTokensRequestBodyAccount'Individual'Address'State PostTokensRequestBodyAccount'Individual'Address'
obj))))))
instance Data.Aeson.Types.FromJSON.FromJSON PostTokensRequestBodyAccount'Individual'Address' where
parseJSON :: Value -> Parser PostTokensRequestBodyAccount'Individual'Address'
parseJSON = String
-> (Object
-> Parser PostTokensRequestBodyAccount'Individual'Address')
-> Value
-> Parser PostTokensRequestBodyAccount'Individual'Address'
forall a. String -> (Object -> Parser a) -> Value -> Parser a
Data.Aeson.Types.FromJSON.withObject String
"PostTokensRequestBodyAccount'Individual'Address'" (\Object
obj -> ((((((Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> PostTokensRequestBodyAccount'Individual'Address')
-> Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> PostTokensRequestBodyAccount'Individual'Address')
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> PostTokensRequestBodyAccount'Individual'Address'
PostTokensRequestBodyAccount'Individual'Address' Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> PostTokensRequestBodyAccount'Individual'Address')
-> Parser (Maybe Text)
-> Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> PostTokensRequestBodyAccount'Individual'Address')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"city")) Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> PostTokensRequestBodyAccount'Individual'Address')
-> Parser (Maybe Text)
-> Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> PostTokensRequestBodyAccount'Individual'Address')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"country")) Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> PostTokensRequestBodyAccount'Individual'Address')
-> Parser (Maybe Text)
-> Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> PostTokensRequestBodyAccount'Individual'Address')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"line1")) Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> PostTokensRequestBodyAccount'Individual'Address')
-> Parser (Maybe Text)
-> Parser
(Maybe Text
-> Maybe Text -> PostTokensRequestBodyAccount'Individual'Address')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"line2")) Parser
(Maybe Text
-> Maybe Text -> PostTokensRequestBodyAccount'Individual'Address')
-> Parser (Maybe Text)
-> Parser
(Maybe Text -> PostTokensRequestBodyAccount'Individual'Address')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"postal_code")) Parser
(Maybe Text -> PostTokensRequestBodyAccount'Individual'Address')
-> Parser (Maybe Text)
-> Parser PostTokensRequestBodyAccount'Individual'Address'
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"state"))
mkPostTokensRequestBodyAccount'Individual'Address' :: PostTokensRequestBodyAccount'Individual'Address'
mkPostTokensRequestBodyAccount'Individual'Address' :: PostTokensRequestBodyAccount'Individual'Address'
mkPostTokensRequestBodyAccount'Individual'Address' =
PostTokensRequestBodyAccount'Individual'Address' :: Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> PostTokensRequestBodyAccount'Individual'Address'
PostTokensRequestBodyAccount'Individual'Address'
{ postTokensRequestBodyAccount'Individual'Address'City :: Maybe Text
postTokensRequestBodyAccount'Individual'Address'City = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
postTokensRequestBodyAccount'Individual'Address'Country :: Maybe Text
postTokensRequestBodyAccount'Individual'Address'Country = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
postTokensRequestBodyAccount'Individual'Address'Line1 :: Maybe Text
postTokensRequestBodyAccount'Individual'Address'Line1 = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
postTokensRequestBodyAccount'Individual'Address'Line2 :: Maybe Text
postTokensRequestBodyAccount'Individual'Address'Line2 = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
postTokensRequestBodyAccount'Individual'Address'PostalCode :: Maybe Text
postTokensRequestBodyAccount'Individual'Address'PostalCode = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
postTokensRequestBodyAccount'Individual'Address'State :: Maybe Text
postTokensRequestBodyAccount'Individual'Address'State = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing
}
data PostTokensRequestBodyAccount'Individual'AddressKana' = PostTokensRequestBodyAccount'Individual'AddressKana'
{
PostTokensRequestBodyAccount'Individual'AddressKana' -> Maybe Text
postTokensRequestBodyAccount'Individual'AddressKana'City :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
PostTokensRequestBodyAccount'Individual'AddressKana' -> Maybe Text
postTokensRequestBodyAccount'Individual'AddressKana'Country :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
PostTokensRequestBodyAccount'Individual'AddressKana' -> Maybe Text
postTokensRequestBodyAccount'Individual'AddressKana'Line1 :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
PostTokensRequestBodyAccount'Individual'AddressKana' -> Maybe Text
postTokensRequestBodyAccount'Individual'AddressKana'Line2 :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
PostTokensRequestBodyAccount'Individual'AddressKana' -> Maybe Text
postTokensRequestBodyAccount'Individual'AddressKana'PostalCode :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
PostTokensRequestBodyAccount'Individual'AddressKana' -> Maybe Text
postTokensRequestBodyAccount'Individual'AddressKana'State :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
PostTokensRequestBodyAccount'Individual'AddressKana' -> Maybe Text
postTokensRequestBodyAccount'Individual'AddressKana'Town :: (GHC.Maybe.Maybe Data.Text.Internal.Text)
}
deriving
( Int
-> PostTokensRequestBodyAccount'Individual'AddressKana' -> ShowS
[PostTokensRequestBodyAccount'Individual'AddressKana'] -> ShowS
PostTokensRequestBodyAccount'Individual'AddressKana' -> String
(Int
-> PostTokensRequestBodyAccount'Individual'AddressKana' -> ShowS)
-> (PostTokensRequestBodyAccount'Individual'AddressKana' -> String)
-> ([PostTokensRequestBodyAccount'Individual'AddressKana']
-> ShowS)
-> Show PostTokensRequestBodyAccount'Individual'AddressKana'
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PostTokensRequestBodyAccount'Individual'AddressKana'] -> ShowS
$cshowList :: [PostTokensRequestBodyAccount'Individual'AddressKana'] -> ShowS
show :: PostTokensRequestBodyAccount'Individual'AddressKana' -> String
$cshow :: PostTokensRequestBodyAccount'Individual'AddressKana' -> String
showsPrec :: Int
-> PostTokensRequestBodyAccount'Individual'AddressKana' -> ShowS
$cshowsPrec :: Int
-> PostTokensRequestBodyAccount'Individual'AddressKana' -> ShowS
GHC.Show.Show,
PostTokensRequestBodyAccount'Individual'AddressKana'
-> PostTokensRequestBodyAccount'Individual'AddressKana' -> Bool
(PostTokensRequestBodyAccount'Individual'AddressKana'
-> PostTokensRequestBodyAccount'Individual'AddressKana' -> Bool)
-> (PostTokensRequestBodyAccount'Individual'AddressKana'
-> PostTokensRequestBodyAccount'Individual'AddressKana' -> Bool)
-> Eq PostTokensRequestBodyAccount'Individual'AddressKana'
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostTokensRequestBodyAccount'Individual'AddressKana'
-> PostTokensRequestBodyAccount'Individual'AddressKana' -> Bool
$c/= :: PostTokensRequestBodyAccount'Individual'AddressKana'
-> PostTokensRequestBodyAccount'Individual'AddressKana' -> Bool
== :: PostTokensRequestBodyAccount'Individual'AddressKana'
-> PostTokensRequestBodyAccount'Individual'AddressKana' -> Bool
$c== :: PostTokensRequestBodyAccount'Individual'AddressKana'
-> PostTokensRequestBodyAccount'Individual'AddressKana' -> Bool
GHC.Classes.Eq
)
instance Data.Aeson.Types.ToJSON.ToJSON PostTokensRequestBodyAccount'Individual'AddressKana' where
toJSON :: PostTokensRequestBodyAccount'Individual'AddressKana' -> Value
toJSON PostTokensRequestBodyAccount'Individual'AddressKana'
obj = [Pair] -> Value
Data.Aeson.Types.Internal.object (Text
"city" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'Individual'AddressKana' -> Maybe Text
postTokensRequestBodyAccount'Individual'AddressKana'City PostTokensRequestBodyAccount'Individual'AddressKana'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"country" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'Individual'AddressKana' -> Maybe Text
postTokensRequestBodyAccount'Individual'AddressKana'Country PostTokensRequestBodyAccount'Individual'AddressKana'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"line1" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'Individual'AddressKana' -> Maybe Text
postTokensRequestBodyAccount'Individual'AddressKana'Line1 PostTokensRequestBodyAccount'Individual'AddressKana'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"line2" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'Individual'AddressKana' -> Maybe Text
postTokensRequestBodyAccount'Individual'AddressKana'Line2 PostTokensRequestBodyAccount'Individual'AddressKana'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"postal_code" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'Individual'AddressKana' -> Maybe Text
postTokensRequestBodyAccount'Individual'AddressKana'PostalCode PostTokensRequestBodyAccount'Individual'AddressKana'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"state" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'Individual'AddressKana' -> Maybe Text
postTokensRequestBodyAccount'Individual'AddressKana'State PostTokensRequestBodyAccount'Individual'AddressKana'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"town" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'Individual'AddressKana' -> Maybe Text
postTokensRequestBodyAccount'Individual'AddressKana'Town PostTokensRequestBodyAccount'Individual'AddressKana'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: [Pair]
forall a. Monoid a => a
GHC.Base.mempty)
toEncoding :: PostTokensRequestBodyAccount'Individual'AddressKana' -> Encoding
toEncoding PostTokensRequestBodyAccount'Individual'AddressKana'
obj = Series -> Encoding
Data.Aeson.Encoding.Internal.pairs ((Text
"city" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'Individual'AddressKana' -> Maybe Text
postTokensRequestBodyAccount'Individual'AddressKana'City PostTokensRequestBodyAccount'Individual'AddressKana'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"country" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'Individual'AddressKana' -> Maybe Text
postTokensRequestBodyAccount'Individual'AddressKana'Country PostTokensRequestBodyAccount'Individual'AddressKana'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"line1" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'Individual'AddressKana' -> Maybe Text
postTokensRequestBodyAccount'Individual'AddressKana'Line1 PostTokensRequestBodyAccount'Individual'AddressKana'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"line2" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'Individual'AddressKana' -> Maybe Text
postTokensRequestBodyAccount'Individual'AddressKana'Line2 PostTokensRequestBodyAccount'Individual'AddressKana'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"postal_code" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'Individual'AddressKana' -> Maybe Text
postTokensRequestBodyAccount'Individual'AddressKana'PostalCode PostTokensRequestBodyAccount'Individual'AddressKana'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"state" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'Individual'AddressKana' -> Maybe Text
postTokensRequestBodyAccount'Individual'AddressKana'State PostTokensRequestBodyAccount'Individual'AddressKana'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> (Text
"town" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'Individual'AddressKana' -> Maybe Text
postTokensRequestBodyAccount'Individual'AddressKana'Town PostTokensRequestBodyAccount'Individual'AddressKana'
obj)))))))
instance Data.Aeson.Types.FromJSON.FromJSON PostTokensRequestBodyAccount'Individual'AddressKana' where
parseJSON :: Value
-> Parser PostTokensRequestBodyAccount'Individual'AddressKana'
parseJSON = String
-> (Object
-> Parser PostTokensRequestBodyAccount'Individual'AddressKana')
-> Value
-> Parser PostTokensRequestBodyAccount'Individual'AddressKana'
forall a. String -> (Object -> Parser a) -> Value -> Parser a
Data.Aeson.Types.FromJSON.withObject String
"PostTokensRequestBodyAccount'Individual'AddressKana'" (\Object
obj -> (((((((Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> PostTokensRequestBodyAccount'Individual'AddressKana')
-> Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> PostTokensRequestBodyAccount'Individual'AddressKana')
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> PostTokensRequestBodyAccount'Individual'AddressKana'
PostTokensRequestBodyAccount'Individual'AddressKana' Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> PostTokensRequestBodyAccount'Individual'AddressKana')
-> Parser (Maybe Text)
-> Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> PostTokensRequestBodyAccount'Individual'AddressKana')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"city")) Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> PostTokensRequestBodyAccount'Individual'AddressKana')
-> Parser (Maybe Text)
-> Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> PostTokensRequestBodyAccount'Individual'AddressKana')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"country")) Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> PostTokensRequestBodyAccount'Individual'AddressKana')
-> Parser (Maybe Text)
-> Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> PostTokensRequestBodyAccount'Individual'AddressKana')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"line1")) Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> PostTokensRequestBodyAccount'Individual'AddressKana')
-> Parser (Maybe Text)
-> Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> PostTokensRequestBodyAccount'Individual'AddressKana')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"line2")) Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> PostTokensRequestBodyAccount'Individual'AddressKana')
-> Parser (Maybe Text)
-> Parser
(Maybe Text
-> Maybe Text
-> PostTokensRequestBodyAccount'Individual'AddressKana')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"postal_code")) Parser
(Maybe Text
-> Maybe Text
-> PostTokensRequestBodyAccount'Individual'AddressKana')
-> Parser (Maybe Text)
-> Parser
(Maybe Text
-> PostTokensRequestBodyAccount'Individual'AddressKana')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"state")) Parser
(Maybe Text
-> PostTokensRequestBodyAccount'Individual'AddressKana')
-> Parser (Maybe Text)
-> Parser PostTokensRequestBodyAccount'Individual'AddressKana'
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"town"))
mkPostTokensRequestBodyAccount'Individual'AddressKana' :: PostTokensRequestBodyAccount'Individual'AddressKana'
mkPostTokensRequestBodyAccount'Individual'AddressKana' :: PostTokensRequestBodyAccount'Individual'AddressKana'
mkPostTokensRequestBodyAccount'Individual'AddressKana' =
PostTokensRequestBodyAccount'Individual'AddressKana' :: Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> PostTokensRequestBodyAccount'Individual'AddressKana'
PostTokensRequestBodyAccount'Individual'AddressKana'
{ postTokensRequestBodyAccount'Individual'AddressKana'City :: Maybe Text
postTokensRequestBodyAccount'Individual'AddressKana'City = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
postTokensRequestBodyAccount'Individual'AddressKana'Country :: Maybe Text
postTokensRequestBodyAccount'Individual'AddressKana'Country = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
postTokensRequestBodyAccount'Individual'AddressKana'Line1 :: Maybe Text
postTokensRequestBodyAccount'Individual'AddressKana'Line1 = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
postTokensRequestBodyAccount'Individual'AddressKana'Line2 :: Maybe Text
postTokensRequestBodyAccount'Individual'AddressKana'Line2 = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
postTokensRequestBodyAccount'Individual'AddressKana'PostalCode :: Maybe Text
postTokensRequestBodyAccount'Individual'AddressKana'PostalCode = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
postTokensRequestBodyAccount'Individual'AddressKana'State :: Maybe Text
postTokensRequestBodyAccount'Individual'AddressKana'State = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
postTokensRequestBodyAccount'Individual'AddressKana'Town :: Maybe Text
postTokensRequestBodyAccount'Individual'AddressKana'Town = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing
}
data PostTokensRequestBodyAccount'Individual'AddressKanji' = PostTokensRequestBodyAccount'Individual'AddressKanji'
{
PostTokensRequestBodyAccount'Individual'AddressKanji' -> Maybe Text
postTokensRequestBodyAccount'Individual'AddressKanji'City :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
PostTokensRequestBodyAccount'Individual'AddressKanji' -> Maybe Text
postTokensRequestBodyAccount'Individual'AddressKanji'Country :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
PostTokensRequestBodyAccount'Individual'AddressKanji' -> Maybe Text
postTokensRequestBodyAccount'Individual'AddressKanji'Line1 :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
PostTokensRequestBodyAccount'Individual'AddressKanji' -> Maybe Text
postTokensRequestBodyAccount'Individual'AddressKanji'Line2 :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
PostTokensRequestBodyAccount'Individual'AddressKanji' -> Maybe Text
postTokensRequestBodyAccount'Individual'AddressKanji'PostalCode :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
PostTokensRequestBodyAccount'Individual'AddressKanji' -> Maybe Text
postTokensRequestBodyAccount'Individual'AddressKanji'State :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
PostTokensRequestBodyAccount'Individual'AddressKanji' -> Maybe Text
postTokensRequestBodyAccount'Individual'AddressKanji'Town :: (GHC.Maybe.Maybe Data.Text.Internal.Text)
}
deriving
( Int
-> PostTokensRequestBodyAccount'Individual'AddressKanji' -> ShowS
[PostTokensRequestBodyAccount'Individual'AddressKanji'] -> ShowS
PostTokensRequestBodyAccount'Individual'AddressKanji' -> String
(Int
-> PostTokensRequestBodyAccount'Individual'AddressKanji' -> ShowS)
-> (PostTokensRequestBodyAccount'Individual'AddressKanji'
-> String)
-> ([PostTokensRequestBodyAccount'Individual'AddressKanji']
-> ShowS)
-> Show PostTokensRequestBodyAccount'Individual'AddressKanji'
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PostTokensRequestBodyAccount'Individual'AddressKanji'] -> ShowS
$cshowList :: [PostTokensRequestBodyAccount'Individual'AddressKanji'] -> ShowS
show :: PostTokensRequestBodyAccount'Individual'AddressKanji' -> String
$cshow :: PostTokensRequestBodyAccount'Individual'AddressKanji' -> String
showsPrec :: Int
-> PostTokensRequestBodyAccount'Individual'AddressKanji' -> ShowS
$cshowsPrec :: Int
-> PostTokensRequestBodyAccount'Individual'AddressKanji' -> ShowS
GHC.Show.Show,
PostTokensRequestBodyAccount'Individual'AddressKanji'
-> PostTokensRequestBodyAccount'Individual'AddressKanji' -> Bool
(PostTokensRequestBodyAccount'Individual'AddressKanji'
-> PostTokensRequestBodyAccount'Individual'AddressKanji' -> Bool)
-> (PostTokensRequestBodyAccount'Individual'AddressKanji'
-> PostTokensRequestBodyAccount'Individual'AddressKanji' -> Bool)
-> Eq PostTokensRequestBodyAccount'Individual'AddressKanji'
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostTokensRequestBodyAccount'Individual'AddressKanji'
-> PostTokensRequestBodyAccount'Individual'AddressKanji' -> Bool
$c/= :: PostTokensRequestBodyAccount'Individual'AddressKanji'
-> PostTokensRequestBodyAccount'Individual'AddressKanji' -> Bool
== :: PostTokensRequestBodyAccount'Individual'AddressKanji'
-> PostTokensRequestBodyAccount'Individual'AddressKanji' -> Bool
$c== :: PostTokensRequestBodyAccount'Individual'AddressKanji'
-> PostTokensRequestBodyAccount'Individual'AddressKanji' -> Bool
GHC.Classes.Eq
)
instance Data.Aeson.Types.ToJSON.ToJSON PostTokensRequestBodyAccount'Individual'AddressKanji' where
toJSON :: PostTokensRequestBodyAccount'Individual'AddressKanji' -> Value
toJSON PostTokensRequestBodyAccount'Individual'AddressKanji'
obj = [Pair] -> Value
Data.Aeson.Types.Internal.object (Text
"city" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'Individual'AddressKanji' -> Maybe Text
postTokensRequestBodyAccount'Individual'AddressKanji'City PostTokensRequestBodyAccount'Individual'AddressKanji'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"country" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'Individual'AddressKanji' -> Maybe Text
postTokensRequestBodyAccount'Individual'AddressKanji'Country PostTokensRequestBodyAccount'Individual'AddressKanji'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"line1" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'Individual'AddressKanji' -> Maybe Text
postTokensRequestBodyAccount'Individual'AddressKanji'Line1 PostTokensRequestBodyAccount'Individual'AddressKanji'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"line2" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'Individual'AddressKanji' -> Maybe Text
postTokensRequestBodyAccount'Individual'AddressKanji'Line2 PostTokensRequestBodyAccount'Individual'AddressKanji'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"postal_code" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'Individual'AddressKanji' -> Maybe Text
postTokensRequestBodyAccount'Individual'AddressKanji'PostalCode PostTokensRequestBodyAccount'Individual'AddressKanji'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"state" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'Individual'AddressKanji' -> Maybe Text
postTokensRequestBodyAccount'Individual'AddressKanji'State PostTokensRequestBodyAccount'Individual'AddressKanji'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"town" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'Individual'AddressKanji' -> Maybe Text
postTokensRequestBodyAccount'Individual'AddressKanji'Town PostTokensRequestBodyAccount'Individual'AddressKanji'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: [Pair]
forall a. Monoid a => a
GHC.Base.mempty)
toEncoding :: PostTokensRequestBodyAccount'Individual'AddressKanji' -> Encoding
toEncoding PostTokensRequestBodyAccount'Individual'AddressKanji'
obj = Series -> Encoding
Data.Aeson.Encoding.Internal.pairs ((Text
"city" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'Individual'AddressKanji' -> Maybe Text
postTokensRequestBodyAccount'Individual'AddressKanji'City PostTokensRequestBodyAccount'Individual'AddressKanji'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"country" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'Individual'AddressKanji' -> Maybe Text
postTokensRequestBodyAccount'Individual'AddressKanji'Country PostTokensRequestBodyAccount'Individual'AddressKanji'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"line1" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'Individual'AddressKanji' -> Maybe Text
postTokensRequestBodyAccount'Individual'AddressKanji'Line1 PostTokensRequestBodyAccount'Individual'AddressKanji'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"line2" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'Individual'AddressKanji' -> Maybe Text
postTokensRequestBodyAccount'Individual'AddressKanji'Line2 PostTokensRequestBodyAccount'Individual'AddressKanji'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"postal_code" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'Individual'AddressKanji' -> Maybe Text
postTokensRequestBodyAccount'Individual'AddressKanji'PostalCode PostTokensRequestBodyAccount'Individual'AddressKanji'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"state" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'Individual'AddressKanji' -> Maybe Text
postTokensRequestBodyAccount'Individual'AddressKanji'State PostTokensRequestBodyAccount'Individual'AddressKanji'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> (Text
"town" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'Individual'AddressKanji' -> Maybe Text
postTokensRequestBodyAccount'Individual'AddressKanji'Town PostTokensRequestBodyAccount'Individual'AddressKanji'
obj)))))))
instance Data.Aeson.Types.FromJSON.FromJSON PostTokensRequestBodyAccount'Individual'AddressKanji' where
parseJSON :: Value
-> Parser PostTokensRequestBodyAccount'Individual'AddressKanji'
parseJSON = String
-> (Object
-> Parser PostTokensRequestBodyAccount'Individual'AddressKanji')
-> Value
-> Parser PostTokensRequestBodyAccount'Individual'AddressKanji'
forall a. String -> (Object -> Parser a) -> Value -> Parser a
Data.Aeson.Types.FromJSON.withObject String
"PostTokensRequestBodyAccount'Individual'AddressKanji'" (\Object
obj -> (((((((Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> PostTokensRequestBodyAccount'Individual'AddressKanji')
-> Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> PostTokensRequestBodyAccount'Individual'AddressKanji')
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> PostTokensRequestBodyAccount'Individual'AddressKanji'
PostTokensRequestBodyAccount'Individual'AddressKanji' Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> PostTokensRequestBodyAccount'Individual'AddressKanji')
-> Parser (Maybe Text)
-> Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> PostTokensRequestBodyAccount'Individual'AddressKanji')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"city")) Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> PostTokensRequestBodyAccount'Individual'AddressKanji')
-> Parser (Maybe Text)
-> Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> PostTokensRequestBodyAccount'Individual'AddressKanji')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"country")) Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> PostTokensRequestBodyAccount'Individual'AddressKanji')
-> Parser (Maybe Text)
-> Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> PostTokensRequestBodyAccount'Individual'AddressKanji')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"line1")) Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> PostTokensRequestBodyAccount'Individual'AddressKanji')
-> Parser (Maybe Text)
-> Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> PostTokensRequestBodyAccount'Individual'AddressKanji')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"line2")) Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> PostTokensRequestBodyAccount'Individual'AddressKanji')
-> Parser (Maybe Text)
-> Parser
(Maybe Text
-> Maybe Text
-> PostTokensRequestBodyAccount'Individual'AddressKanji')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"postal_code")) Parser
(Maybe Text
-> Maybe Text
-> PostTokensRequestBodyAccount'Individual'AddressKanji')
-> Parser (Maybe Text)
-> Parser
(Maybe Text
-> PostTokensRequestBodyAccount'Individual'AddressKanji')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"state")) Parser
(Maybe Text
-> PostTokensRequestBodyAccount'Individual'AddressKanji')
-> Parser (Maybe Text)
-> Parser PostTokensRequestBodyAccount'Individual'AddressKanji'
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"town"))
mkPostTokensRequestBodyAccount'Individual'AddressKanji' :: PostTokensRequestBodyAccount'Individual'AddressKanji'
mkPostTokensRequestBodyAccount'Individual'AddressKanji' :: PostTokensRequestBodyAccount'Individual'AddressKanji'
mkPostTokensRequestBodyAccount'Individual'AddressKanji' =
PostTokensRequestBodyAccount'Individual'AddressKanji' :: Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> PostTokensRequestBodyAccount'Individual'AddressKanji'
PostTokensRequestBodyAccount'Individual'AddressKanji'
{ postTokensRequestBodyAccount'Individual'AddressKanji'City :: Maybe Text
postTokensRequestBodyAccount'Individual'AddressKanji'City = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
postTokensRequestBodyAccount'Individual'AddressKanji'Country :: Maybe Text
postTokensRequestBodyAccount'Individual'AddressKanji'Country = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
postTokensRequestBodyAccount'Individual'AddressKanji'Line1 :: Maybe Text
postTokensRequestBodyAccount'Individual'AddressKanji'Line1 = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
postTokensRequestBodyAccount'Individual'AddressKanji'Line2 :: Maybe Text
postTokensRequestBodyAccount'Individual'AddressKanji'Line2 = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
postTokensRequestBodyAccount'Individual'AddressKanji'PostalCode :: Maybe Text
postTokensRequestBodyAccount'Individual'AddressKanji'PostalCode = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
postTokensRequestBodyAccount'Individual'AddressKanji'State :: Maybe Text
postTokensRequestBodyAccount'Individual'AddressKanji'State = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
postTokensRequestBodyAccount'Individual'AddressKanji'Town :: Maybe Text
postTokensRequestBodyAccount'Individual'AddressKanji'Town = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing
}
data PostTokensRequestBodyAccount'Individual'Dob'OneOf1 = PostTokensRequestBodyAccount'Individual'Dob'OneOf1
{
PostTokensRequestBodyAccount'Individual'Dob'OneOf1 -> Int
postTokensRequestBodyAccount'Individual'Dob'OneOf1Day :: GHC.Types.Int,
PostTokensRequestBodyAccount'Individual'Dob'OneOf1 -> Int
postTokensRequestBodyAccount'Individual'Dob'OneOf1Month :: GHC.Types.Int,
PostTokensRequestBodyAccount'Individual'Dob'OneOf1 -> Int
postTokensRequestBodyAccount'Individual'Dob'OneOf1Year :: GHC.Types.Int
}
deriving
( Int -> PostTokensRequestBodyAccount'Individual'Dob'OneOf1 -> ShowS
[PostTokensRequestBodyAccount'Individual'Dob'OneOf1] -> ShowS
PostTokensRequestBodyAccount'Individual'Dob'OneOf1 -> String
(Int
-> PostTokensRequestBodyAccount'Individual'Dob'OneOf1 -> ShowS)
-> (PostTokensRequestBodyAccount'Individual'Dob'OneOf1 -> String)
-> ([PostTokensRequestBodyAccount'Individual'Dob'OneOf1] -> ShowS)
-> Show PostTokensRequestBodyAccount'Individual'Dob'OneOf1
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PostTokensRequestBodyAccount'Individual'Dob'OneOf1] -> ShowS
$cshowList :: [PostTokensRequestBodyAccount'Individual'Dob'OneOf1] -> ShowS
show :: PostTokensRequestBodyAccount'Individual'Dob'OneOf1 -> String
$cshow :: PostTokensRequestBodyAccount'Individual'Dob'OneOf1 -> String
showsPrec :: Int -> PostTokensRequestBodyAccount'Individual'Dob'OneOf1 -> ShowS
$cshowsPrec :: Int -> PostTokensRequestBodyAccount'Individual'Dob'OneOf1 -> ShowS
GHC.Show.Show,
PostTokensRequestBodyAccount'Individual'Dob'OneOf1
-> PostTokensRequestBodyAccount'Individual'Dob'OneOf1 -> Bool
(PostTokensRequestBodyAccount'Individual'Dob'OneOf1
-> PostTokensRequestBodyAccount'Individual'Dob'OneOf1 -> Bool)
-> (PostTokensRequestBodyAccount'Individual'Dob'OneOf1
-> PostTokensRequestBodyAccount'Individual'Dob'OneOf1 -> Bool)
-> Eq PostTokensRequestBodyAccount'Individual'Dob'OneOf1
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostTokensRequestBodyAccount'Individual'Dob'OneOf1
-> PostTokensRequestBodyAccount'Individual'Dob'OneOf1 -> Bool
$c/= :: PostTokensRequestBodyAccount'Individual'Dob'OneOf1
-> PostTokensRequestBodyAccount'Individual'Dob'OneOf1 -> Bool
== :: PostTokensRequestBodyAccount'Individual'Dob'OneOf1
-> PostTokensRequestBodyAccount'Individual'Dob'OneOf1 -> Bool
$c== :: PostTokensRequestBodyAccount'Individual'Dob'OneOf1
-> PostTokensRequestBodyAccount'Individual'Dob'OneOf1 -> Bool
GHC.Classes.Eq
)
instance Data.Aeson.Types.ToJSON.ToJSON PostTokensRequestBodyAccount'Individual'Dob'OneOf1 where
toJSON :: PostTokensRequestBodyAccount'Individual'Dob'OneOf1 -> Value
toJSON PostTokensRequestBodyAccount'Individual'Dob'OneOf1
obj = [Pair] -> Value
Data.Aeson.Types.Internal.object (Text
"day" Text -> Int -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'Individual'Dob'OneOf1 -> Int
postTokensRequestBodyAccount'Individual'Dob'OneOf1Day PostTokensRequestBodyAccount'Individual'Dob'OneOf1
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"month" Text -> Int -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'Individual'Dob'OneOf1 -> Int
postTokensRequestBodyAccount'Individual'Dob'OneOf1Month PostTokensRequestBodyAccount'Individual'Dob'OneOf1
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"year" Text -> Int -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'Individual'Dob'OneOf1 -> Int
postTokensRequestBodyAccount'Individual'Dob'OneOf1Year PostTokensRequestBodyAccount'Individual'Dob'OneOf1
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: [Pair]
forall a. Monoid a => a
GHC.Base.mempty)
toEncoding :: PostTokensRequestBodyAccount'Individual'Dob'OneOf1 -> Encoding
toEncoding PostTokensRequestBodyAccount'Individual'Dob'OneOf1
obj = Series -> Encoding
Data.Aeson.Encoding.Internal.pairs ((Text
"day" Text -> Int -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'Individual'Dob'OneOf1 -> Int
postTokensRequestBodyAccount'Individual'Dob'OneOf1Day PostTokensRequestBodyAccount'Individual'Dob'OneOf1
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"month" Text -> Int -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'Individual'Dob'OneOf1 -> Int
postTokensRequestBodyAccount'Individual'Dob'OneOf1Month PostTokensRequestBodyAccount'Individual'Dob'OneOf1
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> (Text
"year" Text -> Int -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'Individual'Dob'OneOf1 -> Int
postTokensRequestBodyAccount'Individual'Dob'OneOf1Year PostTokensRequestBodyAccount'Individual'Dob'OneOf1
obj)))
instance Data.Aeson.Types.FromJSON.FromJSON PostTokensRequestBodyAccount'Individual'Dob'OneOf1 where
parseJSON :: Value -> Parser PostTokensRequestBodyAccount'Individual'Dob'OneOf1
parseJSON = String
-> (Object
-> Parser PostTokensRequestBodyAccount'Individual'Dob'OneOf1)
-> Value
-> Parser PostTokensRequestBodyAccount'Individual'Dob'OneOf1
forall a. String -> (Object -> Parser a) -> Value -> Parser a
Data.Aeson.Types.FromJSON.withObject String
"PostTokensRequestBodyAccount'Individual'Dob'OneOf1" (\Object
obj -> (((Int
-> Int
-> Int
-> PostTokensRequestBodyAccount'Individual'Dob'OneOf1)
-> Parser
(Int
-> Int
-> Int
-> PostTokensRequestBodyAccount'Individual'Dob'OneOf1)
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure Int
-> Int -> Int -> PostTokensRequestBodyAccount'Individual'Dob'OneOf1
PostTokensRequestBodyAccount'Individual'Dob'OneOf1 Parser
(Int
-> Int
-> Int
-> PostTokensRequestBodyAccount'Individual'Dob'OneOf1)
-> Parser Int
-> Parser
(Int -> Int -> PostTokensRequestBodyAccount'Individual'Dob'OneOf1)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser Int
forall a. FromJSON a => Object -> Text -> Parser a
Data.Aeson.Types.FromJSON..: Text
"day")) Parser
(Int -> Int -> PostTokensRequestBodyAccount'Individual'Dob'OneOf1)
-> Parser Int
-> Parser
(Int -> PostTokensRequestBodyAccount'Individual'Dob'OneOf1)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser Int
forall a. FromJSON a => Object -> Text -> Parser a
Data.Aeson.Types.FromJSON..: Text
"month")) Parser (Int -> PostTokensRequestBodyAccount'Individual'Dob'OneOf1)
-> Parser Int
-> Parser PostTokensRequestBodyAccount'Individual'Dob'OneOf1
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser Int
forall a. FromJSON a => Object -> Text -> Parser a
Data.Aeson.Types.FromJSON..: Text
"year"))
mkPostTokensRequestBodyAccount'Individual'Dob'OneOf1 ::
GHC.Types.Int ->
GHC.Types.Int ->
GHC.Types.Int ->
PostTokensRequestBodyAccount'Individual'Dob'OneOf1
mkPostTokensRequestBodyAccount'Individual'Dob'OneOf1 :: Int
-> Int -> Int -> PostTokensRequestBodyAccount'Individual'Dob'OneOf1
mkPostTokensRequestBodyAccount'Individual'Dob'OneOf1 Int
postTokensRequestBodyAccount'Individual'Dob'OneOf1Day Int
postTokensRequestBodyAccount'Individual'Dob'OneOf1Month Int
postTokensRequestBodyAccount'Individual'Dob'OneOf1Year =
PostTokensRequestBodyAccount'Individual'Dob'OneOf1 :: Int
-> Int -> Int -> PostTokensRequestBodyAccount'Individual'Dob'OneOf1
PostTokensRequestBodyAccount'Individual'Dob'OneOf1
{ postTokensRequestBodyAccount'Individual'Dob'OneOf1Day :: Int
postTokensRequestBodyAccount'Individual'Dob'OneOf1Day = Int
postTokensRequestBodyAccount'Individual'Dob'OneOf1Day,
postTokensRequestBodyAccount'Individual'Dob'OneOf1Month :: Int
postTokensRequestBodyAccount'Individual'Dob'OneOf1Month = Int
postTokensRequestBodyAccount'Individual'Dob'OneOf1Month,
postTokensRequestBodyAccount'Individual'Dob'OneOf1Year :: Int
postTokensRequestBodyAccount'Individual'Dob'OneOf1Year = Int
postTokensRequestBodyAccount'Individual'Dob'OneOf1Year
}
data PostTokensRequestBodyAccount'Individual'Dob'Variants
=
PostTokensRequestBodyAccount'Individual'Dob'EmptyString
| PostTokensRequestBodyAccount'Individual'Dob'PostTokensRequestBodyAccount'Individual'Dob'OneOf1 PostTokensRequestBodyAccount'Individual'Dob'OneOf1
deriving (Int
-> PostTokensRequestBodyAccount'Individual'Dob'Variants -> ShowS
[PostTokensRequestBodyAccount'Individual'Dob'Variants] -> ShowS
PostTokensRequestBodyAccount'Individual'Dob'Variants -> String
(Int
-> PostTokensRequestBodyAccount'Individual'Dob'Variants -> ShowS)
-> (PostTokensRequestBodyAccount'Individual'Dob'Variants -> String)
-> ([PostTokensRequestBodyAccount'Individual'Dob'Variants]
-> ShowS)
-> Show PostTokensRequestBodyAccount'Individual'Dob'Variants
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PostTokensRequestBodyAccount'Individual'Dob'Variants] -> ShowS
$cshowList :: [PostTokensRequestBodyAccount'Individual'Dob'Variants] -> ShowS
show :: PostTokensRequestBodyAccount'Individual'Dob'Variants -> String
$cshow :: PostTokensRequestBodyAccount'Individual'Dob'Variants -> String
showsPrec :: Int
-> PostTokensRequestBodyAccount'Individual'Dob'Variants -> ShowS
$cshowsPrec :: Int
-> PostTokensRequestBodyAccount'Individual'Dob'Variants -> ShowS
GHC.Show.Show, PostTokensRequestBodyAccount'Individual'Dob'Variants
-> PostTokensRequestBodyAccount'Individual'Dob'Variants -> Bool
(PostTokensRequestBodyAccount'Individual'Dob'Variants
-> PostTokensRequestBodyAccount'Individual'Dob'Variants -> Bool)
-> (PostTokensRequestBodyAccount'Individual'Dob'Variants
-> PostTokensRequestBodyAccount'Individual'Dob'Variants -> Bool)
-> Eq PostTokensRequestBodyAccount'Individual'Dob'Variants
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostTokensRequestBodyAccount'Individual'Dob'Variants
-> PostTokensRequestBodyAccount'Individual'Dob'Variants -> Bool
$c/= :: PostTokensRequestBodyAccount'Individual'Dob'Variants
-> PostTokensRequestBodyAccount'Individual'Dob'Variants -> Bool
== :: PostTokensRequestBodyAccount'Individual'Dob'Variants
-> PostTokensRequestBodyAccount'Individual'Dob'Variants -> Bool
$c== :: PostTokensRequestBodyAccount'Individual'Dob'Variants
-> PostTokensRequestBodyAccount'Individual'Dob'Variants -> Bool
GHC.Classes.Eq)
instance Data.Aeson.Types.ToJSON.ToJSON PostTokensRequestBodyAccount'Individual'Dob'Variants where
toJSON :: PostTokensRequestBodyAccount'Individual'Dob'Variants -> Value
toJSON (PostTokensRequestBodyAccount'Individual'Dob'PostTokensRequestBodyAccount'Individual'Dob'OneOf1 PostTokensRequestBodyAccount'Individual'Dob'OneOf1
a) = PostTokensRequestBodyAccount'Individual'Dob'OneOf1 -> Value
forall a. ToJSON a => a -> Value
Data.Aeson.Types.ToJSON.toJSON PostTokensRequestBodyAccount'Individual'Dob'OneOf1
a
toJSON (PostTokensRequestBodyAccount'Individual'Dob'Variants
PostTokensRequestBodyAccount'Individual'Dob'EmptyString) = Value
""
instance Data.Aeson.Types.FromJSON.FromJSON PostTokensRequestBodyAccount'Individual'Dob'Variants where
parseJSON :: Value
-> Parser PostTokensRequestBodyAccount'Individual'Dob'Variants
parseJSON Value
val =
if
| Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"" -> PostTokensRequestBodyAccount'Individual'Dob'Variants
-> Parser PostTokensRequestBodyAccount'Individual'Dob'Variants
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure PostTokensRequestBodyAccount'Individual'Dob'Variants
PostTokensRequestBodyAccount'Individual'Dob'EmptyString
| Bool
GHC.Base.otherwise -> case (PostTokensRequestBodyAccount'Individual'Dob'OneOf1
-> PostTokensRequestBodyAccount'Individual'Dob'Variants
PostTokensRequestBodyAccount'Individual'Dob'PostTokensRequestBodyAccount'Individual'Dob'OneOf1 (PostTokensRequestBodyAccount'Individual'Dob'OneOf1
-> PostTokensRequestBodyAccount'Individual'Dob'Variants)
-> Result PostTokensRequestBodyAccount'Individual'Dob'OneOf1
-> Result PostTokensRequestBodyAccount'Individual'Dob'Variants
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Data.Functor.<$> Value -> Result PostTokensRequestBodyAccount'Individual'Dob'OneOf1
forall a. FromJSON a => Value -> Result a
Data.Aeson.Types.FromJSON.fromJSON Value
val) Result PostTokensRequestBodyAccount'Individual'Dob'Variants
-> Result PostTokensRequestBodyAccount'Individual'Dob'Variants
-> Result PostTokensRequestBodyAccount'Individual'Dob'Variants
forall (f :: * -> *) a. Alternative f => f a -> f a -> f a
GHC.Base.<|> String
-> Result PostTokensRequestBodyAccount'Individual'Dob'Variants
forall a. String -> Result a
Data.Aeson.Types.Internal.Error String
"No variant matched" of
Data.Aeson.Types.Internal.Success PostTokensRequestBodyAccount'Individual'Dob'Variants
a -> PostTokensRequestBodyAccount'Individual'Dob'Variants
-> Parser PostTokensRequestBodyAccount'Individual'Dob'Variants
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure PostTokensRequestBodyAccount'Individual'Dob'Variants
a
Data.Aeson.Types.Internal.Error String
a -> String
-> Parser PostTokensRequestBodyAccount'Individual'Dob'Variants
forall (m :: * -> *) a. MonadFail m => String -> m a
Control.Monad.Fail.fail String
a
data PostTokensRequestBodyAccount'Individual'Metadata'Variants
=
PostTokensRequestBodyAccount'Individual'Metadata'EmptyString
| PostTokensRequestBodyAccount'Individual'Metadata'Object Data.Aeson.Types.Internal.Object
deriving (Int
-> PostTokensRequestBodyAccount'Individual'Metadata'Variants
-> ShowS
[PostTokensRequestBodyAccount'Individual'Metadata'Variants]
-> ShowS
PostTokensRequestBodyAccount'Individual'Metadata'Variants -> String
(Int
-> PostTokensRequestBodyAccount'Individual'Metadata'Variants
-> ShowS)
-> (PostTokensRequestBodyAccount'Individual'Metadata'Variants
-> String)
-> ([PostTokensRequestBodyAccount'Individual'Metadata'Variants]
-> ShowS)
-> Show PostTokensRequestBodyAccount'Individual'Metadata'Variants
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PostTokensRequestBodyAccount'Individual'Metadata'Variants]
-> ShowS
$cshowList :: [PostTokensRequestBodyAccount'Individual'Metadata'Variants]
-> ShowS
show :: PostTokensRequestBodyAccount'Individual'Metadata'Variants -> String
$cshow :: PostTokensRequestBodyAccount'Individual'Metadata'Variants -> String
showsPrec :: Int
-> PostTokensRequestBodyAccount'Individual'Metadata'Variants
-> ShowS
$cshowsPrec :: Int
-> PostTokensRequestBodyAccount'Individual'Metadata'Variants
-> ShowS
GHC.Show.Show, PostTokensRequestBodyAccount'Individual'Metadata'Variants
-> PostTokensRequestBodyAccount'Individual'Metadata'Variants
-> Bool
(PostTokensRequestBodyAccount'Individual'Metadata'Variants
-> PostTokensRequestBodyAccount'Individual'Metadata'Variants
-> Bool)
-> (PostTokensRequestBodyAccount'Individual'Metadata'Variants
-> PostTokensRequestBodyAccount'Individual'Metadata'Variants
-> Bool)
-> Eq PostTokensRequestBodyAccount'Individual'Metadata'Variants
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostTokensRequestBodyAccount'Individual'Metadata'Variants
-> PostTokensRequestBodyAccount'Individual'Metadata'Variants
-> Bool
$c/= :: PostTokensRequestBodyAccount'Individual'Metadata'Variants
-> PostTokensRequestBodyAccount'Individual'Metadata'Variants
-> Bool
== :: PostTokensRequestBodyAccount'Individual'Metadata'Variants
-> PostTokensRequestBodyAccount'Individual'Metadata'Variants
-> Bool
$c== :: PostTokensRequestBodyAccount'Individual'Metadata'Variants
-> PostTokensRequestBodyAccount'Individual'Metadata'Variants
-> Bool
GHC.Classes.Eq)
instance Data.Aeson.Types.ToJSON.ToJSON PostTokensRequestBodyAccount'Individual'Metadata'Variants where
toJSON :: PostTokensRequestBodyAccount'Individual'Metadata'Variants -> Value
toJSON (PostTokensRequestBodyAccount'Individual'Metadata'Object Object
a) = Object -> Value
forall a. ToJSON a => a -> Value
Data.Aeson.Types.ToJSON.toJSON Object
a
toJSON (PostTokensRequestBodyAccount'Individual'Metadata'Variants
PostTokensRequestBodyAccount'Individual'Metadata'EmptyString) = Value
""
instance Data.Aeson.Types.FromJSON.FromJSON PostTokensRequestBodyAccount'Individual'Metadata'Variants where
parseJSON :: Value
-> Parser PostTokensRequestBodyAccount'Individual'Metadata'Variants
parseJSON Value
val =
if
| Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"" -> PostTokensRequestBodyAccount'Individual'Metadata'Variants
-> Parser PostTokensRequestBodyAccount'Individual'Metadata'Variants
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure PostTokensRequestBodyAccount'Individual'Metadata'Variants
PostTokensRequestBodyAccount'Individual'Metadata'EmptyString
| Bool
GHC.Base.otherwise -> case (Object -> PostTokensRequestBodyAccount'Individual'Metadata'Variants
PostTokensRequestBodyAccount'Individual'Metadata'Object (Object
-> PostTokensRequestBodyAccount'Individual'Metadata'Variants)
-> Result Object
-> Result PostTokensRequestBodyAccount'Individual'Metadata'Variants
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Data.Functor.<$> Value -> Result Object
forall a. FromJSON a => Value -> Result a
Data.Aeson.Types.FromJSON.fromJSON Value
val) Result PostTokensRequestBodyAccount'Individual'Metadata'Variants
-> Result PostTokensRequestBodyAccount'Individual'Metadata'Variants
-> Result PostTokensRequestBodyAccount'Individual'Metadata'Variants
forall (f :: * -> *) a. Alternative f => f a -> f a -> f a
GHC.Base.<|> String
-> Result PostTokensRequestBodyAccount'Individual'Metadata'Variants
forall a. String -> Result a
Data.Aeson.Types.Internal.Error String
"No variant matched" of
Data.Aeson.Types.Internal.Success PostTokensRequestBodyAccount'Individual'Metadata'Variants
a -> PostTokensRequestBodyAccount'Individual'Metadata'Variants
-> Parser PostTokensRequestBodyAccount'Individual'Metadata'Variants
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure PostTokensRequestBodyAccount'Individual'Metadata'Variants
a
Data.Aeson.Types.Internal.Error String
a -> String
-> Parser PostTokensRequestBodyAccount'Individual'Metadata'Variants
forall (m :: * -> *) a. MonadFail m => String -> m a
Control.Monad.Fail.fail String
a
data PostTokensRequestBodyAccount'Individual'PoliticalExposure'
=
PostTokensRequestBodyAccount'Individual'PoliticalExposure'Other Data.Aeson.Types.Internal.Value
|
PostTokensRequestBodyAccount'Individual'PoliticalExposure'Typed Data.Text.Internal.Text
|
PostTokensRequestBodyAccount'Individual'PoliticalExposure'EnumExisting
|
PostTokensRequestBodyAccount'Individual'PoliticalExposure'EnumNone
deriving (Int
-> PostTokensRequestBodyAccount'Individual'PoliticalExposure'
-> ShowS
[PostTokensRequestBodyAccount'Individual'PoliticalExposure']
-> ShowS
PostTokensRequestBodyAccount'Individual'PoliticalExposure'
-> String
(Int
-> PostTokensRequestBodyAccount'Individual'PoliticalExposure'
-> ShowS)
-> (PostTokensRequestBodyAccount'Individual'PoliticalExposure'
-> String)
-> ([PostTokensRequestBodyAccount'Individual'PoliticalExposure']
-> ShowS)
-> Show PostTokensRequestBodyAccount'Individual'PoliticalExposure'
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PostTokensRequestBodyAccount'Individual'PoliticalExposure']
-> ShowS
$cshowList :: [PostTokensRequestBodyAccount'Individual'PoliticalExposure']
-> ShowS
show :: PostTokensRequestBodyAccount'Individual'PoliticalExposure'
-> String
$cshow :: PostTokensRequestBodyAccount'Individual'PoliticalExposure'
-> String
showsPrec :: Int
-> PostTokensRequestBodyAccount'Individual'PoliticalExposure'
-> ShowS
$cshowsPrec :: Int
-> PostTokensRequestBodyAccount'Individual'PoliticalExposure'
-> ShowS
GHC.Show.Show, PostTokensRequestBodyAccount'Individual'PoliticalExposure'
-> PostTokensRequestBodyAccount'Individual'PoliticalExposure'
-> Bool
(PostTokensRequestBodyAccount'Individual'PoliticalExposure'
-> PostTokensRequestBodyAccount'Individual'PoliticalExposure'
-> Bool)
-> (PostTokensRequestBodyAccount'Individual'PoliticalExposure'
-> PostTokensRequestBodyAccount'Individual'PoliticalExposure'
-> Bool)
-> Eq PostTokensRequestBodyAccount'Individual'PoliticalExposure'
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostTokensRequestBodyAccount'Individual'PoliticalExposure'
-> PostTokensRequestBodyAccount'Individual'PoliticalExposure'
-> Bool
$c/= :: PostTokensRequestBodyAccount'Individual'PoliticalExposure'
-> PostTokensRequestBodyAccount'Individual'PoliticalExposure'
-> Bool
== :: PostTokensRequestBodyAccount'Individual'PoliticalExposure'
-> PostTokensRequestBodyAccount'Individual'PoliticalExposure'
-> Bool
$c== :: PostTokensRequestBodyAccount'Individual'PoliticalExposure'
-> PostTokensRequestBodyAccount'Individual'PoliticalExposure'
-> Bool
GHC.Classes.Eq)
instance Data.Aeson.Types.ToJSON.ToJSON PostTokensRequestBodyAccount'Individual'PoliticalExposure' where
toJSON :: PostTokensRequestBodyAccount'Individual'PoliticalExposure' -> Value
toJSON (PostTokensRequestBodyAccount'Individual'PoliticalExposure'Other Value
val) = Value
val
toJSON (PostTokensRequestBodyAccount'Individual'PoliticalExposure'Typed Text
val) = Text -> Value
forall a. ToJSON a => a -> Value
Data.Aeson.Types.ToJSON.toJSON Text
val
toJSON (PostTokensRequestBodyAccount'Individual'PoliticalExposure'
PostTokensRequestBodyAccount'Individual'PoliticalExposure'EnumExisting) = Value
"existing"
toJSON (PostTokensRequestBodyAccount'Individual'PoliticalExposure'
PostTokensRequestBodyAccount'Individual'PoliticalExposure'EnumNone) = Value
"none"
instance Data.Aeson.Types.FromJSON.FromJSON PostTokensRequestBodyAccount'Individual'PoliticalExposure' where
parseJSON :: Value
-> Parser
PostTokensRequestBodyAccount'Individual'PoliticalExposure'
parseJSON Value
val =
PostTokensRequestBodyAccount'Individual'PoliticalExposure'
-> Parser
PostTokensRequestBodyAccount'Individual'PoliticalExposure'
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure
( if
| Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"existing" -> PostTokensRequestBodyAccount'Individual'PoliticalExposure'
PostTokensRequestBodyAccount'Individual'PoliticalExposure'EnumExisting
| Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"none" -> PostTokensRequestBodyAccount'Individual'PoliticalExposure'
PostTokensRequestBodyAccount'Individual'PoliticalExposure'EnumNone
| Bool
GHC.Base.otherwise -> Value -> PostTokensRequestBodyAccount'Individual'PoliticalExposure'
PostTokensRequestBodyAccount'Individual'PoliticalExposure'Other Value
val
)
data PostTokensRequestBodyAccount'Individual'Verification' = PostTokensRequestBodyAccount'Individual'Verification'
{
PostTokensRequestBodyAccount'Individual'Verification'
-> Maybe
PostTokensRequestBodyAccount'Individual'Verification'AdditionalDocument'
postTokensRequestBodyAccount'Individual'Verification'AdditionalDocument :: (GHC.Maybe.Maybe PostTokensRequestBodyAccount'Individual'Verification'AdditionalDocument'),
PostTokensRequestBodyAccount'Individual'Verification'
-> Maybe
PostTokensRequestBodyAccount'Individual'Verification'Document'
postTokensRequestBodyAccount'Individual'Verification'Document :: (GHC.Maybe.Maybe PostTokensRequestBodyAccount'Individual'Verification'Document')
}
deriving
( Int
-> PostTokensRequestBodyAccount'Individual'Verification' -> ShowS
[PostTokensRequestBodyAccount'Individual'Verification'] -> ShowS
PostTokensRequestBodyAccount'Individual'Verification' -> String
(Int
-> PostTokensRequestBodyAccount'Individual'Verification' -> ShowS)
-> (PostTokensRequestBodyAccount'Individual'Verification'
-> String)
-> ([PostTokensRequestBodyAccount'Individual'Verification']
-> ShowS)
-> Show PostTokensRequestBodyAccount'Individual'Verification'
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PostTokensRequestBodyAccount'Individual'Verification'] -> ShowS
$cshowList :: [PostTokensRequestBodyAccount'Individual'Verification'] -> ShowS
show :: PostTokensRequestBodyAccount'Individual'Verification' -> String
$cshow :: PostTokensRequestBodyAccount'Individual'Verification' -> String
showsPrec :: Int
-> PostTokensRequestBodyAccount'Individual'Verification' -> ShowS
$cshowsPrec :: Int
-> PostTokensRequestBodyAccount'Individual'Verification' -> ShowS
GHC.Show.Show,
PostTokensRequestBodyAccount'Individual'Verification'
-> PostTokensRequestBodyAccount'Individual'Verification' -> Bool
(PostTokensRequestBodyAccount'Individual'Verification'
-> PostTokensRequestBodyAccount'Individual'Verification' -> Bool)
-> (PostTokensRequestBodyAccount'Individual'Verification'
-> PostTokensRequestBodyAccount'Individual'Verification' -> Bool)
-> Eq PostTokensRequestBodyAccount'Individual'Verification'
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostTokensRequestBodyAccount'Individual'Verification'
-> PostTokensRequestBodyAccount'Individual'Verification' -> Bool
$c/= :: PostTokensRequestBodyAccount'Individual'Verification'
-> PostTokensRequestBodyAccount'Individual'Verification' -> Bool
== :: PostTokensRequestBodyAccount'Individual'Verification'
-> PostTokensRequestBodyAccount'Individual'Verification' -> Bool
$c== :: PostTokensRequestBodyAccount'Individual'Verification'
-> PostTokensRequestBodyAccount'Individual'Verification' -> Bool
GHC.Classes.Eq
)
instance Data.Aeson.Types.ToJSON.ToJSON PostTokensRequestBodyAccount'Individual'Verification' where
toJSON :: PostTokensRequestBodyAccount'Individual'Verification' -> Value
toJSON PostTokensRequestBodyAccount'Individual'Verification'
obj = [Pair] -> Value
Data.Aeson.Types.Internal.object (Text
"additional_document" Text
-> Maybe
PostTokensRequestBodyAccount'Individual'Verification'AdditionalDocument'
-> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'Individual'Verification'
-> Maybe
PostTokensRequestBodyAccount'Individual'Verification'AdditionalDocument'
postTokensRequestBodyAccount'Individual'Verification'AdditionalDocument PostTokensRequestBodyAccount'Individual'Verification'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"document" Text
-> Maybe
PostTokensRequestBodyAccount'Individual'Verification'Document'
-> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'Individual'Verification'
-> Maybe
PostTokensRequestBodyAccount'Individual'Verification'Document'
postTokensRequestBodyAccount'Individual'Verification'Document PostTokensRequestBodyAccount'Individual'Verification'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: [Pair]
forall a. Monoid a => a
GHC.Base.mempty)
toEncoding :: PostTokensRequestBodyAccount'Individual'Verification' -> Encoding
toEncoding PostTokensRequestBodyAccount'Individual'Verification'
obj = Series -> Encoding
Data.Aeson.Encoding.Internal.pairs ((Text
"additional_document" Text
-> Maybe
PostTokensRequestBodyAccount'Individual'Verification'AdditionalDocument'
-> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'Individual'Verification'
-> Maybe
PostTokensRequestBodyAccount'Individual'Verification'AdditionalDocument'
postTokensRequestBodyAccount'Individual'Verification'AdditionalDocument PostTokensRequestBodyAccount'Individual'Verification'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> (Text
"document" Text
-> Maybe
PostTokensRequestBodyAccount'Individual'Verification'Document'
-> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'Individual'Verification'
-> Maybe
PostTokensRequestBodyAccount'Individual'Verification'Document'
postTokensRequestBodyAccount'Individual'Verification'Document PostTokensRequestBodyAccount'Individual'Verification'
obj))
instance Data.Aeson.Types.FromJSON.FromJSON PostTokensRequestBodyAccount'Individual'Verification' where
parseJSON :: Value
-> Parser PostTokensRequestBodyAccount'Individual'Verification'
parseJSON = String
-> (Object
-> Parser PostTokensRequestBodyAccount'Individual'Verification')
-> Value
-> Parser PostTokensRequestBodyAccount'Individual'Verification'
forall a. String -> (Object -> Parser a) -> Value -> Parser a
Data.Aeson.Types.FromJSON.withObject String
"PostTokensRequestBodyAccount'Individual'Verification'" (\Object
obj -> ((Maybe
PostTokensRequestBodyAccount'Individual'Verification'AdditionalDocument'
-> Maybe
PostTokensRequestBodyAccount'Individual'Verification'Document'
-> PostTokensRequestBodyAccount'Individual'Verification')
-> Parser
(Maybe
PostTokensRequestBodyAccount'Individual'Verification'AdditionalDocument'
-> Maybe
PostTokensRequestBodyAccount'Individual'Verification'Document'
-> PostTokensRequestBodyAccount'Individual'Verification')
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure Maybe
PostTokensRequestBodyAccount'Individual'Verification'AdditionalDocument'
-> Maybe
PostTokensRequestBodyAccount'Individual'Verification'Document'
-> PostTokensRequestBodyAccount'Individual'Verification'
PostTokensRequestBodyAccount'Individual'Verification' Parser
(Maybe
PostTokensRequestBodyAccount'Individual'Verification'AdditionalDocument'
-> Maybe
PostTokensRequestBodyAccount'Individual'Verification'Document'
-> PostTokensRequestBodyAccount'Individual'Verification')
-> Parser
(Maybe
PostTokensRequestBodyAccount'Individual'Verification'AdditionalDocument')
-> Parser
(Maybe
PostTokensRequestBodyAccount'Individual'Verification'Document'
-> PostTokensRequestBodyAccount'Individual'Verification')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object
-> Text
-> Parser
(Maybe
PostTokensRequestBodyAccount'Individual'Verification'AdditionalDocument')
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"additional_document")) Parser
(Maybe
PostTokensRequestBodyAccount'Individual'Verification'Document'
-> PostTokensRequestBodyAccount'Individual'Verification')
-> Parser
(Maybe
PostTokensRequestBodyAccount'Individual'Verification'Document')
-> Parser PostTokensRequestBodyAccount'Individual'Verification'
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object
-> Text
-> Parser
(Maybe
PostTokensRequestBodyAccount'Individual'Verification'Document')
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"document"))
mkPostTokensRequestBodyAccount'Individual'Verification' :: PostTokensRequestBodyAccount'Individual'Verification'
mkPostTokensRequestBodyAccount'Individual'Verification' :: PostTokensRequestBodyAccount'Individual'Verification'
mkPostTokensRequestBodyAccount'Individual'Verification' =
PostTokensRequestBodyAccount'Individual'Verification' :: Maybe
PostTokensRequestBodyAccount'Individual'Verification'AdditionalDocument'
-> Maybe
PostTokensRequestBodyAccount'Individual'Verification'Document'
-> PostTokensRequestBodyAccount'Individual'Verification'
PostTokensRequestBodyAccount'Individual'Verification'
{ postTokensRequestBodyAccount'Individual'Verification'AdditionalDocument :: Maybe
PostTokensRequestBodyAccount'Individual'Verification'AdditionalDocument'
postTokensRequestBodyAccount'Individual'Verification'AdditionalDocument = Maybe
PostTokensRequestBodyAccount'Individual'Verification'AdditionalDocument'
forall a. Maybe a
GHC.Maybe.Nothing,
postTokensRequestBodyAccount'Individual'Verification'Document :: Maybe
PostTokensRequestBodyAccount'Individual'Verification'Document'
postTokensRequestBodyAccount'Individual'Verification'Document = Maybe
PostTokensRequestBodyAccount'Individual'Verification'Document'
forall a. Maybe a
GHC.Maybe.Nothing
}
data PostTokensRequestBodyAccount'Individual'Verification'AdditionalDocument' = PostTokensRequestBodyAccount'Individual'Verification'AdditionalDocument'
{
PostTokensRequestBodyAccount'Individual'Verification'AdditionalDocument'
-> Maybe Text
postTokensRequestBodyAccount'Individual'Verification'AdditionalDocument'Back :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
PostTokensRequestBodyAccount'Individual'Verification'AdditionalDocument'
-> Maybe Text
postTokensRequestBodyAccount'Individual'Verification'AdditionalDocument'Front :: (GHC.Maybe.Maybe Data.Text.Internal.Text)
}
deriving
( Int
-> PostTokensRequestBodyAccount'Individual'Verification'AdditionalDocument'
-> ShowS
[PostTokensRequestBodyAccount'Individual'Verification'AdditionalDocument']
-> ShowS
PostTokensRequestBodyAccount'Individual'Verification'AdditionalDocument'
-> String
(Int
-> PostTokensRequestBodyAccount'Individual'Verification'AdditionalDocument'
-> ShowS)
-> (PostTokensRequestBodyAccount'Individual'Verification'AdditionalDocument'
-> String)
-> ([PostTokensRequestBodyAccount'Individual'Verification'AdditionalDocument']
-> ShowS)
-> Show
PostTokensRequestBodyAccount'Individual'Verification'AdditionalDocument'
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PostTokensRequestBodyAccount'Individual'Verification'AdditionalDocument']
-> ShowS
$cshowList :: [PostTokensRequestBodyAccount'Individual'Verification'AdditionalDocument']
-> ShowS
show :: PostTokensRequestBodyAccount'Individual'Verification'AdditionalDocument'
-> String
$cshow :: PostTokensRequestBodyAccount'Individual'Verification'AdditionalDocument'
-> String
showsPrec :: Int
-> PostTokensRequestBodyAccount'Individual'Verification'AdditionalDocument'
-> ShowS
$cshowsPrec :: Int
-> PostTokensRequestBodyAccount'Individual'Verification'AdditionalDocument'
-> ShowS
GHC.Show.Show,
PostTokensRequestBodyAccount'Individual'Verification'AdditionalDocument'
-> PostTokensRequestBodyAccount'Individual'Verification'AdditionalDocument'
-> Bool
(PostTokensRequestBodyAccount'Individual'Verification'AdditionalDocument'
-> PostTokensRequestBodyAccount'Individual'Verification'AdditionalDocument'
-> Bool)
-> (PostTokensRequestBodyAccount'Individual'Verification'AdditionalDocument'
-> PostTokensRequestBodyAccount'Individual'Verification'AdditionalDocument'
-> Bool)
-> Eq
PostTokensRequestBodyAccount'Individual'Verification'AdditionalDocument'
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostTokensRequestBodyAccount'Individual'Verification'AdditionalDocument'
-> PostTokensRequestBodyAccount'Individual'Verification'AdditionalDocument'
-> Bool
$c/= :: PostTokensRequestBodyAccount'Individual'Verification'AdditionalDocument'
-> PostTokensRequestBodyAccount'Individual'Verification'AdditionalDocument'
-> Bool
== :: PostTokensRequestBodyAccount'Individual'Verification'AdditionalDocument'
-> PostTokensRequestBodyAccount'Individual'Verification'AdditionalDocument'
-> Bool
$c== :: PostTokensRequestBodyAccount'Individual'Verification'AdditionalDocument'
-> PostTokensRequestBodyAccount'Individual'Verification'AdditionalDocument'
-> Bool
GHC.Classes.Eq
)
instance Data.Aeson.Types.ToJSON.ToJSON PostTokensRequestBodyAccount'Individual'Verification'AdditionalDocument' where
toJSON :: PostTokensRequestBodyAccount'Individual'Verification'AdditionalDocument'
-> Value
toJSON PostTokensRequestBodyAccount'Individual'Verification'AdditionalDocument'
obj = [Pair] -> Value
Data.Aeson.Types.Internal.object (Text
"back" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'Individual'Verification'AdditionalDocument'
-> Maybe Text
postTokensRequestBodyAccount'Individual'Verification'AdditionalDocument'Back PostTokensRequestBodyAccount'Individual'Verification'AdditionalDocument'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"front" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'Individual'Verification'AdditionalDocument'
-> Maybe Text
postTokensRequestBodyAccount'Individual'Verification'AdditionalDocument'Front PostTokensRequestBodyAccount'Individual'Verification'AdditionalDocument'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: [Pair]
forall a. Monoid a => a
GHC.Base.mempty)
toEncoding :: PostTokensRequestBodyAccount'Individual'Verification'AdditionalDocument'
-> Encoding
toEncoding PostTokensRequestBodyAccount'Individual'Verification'AdditionalDocument'
obj = Series -> Encoding
Data.Aeson.Encoding.Internal.pairs ((Text
"back" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'Individual'Verification'AdditionalDocument'
-> Maybe Text
postTokensRequestBodyAccount'Individual'Verification'AdditionalDocument'Back PostTokensRequestBodyAccount'Individual'Verification'AdditionalDocument'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> (Text
"front" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'Individual'Verification'AdditionalDocument'
-> Maybe Text
postTokensRequestBodyAccount'Individual'Verification'AdditionalDocument'Front PostTokensRequestBodyAccount'Individual'Verification'AdditionalDocument'
obj))
instance Data.Aeson.Types.FromJSON.FromJSON PostTokensRequestBodyAccount'Individual'Verification'AdditionalDocument' where
parseJSON :: Value
-> Parser
PostTokensRequestBodyAccount'Individual'Verification'AdditionalDocument'
parseJSON = String
-> (Object
-> Parser
PostTokensRequestBodyAccount'Individual'Verification'AdditionalDocument')
-> Value
-> Parser
PostTokensRequestBodyAccount'Individual'Verification'AdditionalDocument'
forall a. String -> (Object -> Parser a) -> Value -> Parser a
Data.Aeson.Types.FromJSON.withObject String
"PostTokensRequestBodyAccount'Individual'Verification'AdditionalDocument'" (\Object
obj -> ((Maybe Text
-> Maybe Text
-> PostTokensRequestBodyAccount'Individual'Verification'AdditionalDocument')
-> Parser
(Maybe Text
-> Maybe Text
-> PostTokensRequestBodyAccount'Individual'Verification'AdditionalDocument')
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure Maybe Text
-> Maybe Text
-> PostTokensRequestBodyAccount'Individual'Verification'AdditionalDocument'
PostTokensRequestBodyAccount'Individual'Verification'AdditionalDocument' Parser
(Maybe Text
-> Maybe Text
-> PostTokensRequestBodyAccount'Individual'Verification'AdditionalDocument')
-> Parser (Maybe Text)
-> Parser
(Maybe Text
-> PostTokensRequestBodyAccount'Individual'Verification'AdditionalDocument')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"back")) Parser
(Maybe Text
-> PostTokensRequestBodyAccount'Individual'Verification'AdditionalDocument')
-> Parser (Maybe Text)
-> Parser
PostTokensRequestBodyAccount'Individual'Verification'AdditionalDocument'
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"front"))
mkPostTokensRequestBodyAccount'Individual'Verification'AdditionalDocument' :: PostTokensRequestBodyAccount'Individual'Verification'AdditionalDocument'
mkPostTokensRequestBodyAccount'Individual'Verification'AdditionalDocument' :: PostTokensRequestBodyAccount'Individual'Verification'AdditionalDocument'
mkPostTokensRequestBodyAccount'Individual'Verification'AdditionalDocument' =
PostTokensRequestBodyAccount'Individual'Verification'AdditionalDocument' :: Maybe Text
-> Maybe Text
-> PostTokensRequestBodyAccount'Individual'Verification'AdditionalDocument'
PostTokensRequestBodyAccount'Individual'Verification'AdditionalDocument'
{ postTokensRequestBodyAccount'Individual'Verification'AdditionalDocument'Back :: Maybe Text
postTokensRequestBodyAccount'Individual'Verification'AdditionalDocument'Back = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
postTokensRequestBodyAccount'Individual'Verification'AdditionalDocument'Front :: Maybe Text
postTokensRequestBodyAccount'Individual'Verification'AdditionalDocument'Front = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing
}
data PostTokensRequestBodyAccount'Individual'Verification'Document' = PostTokensRequestBodyAccount'Individual'Verification'Document'
{
PostTokensRequestBodyAccount'Individual'Verification'Document'
-> Maybe Text
postTokensRequestBodyAccount'Individual'Verification'Document'Back :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
PostTokensRequestBodyAccount'Individual'Verification'Document'
-> Maybe Text
postTokensRequestBodyAccount'Individual'Verification'Document'Front :: (GHC.Maybe.Maybe Data.Text.Internal.Text)
}
deriving
( Int
-> PostTokensRequestBodyAccount'Individual'Verification'Document'
-> ShowS
[PostTokensRequestBodyAccount'Individual'Verification'Document']
-> ShowS
PostTokensRequestBodyAccount'Individual'Verification'Document'
-> String
(Int
-> PostTokensRequestBodyAccount'Individual'Verification'Document'
-> ShowS)
-> (PostTokensRequestBodyAccount'Individual'Verification'Document'
-> String)
-> ([PostTokensRequestBodyAccount'Individual'Verification'Document']
-> ShowS)
-> Show
PostTokensRequestBodyAccount'Individual'Verification'Document'
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PostTokensRequestBodyAccount'Individual'Verification'Document']
-> ShowS
$cshowList :: [PostTokensRequestBodyAccount'Individual'Verification'Document']
-> ShowS
show :: PostTokensRequestBodyAccount'Individual'Verification'Document'
-> String
$cshow :: PostTokensRequestBodyAccount'Individual'Verification'Document'
-> String
showsPrec :: Int
-> PostTokensRequestBodyAccount'Individual'Verification'Document'
-> ShowS
$cshowsPrec :: Int
-> PostTokensRequestBodyAccount'Individual'Verification'Document'
-> ShowS
GHC.Show.Show,
PostTokensRequestBodyAccount'Individual'Verification'Document'
-> PostTokensRequestBodyAccount'Individual'Verification'Document'
-> Bool
(PostTokensRequestBodyAccount'Individual'Verification'Document'
-> PostTokensRequestBodyAccount'Individual'Verification'Document'
-> Bool)
-> (PostTokensRequestBodyAccount'Individual'Verification'Document'
-> PostTokensRequestBodyAccount'Individual'Verification'Document'
-> Bool)
-> Eq
PostTokensRequestBodyAccount'Individual'Verification'Document'
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostTokensRequestBodyAccount'Individual'Verification'Document'
-> PostTokensRequestBodyAccount'Individual'Verification'Document'
-> Bool
$c/= :: PostTokensRequestBodyAccount'Individual'Verification'Document'
-> PostTokensRequestBodyAccount'Individual'Verification'Document'
-> Bool
== :: PostTokensRequestBodyAccount'Individual'Verification'Document'
-> PostTokensRequestBodyAccount'Individual'Verification'Document'
-> Bool
$c== :: PostTokensRequestBodyAccount'Individual'Verification'Document'
-> PostTokensRequestBodyAccount'Individual'Verification'Document'
-> Bool
GHC.Classes.Eq
)
instance Data.Aeson.Types.ToJSON.ToJSON PostTokensRequestBodyAccount'Individual'Verification'Document' where
toJSON :: PostTokensRequestBodyAccount'Individual'Verification'Document'
-> Value
toJSON PostTokensRequestBodyAccount'Individual'Verification'Document'
obj = [Pair] -> Value
Data.Aeson.Types.Internal.object (Text
"back" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'Individual'Verification'Document'
-> Maybe Text
postTokensRequestBodyAccount'Individual'Verification'Document'Back PostTokensRequestBodyAccount'Individual'Verification'Document'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"front" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'Individual'Verification'Document'
-> Maybe Text
postTokensRequestBodyAccount'Individual'Verification'Document'Front PostTokensRequestBodyAccount'Individual'Verification'Document'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: [Pair]
forall a. Monoid a => a
GHC.Base.mempty)
toEncoding :: PostTokensRequestBodyAccount'Individual'Verification'Document'
-> Encoding
toEncoding PostTokensRequestBodyAccount'Individual'Verification'Document'
obj = Series -> Encoding
Data.Aeson.Encoding.Internal.pairs ((Text
"back" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'Individual'Verification'Document'
-> Maybe Text
postTokensRequestBodyAccount'Individual'Verification'Document'Back PostTokensRequestBodyAccount'Individual'Verification'Document'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> (Text
"front" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyAccount'Individual'Verification'Document'
-> Maybe Text
postTokensRequestBodyAccount'Individual'Verification'Document'Front PostTokensRequestBodyAccount'Individual'Verification'Document'
obj))
instance Data.Aeson.Types.FromJSON.FromJSON PostTokensRequestBodyAccount'Individual'Verification'Document' where
parseJSON :: Value
-> Parser
PostTokensRequestBodyAccount'Individual'Verification'Document'
parseJSON = String
-> (Object
-> Parser
PostTokensRequestBodyAccount'Individual'Verification'Document')
-> Value
-> Parser
PostTokensRequestBodyAccount'Individual'Verification'Document'
forall a. String -> (Object -> Parser a) -> Value -> Parser a
Data.Aeson.Types.FromJSON.withObject String
"PostTokensRequestBodyAccount'Individual'Verification'Document'" (\Object
obj -> ((Maybe Text
-> Maybe Text
-> PostTokensRequestBodyAccount'Individual'Verification'Document')
-> Parser
(Maybe Text
-> Maybe Text
-> PostTokensRequestBodyAccount'Individual'Verification'Document')
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure Maybe Text
-> Maybe Text
-> PostTokensRequestBodyAccount'Individual'Verification'Document'
PostTokensRequestBodyAccount'Individual'Verification'Document' Parser
(Maybe Text
-> Maybe Text
-> PostTokensRequestBodyAccount'Individual'Verification'Document')
-> Parser (Maybe Text)
-> Parser
(Maybe Text
-> PostTokensRequestBodyAccount'Individual'Verification'Document')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"back")) Parser
(Maybe Text
-> PostTokensRequestBodyAccount'Individual'Verification'Document')
-> Parser (Maybe Text)
-> Parser
PostTokensRequestBodyAccount'Individual'Verification'Document'
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"front"))
mkPostTokensRequestBodyAccount'Individual'Verification'Document' :: PostTokensRequestBodyAccount'Individual'Verification'Document'
mkPostTokensRequestBodyAccount'Individual'Verification'Document' :: PostTokensRequestBodyAccount'Individual'Verification'Document'
mkPostTokensRequestBodyAccount'Individual'Verification'Document' =
PostTokensRequestBodyAccount'Individual'Verification'Document' :: Maybe Text
-> Maybe Text
-> PostTokensRequestBodyAccount'Individual'Verification'Document'
PostTokensRequestBodyAccount'Individual'Verification'Document'
{ postTokensRequestBodyAccount'Individual'Verification'Document'Back :: Maybe Text
postTokensRequestBodyAccount'Individual'Verification'Document'Back = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
postTokensRequestBodyAccount'Individual'Verification'Document'Front :: Maybe Text
postTokensRequestBodyAccount'Individual'Verification'Document'Front = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing
}
data PostTokensRequestBodyBankAccount' = PostTokensRequestBodyBankAccount'
{
PostTokensRequestBodyBankAccount' -> Maybe Text
postTokensRequestBodyBankAccount'AccountHolderName :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
PostTokensRequestBodyBankAccount'
-> Maybe PostTokensRequestBodyBankAccount'AccountHolderType'
postTokensRequestBodyBankAccount'AccountHolderType :: (GHC.Maybe.Maybe PostTokensRequestBodyBankAccount'AccountHolderType'),
PostTokensRequestBodyBankAccount' -> Text
postTokensRequestBodyBankAccount'AccountNumber :: Data.Text.Internal.Text,
PostTokensRequestBodyBankAccount' -> Text
postTokensRequestBodyBankAccount'Country :: Data.Text.Internal.Text,
PostTokensRequestBodyBankAccount' -> Maybe Text
postTokensRequestBodyBankAccount'Currency :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
PostTokensRequestBodyBankAccount' -> Maybe Text
postTokensRequestBodyBankAccount'RoutingNumber :: (GHC.Maybe.Maybe Data.Text.Internal.Text)
}
deriving
( Int -> PostTokensRequestBodyBankAccount' -> ShowS
[PostTokensRequestBodyBankAccount'] -> ShowS
PostTokensRequestBodyBankAccount' -> String
(Int -> PostTokensRequestBodyBankAccount' -> ShowS)
-> (PostTokensRequestBodyBankAccount' -> String)
-> ([PostTokensRequestBodyBankAccount'] -> ShowS)
-> Show PostTokensRequestBodyBankAccount'
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PostTokensRequestBodyBankAccount'] -> ShowS
$cshowList :: [PostTokensRequestBodyBankAccount'] -> ShowS
show :: PostTokensRequestBodyBankAccount' -> String
$cshow :: PostTokensRequestBodyBankAccount' -> String
showsPrec :: Int -> PostTokensRequestBodyBankAccount' -> ShowS
$cshowsPrec :: Int -> PostTokensRequestBodyBankAccount' -> ShowS
GHC.Show.Show,
PostTokensRequestBodyBankAccount'
-> PostTokensRequestBodyBankAccount' -> Bool
(PostTokensRequestBodyBankAccount'
-> PostTokensRequestBodyBankAccount' -> Bool)
-> (PostTokensRequestBodyBankAccount'
-> PostTokensRequestBodyBankAccount' -> Bool)
-> Eq PostTokensRequestBodyBankAccount'
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostTokensRequestBodyBankAccount'
-> PostTokensRequestBodyBankAccount' -> Bool
$c/= :: PostTokensRequestBodyBankAccount'
-> PostTokensRequestBodyBankAccount' -> Bool
== :: PostTokensRequestBodyBankAccount'
-> PostTokensRequestBodyBankAccount' -> Bool
$c== :: PostTokensRequestBodyBankAccount'
-> PostTokensRequestBodyBankAccount' -> Bool
GHC.Classes.Eq
)
instance Data.Aeson.Types.ToJSON.ToJSON PostTokensRequestBodyBankAccount' where
toJSON :: PostTokensRequestBodyBankAccount' -> Value
toJSON PostTokensRequestBodyBankAccount'
obj = [Pair] -> Value
Data.Aeson.Types.Internal.object (Text
"account_holder_name" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyBankAccount' -> Maybe Text
postTokensRequestBodyBankAccount'AccountHolderName PostTokensRequestBodyBankAccount'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"account_holder_type" Text
-> Maybe PostTokensRequestBodyBankAccount'AccountHolderType'
-> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyBankAccount'
-> Maybe PostTokensRequestBodyBankAccount'AccountHolderType'
postTokensRequestBodyBankAccount'AccountHolderType PostTokensRequestBodyBankAccount'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"account_number" Text -> Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyBankAccount' -> Text
postTokensRequestBodyBankAccount'AccountNumber PostTokensRequestBodyBankAccount'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"country" Text -> Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyBankAccount' -> Text
postTokensRequestBodyBankAccount'Country PostTokensRequestBodyBankAccount'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"currency" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyBankAccount' -> Maybe Text
postTokensRequestBodyBankAccount'Currency PostTokensRequestBodyBankAccount'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"routing_number" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyBankAccount' -> Maybe Text
postTokensRequestBodyBankAccount'RoutingNumber PostTokensRequestBodyBankAccount'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: [Pair]
forall a. Monoid a => a
GHC.Base.mempty)
toEncoding :: PostTokensRequestBodyBankAccount' -> Encoding
toEncoding PostTokensRequestBodyBankAccount'
obj = Series -> Encoding
Data.Aeson.Encoding.Internal.pairs ((Text
"account_holder_name" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyBankAccount' -> Maybe Text
postTokensRequestBodyBankAccount'AccountHolderName PostTokensRequestBodyBankAccount'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"account_holder_type" Text
-> Maybe PostTokensRequestBodyBankAccount'AccountHolderType'
-> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyBankAccount'
-> Maybe PostTokensRequestBodyBankAccount'AccountHolderType'
postTokensRequestBodyBankAccount'AccountHolderType PostTokensRequestBodyBankAccount'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"account_number" Text -> Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyBankAccount' -> Text
postTokensRequestBodyBankAccount'AccountNumber PostTokensRequestBodyBankAccount'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"country" Text -> Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyBankAccount' -> Text
postTokensRequestBodyBankAccount'Country PostTokensRequestBodyBankAccount'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"currency" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyBankAccount' -> Maybe Text
postTokensRequestBodyBankAccount'Currency PostTokensRequestBodyBankAccount'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> (Text
"routing_number" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyBankAccount' -> Maybe Text
postTokensRequestBodyBankAccount'RoutingNumber PostTokensRequestBodyBankAccount'
obj))))))
instance Data.Aeson.Types.FromJSON.FromJSON PostTokensRequestBodyBankAccount' where
parseJSON :: Value -> Parser PostTokensRequestBodyBankAccount'
parseJSON = String
-> (Object -> Parser PostTokensRequestBodyBankAccount')
-> Value
-> Parser PostTokensRequestBodyBankAccount'
forall a. String -> (Object -> Parser a) -> Value -> Parser a
Data.Aeson.Types.FromJSON.withObject String
"PostTokensRequestBodyBankAccount'" (\Object
obj -> ((((((Maybe Text
-> Maybe PostTokensRequestBodyBankAccount'AccountHolderType'
-> Text
-> Text
-> Maybe Text
-> Maybe Text
-> PostTokensRequestBodyBankAccount')
-> Parser
(Maybe Text
-> Maybe PostTokensRequestBodyBankAccount'AccountHolderType'
-> Text
-> Text
-> Maybe Text
-> Maybe Text
-> PostTokensRequestBodyBankAccount')
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure Maybe Text
-> Maybe PostTokensRequestBodyBankAccount'AccountHolderType'
-> Text
-> Text
-> Maybe Text
-> Maybe Text
-> PostTokensRequestBodyBankAccount'
PostTokensRequestBodyBankAccount' Parser
(Maybe Text
-> Maybe PostTokensRequestBodyBankAccount'AccountHolderType'
-> Text
-> Text
-> Maybe Text
-> Maybe Text
-> PostTokensRequestBodyBankAccount')
-> Parser (Maybe Text)
-> Parser
(Maybe PostTokensRequestBodyBankAccount'AccountHolderType'
-> Text
-> Text
-> Maybe Text
-> Maybe Text
-> PostTokensRequestBodyBankAccount')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"account_holder_name")) Parser
(Maybe PostTokensRequestBodyBankAccount'AccountHolderType'
-> Text
-> Text
-> Maybe Text
-> Maybe Text
-> PostTokensRequestBodyBankAccount')
-> Parser
(Maybe PostTokensRequestBodyBankAccount'AccountHolderType')
-> Parser
(Text
-> Text
-> Maybe Text
-> Maybe Text
-> PostTokensRequestBodyBankAccount')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object
-> Text
-> Parser
(Maybe PostTokensRequestBodyBankAccount'AccountHolderType')
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"account_holder_type")) Parser
(Text
-> Text
-> Maybe Text
-> Maybe Text
-> PostTokensRequestBodyBankAccount')
-> Parser Text
-> Parser
(Text
-> Maybe Text -> Maybe Text -> PostTokensRequestBodyBankAccount')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser Text
forall a. FromJSON a => Object -> Text -> Parser a
Data.Aeson.Types.FromJSON..: Text
"account_number")) Parser
(Text
-> Maybe Text -> Maybe Text -> PostTokensRequestBodyBankAccount')
-> Parser Text
-> Parser
(Maybe Text -> Maybe Text -> PostTokensRequestBodyBankAccount')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser Text
forall a. FromJSON a => Object -> Text -> Parser a
Data.Aeson.Types.FromJSON..: Text
"country")) Parser
(Maybe Text -> Maybe Text -> PostTokensRequestBodyBankAccount')
-> Parser (Maybe Text)
-> Parser (Maybe Text -> PostTokensRequestBodyBankAccount')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"currency")) Parser (Maybe Text -> PostTokensRequestBodyBankAccount')
-> Parser (Maybe Text) -> Parser PostTokensRequestBodyBankAccount'
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"routing_number"))
mkPostTokensRequestBodyBankAccount' ::
Data.Text.Internal.Text ->
Data.Text.Internal.Text ->
PostTokensRequestBodyBankAccount'
mkPostTokensRequestBodyBankAccount' :: Text -> Text -> PostTokensRequestBodyBankAccount'
mkPostTokensRequestBodyBankAccount' Text
postTokensRequestBodyBankAccount'AccountNumber Text
postTokensRequestBodyBankAccount'Country =
PostTokensRequestBodyBankAccount' :: Maybe Text
-> Maybe PostTokensRequestBodyBankAccount'AccountHolderType'
-> Text
-> Text
-> Maybe Text
-> Maybe Text
-> PostTokensRequestBodyBankAccount'
PostTokensRequestBodyBankAccount'
{ postTokensRequestBodyBankAccount'AccountHolderName :: Maybe Text
postTokensRequestBodyBankAccount'AccountHolderName = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
postTokensRequestBodyBankAccount'AccountHolderType :: Maybe PostTokensRequestBodyBankAccount'AccountHolderType'
postTokensRequestBodyBankAccount'AccountHolderType = Maybe PostTokensRequestBodyBankAccount'AccountHolderType'
forall a. Maybe a
GHC.Maybe.Nothing,
postTokensRequestBodyBankAccount'AccountNumber :: Text
postTokensRequestBodyBankAccount'AccountNumber = Text
postTokensRequestBodyBankAccount'AccountNumber,
postTokensRequestBodyBankAccount'Country :: Text
postTokensRequestBodyBankAccount'Country = Text
postTokensRequestBodyBankAccount'Country,
postTokensRequestBodyBankAccount'Currency :: Maybe Text
postTokensRequestBodyBankAccount'Currency = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
postTokensRequestBodyBankAccount'RoutingNumber :: Maybe Text
postTokensRequestBodyBankAccount'RoutingNumber = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing
}
data PostTokensRequestBodyBankAccount'AccountHolderType'
=
PostTokensRequestBodyBankAccount'AccountHolderType'Other Data.Aeson.Types.Internal.Value
|
PostTokensRequestBodyBankAccount'AccountHolderType'Typed Data.Text.Internal.Text
|
PostTokensRequestBodyBankAccount'AccountHolderType'EnumCompany
|
PostTokensRequestBodyBankAccount'AccountHolderType'EnumIndividual
deriving (Int -> PostTokensRequestBodyBankAccount'AccountHolderType' -> ShowS
[PostTokensRequestBodyBankAccount'AccountHolderType'] -> ShowS
PostTokensRequestBodyBankAccount'AccountHolderType' -> String
(Int
-> PostTokensRequestBodyBankAccount'AccountHolderType' -> ShowS)
-> (PostTokensRequestBodyBankAccount'AccountHolderType' -> String)
-> ([PostTokensRequestBodyBankAccount'AccountHolderType'] -> ShowS)
-> Show PostTokensRequestBodyBankAccount'AccountHolderType'
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PostTokensRequestBodyBankAccount'AccountHolderType'] -> ShowS
$cshowList :: [PostTokensRequestBodyBankAccount'AccountHolderType'] -> ShowS
show :: PostTokensRequestBodyBankAccount'AccountHolderType' -> String
$cshow :: PostTokensRequestBodyBankAccount'AccountHolderType' -> String
showsPrec :: Int -> PostTokensRequestBodyBankAccount'AccountHolderType' -> ShowS
$cshowsPrec :: Int -> PostTokensRequestBodyBankAccount'AccountHolderType' -> ShowS
GHC.Show.Show, PostTokensRequestBodyBankAccount'AccountHolderType'
-> PostTokensRequestBodyBankAccount'AccountHolderType' -> Bool
(PostTokensRequestBodyBankAccount'AccountHolderType'
-> PostTokensRequestBodyBankAccount'AccountHolderType' -> Bool)
-> (PostTokensRequestBodyBankAccount'AccountHolderType'
-> PostTokensRequestBodyBankAccount'AccountHolderType' -> Bool)
-> Eq PostTokensRequestBodyBankAccount'AccountHolderType'
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostTokensRequestBodyBankAccount'AccountHolderType'
-> PostTokensRequestBodyBankAccount'AccountHolderType' -> Bool
$c/= :: PostTokensRequestBodyBankAccount'AccountHolderType'
-> PostTokensRequestBodyBankAccount'AccountHolderType' -> Bool
== :: PostTokensRequestBodyBankAccount'AccountHolderType'
-> PostTokensRequestBodyBankAccount'AccountHolderType' -> Bool
$c== :: PostTokensRequestBodyBankAccount'AccountHolderType'
-> PostTokensRequestBodyBankAccount'AccountHolderType' -> Bool
GHC.Classes.Eq)
instance Data.Aeson.Types.ToJSON.ToJSON PostTokensRequestBodyBankAccount'AccountHolderType' where
toJSON :: PostTokensRequestBodyBankAccount'AccountHolderType' -> Value
toJSON (PostTokensRequestBodyBankAccount'AccountHolderType'Other Value
val) = Value
val
toJSON (PostTokensRequestBodyBankAccount'AccountHolderType'Typed Text
val) = Text -> Value
forall a. ToJSON a => a -> Value
Data.Aeson.Types.ToJSON.toJSON Text
val
toJSON (PostTokensRequestBodyBankAccount'AccountHolderType'
PostTokensRequestBodyBankAccount'AccountHolderType'EnumCompany) = Value
"company"
toJSON (PostTokensRequestBodyBankAccount'AccountHolderType'
PostTokensRequestBodyBankAccount'AccountHolderType'EnumIndividual) = Value
"individual"
instance Data.Aeson.Types.FromJSON.FromJSON PostTokensRequestBodyBankAccount'AccountHolderType' where
parseJSON :: Value -> Parser PostTokensRequestBodyBankAccount'AccountHolderType'
parseJSON Value
val =
PostTokensRequestBodyBankAccount'AccountHolderType'
-> Parser PostTokensRequestBodyBankAccount'AccountHolderType'
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure
( if
| Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"company" -> PostTokensRequestBodyBankAccount'AccountHolderType'
PostTokensRequestBodyBankAccount'AccountHolderType'EnumCompany
| Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"individual" -> PostTokensRequestBodyBankAccount'AccountHolderType'
PostTokensRequestBodyBankAccount'AccountHolderType'EnumIndividual
| Bool
GHC.Base.otherwise -> Value -> PostTokensRequestBodyBankAccount'AccountHolderType'
PostTokensRequestBodyBankAccount'AccountHolderType'Other Value
val
)
data PostTokensRequestBodyCard'OneOf1 = PostTokensRequestBodyCard'OneOf1
{
PostTokensRequestBodyCard'OneOf1 -> Maybe Text
postTokensRequestBodyCard'OneOf1AddressCity :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
PostTokensRequestBodyCard'OneOf1 -> Maybe Text
postTokensRequestBodyCard'OneOf1AddressCountry :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
PostTokensRequestBodyCard'OneOf1 -> Maybe Text
postTokensRequestBodyCard'OneOf1AddressLine1 :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
PostTokensRequestBodyCard'OneOf1 -> Maybe Text
postTokensRequestBodyCard'OneOf1AddressLine2 :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
PostTokensRequestBodyCard'OneOf1 -> Maybe Text
postTokensRequestBodyCard'OneOf1AddressState :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
PostTokensRequestBodyCard'OneOf1 -> Maybe Text
postTokensRequestBodyCard'OneOf1AddressZip :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
PostTokensRequestBodyCard'OneOf1 -> Maybe Text
postTokensRequestBodyCard'OneOf1Currency :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
PostTokensRequestBodyCard'OneOf1 -> Maybe Text
postTokensRequestBodyCard'OneOf1Cvc :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
PostTokensRequestBodyCard'OneOf1 -> Text
postTokensRequestBodyCard'OneOf1ExpMonth :: Data.Text.Internal.Text,
PostTokensRequestBodyCard'OneOf1 -> Text
postTokensRequestBodyCard'OneOf1ExpYear :: Data.Text.Internal.Text,
PostTokensRequestBodyCard'OneOf1 -> Maybe Text
postTokensRequestBodyCard'OneOf1Name :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
PostTokensRequestBodyCard'OneOf1 -> Text
postTokensRequestBodyCard'OneOf1Number :: Data.Text.Internal.Text
}
deriving
( Int -> PostTokensRequestBodyCard'OneOf1 -> ShowS
[PostTokensRequestBodyCard'OneOf1] -> ShowS
PostTokensRequestBodyCard'OneOf1 -> String
(Int -> PostTokensRequestBodyCard'OneOf1 -> ShowS)
-> (PostTokensRequestBodyCard'OneOf1 -> String)
-> ([PostTokensRequestBodyCard'OneOf1] -> ShowS)
-> Show PostTokensRequestBodyCard'OneOf1
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PostTokensRequestBodyCard'OneOf1] -> ShowS
$cshowList :: [PostTokensRequestBodyCard'OneOf1] -> ShowS
show :: PostTokensRequestBodyCard'OneOf1 -> String
$cshow :: PostTokensRequestBodyCard'OneOf1 -> String
showsPrec :: Int -> PostTokensRequestBodyCard'OneOf1 -> ShowS
$cshowsPrec :: Int -> PostTokensRequestBodyCard'OneOf1 -> ShowS
GHC.Show.Show,
PostTokensRequestBodyCard'OneOf1
-> PostTokensRequestBodyCard'OneOf1 -> Bool
(PostTokensRequestBodyCard'OneOf1
-> PostTokensRequestBodyCard'OneOf1 -> Bool)
-> (PostTokensRequestBodyCard'OneOf1
-> PostTokensRequestBodyCard'OneOf1 -> Bool)
-> Eq PostTokensRequestBodyCard'OneOf1
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostTokensRequestBodyCard'OneOf1
-> PostTokensRequestBodyCard'OneOf1 -> Bool
$c/= :: PostTokensRequestBodyCard'OneOf1
-> PostTokensRequestBodyCard'OneOf1 -> Bool
== :: PostTokensRequestBodyCard'OneOf1
-> PostTokensRequestBodyCard'OneOf1 -> Bool
$c== :: PostTokensRequestBodyCard'OneOf1
-> PostTokensRequestBodyCard'OneOf1 -> Bool
GHC.Classes.Eq
)
instance Data.Aeson.Types.ToJSON.ToJSON PostTokensRequestBodyCard'OneOf1 where
toJSON :: PostTokensRequestBodyCard'OneOf1 -> Value
toJSON PostTokensRequestBodyCard'OneOf1
obj = [Pair] -> Value
Data.Aeson.Types.Internal.object (Text
"address_city" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyCard'OneOf1 -> Maybe Text
postTokensRequestBodyCard'OneOf1AddressCity PostTokensRequestBodyCard'OneOf1
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"address_country" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyCard'OneOf1 -> Maybe Text
postTokensRequestBodyCard'OneOf1AddressCountry PostTokensRequestBodyCard'OneOf1
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"address_line1" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyCard'OneOf1 -> Maybe Text
postTokensRequestBodyCard'OneOf1AddressLine1 PostTokensRequestBodyCard'OneOf1
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"address_line2" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyCard'OneOf1 -> Maybe Text
postTokensRequestBodyCard'OneOf1AddressLine2 PostTokensRequestBodyCard'OneOf1
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"address_state" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyCard'OneOf1 -> Maybe Text
postTokensRequestBodyCard'OneOf1AddressState PostTokensRequestBodyCard'OneOf1
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"address_zip" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyCard'OneOf1 -> Maybe Text
postTokensRequestBodyCard'OneOf1AddressZip PostTokensRequestBodyCard'OneOf1
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"currency" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyCard'OneOf1 -> Maybe Text
postTokensRequestBodyCard'OneOf1Currency PostTokensRequestBodyCard'OneOf1
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"cvc" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyCard'OneOf1 -> Maybe Text
postTokensRequestBodyCard'OneOf1Cvc PostTokensRequestBodyCard'OneOf1
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"exp_month" Text -> Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyCard'OneOf1 -> Text
postTokensRequestBodyCard'OneOf1ExpMonth PostTokensRequestBodyCard'OneOf1
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"exp_year" Text -> Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyCard'OneOf1 -> Text
postTokensRequestBodyCard'OneOf1ExpYear PostTokensRequestBodyCard'OneOf1
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"name" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyCard'OneOf1 -> Maybe Text
postTokensRequestBodyCard'OneOf1Name PostTokensRequestBodyCard'OneOf1
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"number" Text -> Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyCard'OneOf1 -> Text
postTokensRequestBodyCard'OneOf1Number PostTokensRequestBodyCard'OneOf1
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: [Pair]
forall a. Monoid a => a
GHC.Base.mempty)
toEncoding :: PostTokensRequestBodyCard'OneOf1 -> Encoding
toEncoding PostTokensRequestBodyCard'OneOf1
obj = Series -> Encoding
Data.Aeson.Encoding.Internal.pairs ((Text
"address_city" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyCard'OneOf1 -> Maybe Text
postTokensRequestBodyCard'OneOf1AddressCity PostTokensRequestBodyCard'OneOf1
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"address_country" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyCard'OneOf1 -> Maybe Text
postTokensRequestBodyCard'OneOf1AddressCountry PostTokensRequestBodyCard'OneOf1
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"address_line1" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyCard'OneOf1 -> Maybe Text
postTokensRequestBodyCard'OneOf1AddressLine1 PostTokensRequestBodyCard'OneOf1
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"address_line2" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyCard'OneOf1 -> Maybe Text
postTokensRequestBodyCard'OneOf1AddressLine2 PostTokensRequestBodyCard'OneOf1
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"address_state" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyCard'OneOf1 -> Maybe Text
postTokensRequestBodyCard'OneOf1AddressState PostTokensRequestBodyCard'OneOf1
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"address_zip" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyCard'OneOf1 -> Maybe Text
postTokensRequestBodyCard'OneOf1AddressZip PostTokensRequestBodyCard'OneOf1
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"currency" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyCard'OneOf1 -> Maybe Text
postTokensRequestBodyCard'OneOf1Currency PostTokensRequestBodyCard'OneOf1
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"cvc" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyCard'OneOf1 -> Maybe Text
postTokensRequestBodyCard'OneOf1Cvc PostTokensRequestBodyCard'OneOf1
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"exp_month" Text -> Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyCard'OneOf1 -> Text
postTokensRequestBodyCard'OneOf1ExpMonth PostTokensRequestBodyCard'OneOf1
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"exp_year" Text -> Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyCard'OneOf1 -> Text
postTokensRequestBodyCard'OneOf1ExpYear PostTokensRequestBodyCard'OneOf1
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"name" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyCard'OneOf1 -> Maybe Text
postTokensRequestBodyCard'OneOf1Name PostTokensRequestBodyCard'OneOf1
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> (Text
"number" Text -> Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyCard'OneOf1 -> Text
postTokensRequestBodyCard'OneOf1Number PostTokensRequestBodyCard'OneOf1
obj))))))))))))
instance Data.Aeson.Types.FromJSON.FromJSON PostTokensRequestBodyCard'OneOf1 where
parseJSON :: Value -> Parser PostTokensRequestBodyCard'OneOf1
parseJSON = String
-> (Object -> Parser PostTokensRequestBodyCard'OneOf1)
-> Value
-> Parser PostTokensRequestBodyCard'OneOf1
forall a. String -> (Object -> Parser a) -> Value -> Parser a
Data.Aeson.Types.FromJSON.withObject String
"PostTokensRequestBodyCard'OneOf1" (\Object
obj -> ((((((((((((Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Text
-> Text
-> Maybe Text
-> Text
-> PostTokensRequestBodyCard'OneOf1)
-> Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Text
-> Text
-> Maybe Text
-> Text
-> PostTokensRequestBodyCard'OneOf1)
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Text
-> Text
-> Maybe Text
-> Text
-> PostTokensRequestBodyCard'OneOf1
PostTokensRequestBodyCard'OneOf1 Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Text
-> Text
-> Maybe Text
-> Text
-> PostTokensRequestBodyCard'OneOf1)
-> Parser (Maybe Text)
-> Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Text
-> Text
-> Maybe Text
-> Text
-> PostTokensRequestBodyCard'OneOf1)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"address_city")) Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Text
-> Text
-> Maybe Text
-> Text
-> PostTokensRequestBodyCard'OneOf1)
-> Parser (Maybe Text)
-> Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Text
-> Text
-> Maybe Text
-> Text
-> PostTokensRequestBodyCard'OneOf1)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"address_country")) Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Text
-> Text
-> Maybe Text
-> Text
-> PostTokensRequestBodyCard'OneOf1)
-> Parser (Maybe Text)
-> Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Text
-> Text
-> Maybe Text
-> Text
-> PostTokensRequestBodyCard'OneOf1)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"address_line1")) Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Text
-> Text
-> Maybe Text
-> Text
-> PostTokensRequestBodyCard'OneOf1)
-> Parser (Maybe Text)
-> Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Text
-> Text
-> Maybe Text
-> Text
-> PostTokensRequestBodyCard'OneOf1)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"address_line2")) Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Text
-> Text
-> Maybe Text
-> Text
-> PostTokensRequestBodyCard'OneOf1)
-> Parser (Maybe Text)
-> Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Text
-> Text
-> Maybe Text
-> Text
-> PostTokensRequestBodyCard'OneOf1)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"address_state")) Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Text
-> Text
-> Maybe Text
-> Text
-> PostTokensRequestBodyCard'OneOf1)
-> Parser (Maybe Text)
-> Parser
(Maybe Text
-> Maybe Text
-> Text
-> Text
-> Maybe Text
-> Text
-> PostTokensRequestBodyCard'OneOf1)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"address_zip")) Parser
(Maybe Text
-> Maybe Text
-> Text
-> Text
-> Maybe Text
-> Text
-> PostTokensRequestBodyCard'OneOf1)
-> Parser (Maybe Text)
-> Parser
(Maybe Text
-> Text
-> Text
-> Maybe Text
-> Text
-> PostTokensRequestBodyCard'OneOf1)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"currency")) Parser
(Maybe Text
-> Text
-> Text
-> Maybe Text
-> Text
-> PostTokensRequestBodyCard'OneOf1)
-> Parser (Maybe Text)
-> Parser
(Text
-> Text -> Maybe Text -> Text -> PostTokensRequestBodyCard'OneOf1)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"cvc")) Parser
(Text
-> Text -> Maybe Text -> Text -> PostTokensRequestBodyCard'OneOf1)
-> Parser Text
-> Parser
(Text -> Maybe Text -> Text -> PostTokensRequestBodyCard'OneOf1)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser Text
forall a. FromJSON a => Object -> Text -> Parser a
Data.Aeson.Types.FromJSON..: Text
"exp_month")) Parser
(Text -> Maybe Text -> Text -> PostTokensRequestBodyCard'OneOf1)
-> Parser Text
-> Parser (Maybe Text -> Text -> PostTokensRequestBodyCard'OneOf1)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser Text
forall a. FromJSON a => Object -> Text -> Parser a
Data.Aeson.Types.FromJSON..: Text
"exp_year")) Parser (Maybe Text -> Text -> PostTokensRequestBodyCard'OneOf1)
-> Parser (Maybe Text)
-> Parser (Text -> PostTokensRequestBodyCard'OneOf1)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"name")) Parser (Text -> PostTokensRequestBodyCard'OneOf1)
-> Parser Text -> Parser PostTokensRequestBodyCard'OneOf1
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser Text
forall a. FromJSON a => Object -> Text -> Parser a
Data.Aeson.Types.FromJSON..: Text
"number"))
mkPostTokensRequestBodyCard'OneOf1 ::
Data.Text.Internal.Text ->
Data.Text.Internal.Text ->
Data.Text.Internal.Text ->
PostTokensRequestBodyCard'OneOf1
mkPostTokensRequestBodyCard'OneOf1 :: Text -> Text -> Text -> PostTokensRequestBodyCard'OneOf1
mkPostTokensRequestBodyCard'OneOf1 Text
postTokensRequestBodyCard'OneOf1ExpMonth Text
postTokensRequestBodyCard'OneOf1ExpYear Text
postTokensRequestBodyCard'OneOf1Number =
PostTokensRequestBodyCard'OneOf1 :: Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Text
-> Text
-> Maybe Text
-> Text
-> PostTokensRequestBodyCard'OneOf1
PostTokensRequestBodyCard'OneOf1
{ postTokensRequestBodyCard'OneOf1AddressCity :: Maybe Text
postTokensRequestBodyCard'OneOf1AddressCity = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
postTokensRequestBodyCard'OneOf1AddressCountry :: Maybe Text
postTokensRequestBodyCard'OneOf1AddressCountry = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
postTokensRequestBodyCard'OneOf1AddressLine1 :: Maybe Text
postTokensRequestBodyCard'OneOf1AddressLine1 = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
postTokensRequestBodyCard'OneOf1AddressLine2 :: Maybe Text
postTokensRequestBodyCard'OneOf1AddressLine2 = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
postTokensRequestBodyCard'OneOf1AddressState :: Maybe Text
postTokensRequestBodyCard'OneOf1AddressState = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
postTokensRequestBodyCard'OneOf1AddressZip :: Maybe Text
postTokensRequestBodyCard'OneOf1AddressZip = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
postTokensRequestBodyCard'OneOf1Currency :: Maybe Text
postTokensRequestBodyCard'OneOf1Currency = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
postTokensRequestBodyCard'OneOf1Cvc :: Maybe Text
postTokensRequestBodyCard'OneOf1Cvc = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
postTokensRequestBodyCard'OneOf1ExpMonth :: Text
postTokensRequestBodyCard'OneOf1ExpMonth = Text
postTokensRequestBodyCard'OneOf1ExpMonth,
postTokensRequestBodyCard'OneOf1ExpYear :: Text
postTokensRequestBodyCard'OneOf1ExpYear = Text
postTokensRequestBodyCard'OneOf1ExpYear,
postTokensRequestBodyCard'OneOf1Name :: Maybe Text
postTokensRequestBodyCard'OneOf1Name = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
postTokensRequestBodyCard'OneOf1Number :: Text
postTokensRequestBodyCard'OneOf1Number = Text
postTokensRequestBodyCard'OneOf1Number
}
data PostTokensRequestBodyCard'Variants
= PostTokensRequestBodyCard'PostTokensRequestBodyCard'OneOf1 PostTokensRequestBodyCard'OneOf1
| PostTokensRequestBodyCard'Text Data.Text.Internal.Text
deriving (Int -> PostTokensRequestBodyCard'Variants -> ShowS
[PostTokensRequestBodyCard'Variants] -> ShowS
PostTokensRequestBodyCard'Variants -> String
(Int -> PostTokensRequestBodyCard'Variants -> ShowS)
-> (PostTokensRequestBodyCard'Variants -> String)
-> ([PostTokensRequestBodyCard'Variants] -> ShowS)
-> Show PostTokensRequestBodyCard'Variants
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PostTokensRequestBodyCard'Variants] -> ShowS
$cshowList :: [PostTokensRequestBodyCard'Variants] -> ShowS
show :: PostTokensRequestBodyCard'Variants -> String
$cshow :: PostTokensRequestBodyCard'Variants -> String
showsPrec :: Int -> PostTokensRequestBodyCard'Variants -> ShowS
$cshowsPrec :: Int -> PostTokensRequestBodyCard'Variants -> ShowS
GHC.Show.Show, PostTokensRequestBodyCard'Variants
-> PostTokensRequestBodyCard'Variants -> Bool
(PostTokensRequestBodyCard'Variants
-> PostTokensRequestBodyCard'Variants -> Bool)
-> (PostTokensRequestBodyCard'Variants
-> PostTokensRequestBodyCard'Variants -> Bool)
-> Eq PostTokensRequestBodyCard'Variants
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostTokensRequestBodyCard'Variants
-> PostTokensRequestBodyCard'Variants -> Bool
$c/= :: PostTokensRequestBodyCard'Variants
-> PostTokensRequestBodyCard'Variants -> Bool
== :: PostTokensRequestBodyCard'Variants
-> PostTokensRequestBodyCard'Variants -> Bool
$c== :: PostTokensRequestBodyCard'Variants
-> PostTokensRequestBodyCard'Variants -> Bool
GHC.Classes.Eq)
instance Data.Aeson.Types.ToJSON.ToJSON PostTokensRequestBodyCard'Variants where
toJSON :: PostTokensRequestBodyCard'Variants -> Value
toJSON (PostTokensRequestBodyCard'PostTokensRequestBodyCard'OneOf1 PostTokensRequestBodyCard'OneOf1
a) = PostTokensRequestBodyCard'OneOf1 -> Value
forall a. ToJSON a => a -> Value
Data.Aeson.Types.ToJSON.toJSON PostTokensRequestBodyCard'OneOf1
a
toJSON (PostTokensRequestBodyCard'Text Text
a) = Text -> Value
forall a. ToJSON a => a -> Value
Data.Aeson.Types.ToJSON.toJSON Text
a
instance Data.Aeson.Types.FromJSON.FromJSON PostTokensRequestBodyCard'Variants where
parseJSON :: Value -> Parser PostTokensRequestBodyCard'Variants
parseJSON Value
val = case (PostTokensRequestBodyCard'OneOf1
-> PostTokensRequestBodyCard'Variants
PostTokensRequestBodyCard'PostTokensRequestBodyCard'OneOf1 (PostTokensRequestBodyCard'OneOf1
-> PostTokensRequestBodyCard'Variants)
-> Result PostTokensRequestBodyCard'OneOf1
-> Result PostTokensRequestBodyCard'Variants
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Data.Functor.<$> Value -> Result PostTokensRequestBodyCard'OneOf1
forall a. FromJSON a => Value -> Result a
Data.Aeson.Types.FromJSON.fromJSON Value
val) Result PostTokensRequestBodyCard'Variants
-> Result PostTokensRequestBodyCard'Variants
-> Result PostTokensRequestBodyCard'Variants
forall (f :: * -> *) a. Alternative f => f a -> f a -> f a
GHC.Base.<|> ((Text -> PostTokensRequestBodyCard'Variants
PostTokensRequestBodyCard'Text (Text -> PostTokensRequestBodyCard'Variants)
-> Result Text -> Result PostTokensRequestBodyCard'Variants
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Data.Functor.<$> Value -> Result Text
forall a. FromJSON a => Value -> Result a
Data.Aeson.Types.FromJSON.fromJSON Value
val) Result PostTokensRequestBodyCard'Variants
-> Result PostTokensRequestBodyCard'Variants
-> Result PostTokensRequestBodyCard'Variants
forall (f :: * -> *) a. Alternative f => f a -> f a -> f a
GHC.Base.<|> String -> Result PostTokensRequestBodyCard'Variants
forall a. String -> Result a
Data.Aeson.Types.Internal.Error String
"No variant matched") of
Data.Aeson.Types.Internal.Success PostTokensRequestBodyCard'Variants
a -> PostTokensRequestBodyCard'Variants
-> Parser PostTokensRequestBodyCard'Variants
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure PostTokensRequestBodyCard'Variants
a
Data.Aeson.Types.Internal.Error String
a -> String -> Parser PostTokensRequestBodyCard'Variants
forall (m :: * -> *) a. MonadFail m => String -> m a
Control.Monad.Fail.fail String
a
data PostTokensRequestBodyCvcUpdate' = PostTokensRequestBodyCvcUpdate'
{
PostTokensRequestBodyCvcUpdate' -> Text
postTokensRequestBodyCvcUpdate'Cvc :: Data.Text.Internal.Text
}
deriving
( Int -> PostTokensRequestBodyCvcUpdate' -> ShowS
[PostTokensRequestBodyCvcUpdate'] -> ShowS
PostTokensRequestBodyCvcUpdate' -> String
(Int -> PostTokensRequestBodyCvcUpdate' -> ShowS)
-> (PostTokensRequestBodyCvcUpdate' -> String)
-> ([PostTokensRequestBodyCvcUpdate'] -> ShowS)
-> Show PostTokensRequestBodyCvcUpdate'
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PostTokensRequestBodyCvcUpdate'] -> ShowS
$cshowList :: [PostTokensRequestBodyCvcUpdate'] -> ShowS
show :: PostTokensRequestBodyCvcUpdate' -> String
$cshow :: PostTokensRequestBodyCvcUpdate' -> String
showsPrec :: Int -> PostTokensRequestBodyCvcUpdate' -> ShowS
$cshowsPrec :: Int -> PostTokensRequestBodyCvcUpdate' -> ShowS
GHC.Show.Show,
PostTokensRequestBodyCvcUpdate'
-> PostTokensRequestBodyCvcUpdate' -> Bool
(PostTokensRequestBodyCvcUpdate'
-> PostTokensRequestBodyCvcUpdate' -> Bool)
-> (PostTokensRequestBodyCvcUpdate'
-> PostTokensRequestBodyCvcUpdate' -> Bool)
-> Eq PostTokensRequestBodyCvcUpdate'
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostTokensRequestBodyCvcUpdate'
-> PostTokensRequestBodyCvcUpdate' -> Bool
$c/= :: PostTokensRequestBodyCvcUpdate'
-> PostTokensRequestBodyCvcUpdate' -> Bool
== :: PostTokensRequestBodyCvcUpdate'
-> PostTokensRequestBodyCvcUpdate' -> Bool
$c== :: PostTokensRequestBodyCvcUpdate'
-> PostTokensRequestBodyCvcUpdate' -> Bool
GHC.Classes.Eq
)
instance Data.Aeson.Types.ToJSON.ToJSON PostTokensRequestBodyCvcUpdate' where
toJSON :: PostTokensRequestBodyCvcUpdate' -> Value
toJSON PostTokensRequestBodyCvcUpdate'
obj = [Pair] -> Value
Data.Aeson.Types.Internal.object (Text
"cvc" Text -> Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyCvcUpdate' -> Text
postTokensRequestBodyCvcUpdate'Cvc PostTokensRequestBodyCvcUpdate'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: [Pair]
forall a. Monoid a => a
GHC.Base.mempty)
toEncoding :: PostTokensRequestBodyCvcUpdate' -> Encoding
toEncoding PostTokensRequestBodyCvcUpdate'
obj = Series -> Encoding
Data.Aeson.Encoding.Internal.pairs (Text
"cvc" Text -> Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyCvcUpdate' -> Text
postTokensRequestBodyCvcUpdate'Cvc PostTokensRequestBodyCvcUpdate'
obj)
instance Data.Aeson.Types.FromJSON.FromJSON PostTokensRequestBodyCvcUpdate' where
parseJSON :: Value -> Parser PostTokensRequestBodyCvcUpdate'
parseJSON = String
-> (Object -> Parser PostTokensRequestBodyCvcUpdate')
-> Value
-> Parser PostTokensRequestBodyCvcUpdate'
forall a. String -> (Object -> Parser a) -> Value -> Parser a
Data.Aeson.Types.FromJSON.withObject String
"PostTokensRequestBodyCvcUpdate'" (\Object
obj -> (Text -> PostTokensRequestBodyCvcUpdate')
-> Parser (Text -> PostTokensRequestBodyCvcUpdate')
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure Text -> PostTokensRequestBodyCvcUpdate'
PostTokensRequestBodyCvcUpdate' Parser (Text -> PostTokensRequestBodyCvcUpdate')
-> Parser Text -> Parser PostTokensRequestBodyCvcUpdate'
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser Text
forall a. FromJSON a => Object -> Text -> Parser a
Data.Aeson.Types.FromJSON..: Text
"cvc"))
mkPostTokensRequestBodyCvcUpdate' ::
Data.Text.Internal.Text ->
PostTokensRequestBodyCvcUpdate'
mkPostTokensRequestBodyCvcUpdate' :: Text -> PostTokensRequestBodyCvcUpdate'
mkPostTokensRequestBodyCvcUpdate' Text
postTokensRequestBodyCvcUpdate'Cvc = PostTokensRequestBodyCvcUpdate' :: Text -> PostTokensRequestBodyCvcUpdate'
PostTokensRequestBodyCvcUpdate' {postTokensRequestBodyCvcUpdate'Cvc :: Text
postTokensRequestBodyCvcUpdate'Cvc = Text
postTokensRequestBodyCvcUpdate'Cvc}
data PostTokensRequestBodyPerson' = PostTokensRequestBodyPerson'
{
PostTokensRequestBodyPerson'
-> Maybe PostTokensRequestBodyPerson'Address'
postTokensRequestBodyPerson'Address :: (GHC.Maybe.Maybe PostTokensRequestBodyPerson'Address'),
PostTokensRequestBodyPerson'
-> Maybe PostTokensRequestBodyPerson'AddressKana'
postTokensRequestBodyPerson'AddressKana :: (GHC.Maybe.Maybe PostTokensRequestBodyPerson'AddressKana'),
PostTokensRequestBodyPerson'
-> Maybe PostTokensRequestBodyPerson'AddressKanji'
postTokensRequestBodyPerson'AddressKanji :: (GHC.Maybe.Maybe PostTokensRequestBodyPerson'AddressKanji'),
PostTokensRequestBodyPerson'
-> Maybe PostTokensRequestBodyPerson'Dob'Variants
postTokensRequestBodyPerson'Dob :: (GHC.Maybe.Maybe PostTokensRequestBodyPerson'Dob'Variants),
PostTokensRequestBodyPerson'
-> Maybe PostTokensRequestBodyPerson'Documents'
postTokensRequestBodyPerson'Documents :: (GHC.Maybe.Maybe PostTokensRequestBodyPerson'Documents'),
PostTokensRequestBodyPerson' -> Maybe Text
postTokensRequestBodyPerson'Email :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
PostTokensRequestBodyPerson' -> Maybe Text
postTokensRequestBodyPerson'FirstName :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
PostTokensRequestBodyPerson' -> Maybe Text
postTokensRequestBodyPerson'FirstNameKana :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
PostTokensRequestBodyPerson' -> Maybe Text
postTokensRequestBodyPerson'FirstNameKanji :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
PostTokensRequestBodyPerson' -> Maybe Text
postTokensRequestBodyPerson'Gender :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
PostTokensRequestBodyPerson' -> Maybe Text
postTokensRequestBodyPerson'IdNumber :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
PostTokensRequestBodyPerson' -> Maybe Text
postTokensRequestBodyPerson'LastName :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
PostTokensRequestBodyPerson' -> Maybe Text
postTokensRequestBodyPerson'LastNameKana :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
PostTokensRequestBodyPerson' -> Maybe Text
postTokensRequestBodyPerson'LastNameKanji :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
PostTokensRequestBodyPerson' -> Maybe Text
postTokensRequestBodyPerson'MaidenName :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
PostTokensRequestBodyPerson'
-> Maybe PostTokensRequestBodyPerson'Metadata'Variants
postTokensRequestBodyPerson'Metadata :: (GHC.Maybe.Maybe PostTokensRequestBodyPerson'Metadata'Variants),
PostTokensRequestBodyPerson' -> Maybe Text
postTokensRequestBodyPerson'Nationality :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
PostTokensRequestBodyPerson' -> Maybe Text
postTokensRequestBodyPerson'Phone :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
PostTokensRequestBodyPerson' -> Maybe Text
postTokensRequestBodyPerson'PoliticalExposure :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
PostTokensRequestBodyPerson'
-> Maybe PostTokensRequestBodyPerson'Relationship'
postTokensRequestBodyPerson'Relationship :: (GHC.Maybe.Maybe PostTokensRequestBodyPerson'Relationship'),
PostTokensRequestBodyPerson' -> Maybe Text
postTokensRequestBodyPerson'SsnLast_4 :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
PostTokensRequestBodyPerson'
-> Maybe PostTokensRequestBodyPerson'Verification'
postTokensRequestBodyPerson'Verification :: (GHC.Maybe.Maybe PostTokensRequestBodyPerson'Verification')
}
deriving
( Int -> PostTokensRequestBodyPerson' -> ShowS
[PostTokensRequestBodyPerson'] -> ShowS
PostTokensRequestBodyPerson' -> String
(Int -> PostTokensRequestBodyPerson' -> ShowS)
-> (PostTokensRequestBodyPerson' -> String)
-> ([PostTokensRequestBodyPerson'] -> ShowS)
-> Show PostTokensRequestBodyPerson'
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PostTokensRequestBodyPerson'] -> ShowS
$cshowList :: [PostTokensRequestBodyPerson'] -> ShowS
show :: PostTokensRequestBodyPerson' -> String
$cshow :: PostTokensRequestBodyPerson' -> String
showsPrec :: Int -> PostTokensRequestBodyPerson' -> ShowS
$cshowsPrec :: Int -> PostTokensRequestBodyPerson' -> ShowS
GHC.Show.Show,
PostTokensRequestBodyPerson'
-> PostTokensRequestBodyPerson' -> Bool
(PostTokensRequestBodyPerson'
-> PostTokensRequestBodyPerson' -> Bool)
-> (PostTokensRequestBodyPerson'
-> PostTokensRequestBodyPerson' -> Bool)
-> Eq PostTokensRequestBodyPerson'
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostTokensRequestBodyPerson'
-> PostTokensRequestBodyPerson' -> Bool
$c/= :: PostTokensRequestBodyPerson'
-> PostTokensRequestBodyPerson' -> Bool
== :: PostTokensRequestBodyPerson'
-> PostTokensRequestBodyPerson' -> Bool
$c== :: PostTokensRequestBodyPerson'
-> PostTokensRequestBodyPerson' -> Bool
GHC.Classes.Eq
)
instance Data.Aeson.Types.ToJSON.ToJSON PostTokensRequestBodyPerson' where
toJSON :: PostTokensRequestBodyPerson' -> Value
toJSON PostTokensRequestBodyPerson'
obj = [Pair] -> Value
Data.Aeson.Types.Internal.object (Text
"address" Text -> Maybe PostTokensRequestBodyPerson'Address' -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyPerson'
-> Maybe PostTokensRequestBodyPerson'Address'
postTokensRequestBodyPerson'Address PostTokensRequestBodyPerson'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"address_kana" Text -> Maybe PostTokensRequestBodyPerson'AddressKana' -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyPerson'
-> Maybe PostTokensRequestBodyPerson'AddressKana'
postTokensRequestBodyPerson'AddressKana PostTokensRequestBodyPerson'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"address_kanji" Text -> Maybe PostTokensRequestBodyPerson'AddressKanji' -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyPerson'
-> Maybe PostTokensRequestBodyPerson'AddressKanji'
postTokensRequestBodyPerson'AddressKanji PostTokensRequestBodyPerson'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"dob" Text -> Maybe PostTokensRequestBodyPerson'Dob'Variants -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyPerson'
-> Maybe PostTokensRequestBodyPerson'Dob'Variants
postTokensRequestBodyPerson'Dob PostTokensRequestBodyPerson'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"documents" Text -> Maybe PostTokensRequestBodyPerson'Documents' -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyPerson'
-> Maybe PostTokensRequestBodyPerson'Documents'
postTokensRequestBodyPerson'Documents PostTokensRequestBodyPerson'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"email" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyPerson' -> Maybe Text
postTokensRequestBodyPerson'Email PostTokensRequestBodyPerson'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"first_name" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyPerson' -> Maybe Text
postTokensRequestBodyPerson'FirstName PostTokensRequestBodyPerson'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"first_name_kana" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyPerson' -> Maybe Text
postTokensRequestBodyPerson'FirstNameKana PostTokensRequestBodyPerson'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"first_name_kanji" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyPerson' -> Maybe Text
postTokensRequestBodyPerson'FirstNameKanji PostTokensRequestBodyPerson'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"gender" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyPerson' -> Maybe Text
postTokensRequestBodyPerson'Gender PostTokensRequestBodyPerson'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"id_number" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyPerson' -> Maybe Text
postTokensRequestBodyPerson'IdNumber PostTokensRequestBodyPerson'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"last_name" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyPerson' -> Maybe Text
postTokensRequestBodyPerson'LastName PostTokensRequestBodyPerson'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"last_name_kana" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyPerson' -> Maybe Text
postTokensRequestBodyPerson'LastNameKana PostTokensRequestBodyPerson'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"last_name_kanji" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyPerson' -> Maybe Text
postTokensRequestBodyPerson'LastNameKanji PostTokensRequestBodyPerson'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"maiden_name" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyPerson' -> Maybe Text
postTokensRequestBodyPerson'MaidenName PostTokensRequestBodyPerson'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"metadata" Text -> Maybe PostTokensRequestBodyPerson'Metadata'Variants -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyPerson'
-> Maybe PostTokensRequestBodyPerson'Metadata'Variants
postTokensRequestBodyPerson'Metadata PostTokensRequestBodyPerson'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"nationality" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyPerson' -> Maybe Text
postTokensRequestBodyPerson'Nationality PostTokensRequestBodyPerson'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"phone" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyPerson' -> Maybe Text
postTokensRequestBodyPerson'Phone PostTokensRequestBodyPerson'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"political_exposure" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyPerson' -> Maybe Text
postTokensRequestBodyPerson'PoliticalExposure PostTokensRequestBodyPerson'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"relationship" Text -> Maybe PostTokensRequestBodyPerson'Relationship' -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyPerson'
-> Maybe PostTokensRequestBodyPerson'Relationship'
postTokensRequestBodyPerson'Relationship PostTokensRequestBodyPerson'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"ssn_last_4" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyPerson' -> Maybe Text
postTokensRequestBodyPerson'SsnLast_4 PostTokensRequestBodyPerson'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"verification" Text -> Maybe PostTokensRequestBodyPerson'Verification' -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyPerson'
-> Maybe PostTokensRequestBodyPerson'Verification'
postTokensRequestBodyPerson'Verification PostTokensRequestBodyPerson'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: [Pair]
forall a. Monoid a => a
GHC.Base.mempty)
toEncoding :: PostTokensRequestBodyPerson' -> Encoding
toEncoding PostTokensRequestBodyPerson'
obj = Series -> Encoding
Data.Aeson.Encoding.Internal.pairs ((Text
"address" Text -> Maybe PostTokensRequestBodyPerson'Address' -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyPerson'
-> Maybe PostTokensRequestBodyPerson'Address'
postTokensRequestBodyPerson'Address PostTokensRequestBodyPerson'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"address_kana" Text -> Maybe PostTokensRequestBodyPerson'AddressKana' -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyPerson'
-> Maybe PostTokensRequestBodyPerson'AddressKana'
postTokensRequestBodyPerson'AddressKana PostTokensRequestBodyPerson'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"address_kanji" Text -> Maybe PostTokensRequestBodyPerson'AddressKanji' -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyPerson'
-> Maybe PostTokensRequestBodyPerson'AddressKanji'
postTokensRequestBodyPerson'AddressKanji PostTokensRequestBodyPerson'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"dob" Text -> Maybe PostTokensRequestBodyPerson'Dob'Variants -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyPerson'
-> Maybe PostTokensRequestBodyPerson'Dob'Variants
postTokensRequestBodyPerson'Dob PostTokensRequestBodyPerson'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"documents" Text -> Maybe PostTokensRequestBodyPerson'Documents' -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyPerson'
-> Maybe PostTokensRequestBodyPerson'Documents'
postTokensRequestBodyPerson'Documents PostTokensRequestBodyPerson'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"email" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyPerson' -> Maybe Text
postTokensRequestBodyPerson'Email PostTokensRequestBodyPerson'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"first_name" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyPerson' -> Maybe Text
postTokensRequestBodyPerson'FirstName PostTokensRequestBodyPerson'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"first_name_kana" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyPerson' -> Maybe Text
postTokensRequestBodyPerson'FirstNameKana PostTokensRequestBodyPerson'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"first_name_kanji" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyPerson' -> Maybe Text
postTokensRequestBodyPerson'FirstNameKanji PostTokensRequestBodyPerson'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"gender" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyPerson' -> Maybe Text
postTokensRequestBodyPerson'Gender PostTokensRequestBodyPerson'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"id_number" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyPerson' -> Maybe Text
postTokensRequestBodyPerson'IdNumber PostTokensRequestBodyPerson'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"last_name" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyPerson' -> Maybe Text
postTokensRequestBodyPerson'LastName PostTokensRequestBodyPerson'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"last_name_kana" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyPerson' -> Maybe Text
postTokensRequestBodyPerson'LastNameKana PostTokensRequestBodyPerson'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"last_name_kanji" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyPerson' -> Maybe Text
postTokensRequestBodyPerson'LastNameKanji PostTokensRequestBodyPerson'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"maiden_name" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyPerson' -> Maybe Text
postTokensRequestBodyPerson'MaidenName PostTokensRequestBodyPerson'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"metadata" Text
-> Maybe PostTokensRequestBodyPerson'Metadata'Variants -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyPerson'
-> Maybe PostTokensRequestBodyPerson'Metadata'Variants
postTokensRequestBodyPerson'Metadata PostTokensRequestBodyPerson'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"nationality" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyPerson' -> Maybe Text
postTokensRequestBodyPerson'Nationality PostTokensRequestBodyPerson'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"phone" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyPerson' -> Maybe Text
postTokensRequestBodyPerson'Phone PostTokensRequestBodyPerson'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"political_exposure" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyPerson' -> Maybe Text
postTokensRequestBodyPerson'PoliticalExposure PostTokensRequestBodyPerson'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"relationship" Text -> Maybe PostTokensRequestBodyPerson'Relationship' -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyPerson'
-> Maybe PostTokensRequestBodyPerson'Relationship'
postTokensRequestBodyPerson'Relationship PostTokensRequestBodyPerson'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"ssn_last_4" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyPerson' -> Maybe Text
postTokensRequestBodyPerson'SsnLast_4 PostTokensRequestBodyPerson'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> (Text
"verification" Text -> Maybe PostTokensRequestBodyPerson'Verification' -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyPerson'
-> Maybe PostTokensRequestBodyPerson'Verification'
postTokensRequestBodyPerson'Verification PostTokensRequestBodyPerson'
obj))))))))))))))))))))))
instance Data.Aeson.Types.FromJSON.FromJSON PostTokensRequestBodyPerson' where
parseJSON :: Value -> Parser PostTokensRequestBodyPerson'
parseJSON = String
-> (Object -> Parser PostTokensRequestBodyPerson')
-> Value
-> Parser PostTokensRequestBodyPerson'
forall a. String -> (Object -> Parser a) -> Value -> Parser a
Data.Aeson.Types.FromJSON.withObject String
"PostTokensRequestBodyPerson'" (\Object
obj -> ((((((((((((((((((((((Maybe PostTokensRequestBodyPerson'Address'
-> Maybe PostTokensRequestBodyPerson'AddressKana'
-> Maybe PostTokensRequestBodyPerson'AddressKanji'
-> Maybe PostTokensRequestBodyPerson'Dob'Variants
-> Maybe PostTokensRequestBodyPerson'Documents'
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostTokensRequestBodyPerson'Metadata'Variants
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostTokensRequestBodyPerson'Relationship'
-> Maybe Text
-> Maybe PostTokensRequestBodyPerson'Verification'
-> PostTokensRequestBodyPerson')
-> Parser
(Maybe PostTokensRequestBodyPerson'Address'
-> Maybe PostTokensRequestBodyPerson'AddressKana'
-> Maybe PostTokensRequestBodyPerson'AddressKanji'
-> Maybe PostTokensRequestBodyPerson'Dob'Variants
-> Maybe PostTokensRequestBodyPerson'Documents'
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostTokensRequestBodyPerson'Metadata'Variants
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostTokensRequestBodyPerson'Relationship'
-> Maybe Text
-> Maybe PostTokensRequestBodyPerson'Verification'
-> PostTokensRequestBodyPerson')
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure Maybe PostTokensRequestBodyPerson'Address'
-> Maybe PostTokensRequestBodyPerson'AddressKana'
-> Maybe PostTokensRequestBodyPerson'AddressKanji'
-> Maybe PostTokensRequestBodyPerson'Dob'Variants
-> Maybe PostTokensRequestBodyPerson'Documents'
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostTokensRequestBodyPerson'Metadata'Variants
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostTokensRequestBodyPerson'Relationship'
-> Maybe Text
-> Maybe PostTokensRequestBodyPerson'Verification'
-> PostTokensRequestBodyPerson'
PostTokensRequestBodyPerson' Parser
(Maybe PostTokensRequestBodyPerson'Address'
-> Maybe PostTokensRequestBodyPerson'AddressKana'
-> Maybe PostTokensRequestBodyPerson'AddressKanji'
-> Maybe PostTokensRequestBodyPerson'Dob'Variants
-> Maybe PostTokensRequestBodyPerson'Documents'
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostTokensRequestBodyPerson'Metadata'Variants
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostTokensRequestBodyPerson'Relationship'
-> Maybe Text
-> Maybe PostTokensRequestBodyPerson'Verification'
-> PostTokensRequestBodyPerson')
-> Parser (Maybe PostTokensRequestBodyPerson'Address')
-> Parser
(Maybe PostTokensRequestBodyPerson'AddressKana'
-> Maybe PostTokensRequestBodyPerson'AddressKanji'
-> Maybe PostTokensRequestBodyPerson'Dob'Variants
-> Maybe PostTokensRequestBodyPerson'Documents'
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostTokensRequestBodyPerson'Metadata'Variants
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostTokensRequestBodyPerson'Relationship'
-> Maybe Text
-> Maybe PostTokensRequestBodyPerson'Verification'
-> PostTokensRequestBodyPerson')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object
-> Text -> Parser (Maybe PostTokensRequestBodyPerson'Address')
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"address")) Parser
(Maybe PostTokensRequestBodyPerson'AddressKana'
-> Maybe PostTokensRequestBodyPerson'AddressKanji'
-> Maybe PostTokensRequestBodyPerson'Dob'Variants
-> Maybe PostTokensRequestBodyPerson'Documents'
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostTokensRequestBodyPerson'Metadata'Variants
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostTokensRequestBodyPerson'Relationship'
-> Maybe Text
-> Maybe PostTokensRequestBodyPerson'Verification'
-> PostTokensRequestBodyPerson')
-> Parser (Maybe PostTokensRequestBodyPerson'AddressKana')
-> Parser
(Maybe PostTokensRequestBodyPerson'AddressKanji'
-> Maybe PostTokensRequestBodyPerson'Dob'Variants
-> Maybe PostTokensRequestBodyPerson'Documents'
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostTokensRequestBodyPerson'Metadata'Variants
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostTokensRequestBodyPerson'Relationship'
-> Maybe Text
-> Maybe PostTokensRequestBodyPerson'Verification'
-> PostTokensRequestBodyPerson')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object
-> Text -> Parser (Maybe PostTokensRequestBodyPerson'AddressKana')
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"address_kana")) Parser
(Maybe PostTokensRequestBodyPerson'AddressKanji'
-> Maybe PostTokensRequestBodyPerson'Dob'Variants
-> Maybe PostTokensRequestBodyPerson'Documents'
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostTokensRequestBodyPerson'Metadata'Variants
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostTokensRequestBodyPerson'Relationship'
-> Maybe Text
-> Maybe PostTokensRequestBodyPerson'Verification'
-> PostTokensRequestBodyPerson')
-> Parser (Maybe PostTokensRequestBodyPerson'AddressKanji')
-> Parser
(Maybe PostTokensRequestBodyPerson'Dob'Variants
-> Maybe PostTokensRequestBodyPerson'Documents'
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostTokensRequestBodyPerson'Metadata'Variants
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostTokensRequestBodyPerson'Relationship'
-> Maybe Text
-> Maybe PostTokensRequestBodyPerson'Verification'
-> PostTokensRequestBodyPerson')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object
-> Text -> Parser (Maybe PostTokensRequestBodyPerson'AddressKanji')
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"address_kanji")) Parser
(Maybe PostTokensRequestBodyPerson'Dob'Variants
-> Maybe PostTokensRequestBodyPerson'Documents'
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostTokensRequestBodyPerson'Metadata'Variants
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostTokensRequestBodyPerson'Relationship'
-> Maybe Text
-> Maybe PostTokensRequestBodyPerson'Verification'
-> PostTokensRequestBodyPerson')
-> Parser (Maybe PostTokensRequestBodyPerson'Dob'Variants)
-> Parser
(Maybe PostTokensRequestBodyPerson'Documents'
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostTokensRequestBodyPerson'Metadata'Variants
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostTokensRequestBodyPerson'Relationship'
-> Maybe Text
-> Maybe PostTokensRequestBodyPerson'Verification'
-> PostTokensRequestBodyPerson')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object
-> Text -> Parser (Maybe PostTokensRequestBodyPerson'Dob'Variants)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"dob")) Parser
(Maybe PostTokensRequestBodyPerson'Documents'
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostTokensRequestBodyPerson'Metadata'Variants
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostTokensRequestBodyPerson'Relationship'
-> Maybe Text
-> Maybe PostTokensRequestBodyPerson'Verification'
-> PostTokensRequestBodyPerson')
-> Parser (Maybe PostTokensRequestBodyPerson'Documents')
-> Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostTokensRequestBodyPerson'Metadata'Variants
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostTokensRequestBodyPerson'Relationship'
-> Maybe Text
-> Maybe PostTokensRequestBodyPerson'Verification'
-> PostTokensRequestBodyPerson')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object
-> Text -> Parser (Maybe PostTokensRequestBodyPerson'Documents')
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"documents")) Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostTokensRequestBodyPerson'Metadata'Variants
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostTokensRequestBodyPerson'Relationship'
-> Maybe Text
-> Maybe PostTokensRequestBodyPerson'Verification'
-> PostTokensRequestBodyPerson')
-> Parser (Maybe Text)
-> Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostTokensRequestBodyPerson'Metadata'Variants
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostTokensRequestBodyPerson'Relationship'
-> Maybe Text
-> Maybe PostTokensRequestBodyPerson'Verification'
-> PostTokensRequestBodyPerson')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"email")) Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostTokensRequestBodyPerson'Metadata'Variants
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostTokensRequestBodyPerson'Relationship'
-> Maybe Text
-> Maybe PostTokensRequestBodyPerson'Verification'
-> PostTokensRequestBodyPerson')
-> Parser (Maybe Text)
-> Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostTokensRequestBodyPerson'Metadata'Variants
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostTokensRequestBodyPerson'Relationship'
-> Maybe Text
-> Maybe PostTokensRequestBodyPerson'Verification'
-> PostTokensRequestBodyPerson')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"first_name")) Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostTokensRequestBodyPerson'Metadata'Variants
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostTokensRequestBodyPerson'Relationship'
-> Maybe Text
-> Maybe PostTokensRequestBodyPerson'Verification'
-> PostTokensRequestBodyPerson')
-> Parser (Maybe Text)
-> Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostTokensRequestBodyPerson'Metadata'Variants
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostTokensRequestBodyPerson'Relationship'
-> Maybe Text
-> Maybe PostTokensRequestBodyPerson'Verification'
-> PostTokensRequestBodyPerson')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"first_name_kana")) Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostTokensRequestBodyPerson'Metadata'Variants
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostTokensRequestBodyPerson'Relationship'
-> Maybe Text
-> Maybe PostTokensRequestBodyPerson'Verification'
-> PostTokensRequestBodyPerson')
-> Parser (Maybe Text)
-> Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostTokensRequestBodyPerson'Metadata'Variants
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostTokensRequestBodyPerson'Relationship'
-> Maybe Text
-> Maybe PostTokensRequestBodyPerson'Verification'
-> PostTokensRequestBodyPerson')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"first_name_kanji")) Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostTokensRequestBodyPerson'Metadata'Variants
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostTokensRequestBodyPerson'Relationship'
-> Maybe Text
-> Maybe PostTokensRequestBodyPerson'Verification'
-> PostTokensRequestBodyPerson')
-> Parser (Maybe Text)
-> Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostTokensRequestBodyPerson'Metadata'Variants
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostTokensRequestBodyPerson'Relationship'
-> Maybe Text
-> Maybe PostTokensRequestBodyPerson'Verification'
-> PostTokensRequestBodyPerson')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"gender")) Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostTokensRequestBodyPerson'Metadata'Variants
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostTokensRequestBodyPerson'Relationship'
-> Maybe Text
-> Maybe PostTokensRequestBodyPerson'Verification'
-> PostTokensRequestBodyPerson')
-> Parser (Maybe Text)
-> Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostTokensRequestBodyPerson'Metadata'Variants
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostTokensRequestBodyPerson'Relationship'
-> Maybe Text
-> Maybe PostTokensRequestBodyPerson'Verification'
-> PostTokensRequestBodyPerson')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"id_number")) Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostTokensRequestBodyPerson'Metadata'Variants
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostTokensRequestBodyPerson'Relationship'
-> Maybe Text
-> Maybe PostTokensRequestBodyPerson'Verification'
-> PostTokensRequestBodyPerson')
-> Parser (Maybe Text)
-> Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostTokensRequestBodyPerson'Metadata'Variants
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostTokensRequestBodyPerson'Relationship'
-> Maybe Text
-> Maybe PostTokensRequestBodyPerson'Verification'
-> PostTokensRequestBodyPerson')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"last_name")) Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostTokensRequestBodyPerson'Metadata'Variants
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostTokensRequestBodyPerson'Relationship'
-> Maybe Text
-> Maybe PostTokensRequestBodyPerson'Verification'
-> PostTokensRequestBodyPerson')
-> Parser (Maybe Text)
-> Parser
(Maybe Text
-> Maybe Text
-> Maybe PostTokensRequestBodyPerson'Metadata'Variants
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostTokensRequestBodyPerson'Relationship'
-> Maybe Text
-> Maybe PostTokensRequestBodyPerson'Verification'
-> PostTokensRequestBodyPerson')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"last_name_kana")) Parser
(Maybe Text
-> Maybe Text
-> Maybe PostTokensRequestBodyPerson'Metadata'Variants
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostTokensRequestBodyPerson'Relationship'
-> Maybe Text
-> Maybe PostTokensRequestBodyPerson'Verification'
-> PostTokensRequestBodyPerson')
-> Parser (Maybe Text)
-> Parser
(Maybe Text
-> Maybe PostTokensRequestBodyPerson'Metadata'Variants
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostTokensRequestBodyPerson'Relationship'
-> Maybe Text
-> Maybe PostTokensRequestBodyPerson'Verification'
-> PostTokensRequestBodyPerson')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"last_name_kanji")) Parser
(Maybe Text
-> Maybe PostTokensRequestBodyPerson'Metadata'Variants
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostTokensRequestBodyPerson'Relationship'
-> Maybe Text
-> Maybe PostTokensRequestBodyPerson'Verification'
-> PostTokensRequestBodyPerson')
-> Parser (Maybe Text)
-> Parser
(Maybe PostTokensRequestBodyPerson'Metadata'Variants
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostTokensRequestBodyPerson'Relationship'
-> Maybe Text
-> Maybe PostTokensRequestBodyPerson'Verification'
-> PostTokensRequestBodyPerson')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"maiden_name")) Parser
(Maybe PostTokensRequestBodyPerson'Metadata'Variants
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostTokensRequestBodyPerson'Relationship'
-> Maybe Text
-> Maybe PostTokensRequestBodyPerson'Verification'
-> PostTokensRequestBodyPerson')
-> Parser (Maybe PostTokensRequestBodyPerson'Metadata'Variants)
-> Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostTokensRequestBodyPerson'Relationship'
-> Maybe Text
-> Maybe PostTokensRequestBodyPerson'Verification'
-> PostTokensRequestBodyPerson')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object
-> Text
-> Parser (Maybe PostTokensRequestBodyPerson'Metadata'Variants)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"metadata")) Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostTokensRequestBodyPerson'Relationship'
-> Maybe Text
-> Maybe PostTokensRequestBodyPerson'Verification'
-> PostTokensRequestBodyPerson')
-> Parser (Maybe Text)
-> Parser
(Maybe Text
-> Maybe Text
-> Maybe PostTokensRequestBodyPerson'Relationship'
-> Maybe Text
-> Maybe PostTokensRequestBodyPerson'Verification'
-> PostTokensRequestBodyPerson')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"nationality")) Parser
(Maybe Text
-> Maybe Text
-> Maybe PostTokensRequestBodyPerson'Relationship'
-> Maybe Text
-> Maybe PostTokensRequestBodyPerson'Verification'
-> PostTokensRequestBodyPerson')
-> Parser (Maybe Text)
-> Parser
(Maybe Text
-> Maybe PostTokensRequestBodyPerson'Relationship'
-> Maybe Text
-> Maybe PostTokensRequestBodyPerson'Verification'
-> PostTokensRequestBodyPerson')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"phone")) Parser
(Maybe Text
-> Maybe PostTokensRequestBodyPerson'Relationship'
-> Maybe Text
-> Maybe PostTokensRequestBodyPerson'Verification'
-> PostTokensRequestBodyPerson')
-> Parser (Maybe Text)
-> Parser
(Maybe PostTokensRequestBodyPerson'Relationship'
-> Maybe Text
-> Maybe PostTokensRequestBodyPerson'Verification'
-> PostTokensRequestBodyPerson')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"political_exposure")) Parser
(Maybe PostTokensRequestBodyPerson'Relationship'
-> Maybe Text
-> Maybe PostTokensRequestBodyPerson'Verification'
-> PostTokensRequestBodyPerson')
-> Parser (Maybe PostTokensRequestBodyPerson'Relationship')
-> Parser
(Maybe Text
-> Maybe PostTokensRequestBodyPerson'Verification'
-> PostTokensRequestBodyPerson')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object
-> Text -> Parser (Maybe PostTokensRequestBodyPerson'Relationship')
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"relationship")) Parser
(Maybe Text
-> Maybe PostTokensRequestBodyPerson'Verification'
-> PostTokensRequestBodyPerson')
-> Parser (Maybe Text)
-> Parser
(Maybe PostTokensRequestBodyPerson'Verification'
-> PostTokensRequestBodyPerson')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"ssn_last_4")) Parser
(Maybe PostTokensRequestBodyPerson'Verification'
-> PostTokensRequestBodyPerson')
-> Parser (Maybe PostTokensRequestBodyPerson'Verification')
-> Parser PostTokensRequestBodyPerson'
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object
-> Text -> Parser (Maybe PostTokensRequestBodyPerson'Verification')
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"verification"))
mkPostTokensRequestBodyPerson' :: PostTokensRequestBodyPerson'
mkPostTokensRequestBodyPerson' :: PostTokensRequestBodyPerson'
mkPostTokensRequestBodyPerson' =
PostTokensRequestBodyPerson' :: Maybe PostTokensRequestBodyPerson'Address'
-> Maybe PostTokensRequestBodyPerson'AddressKana'
-> Maybe PostTokensRequestBodyPerson'AddressKanji'
-> Maybe PostTokensRequestBodyPerson'Dob'Variants
-> Maybe PostTokensRequestBodyPerson'Documents'
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostTokensRequestBodyPerson'Metadata'Variants
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostTokensRequestBodyPerson'Relationship'
-> Maybe Text
-> Maybe PostTokensRequestBodyPerson'Verification'
-> PostTokensRequestBodyPerson'
PostTokensRequestBodyPerson'
{ postTokensRequestBodyPerson'Address :: Maybe PostTokensRequestBodyPerson'Address'
postTokensRequestBodyPerson'Address = Maybe PostTokensRequestBodyPerson'Address'
forall a. Maybe a
GHC.Maybe.Nothing,
postTokensRequestBodyPerson'AddressKana :: Maybe PostTokensRequestBodyPerson'AddressKana'
postTokensRequestBodyPerson'AddressKana = Maybe PostTokensRequestBodyPerson'AddressKana'
forall a. Maybe a
GHC.Maybe.Nothing,
postTokensRequestBodyPerson'AddressKanji :: Maybe PostTokensRequestBodyPerson'AddressKanji'
postTokensRequestBodyPerson'AddressKanji = Maybe PostTokensRequestBodyPerson'AddressKanji'
forall a. Maybe a
GHC.Maybe.Nothing,
postTokensRequestBodyPerson'Dob :: Maybe PostTokensRequestBodyPerson'Dob'Variants
postTokensRequestBodyPerson'Dob = Maybe PostTokensRequestBodyPerson'Dob'Variants
forall a. Maybe a
GHC.Maybe.Nothing,
postTokensRequestBodyPerson'Documents :: Maybe PostTokensRequestBodyPerson'Documents'
postTokensRequestBodyPerson'Documents = Maybe PostTokensRequestBodyPerson'Documents'
forall a. Maybe a
GHC.Maybe.Nothing,
postTokensRequestBodyPerson'Email :: Maybe Text
postTokensRequestBodyPerson'Email = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
postTokensRequestBodyPerson'FirstName :: Maybe Text
postTokensRequestBodyPerson'FirstName = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
postTokensRequestBodyPerson'FirstNameKana :: Maybe Text
postTokensRequestBodyPerson'FirstNameKana = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
postTokensRequestBodyPerson'FirstNameKanji :: Maybe Text
postTokensRequestBodyPerson'FirstNameKanji = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
postTokensRequestBodyPerson'Gender :: Maybe Text
postTokensRequestBodyPerson'Gender = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
postTokensRequestBodyPerson'IdNumber :: Maybe Text
postTokensRequestBodyPerson'IdNumber = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
postTokensRequestBodyPerson'LastName :: Maybe Text
postTokensRequestBodyPerson'LastName = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
postTokensRequestBodyPerson'LastNameKana :: Maybe Text
postTokensRequestBodyPerson'LastNameKana = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
postTokensRequestBodyPerson'LastNameKanji :: Maybe Text
postTokensRequestBodyPerson'LastNameKanji = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
postTokensRequestBodyPerson'MaidenName :: Maybe Text
postTokensRequestBodyPerson'MaidenName = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
postTokensRequestBodyPerson'Metadata :: Maybe PostTokensRequestBodyPerson'Metadata'Variants
postTokensRequestBodyPerson'Metadata = Maybe PostTokensRequestBodyPerson'Metadata'Variants
forall a. Maybe a
GHC.Maybe.Nothing,
postTokensRequestBodyPerson'Nationality :: Maybe Text
postTokensRequestBodyPerson'Nationality = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
postTokensRequestBodyPerson'Phone :: Maybe Text
postTokensRequestBodyPerson'Phone = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
postTokensRequestBodyPerson'PoliticalExposure :: Maybe Text
postTokensRequestBodyPerson'PoliticalExposure = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
postTokensRequestBodyPerson'Relationship :: Maybe PostTokensRequestBodyPerson'Relationship'
postTokensRequestBodyPerson'Relationship = Maybe PostTokensRequestBodyPerson'Relationship'
forall a. Maybe a
GHC.Maybe.Nothing,
postTokensRequestBodyPerson'SsnLast_4 :: Maybe Text
postTokensRequestBodyPerson'SsnLast_4 = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
postTokensRequestBodyPerson'Verification :: Maybe PostTokensRequestBodyPerson'Verification'
postTokensRequestBodyPerson'Verification = Maybe PostTokensRequestBodyPerson'Verification'
forall a. Maybe a
GHC.Maybe.Nothing
}
data PostTokensRequestBodyPerson'Address' = PostTokensRequestBodyPerson'Address'
{
PostTokensRequestBodyPerson'Address' -> Maybe Text
postTokensRequestBodyPerson'Address'City :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
PostTokensRequestBodyPerson'Address' -> Maybe Text
postTokensRequestBodyPerson'Address'Country :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
PostTokensRequestBodyPerson'Address' -> Maybe Text
postTokensRequestBodyPerson'Address'Line1 :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
PostTokensRequestBodyPerson'Address' -> Maybe Text
postTokensRequestBodyPerson'Address'Line2 :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
PostTokensRequestBodyPerson'Address' -> Maybe Text
postTokensRequestBodyPerson'Address'PostalCode :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
PostTokensRequestBodyPerson'Address' -> Maybe Text
postTokensRequestBodyPerson'Address'State :: (GHC.Maybe.Maybe Data.Text.Internal.Text)
}
deriving
( Int -> PostTokensRequestBodyPerson'Address' -> ShowS
[PostTokensRequestBodyPerson'Address'] -> ShowS
PostTokensRequestBodyPerson'Address' -> String
(Int -> PostTokensRequestBodyPerson'Address' -> ShowS)
-> (PostTokensRequestBodyPerson'Address' -> String)
-> ([PostTokensRequestBodyPerson'Address'] -> ShowS)
-> Show PostTokensRequestBodyPerson'Address'
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PostTokensRequestBodyPerson'Address'] -> ShowS
$cshowList :: [PostTokensRequestBodyPerson'Address'] -> ShowS
show :: PostTokensRequestBodyPerson'Address' -> String
$cshow :: PostTokensRequestBodyPerson'Address' -> String
showsPrec :: Int -> PostTokensRequestBodyPerson'Address' -> ShowS
$cshowsPrec :: Int -> PostTokensRequestBodyPerson'Address' -> ShowS
GHC.Show.Show,
PostTokensRequestBodyPerson'Address'
-> PostTokensRequestBodyPerson'Address' -> Bool
(PostTokensRequestBodyPerson'Address'
-> PostTokensRequestBodyPerson'Address' -> Bool)
-> (PostTokensRequestBodyPerson'Address'
-> PostTokensRequestBodyPerson'Address' -> Bool)
-> Eq PostTokensRequestBodyPerson'Address'
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostTokensRequestBodyPerson'Address'
-> PostTokensRequestBodyPerson'Address' -> Bool
$c/= :: PostTokensRequestBodyPerson'Address'
-> PostTokensRequestBodyPerson'Address' -> Bool
== :: PostTokensRequestBodyPerson'Address'
-> PostTokensRequestBodyPerson'Address' -> Bool
$c== :: PostTokensRequestBodyPerson'Address'
-> PostTokensRequestBodyPerson'Address' -> Bool
GHC.Classes.Eq
)
instance Data.Aeson.Types.ToJSON.ToJSON PostTokensRequestBodyPerson'Address' where
toJSON :: PostTokensRequestBodyPerson'Address' -> Value
toJSON PostTokensRequestBodyPerson'Address'
obj = [Pair] -> Value
Data.Aeson.Types.Internal.object (Text
"city" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyPerson'Address' -> Maybe Text
postTokensRequestBodyPerson'Address'City PostTokensRequestBodyPerson'Address'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"country" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyPerson'Address' -> Maybe Text
postTokensRequestBodyPerson'Address'Country PostTokensRequestBodyPerson'Address'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"line1" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyPerson'Address' -> Maybe Text
postTokensRequestBodyPerson'Address'Line1 PostTokensRequestBodyPerson'Address'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"line2" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyPerson'Address' -> Maybe Text
postTokensRequestBodyPerson'Address'Line2 PostTokensRequestBodyPerson'Address'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"postal_code" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyPerson'Address' -> Maybe Text
postTokensRequestBodyPerson'Address'PostalCode PostTokensRequestBodyPerson'Address'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"state" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyPerson'Address' -> Maybe Text
postTokensRequestBodyPerson'Address'State PostTokensRequestBodyPerson'Address'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: [Pair]
forall a. Monoid a => a
GHC.Base.mempty)
toEncoding :: PostTokensRequestBodyPerson'Address' -> Encoding
toEncoding PostTokensRequestBodyPerson'Address'
obj = Series -> Encoding
Data.Aeson.Encoding.Internal.pairs ((Text
"city" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyPerson'Address' -> Maybe Text
postTokensRequestBodyPerson'Address'City PostTokensRequestBodyPerson'Address'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"country" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyPerson'Address' -> Maybe Text
postTokensRequestBodyPerson'Address'Country PostTokensRequestBodyPerson'Address'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"line1" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyPerson'Address' -> Maybe Text
postTokensRequestBodyPerson'Address'Line1 PostTokensRequestBodyPerson'Address'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"line2" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyPerson'Address' -> Maybe Text
postTokensRequestBodyPerson'Address'Line2 PostTokensRequestBodyPerson'Address'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"postal_code" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyPerson'Address' -> Maybe Text
postTokensRequestBodyPerson'Address'PostalCode PostTokensRequestBodyPerson'Address'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> (Text
"state" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyPerson'Address' -> Maybe Text
postTokensRequestBodyPerson'Address'State PostTokensRequestBodyPerson'Address'
obj))))))
instance Data.Aeson.Types.FromJSON.FromJSON PostTokensRequestBodyPerson'Address' where
parseJSON :: Value -> Parser PostTokensRequestBodyPerson'Address'
parseJSON = String
-> (Object -> Parser PostTokensRequestBodyPerson'Address')
-> Value
-> Parser PostTokensRequestBodyPerson'Address'
forall a. String -> (Object -> Parser a) -> Value -> Parser a
Data.Aeson.Types.FromJSON.withObject String
"PostTokensRequestBodyPerson'Address'" (\Object
obj -> ((((((Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> PostTokensRequestBodyPerson'Address')
-> Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> PostTokensRequestBodyPerson'Address')
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> PostTokensRequestBodyPerson'Address'
PostTokensRequestBodyPerson'Address' Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> PostTokensRequestBodyPerson'Address')
-> Parser (Maybe Text)
-> Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> PostTokensRequestBodyPerson'Address')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"city")) Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> PostTokensRequestBodyPerson'Address')
-> Parser (Maybe Text)
-> Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> PostTokensRequestBodyPerson'Address')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"country")) Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> PostTokensRequestBodyPerson'Address')
-> Parser (Maybe Text)
-> Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> PostTokensRequestBodyPerson'Address')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"line1")) Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> PostTokensRequestBodyPerson'Address')
-> Parser (Maybe Text)
-> Parser
(Maybe Text -> Maybe Text -> PostTokensRequestBodyPerson'Address')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"line2")) Parser
(Maybe Text -> Maybe Text -> PostTokensRequestBodyPerson'Address')
-> Parser (Maybe Text)
-> Parser (Maybe Text -> PostTokensRequestBodyPerson'Address')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"postal_code")) Parser (Maybe Text -> PostTokensRequestBodyPerson'Address')
-> Parser (Maybe Text)
-> Parser PostTokensRequestBodyPerson'Address'
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"state"))
mkPostTokensRequestBodyPerson'Address' :: PostTokensRequestBodyPerson'Address'
mkPostTokensRequestBodyPerson'Address' :: PostTokensRequestBodyPerson'Address'
mkPostTokensRequestBodyPerson'Address' =
PostTokensRequestBodyPerson'Address' :: Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> PostTokensRequestBodyPerson'Address'
PostTokensRequestBodyPerson'Address'
{ postTokensRequestBodyPerson'Address'City :: Maybe Text
postTokensRequestBodyPerson'Address'City = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
postTokensRequestBodyPerson'Address'Country :: Maybe Text
postTokensRequestBodyPerson'Address'Country = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
postTokensRequestBodyPerson'Address'Line1 :: Maybe Text
postTokensRequestBodyPerson'Address'Line1 = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
postTokensRequestBodyPerson'Address'Line2 :: Maybe Text
postTokensRequestBodyPerson'Address'Line2 = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
postTokensRequestBodyPerson'Address'PostalCode :: Maybe Text
postTokensRequestBodyPerson'Address'PostalCode = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
postTokensRequestBodyPerson'Address'State :: Maybe Text
postTokensRequestBodyPerson'Address'State = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing
}
data PostTokensRequestBodyPerson'AddressKana' = PostTokensRequestBodyPerson'AddressKana'
{
PostTokensRequestBodyPerson'AddressKana' -> Maybe Text
postTokensRequestBodyPerson'AddressKana'City :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
PostTokensRequestBodyPerson'AddressKana' -> Maybe Text
postTokensRequestBodyPerson'AddressKana'Country :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
PostTokensRequestBodyPerson'AddressKana' -> Maybe Text
postTokensRequestBodyPerson'AddressKana'Line1 :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
PostTokensRequestBodyPerson'AddressKana' -> Maybe Text
postTokensRequestBodyPerson'AddressKana'Line2 :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
PostTokensRequestBodyPerson'AddressKana' -> Maybe Text
postTokensRequestBodyPerson'AddressKana'PostalCode :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
PostTokensRequestBodyPerson'AddressKana' -> Maybe Text
postTokensRequestBodyPerson'AddressKana'State :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
PostTokensRequestBodyPerson'AddressKana' -> Maybe Text
postTokensRequestBodyPerson'AddressKana'Town :: (GHC.Maybe.Maybe Data.Text.Internal.Text)
}
deriving
( Int -> PostTokensRequestBodyPerson'AddressKana' -> ShowS
[PostTokensRequestBodyPerson'AddressKana'] -> ShowS
PostTokensRequestBodyPerson'AddressKana' -> String
(Int -> PostTokensRequestBodyPerson'AddressKana' -> ShowS)
-> (PostTokensRequestBodyPerson'AddressKana' -> String)
-> ([PostTokensRequestBodyPerson'AddressKana'] -> ShowS)
-> Show PostTokensRequestBodyPerson'AddressKana'
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PostTokensRequestBodyPerson'AddressKana'] -> ShowS
$cshowList :: [PostTokensRequestBodyPerson'AddressKana'] -> ShowS
show :: PostTokensRequestBodyPerson'AddressKana' -> String
$cshow :: PostTokensRequestBodyPerson'AddressKana' -> String
showsPrec :: Int -> PostTokensRequestBodyPerson'AddressKana' -> ShowS
$cshowsPrec :: Int -> PostTokensRequestBodyPerson'AddressKana' -> ShowS
GHC.Show.Show,
PostTokensRequestBodyPerson'AddressKana'
-> PostTokensRequestBodyPerson'AddressKana' -> Bool
(PostTokensRequestBodyPerson'AddressKana'
-> PostTokensRequestBodyPerson'AddressKana' -> Bool)
-> (PostTokensRequestBodyPerson'AddressKana'
-> PostTokensRequestBodyPerson'AddressKana' -> Bool)
-> Eq PostTokensRequestBodyPerson'AddressKana'
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostTokensRequestBodyPerson'AddressKana'
-> PostTokensRequestBodyPerson'AddressKana' -> Bool
$c/= :: PostTokensRequestBodyPerson'AddressKana'
-> PostTokensRequestBodyPerson'AddressKana' -> Bool
== :: PostTokensRequestBodyPerson'AddressKana'
-> PostTokensRequestBodyPerson'AddressKana' -> Bool
$c== :: PostTokensRequestBodyPerson'AddressKana'
-> PostTokensRequestBodyPerson'AddressKana' -> Bool
GHC.Classes.Eq
)
instance Data.Aeson.Types.ToJSON.ToJSON PostTokensRequestBodyPerson'AddressKana' where
toJSON :: PostTokensRequestBodyPerson'AddressKana' -> Value
toJSON PostTokensRequestBodyPerson'AddressKana'
obj = [Pair] -> Value
Data.Aeson.Types.Internal.object (Text
"city" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyPerson'AddressKana' -> Maybe Text
postTokensRequestBodyPerson'AddressKana'City PostTokensRequestBodyPerson'AddressKana'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"country" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyPerson'AddressKana' -> Maybe Text
postTokensRequestBodyPerson'AddressKana'Country PostTokensRequestBodyPerson'AddressKana'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"line1" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyPerson'AddressKana' -> Maybe Text
postTokensRequestBodyPerson'AddressKana'Line1 PostTokensRequestBodyPerson'AddressKana'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"line2" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyPerson'AddressKana' -> Maybe Text
postTokensRequestBodyPerson'AddressKana'Line2 PostTokensRequestBodyPerson'AddressKana'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"postal_code" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyPerson'AddressKana' -> Maybe Text
postTokensRequestBodyPerson'AddressKana'PostalCode PostTokensRequestBodyPerson'AddressKana'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"state" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyPerson'AddressKana' -> Maybe Text
postTokensRequestBodyPerson'AddressKana'State PostTokensRequestBodyPerson'AddressKana'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"town" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyPerson'AddressKana' -> Maybe Text
postTokensRequestBodyPerson'AddressKana'Town PostTokensRequestBodyPerson'AddressKana'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: [Pair]
forall a. Monoid a => a
GHC.Base.mempty)
toEncoding :: PostTokensRequestBodyPerson'AddressKana' -> Encoding
toEncoding PostTokensRequestBodyPerson'AddressKana'
obj = Series -> Encoding
Data.Aeson.Encoding.Internal.pairs ((Text
"city" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyPerson'AddressKana' -> Maybe Text
postTokensRequestBodyPerson'AddressKana'City PostTokensRequestBodyPerson'AddressKana'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"country" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyPerson'AddressKana' -> Maybe Text
postTokensRequestBodyPerson'AddressKana'Country PostTokensRequestBodyPerson'AddressKana'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"line1" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyPerson'AddressKana' -> Maybe Text
postTokensRequestBodyPerson'AddressKana'Line1 PostTokensRequestBodyPerson'AddressKana'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"line2" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyPerson'AddressKana' -> Maybe Text
postTokensRequestBodyPerson'AddressKana'Line2 PostTokensRequestBodyPerson'AddressKana'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"postal_code" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyPerson'AddressKana' -> Maybe Text
postTokensRequestBodyPerson'AddressKana'PostalCode PostTokensRequestBodyPerson'AddressKana'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"state" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyPerson'AddressKana' -> Maybe Text
postTokensRequestBodyPerson'AddressKana'State PostTokensRequestBodyPerson'AddressKana'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> (Text
"town" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyPerson'AddressKana' -> Maybe Text
postTokensRequestBodyPerson'AddressKana'Town PostTokensRequestBodyPerson'AddressKana'
obj)))))))
instance Data.Aeson.Types.FromJSON.FromJSON PostTokensRequestBodyPerson'AddressKana' where
parseJSON :: Value -> Parser PostTokensRequestBodyPerson'AddressKana'
parseJSON = String
-> (Object -> Parser PostTokensRequestBodyPerson'AddressKana')
-> Value
-> Parser PostTokensRequestBodyPerson'AddressKana'
forall a. String -> (Object -> Parser a) -> Value -> Parser a
Data.Aeson.Types.FromJSON.withObject String
"PostTokensRequestBodyPerson'AddressKana'" (\Object
obj -> (((((((Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> PostTokensRequestBodyPerson'AddressKana')
-> Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> PostTokensRequestBodyPerson'AddressKana')
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> PostTokensRequestBodyPerson'AddressKana'
PostTokensRequestBodyPerson'AddressKana' Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> PostTokensRequestBodyPerson'AddressKana')
-> Parser (Maybe Text)
-> Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> PostTokensRequestBodyPerson'AddressKana')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"city")) Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> PostTokensRequestBodyPerson'AddressKana')
-> Parser (Maybe Text)
-> Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> PostTokensRequestBodyPerson'AddressKana')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"country")) Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> PostTokensRequestBodyPerson'AddressKana')
-> Parser (Maybe Text)
-> Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> PostTokensRequestBodyPerson'AddressKana')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"line1")) Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> PostTokensRequestBodyPerson'AddressKana')
-> Parser (Maybe Text)
-> Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> PostTokensRequestBodyPerson'AddressKana')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"line2")) Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> PostTokensRequestBodyPerson'AddressKana')
-> Parser (Maybe Text)
-> Parser
(Maybe Text
-> Maybe Text -> PostTokensRequestBodyPerson'AddressKana')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"postal_code")) Parser
(Maybe Text
-> Maybe Text -> PostTokensRequestBodyPerson'AddressKana')
-> Parser (Maybe Text)
-> Parser (Maybe Text -> PostTokensRequestBodyPerson'AddressKana')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"state")) Parser (Maybe Text -> PostTokensRequestBodyPerson'AddressKana')
-> Parser (Maybe Text)
-> Parser PostTokensRequestBodyPerson'AddressKana'
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"town"))
mkPostTokensRequestBodyPerson'AddressKana' :: PostTokensRequestBodyPerson'AddressKana'
mkPostTokensRequestBodyPerson'AddressKana' :: PostTokensRequestBodyPerson'AddressKana'
mkPostTokensRequestBodyPerson'AddressKana' =
PostTokensRequestBodyPerson'AddressKana' :: Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> PostTokensRequestBodyPerson'AddressKana'
PostTokensRequestBodyPerson'AddressKana'
{ postTokensRequestBodyPerson'AddressKana'City :: Maybe Text
postTokensRequestBodyPerson'AddressKana'City = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
postTokensRequestBodyPerson'AddressKana'Country :: Maybe Text
postTokensRequestBodyPerson'AddressKana'Country = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
postTokensRequestBodyPerson'AddressKana'Line1 :: Maybe Text
postTokensRequestBodyPerson'AddressKana'Line1 = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
postTokensRequestBodyPerson'AddressKana'Line2 :: Maybe Text
postTokensRequestBodyPerson'AddressKana'Line2 = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
postTokensRequestBodyPerson'AddressKana'PostalCode :: Maybe Text
postTokensRequestBodyPerson'AddressKana'PostalCode = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
postTokensRequestBodyPerson'AddressKana'State :: Maybe Text
postTokensRequestBodyPerson'AddressKana'State = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
postTokensRequestBodyPerson'AddressKana'Town :: Maybe Text
postTokensRequestBodyPerson'AddressKana'Town = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing
}
data PostTokensRequestBodyPerson'AddressKanji' = PostTokensRequestBodyPerson'AddressKanji'
{
PostTokensRequestBodyPerson'AddressKanji' -> Maybe Text
postTokensRequestBodyPerson'AddressKanji'City :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
PostTokensRequestBodyPerson'AddressKanji' -> Maybe Text
postTokensRequestBodyPerson'AddressKanji'Country :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
PostTokensRequestBodyPerson'AddressKanji' -> Maybe Text
postTokensRequestBodyPerson'AddressKanji'Line1 :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
PostTokensRequestBodyPerson'AddressKanji' -> Maybe Text
postTokensRequestBodyPerson'AddressKanji'Line2 :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
PostTokensRequestBodyPerson'AddressKanji' -> Maybe Text
postTokensRequestBodyPerson'AddressKanji'PostalCode :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
PostTokensRequestBodyPerson'AddressKanji' -> Maybe Text
postTokensRequestBodyPerson'AddressKanji'State :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
PostTokensRequestBodyPerson'AddressKanji' -> Maybe Text
postTokensRequestBodyPerson'AddressKanji'Town :: (GHC.Maybe.Maybe Data.Text.Internal.Text)
}
deriving
( Int -> PostTokensRequestBodyPerson'AddressKanji' -> ShowS
[PostTokensRequestBodyPerson'AddressKanji'] -> ShowS
PostTokensRequestBodyPerson'AddressKanji' -> String
(Int -> PostTokensRequestBodyPerson'AddressKanji' -> ShowS)
-> (PostTokensRequestBodyPerson'AddressKanji' -> String)
-> ([PostTokensRequestBodyPerson'AddressKanji'] -> ShowS)
-> Show PostTokensRequestBodyPerson'AddressKanji'
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PostTokensRequestBodyPerson'AddressKanji'] -> ShowS
$cshowList :: [PostTokensRequestBodyPerson'AddressKanji'] -> ShowS
show :: PostTokensRequestBodyPerson'AddressKanji' -> String
$cshow :: PostTokensRequestBodyPerson'AddressKanji' -> String
showsPrec :: Int -> PostTokensRequestBodyPerson'AddressKanji' -> ShowS
$cshowsPrec :: Int -> PostTokensRequestBodyPerson'AddressKanji' -> ShowS
GHC.Show.Show,
PostTokensRequestBodyPerson'AddressKanji'
-> PostTokensRequestBodyPerson'AddressKanji' -> Bool
(PostTokensRequestBodyPerson'AddressKanji'
-> PostTokensRequestBodyPerson'AddressKanji' -> Bool)
-> (PostTokensRequestBodyPerson'AddressKanji'
-> PostTokensRequestBodyPerson'AddressKanji' -> Bool)
-> Eq PostTokensRequestBodyPerson'AddressKanji'
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostTokensRequestBodyPerson'AddressKanji'
-> PostTokensRequestBodyPerson'AddressKanji' -> Bool
$c/= :: PostTokensRequestBodyPerson'AddressKanji'
-> PostTokensRequestBodyPerson'AddressKanji' -> Bool
== :: PostTokensRequestBodyPerson'AddressKanji'
-> PostTokensRequestBodyPerson'AddressKanji' -> Bool
$c== :: PostTokensRequestBodyPerson'AddressKanji'
-> PostTokensRequestBodyPerson'AddressKanji' -> Bool
GHC.Classes.Eq
)
instance Data.Aeson.Types.ToJSON.ToJSON PostTokensRequestBodyPerson'AddressKanji' where
toJSON :: PostTokensRequestBodyPerson'AddressKanji' -> Value
toJSON PostTokensRequestBodyPerson'AddressKanji'
obj = [Pair] -> Value
Data.Aeson.Types.Internal.object (Text
"city" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyPerson'AddressKanji' -> Maybe Text
postTokensRequestBodyPerson'AddressKanji'City PostTokensRequestBodyPerson'AddressKanji'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"country" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyPerson'AddressKanji' -> Maybe Text
postTokensRequestBodyPerson'AddressKanji'Country PostTokensRequestBodyPerson'AddressKanji'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"line1" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyPerson'AddressKanji' -> Maybe Text
postTokensRequestBodyPerson'AddressKanji'Line1 PostTokensRequestBodyPerson'AddressKanji'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"line2" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyPerson'AddressKanji' -> Maybe Text
postTokensRequestBodyPerson'AddressKanji'Line2 PostTokensRequestBodyPerson'AddressKanji'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"postal_code" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyPerson'AddressKanji' -> Maybe Text
postTokensRequestBodyPerson'AddressKanji'PostalCode PostTokensRequestBodyPerson'AddressKanji'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"state" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyPerson'AddressKanji' -> Maybe Text
postTokensRequestBodyPerson'AddressKanji'State PostTokensRequestBodyPerson'AddressKanji'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"town" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyPerson'AddressKanji' -> Maybe Text
postTokensRequestBodyPerson'AddressKanji'Town PostTokensRequestBodyPerson'AddressKanji'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: [Pair]
forall a. Monoid a => a
GHC.Base.mempty)
toEncoding :: PostTokensRequestBodyPerson'AddressKanji' -> Encoding
toEncoding PostTokensRequestBodyPerson'AddressKanji'
obj = Series -> Encoding
Data.Aeson.Encoding.Internal.pairs ((Text
"city" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyPerson'AddressKanji' -> Maybe Text
postTokensRequestBodyPerson'AddressKanji'City PostTokensRequestBodyPerson'AddressKanji'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"country" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyPerson'AddressKanji' -> Maybe Text
postTokensRequestBodyPerson'AddressKanji'Country PostTokensRequestBodyPerson'AddressKanji'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"line1" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyPerson'AddressKanji' -> Maybe Text
postTokensRequestBodyPerson'AddressKanji'Line1 PostTokensRequestBodyPerson'AddressKanji'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"line2" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyPerson'AddressKanji' -> Maybe Text
postTokensRequestBodyPerson'AddressKanji'Line2 PostTokensRequestBodyPerson'AddressKanji'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"postal_code" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyPerson'AddressKanji' -> Maybe Text
postTokensRequestBodyPerson'AddressKanji'PostalCode PostTokensRequestBodyPerson'AddressKanji'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"state" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyPerson'AddressKanji' -> Maybe Text
postTokensRequestBodyPerson'AddressKanji'State PostTokensRequestBodyPerson'AddressKanji'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> (Text
"town" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyPerson'AddressKanji' -> Maybe Text
postTokensRequestBodyPerson'AddressKanji'Town PostTokensRequestBodyPerson'AddressKanji'
obj)))))))
instance Data.Aeson.Types.FromJSON.FromJSON PostTokensRequestBodyPerson'AddressKanji' where
parseJSON :: Value -> Parser PostTokensRequestBodyPerson'AddressKanji'
parseJSON = String
-> (Object -> Parser PostTokensRequestBodyPerson'AddressKanji')
-> Value
-> Parser PostTokensRequestBodyPerson'AddressKanji'
forall a. String -> (Object -> Parser a) -> Value -> Parser a
Data.Aeson.Types.FromJSON.withObject String
"PostTokensRequestBodyPerson'AddressKanji'" (\Object
obj -> (((((((Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> PostTokensRequestBodyPerson'AddressKanji')
-> Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> PostTokensRequestBodyPerson'AddressKanji')
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> PostTokensRequestBodyPerson'AddressKanji'
PostTokensRequestBodyPerson'AddressKanji' Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> PostTokensRequestBodyPerson'AddressKanji')
-> Parser (Maybe Text)
-> Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> PostTokensRequestBodyPerson'AddressKanji')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"city")) Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> PostTokensRequestBodyPerson'AddressKanji')
-> Parser (Maybe Text)
-> Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> PostTokensRequestBodyPerson'AddressKanji')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"country")) Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> PostTokensRequestBodyPerson'AddressKanji')
-> Parser (Maybe Text)
-> Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> PostTokensRequestBodyPerson'AddressKanji')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"line1")) Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> PostTokensRequestBodyPerson'AddressKanji')
-> Parser (Maybe Text)
-> Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> PostTokensRequestBodyPerson'AddressKanji')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"line2")) Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> PostTokensRequestBodyPerson'AddressKanji')
-> Parser (Maybe Text)
-> Parser
(Maybe Text
-> Maybe Text -> PostTokensRequestBodyPerson'AddressKanji')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"postal_code")) Parser
(Maybe Text
-> Maybe Text -> PostTokensRequestBodyPerson'AddressKanji')
-> Parser (Maybe Text)
-> Parser (Maybe Text -> PostTokensRequestBodyPerson'AddressKanji')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"state")) Parser (Maybe Text -> PostTokensRequestBodyPerson'AddressKanji')
-> Parser (Maybe Text)
-> Parser PostTokensRequestBodyPerson'AddressKanji'
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"town"))
mkPostTokensRequestBodyPerson'AddressKanji' :: PostTokensRequestBodyPerson'AddressKanji'
mkPostTokensRequestBodyPerson'AddressKanji' :: PostTokensRequestBodyPerson'AddressKanji'
mkPostTokensRequestBodyPerson'AddressKanji' =
PostTokensRequestBodyPerson'AddressKanji' :: Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> PostTokensRequestBodyPerson'AddressKanji'
PostTokensRequestBodyPerson'AddressKanji'
{ postTokensRequestBodyPerson'AddressKanji'City :: Maybe Text
postTokensRequestBodyPerson'AddressKanji'City = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
postTokensRequestBodyPerson'AddressKanji'Country :: Maybe Text
postTokensRequestBodyPerson'AddressKanji'Country = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
postTokensRequestBodyPerson'AddressKanji'Line1 :: Maybe Text
postTokensRequestBodyPerson'AddressKanji'Line1 = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
postTokensRequestBodyPerson'AddressKanji'Line2 :: Maybe Text
postTokensRequestBodyPerson'AddressKanji'Line2 = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
postTokensRequestBodyPerson'AddressKanji'PostalCode :: Maybe Text
postTokensRequestBodyPerson'AddressKanji'PostalCode = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
postTokensRequestBodyPerson'AddressKanji'State :: Maybe Text
postTokensRequestBodyPerson'AddressKanji'State = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
postTokensRequestBodyPerson'AddressKanji'Town :: Maybe Text
postTokensRequestBodyPerson'AddressKanji'Town = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing
}
data PostTokensRequestBodyPerson'Dob'OneOf1 = PostTokensRequestBodyPerson'Dob'OneOf1
{
PostTokensRequestBodyPerson'Dob'OneOf1 -> Int
postTokensRequestBodyPerson'Dob'OneOf1Day :: GHC.Types.Int,
PostTokensRequestBodyPerson'Dob'OneOf1 -> Int
postTokensRequestBodyPerson'Dob'OneOf1Month :: GHC.Types.Int,
PostTokensRequestBodyPerson'Dob'OneOf1 -> Int
postTokensRequestBodyPerson'Dob'OneOf1Year :: GHC.Types.Int
}
deriving
( Int -> PostTokensRequestBodyPerson'Dob'OneOf1 -> ShowS
[PostTokensRequestBodyPerson'Dob'OneOf1] -> ShowS
PostTokensRequestBodyPerson'Dob'OneOf1 -> String
(Int -> PostTokensRequestBodyPerson'Dob'OneOf1 -> ShowS)
-> (PostTokensRequestBodyPerson'Dob'OneOf1 -> String)
-> ([PostTokensRequestBodyPerson'Dob'OneOf1] -> ShowS)
-> Show PostTokensRequestBodyPerson'Dob'OneOf1
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PostTokensRequestBodyPerson'Dob'OneOf1] -> ShowS
$cshowList :: [PostTokensRequestBodyPerson'Dob'OneOf1] -> ShowS
show :: PostTokensRequestBodyPerson'Dob'OneOf1 -> String
$cshow :: PostTokensRequestBodyPerson'Dob'OneOf1 -> String
showsPrec :: Int -> PostTokensRequestBodyPerson'Dob'OneOf1 -> ShowS
$cshowsPrec :: Int -> PostTokensRequestBodyPerson'Dob'OneOf1 -> ShowS
GHC.Show.Show,
PostTokensRequestBodyPerson'Dob'OneOf1
-> PostTokensRequestBodyPerson'Dob'OneOf1 -> Bool
(PostTokensRequestBodyPerson'Dob'OneOf1
-> PostTokensRequestBodyPerson'Dob'OneOf1 -> Bool)
-> (PostTokensRequestBodyPerson'Dob'OneOf1
-> PostTokensRequestBodyPerson'Dob'OneOf1 -> Bool)
-> Eq PostTokensRequestBodyPerson'Dob'OneOf1
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostTokensRequestBodyPerson'Dob'OneOf1
-> PostTokensRequestBodyPerson'Dob'OneOf1 -> Bool
$c/= :: PostTokensRequestBodyPerson'Dob'OneOf1
-> PostTokensRequestBodyPerson'Dob'OneOf1 -> Bool
== :: PostTokensRequestBodyPerson'Dob'OneOf1
-> PostTokensRequestBodyPerson'Dob'OneOf1 -> Bool
$c== :: PostTokensRequestBodyPerson'Dob'OneOf1
-> PostTokensRequestBodyPerson'Dob'OneOf1 -> Bool
GHC.Classes.Eq
)
instance Data.Aeson.Types.ToJSON.ToJSON PostTokensRequestBodyPerson'Dob'OneOf1 where
toJSON :: PostTokensRequestBodyPerson'Dob'OneOf1 -> Value
toJSON PostTokensRequestBodyPerson'Dob'OneOf1
obj = [Pair] -> Value
Data.Aeson.Types.Internal.object (Text
"day" Text -> Int -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyPerson'Dob'OneOf1 -> Int
postTokensRequestBodyPerson'Dob'OneOf1Day PostTokensRequestBodyPerson'Dob'OneOf1
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"month" Text -> Int -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyPerson'Dob'OneOf1 -> Int
postTokensRequestBodyPerson'Dob'OneOf1Month PostTokensRequestBodyPerson'Dob'OneOf1
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"year" Text -> Int -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyPerson'Dob'OneOf1 -> Int
postTokensRequestBodyPerson'Dob'OneOf1Year PostTokensRequestBodyPerson'Dob'OneOf1
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: [Pair]
forall a. Monoid a => a
GHC.Base.mempty)
toEncoding :: PostTokensRequestBodyPerson'Dob'OneOf1 -> Encoding
toEncoding PostTokensRequestBodyPerson'Dob'OneOf1
obj = Series -> Encoding
Data.Aeson.Encoding.Internal.pairs ((Text
"day" Text -> Int -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyPerson'Dob'OneOf1 -> Int
postTokensRequestBodyPerson'Dob'OneOf1Day PostTokensRequestBodyPerson'Dob'OneOf1
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"month" Text -> Int -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyPerson'Dob'OneOf1 -> Int
postTokensRequestBodyPerson'Dob'OneOf1Month PostTokensRequestBodyPerson'Dob'OneOf1
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> (Text
"year" Text -> Int -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyPerson'Dob'OneOf1 -> Int
postTokensRequestBodyPerson'Dob'OneOf1Year PostTokensRequestBodyPerson'Dob'OneOf1
obj)))
instance Data.Aeson.Types.FromJSON.FromJSON PostTokensRequestBodyPerson'Dob'OneOf1 where
parseJSON :: Value -> Parser PostTokensRequestBodyPerson'Dob'OneOf1
parseJSON = String
-> (Object -> Parser PostTokensRequestBodyPerson'Dob'OneOf1)
-> Value
-> Parser PostTokensRequestBodyPerson'Dob'OneOf1
forall a. String -> (Object -> Parser a) -> Value -> Parser a
Data.Aeson.Types.FromJSON.withObject String
"PostTokensRequestBodyPerson'Dob'OneOf1" (\Object
obj -> (((Int -> Int -> Int -> PostTokensRequestBodyPerson'Dob'OneOf1)
-> Parser
(Int -> Int -> Int -> PostTokensRequestBodyPerson'Dob'OneOf1)
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure Int -> Int -> Int -> PostTokensRequestBodyPerson'Dob'OneOf1
PostTokensRequestBodyPerson'Dob'OneOf1 Parser
(Int -> Int -> Int -> PostTokensRequestBodyPerson'Dob'OneOf1)
-> Parser Int
-> Parser (Int -> Int -> PostTokensRequestBodyPerson'Dob'OneOf1)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser Int
forall a. FromJSON a => Object -> Text -> Parser a
Data.Aeson.Types.FromJSON..: Text
"day")) Parser (Int -> Int -> PostTokensRequestBodyPerson'Dob'OneOf1)
-> Parser Int
-> Parser (Int -> PostTokensRequestBodyPerson'Dob'OneOf1)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser Int
forall a. FromJSON a => Object -> Text -> Parser a
Data.Aeson.Types.FromJSON..: Text
"month")) Parser (Int -> PostTokensRequestBodyPerson'Dob'OneOf1)
-> Parser Int -> Parser PostTokensRequestBodyPerson'Dob'OneOf1
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser Int
forall a. FromJSON a => Object -> Text -> Parser a
Data.Aeson.Types.FromJSON..: Text
"year"))
mkPostTokensRequestBodyPerson'Dob'OneOf1 ::
GHC.Types.Int ->
GHC.Types.Int ->
GHC.Types.Int ->
PostTokensRequestBodyPerson'Dob'OneOf1
mkPostTokensRequestBodyPerson'Dob'OneOf1 :: Int -> Int -> Int -> PostTokensRequestBodyPerson'Dob'OneOf1
mkPostTokensRequestBodyPerson'Dob'OneOf1 Int
postTokensRequestBodyPerson'Dob'OneOf1Day Int
postTokensRequestBodyPerson'Dob'OneOf1Month Int
postTokensRequestBodyPerson'Dob'OneOf1Year =
PostTokensRequestBodyPerson'Dob'OneOf1 :: Int -> Int -> Int -> PostTokensRequestBodyPerson'Dob'OneOf1
PostTokensRequestBodyPerson'Dob'OneOf1
{ postTokensRequestBodyPerson'Dob'OneOf1Day :: Int
postTokensRequestBodyPerson'Dob'OneOf1Day = Int
postTokensRequestBodyPerson'Dob'OneOf1Day,
postTokensRequestBodyPerson'Dob'OneOf1Month :: Int
postTokensRequestBodyPerson'Dob'OneOf1Month = Int
postTokensRequestBodyPerson'Dob'OneOf1Month,
postTokensRequestBodyPerson'Dob'OneOf1Year :: Int
postTokensRequestBodyPerson'Dob'OneOf1Year = Int
postTokensRequestBodyPerson'Dob'OneOf1Year
}
data PostTokensRequestBodyPerson'Dob'Variants
=
PostTokensRequestBodyPerson'Dob'EmptyString
| PostTokensRequestBodyPerson'Dob'PostTokensRequestBodyPerson'Dob'OneOf1 PostTokensRequestBodyPerson'Dob'OneOf1
deriving (Int -> PostTokensRequestBodyPerson'Dob'Variants -> ShowS
[PostTokensRequestBodyPerson'Dob'Variants] -> ShowS
PostTokensRequestBodyPerson'Dob'Variants -> String
(Int -> PostTokensRequestBodyPerson'Dob'Variants -> ShowS)
-> (PostTokensRequestBodyPerson'Dob'Variants -> String)
-> ([PostTokensRequestBodyPerson'Dob'Variants] -> ShowS)
-> Show PostTokensRequestBodyPerson'Dob'Variants
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PostTokensRequestBodyPerson'Dob'Variants] -> ShowS
$cshowList :: [PostTokensRequestBodyPerson'Dob'Variants] -> ShowS
show :: PostTokensRequestBodyPerson'Dob'Variants -> String
$cshow :: PostTokensRequestBodyPerson'Dob'Variants -> String
showsPrec :: Int -> PostTokensRequestBodyPerson'Dob'Variants -> ShowS
$cshowsPrec :: Int -> PostTokensRequestBodyPerson'Dob'Variants -> ShowS
GHC.Show.Show, PostTokensRequestBodyPerson'Dob'Variants
-> PostTokensRequestBodyPerson'Dob'Variants -> Bool
(PostTokensRequestBodyPerson'Dob'Variants
-> PostTokensRequestBodyPerson'Dob'Variants -> Bool)
-> (PostTokensRequestBodyPerson'Dob'Variants
-> PostTokensRequestBodyPerson'Dob'Variants -> Bool)
-> Eq PostTokensRequestBodyPerson'Dob'Variants
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostTokensRequestBodyPerson'Dob'Variants
-> PostTokensRequestBodyPerson'Dob'Variants -> Bool
$c/= :: PostTokensRequestBodyPerson'Dob'Variants
-> PostTokensRequestBodyPerson'Dob'Variants -> Bool
== :: PostTokensRequestBodyPerson'Dob'Variants
-> PostTokensRequestBodyPerson'Dob'Variants -> Bool
$c== :: PostTokensRequestBodyPerson'Dob'Variants
-> PostTokensRequestBodyPerson'Dob'Variants -> Bool
GHC.Classes.Eq)
instance Data.Aeson.Types.ToJSON.ToJSON PostTokensRequestBodyPerson'Dob'Variants where
toJSON :: PostTokensRequestBodyPerson'Dob'Variants -> Value
toJSON (PostTokensRequestBodyPerson'Dob'PostTokensRequestBodyPerson'Dob'OneOf1 PostTokensRequestBodyPerson'Dob'OneOf1
a) = PostTokensRequestBodyPerson'Dob'OneOf1 -> Value
forall a. ToJSON a => a -> Value
Data.Aeson.Types.ToJSON.toJSON PostTokensRequestBodyPerson'Dob'OneOf1
a
toJSON (PostTokensRequestBodyPerson'Dob'Variants
PostTokensRequestBodyPerson'Dob'EmptyString) = Value
""
instance Data.Aeson.Types.FromJSON.FromJSON PostTokensRequestBodyPerson'Dob'Variants where
parseJSON :: Value -> Parser PostTokensRequestBodyPerson'Dob'Variants
parseJSON Value
val =
if
| Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"" -> PostTokensRequestBodyPerson'Dob'Variants
-> Parser PostTokensRequestBodyPerson'Dob'Variants
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure PostTokensRequestBodyPerson'Dob'Variants
PostTokensRequestBodyPerson'Dob'EmptyString
| Bool
GHC.Base.otherwise -> case (PostTokensRequestBodyPerson'Dob'OneOf1
-> PostTokensRequestBodyPerson'Dob'Variants
PostTokensRequestBodyPerson'Dob'PostTokensRequestBodyPerson'Dob'OneOf1 (PostTokensRequestBodyPerson'Dob'OneOf1
-> PostTokensRequestBodyPerson'Dob'Variants)
-> Result PostTokensRequestBodyPerson'Dob'OneOf1
-> Result PostTokensRequestBodyPerson'Dob'Variants
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Data.Functor.<$> Value -> Result PostTokensRequestBodyPerson'Dob'OneOf1
forall a. FromJSON a => Value -> Result a
Data.Aeson.Types.FromJSON.fromJSON Value
val) Result PostTokensRequestBodyPerson'Dob'Variants
-> Result PostTokensRequestBodyPerson'Dob'Variants
-> Result PostTokensRequestBodyPerson'Dob'Variants
forall (f :: * -> *) a. Alternative f => f a -> f a -> f a
GHC.Base.<|> String -> Result PostTokensRequestBodyPerson'Dob'Variants
forall a. String -> Result a
Data.Aeson.Types.Internal.Error String
"No variant matched" of
Data.Aeson.Types.Internal.Success PostTokensRequestBodyPerson'Dob'Variants
a -> PostTokensRequestBodyPerson'Dob'Variants
-> Parser PostTokensRequestBodyPerson'Dob'Variants
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure PostTokensRequestBodyPerson'Dob'Variants
a
Data.Aeson.Types.Internal.Error String
a -> String -> Parser PostTokensRequestBodyPerson'Dob'Variants
forall (m :: * -> *) a. MonadFail m => String -> m a
Control.Monad.Fail.fail String
a
data PostTokensRequestBodyPerson'Documents' = PostTokensRequestBodyPerson'Documents'
{
PostTokensRequestBodyPerson'Documents'
-> Maybe
PostTokensRequestBodyPerson'Documents'CompanyAuthorization'
postTokensRequestBodyPerson'Documents'CompanyAuthorization :: (GHC.Maybe.Maybe PostTokensRequestBodyPerson'Documents'CompanyAuthorization'),
PostTokensRequestBodyPerson'Documents'
-> Maybe PostTokensRequestBodyPerson'Documents'Passport'
postTokensRequestBodyPerson'Documents'Passport :: (GHC.Maybe.Maybe PostTokensRequestBodyPerson'Documents'Passport'),
PostTokensRequestBodyPerson'Documents'
-> Maybe PostTokensRequestBodyPerson'Documents'Visa'
postTokensRequestBodyPerson'Documents'Visa :: (GHC.Maybe.Maybe PostTokensRequestBodyPerson'Documents'Visa')
}
deriving
( Int -> PostTokensRequestBodyPerson'Documents' -> ShowS
[PostTokensRequestBodyPerson'Documents'] -> ShowS
PostTokensRequestBodyPerson'Documents' -> String
(Int -> PostTokensRequestBodyPerson'Documents' -> ShowS)
-> (PostTokensRequestBodyPerson'Documents' -> String)
-> ([PostTokensRequestBodyPerson'Documents'] -> ShowS)
-> Show PostTokensRequestBodyPerson'Documents'
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PostTokensRequestBodyPerson'Documents'] -> ShowS
$cshowList :: [PostTokensRequestBodyPerson'Documents'] -> ShowS
show :: PostTokensRequestBodyPerson'Documents' -> String
$cshow :: PostTokensRequestBodyPerson'Documents' -> String
showsPrec :: Int -> PostTokensRequestBodyPerson'Documents' -> ShowS
$cshowsPrec :: Int -> PostTokensRequestBodyPerson'Documents' -> ShowS
GHC.Show.Show,
PostTokensRequestBodyPerson'Documents'
-> PostTokensRequestBodyPerson'Documents' -> Bool
(PostTokensRequestBodyPerson'Documents'
-> PostTokensRequestBodyPerson'Documents' -> Bool)
-> (PostTokensRequestBodyPerson'Documents'
-> PostTokensRequestBodyPerson'Documents' -> Bool)
-> Eq PostTokensRequestBodyPerson'Documents'
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostTokensRequestBodyPerson'Documents'
-> PostTokensRequestBodyPerson'Documents' -> Bool
$c/= :: PostTokensRequestBodyPerson'Documents'
-> PostTokensRequestBodyPerson'Documents' -> Bool
== :: PostTokensRequestBodyPerson'Documents'
-> PostTokensRequestBodyPerson'Documents' -> Bool
$c== :: PostTokensRequestBodyPerson'Documents'
-> PostTokensRequestBodyPerson'Documents' -> Bool
GHC.Classes.Eq
)
instance Data.Aeson.Types.ToJSON.ToJSON PostTokensRequestBodyPerson'Documents' where
toJSON :: PostTokensRequestBodyPerson'Documents' -> Value
toJSON PostTokensRequestBodyPerson'Documents'
obj = [Pair] -> Value
Data.Aeson.Types.Internal.object (Text
"company_authorization" Text
-> Maybe
PostTokensRequestBodyPerson'Documents'CompanyAuthorization'
-> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyPerson'Documents'
-> Maybe
PostTokensRequestBodyPerson'Documents'CompanyAuthorization'
postTokensRequestBodyPerson'Documents'CompanyAuthorization PostTokensRequestBodyPerson'Documents'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"passport" Text
-> Maybe PostTokensRequestBodyPerson'Documents'Passport' -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyPerson'Documents'
-> Maybe PostTokensRequestBodyPerson'Documents'Passport'
postTokensRequestBodyPerson'Documents'Passport PostTokensRequestBodyPerson'Documents'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"visa" Text -> Maybe PostTokensRequestBodyPerson'Documents'Visa' -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyPerson'Documents'
-> Maybe PostTokensRequestBodyPerson'Documents'Visa'
postTokensRequestBodyPerson'Documents'Visa PostTokensRequestBodyPerson'Documents'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: [Pair]
forall a. Monoid a => a
GHC.Base.mempty)
toEncoding :: PostTokensRequestBodyPerson'Documents' -> Encoding
toEncoding PostTokensRequestBodyPerson'Documents'
obj = Series -> Encoding
Data.Aeson.Encoding.Internal.pairs ((Text
"company_authorization" Text
-> Maybe
PostTokensRequestBodyPerson'Documents'CompanyAuthorization'
-> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyPerson'Documents'
-> Maybe
PostTokensRequestBodyPerson'Documents'CompanyAuthorization'
postTokensRequestBodyPerson'Documents'CompanyAuthorization PostTokensRequestBodyPerson'Documents'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"passport" Text
-> Maybe PostTokensRequestBodyPerson'Documents'Passport' -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyPerson'Documents'
-> Maybe PostTokensRequestBodyPerson'Documents'Passport'
postTokensRequestBodyPerson'Documents'Passport PostTokensRequestBodyPerson'Documents'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> (Text
"visa" Text -> Maybe PostTokensRequestBodyPerson'Documents'Visa' -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyPerson'Documents'
-> Maybe PostTokensRequestBodyPerson'Documents'Visa'
postTokensRequestBodyPerson'Documents'Visa PostTokensRequestBodyPerson'Documents'
obj)))
instance Data.Aeson.Types.FromJSON.FromJSON PostTokensRequestBodyPerson'Documents' where
parseJSON :: Value -> Parser PostTokensRequestBodyPerson'Documents'
parseJSON = String
-> (Object -> Parser PostTokensRequestBodyPerson'Documents')
-> Value
-> Parser PostTokensRequestBodyPerson'Documents'
forall a. String -> (Object -> Parser a) -> Value -> Parser a
Data.Aeson.Types.FromJSON.withObject String
"PostTokensRequestBodyPerson'Documents'" (\Object
obj -> (((Maybe PostTokensRequestBodyPerson'Documents'CompanyAuthorization'
-> Maybe PostTokensRequestBodyPerson'Documents'Passport'
-> Maybe PostTokensRequestBodyPerson'Documents'Visa'
-> PostTokensRequestBodyPerson'Documents')
-> Parser
(Maybe PostTokensRequestBodyPerson'Documents'CompanyAuthorization'
-> Maybe PostTokensRequestBodyPerson'Documents'Passport'
-> Maybe PostTokensRequestBodyPerson'Documents'Visa'
-> PostTokensRequestBodyPerson'Documents')
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure Maybe PostTokensRequestBodyPerson'Documents'CompanyAuthorization'
-> Maybe PostTokensRequestBodyPerson'Documents'Passport'
-> Maybe PostTokensRequestBodyPerson'Documents'Visa'
-> PostTokensRequestBodyPerson'Documents'
PostTokensRequestBodyPerson'Documents' Parser
(Maybe PostTokensRequestBodyPerson'Documents'CompanyAuthorization'
-> Maybe PostTokensRequestBodyPerson'Documents'Passport'
-> Maybe PostTokensRequestBodyPerson'Documents'Visa'
-> PostTokensRequestBodyPerson'Documents')
-> Parser
(Maybe PostTokensRequestBodyPerson'Documents'CompanyAuthorization')
-> Parser
(Maybe PostTokensRequestBodyPerson'Documents'Passport'
-> Maybe PostTokensRequestBodyPerson'Documents'Visa'
-> PostTokensRequestBodyPerson'Documents')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object
-> Text
-> Parser
(Maybe PostTokensRequestBodyPerson'Documents'CompanyAuthorization')
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"company_authorization")) Parser
(Maybe PostTokensRequestBodyPerson'Documents'Passport'
-> Maybe PostTokensRequestBodyPerson'Documents'Visa'
-> PostTokensRequestBodyPerson'Documents')
-> Parser (Maybe PostTokensRequestBodyPerson'Documents'Passport')
-> Parser
(Maybe PostTokensRequestBodyPerson'Documents'Visa'
-> PostTokensRequestBodyPerson'Documents')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object
-> Text
-> Parser (Maybe PostTokensRequestBodyPerson'Documents'Passport')
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"passport")) Parser
(Maybe PostTokensRequestBodyPerson'Documents'Visa'
-> PostTokensRequestBodyPerson'Documents')
-> Parser (Maybe PostTokensRequestBodyPerson'Documents'Visa')
-> Parser PostTokensRequestBodyPerson'Documents'
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object
-> Text
-> Parser (Maybe PostTokensRequestBodyPerson'Documents'Visa')
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"visa"))
mkPostTokensRequestBodyPerson'Documents' :: PostTokensRequestBodyPerson'Documents'
mkPostTokensRequestBodyPerson'Documents' :: PostTokensRequestBodyPerson'Documents'
mkPostTokensRequestBodyPerson'Documents' =
PostTokensRequestBodyPerson'Documents' :: Maybe PostTokensRequestBodyPerson'Documents'CompanyAuthorization'
-> Maybe PostTokensRequestBodyPerson'Documents'Passport'
-> Maybe PostTokensRequestBodyPerson'Documents'Visa'
-> PostTokensRequestBodyPerson'Documents'
PostTokensRequestBodyPerson'Documents'
{ postTokensRequestBodyPerson'Documents'CompanyAuthorization :: Maybe PostTokensRequestBodyPerson'Documents'CompanyAuthorization'
postTokensRequestBodyPerson'Documents'CompanyAuthorization = Maybe PostTokensRequestBodyPerson'Documents'CompanyAuthorization'
forall a. Maybe a
GHC.Maybe.Nothing,
postTokensRequestBodyPerson'Documents'Passport :: Maybe PostTokensRequestBodyPerson'Documents'Passport'
postTokensRequestBodyPerson'Documents'Passport = Maybe PostTokensRequestBodyPerson'Documents'Passport'
forall a. Maybe a
GHC.Maybe.Nothing,
postTokensRequestBodyPerson'Documents'Visa :: Maybe PostTokensRequestBodyPerson'Documents'Visa'
postTokensRequestBodyPerson'Documents'Visa = Maybe PostTokensRequestBodyPerson'Documents'Visa'
forall a. Maybe a
GHC.Maybe.Nothing
}
data PostTokensRequestBodyPerson'Documents'CompanyAuthorization' = PostTokensRequestBodyPerson'Documents'CompanyAuthorization'
{
PostTokensRequestBodyPerson'Documents'CompanyAuthorization'
-> Maybe [Text]
postTokensRequestBodyPerson'Documents'CompanyAuthorization'Files :: (GHC.Maybe.Maybe ([Data.Text.Internal.Text]))
}
deriving
( Int
-> PostTokensRequestBodyPerson'Documents'CompanyAuthorization'
-> ShowS
[PostTokensRequestBodyPerson'Documents'CompanyAuthorization']
-> ShowS
PostTokensRequestBodyPerson'Documents'CompanyAuthorization'
-> String
(Int
-> PostTokensRequestBodyPerson'Documents'CompanyAuthorization'
-> ShowS)
-> (PostTokensRequestBodyPerson'Documents'CompanyAuthorization'
-> String)
-> ([PostTokensRequestBodyPerson'Documents'CompanyAuthorization']
-> ShowS)
-> Show PostTokensRequestBodyPerson'Documents'CompanyAuthorization'
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PostTokensRequestBodyPerson'Documents'CompanyAuthorization']
-> ShowS
$cshowList :: [PostTokensRequestBodyPerson'Documents'CompanyAuthorization']
-> ShowS
show :: PostTokensRequestBodyPerson'Documents'CompanyAuthorization'
-> String
$cshow :: PostTokensRequestBodyPerson'Documents'CompanyAuthorization'
-> String
showsPrec :: Int
-> PostTokensRequestBodyPerson'Documents'CompanyAuthorization'
-> ShowS
$cshowsPrec :: Int
-> PostTokensRequestBodyPerson'Documents'CompanyAuthorization'
-> ShowS
GHC.Show.Show,
PostTokensRequestBodyPerson'Documents'CompanyAuthorization'
-> PostTokensRequestBodyPerson'Documents'CompanyAuthorization'
-> Bool
(PostTokensRequestBodyPerson'Documents'CompanyAuthorization'
-> PostTokensRequestBodyPerson'Documents'CompanyAuthorization'
-> Bool)
-> (PostTokensRequestBodyPerson'Documents'CompanyAuthorization'
-> PostTokensRequestBodyPerson'Documents'CompanyAuthorization'
-> Bool)
-> Eq PostTokensRequestBodyPerson'Documents'CompanyAuthorization'
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostTokensRequestBodyPerson'Documents'CompanyAuthorization'
-> PostTokensRequestBodyPerson'Documents'CompanyAuthorization'
-> Bool
$c/= :: PostTokensRequestBodyPerson'Documents'CompanyAuthorization'
-> PostTokensRequestBodyPerson'Documents'CompanyAuthorization'
-> Bool
== :: PostTokensRequestBodyPerson'Documents'CompanyAuthorization'
-> PostTokensRequestBodyPerson'Documents'CompanyAuthorization'
-> Bool
$c== :: PostTokensRequestBodyPerson'Documents'CompanyAuthorization'
-> PostTokensRequestBodyPerson'Documents'CompanyAuthorization'
-> Bool
GHC.Classes.Eq
)
instance Data.Aeson.Types.ToJSON.ToJSON PostTokensRequestBodyPerson'Documents'CompanyAuthorization' where
toJSON :: PostTokensRequestBodyPerson'Documents'CompanyAuthorization'
-> Value
toJSON PostTokensRequestBodyPerson'Documents'CompanyAuthorization'
obj = [Pair] -> Value
Data.Aeson.Types.Internal.object (Text
"files" Text -> Maybe [Text] -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyPerson'Documents'CompanyAuthorization'
-> Maybe [Text]
postTokensRequestBodyPerson'Documents'CompanyAuthorization'Files PostTokensRequestBodyPerson'Documents'CompanyAuthorization'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: [Pair]
forall a. Monoid a => a
GHC.Base.mempty)
toEncoding :: PostTokensRequestBodyPerson'Documents'CompanyAuthorization'
-> Encoding
toEncoding PostTokensRequestBodyPerson'Documents'CompanyAuthorization'
obj = Series -> Encoding
Data.Aeson.Encoding.Internal.pairs (Text
"files" Text -> Maybe [Text] -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyPerson'Documents'CompanyAuthorization'
-> Maybe [Text]
postTokensRequestBodyPerson'Documents'CompanyAuthorization'Files PostTokensRequestBodyPerson'Documents'CompanyAuthorization'
obj)
instance Data.Aeson.Types.FromJSON.FromJSON PostTokensRequestBodyPerson'Documents'CompanyAuthorization' where
parseJSON :: Value
-> Parser
PostTokensRequestBodyPerson'Documents'CompanyAuthorization'
parseJSON = String
-> (Object
-> Parser
PostTokensRequestBodyPerson'Documents'CompanyAuthorization')
-> Value
-> Parser
PostTokensRequestBodyPerson'Documents'CompanyAuthorization'
forall a. String -> (Object -> Parser a) -> Value -> Parser a
Data.Aeson.Types.FromJSON.withObject String
"PostTokensRequestBodyPerson'Documents'CompanyAuthorization'" (\Object
obj -> (Maybe [Text]
-> PostTokensRequestBodyPerson'Documents'CompanyAuthorization')
-> Parser
(Maybe [Text]
-> PostTokensRequestBodyPerson'Documents'CompanyAuthorization')
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure Maybe [Text]
-> PostTokensRequestBodyPerson'Documents'CompanyAuthorization'
PostTokensRequestBodyPerson'Documents'CompanyAuthorization' Parser
(Maybe [Text]
-> PostTokensRequestBodyPerson'Documents'CompanyAuthorization')
-> Parser (Maybe [Text])
-> Parser
PostTokensRequestBodyPerson'Documents'CompanyAuthorization'
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe [Text])
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"files"))
mkPostTokensRequestBodyPerson'Documents'CompanyAuthorization' :: PostTokensRequestBodyPerson'Documents'CompanyAuthorization'
mkPostTokensRequestBodyPerson'Documents'CompanyAuthorization' :: PostTokensRequestBodyPerson'Documents'CompanyAuthorization'
mkPostTokensRequestBodyPerson'Documents'CompanyAuthorization' = PostTokensRequestBodyPerson'Documents'CompanyAuthorization' :: Maybe [Text]
-> PostTokensRequestBodyPerson'Documents'CompanyAuthorization'
PostTokensRequestBodyPerson'Documents'CompanyAuthorization' {postTokensRequestBodyPerson'Documents'CompanyAuthorization'Files :: Maybe [Text]
postTokensRequestBodyPerson'Documents'CompanyAuthorization'Files = Maybe [Text]
forall a. Maybe a
GHC.Maybe.Nothing}
data PostTokensRequestBodyPerson'Documents'Passport' = PostTokensRequestBodyPerson'Documents'Passport'
{
PostTokensRequestBodyPerson'Documents'Passport' -> Maybe [Text]
postTokensRequestBodyPerson'Documents'Passport'Files :: (GHC.Maybe.Maybe ([Data.Text.Internal.Text]))
}
deriving
( Int -> PostTokensRequestBodyPerson'Documents'Passport' -> ShowS
[PostTokensRequestBodyPerson'Documents'Passport'] -> ShowS
PostTokensRequestBodyPerson'Documents'Passport' -> String
(Int -> PostTokensRequestBodyPerson'Documents'Passport' -> ShowS)
-> (PostTokensRequestBodyPerson'Documents'Passport' -> String)
-> ([PostTokensRequestBodyPerson'Documents'Passport'] -> ShowS)
-> Show PostTokensRequestBodyPerson'Documents'Passport'
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PostTokensRequestBodyPerson'Documents'Passport'] -> ShowS
$cshowList :: [PostTokensRequestBodyPerson'Documents'Passport'] -> ShowS
show :: PostTokensRequestBodyPerson'Documents'Passport' -> String
$cshow :: PostTokensRequestBodyPerson'Documents'Passport' -> String
showsPrec :: Int -> PostTokensRequestBodyPerson'Documents'Passport' -> ShowS
$cshowsPrec :: Int -> PostTokensRequestBodyPerson'Documents'Passport' -> ShowS
GHC.Show.Show,
PostTokensRequestBodyPerson'Documents'Passport'
-> PostTokensRequestBodyPerson'Documents'Passport' -> Bool
(PostTokensRequestBodyPerson'Documents'Passport'
-> PostTokensRequestBodyPerson'Documents'Passport' -> Bool)
-> (PostTokensRequestBodyPerson'Documents'Passport'
-> PostTokensRequestBodyPerson'Documents'Passport' -> Bool)
-> Eq PostTokensRequestBodyPerson'Documents'Passport'
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostTokensRequestBodyPerson'Documents'Passport'
-> PostTokensRequestBodyPerson'Documents'Passport' -> Bool
$c/= :: PostTokensRequestBodyPerson'Documents'Passport'
-> PostTokensRequestBodyPerson'Documents'Passport' -> Bool
== :: PostTokensRequestBodyPerson'Documents'Passport'
-> PostTokensRequestBodyPerson'Documents'Passport' -> Bool
$c== :: PostTokensRequestBodyPerson'Documents'Passport'
-> PostTokensRequestBodyPerson'Documents'Passport' -> Bool
GHC.Classes.Eq
)
instance Data.Aeson.Types.ToJSON.ToJSON PostTokensRequestBodyPerson'Documents'Passport' where
toJSON :: PostTokensRequestBodyPerson'Documents'Passport' -> Value
toJSON PostTokensRequestBodyPerson'Documents'Passport'
obj = [Pair] -> Value
Data.Aeson.Types.Internal.object (Text
"files" Text -> Maybe [Text] -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyPerson'Documents'Passport' -> Maybe [Text]
postTokensRequestBodyPerson'Documents'Passport'Files PostTokensRequestBodyPerson'Documents'Passport'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: [Pair]
forall a. Monoid a => a
GHC.Base.mempty)
toEncoding :: PostTokensRequestBodyPerson'Documents'Passport' -> Encoding
toEncoding PostTokensRequestBodyPerson'Documents'Passport'
obj = Series -> Encoding
Data.Aeson.Encoding.Internal.pairs (Text
"files" Text -> Maybe [Text] -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyPerson'Documents'Passport' -> Maybe [Text]
postTokensRequestBodyPerson'Documents'Passport'Files PostTokensRequestBodyPerson'Documents'Passport'
obj)
instance Data.Aeson.Types.FromJSON.FromJSON PostTokensRequestBodyPerson'Documents'Passport' where
parseJSON :: Value -> Parser PostTokensRequestBodyPerson'Documents'Passport'
parseJSON = String
-> (Object
-> Parser PostTokensRequestBodyPerson'Documents'Passport')
-> Value
-> Parser PostTokensRequestBodyPerson'Documents'Passport'
forall a. String -> (Object -> Parser a) -> Value -> Parser a
Data.Aeson.Types.FromJSON.withObject String
"PostTokensRequestBodyPerson'Documents'Passport'" (\Object
obj -> (Maybe [Text] -> PostTokensRequestBodyPerson'Documents'Passport')
-> Parser
(Maybe [Text] -> PostTokensRequestBodyPerson'Documents'Passport')
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure Maybe [Text] -> PostTokensRequestBodyPerson'Documents'Passport'
PostTokensRequestBodyPerson'Documents'Passport' Parser
(Maybe [Text] -> PostTokensRequestBodyPerson'Documents'Passport')
-> Parser (Maybe [Text])
-> Parser PostTokensRequestBodyPerson'Documents'Passport'
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe [Text])
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"files"))
mkPostTokensRequestBodyPerson'Documents'Passport' :: PostTokensRequestBodyPerson'Documents'Passport'
mkPostTokensRequestBodyPerson'Documents'Passport' :: PostTokensRequestBodyPerson'Documents'Passport'
mkPostTokensRequestBodyPerson'Documents'Passport' = PostTokensRequestBodyPerson'Documents'Passport' :: Maybe [Text] -> PostTokensRequestBodyPerson'Documents'Passport'
PostTokensRequestBodyPerson'Documents'Passport' {postTokensRequestBodyPerson'Documents'Passport'Files :: Maybe [Text]
postTokensRequestBodyPerson'Documents'Passport'Files = Maybe [Text]
forall a. Maybe a
GHC.Maybe.Nothing}
data PostTokensRequestBodyPerson'Documents'Visa' = PostTokensRequestBodyPerson'Documents'Visa'
{
PostTokensRequestBodyPerson'Documents'Visa' -> Maybe [Text]
postTokensRequestBodyPerson'Documents'Visa'Files :: (GHC.Maybe.Maybe ([Data.Text.Internal.Text]))
}
deriving
( Int -> PostTokensRequestBodyPerson'Documents'Visa' -> ShowS
[PostTokensRequestBodyPerson'Documents'Visa'] -> ShowS
PostTokensRequestBodyPerson'Documents'Visa' -> String
(Int -> PostTokensRequestBodyPerson'Documents'Visa' -> ShowS)
-> (PostTokensRequestBodyPerson'Documents'Visa' -> String)
-> ([PostTokensRequestBodyPerson'Documents'Visa'] -> ShowS)
-> Show PostTokensRequestBodyPerson'Documents'Visa'
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PostTokensRequestBodyPerson'Documents'Visa'] -> ShowS
$cshowList :: [PostTokensRequestBodyPerson'Documents'Visa'] -> ShowS
show :: PostTokensRequestBodyPerson'Documents'Visa' -> String
$cshow :: PostTokensRequestBodyPerson'Documents'Visa' -> String
showsPrec :: Int -> PostTokensRequestBodyPerson'Documents'Visa' -> ShowS
$cshowsPrec :: Int -> PostTokensRequestBodyPerson'Documents'Visa' -> ShowS
GHC.Show.Show,
PostTokensRequestBodyPerson'Documents'Visa'
-> PostTokensRequestBodyPerson'Documents'Visa' -> Bool
(PostTokensRequestBodyPerson'Documents'Visa'
-> PostTokensRequestBodyPerson'Documents'Visa' -> Bool)
-> (PostTokensRequestBodyPerson'Documents'Visa'
-> PostTokensRequestBodyPerson'Documents'Visa' -> Bool)
-> Eq PostTokensRequestBodyPerson'Documents'Visa'
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostTokensRequestBodyPerson'Documents'Visa'
-> PostTokensRequestBodyPerson'Documents'Visa' -> Bool
$c/= :: PostTokensRequestBodyPerson'Documents'Visa'
-> PostTokensRequestBodyPerson'Documents'Visa' -> Bool
== :: PostTokensRequestBodyPerson'Documents'Visa'
-> PostTokensRequestBodyPerson'Documents'Visa' -> Bool
$c== :: PostTokensRequestBodyPerson'Documents'Visa'
-> PostTokensRequestBodyPerson'Documents'Visa' -> Bool
GHC.Classes.Eq
)
instance Data.Aeson.Types.ToJSON.ToJSON PostTokensRequestBodyPerson'Documents'Visa' where
toJSON :: PostTokensRequestBodyPerson'Documents'Visa' -> Value
toJSON PostTokensRequestBodyPerson'Documents'Visa'
obj = [Pair] -> Value
Data.Aeson.Types.Internal.object (Text
"files" Text -> Maybe [Text] -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyPerson'Documents'Visa' -> Maybe [Text]
postTokensRequestBodyPerson'Documents'Visa'Files PostTokensRequestBodyPerson'Documents'Visa'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: [Pair]
forall a. Monoid a => a
GHC.Base.mempty)
toEncoding :: PostTokensRequestBodyPerson'Documents'Visa' -> Encoding
toEncoding PostTokensRequestBodyPerson'Documents'Visa'
obj = Series -> Encoding
Data.Aeson.Encoding.Internal.pairs (Text
"files" Text -> Maybe [Text] -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyPerson'Documents'Visa' -> Maybe [Text]
postTokensRequestBodyPerson'Documents'Visa'Files PostTokensRequestBodyPerson'Documents'Visa'
obj)
instance Data.Aeson.Types.FromJSON.FromJSON PostTokensRequestBodyPerson'Documents'Visa' where
parseJSON :: Value -> Parser PostTokensRequestBodyPerson'Documents'Visa'
parseJSON = String
-> (Object -> Parser PostTokensRequestBodyPerson'Documents'Visa')
-> Value
-> Parser PostTokensRequestBodyPerson'Documents'Visa'
forall a. String -> (Object -> Parser a) -> Value -> Parser a
Data.Aeson.Types.FromJSON.withObject String
"PostTokensRequestBodyPerson'Documents'Visa'" (\Object
obj -> (Maybe [Text] -> PostTokensRequestBodyPerson'Documents'Visa')
-> Parser
(Maybe [Text] -> PostTokensRequestBodyPerson'Documents'Visa')
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure Maybe [Text] -> PostTokensRequestBodyPerson'Documents'Visa'
PostTokensRequestBodyPerson'Documents'Visa' Parser
(Maybe [Text] -> PostTokensRequestBodyPerson'Documents'Visa')
-> Parser (Maybe [Text])
-> Parser PostTokensRequestBodyPerson'Documents'Visa'
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe [Text])
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"files"))
mkPostTokensRequestBodyPerson'Documents'Visa' :: PostTokensRequestBodyPerson'Documents'Visa'
mkPostTokensRequestBodyPerson'Documents'Visa' :: PostTokensRequestBodyPerson'Documents'Visa'
mkPostTokensRequestBodyPerson'Documents'Visa' = PostTokensRequestBodyPerson'Documents'Visa' :: Maybe [Text] -> PostTokensRequestBodyPerson'Documents'Visa'
PostTokensRequestBodyPerson'Documents'Visa' {postTokensRequestBodyPerson'Documents'Visa'Files :: Maybe [Text]
postTokensRequestBodyPerson'Documents'Visa'Files = Maybe [Text]
forall a. Maybe a
GHC.Maybe.Nothing}
data PostTokensRequestBodyPerson'Metadata'Variants
=
PostTokensRequestBodyPerson'Metadata'EmptyString
| PostTokensRequestBodyPerson'Metadata'Object Data.Aeson.Types.Internal.Object
deriving (Int -> PostTokensRequestBodyPerson'Metadata'Variants -> ShowS
[PostTokensRequestBodyPerson'Metadata'Variants] -> ShowS
PostTokensRequestBodyPerson'Metadata'Variants -> String
(Int -> PostTokensRequestBodyPerson'Metadata'Variants -> ShowS)
-> (PostTokensRequestBodyPerson'Metadata'Variants -> String)
-> ([PostTokensRequestBodyPerson'Metadata'Variants] -> ShowS)
-> Show PostTokensRequestBodyPerson'Metadata'Variants
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PostTokensRequestBodyPerson'Metadata'Variants] -> ShowS
$cshowList :: [PostTokensRequestBodyPerson'Metadata'Variants] -> ShowS
show :: PostTokensRequestBodyPerson'Metadata'Variants -> String
$cshow :: PostTokensRequestBodyPerson'Metadata'Variants -> String
showsPrec :: Int -> PostTokensRequestBodyPerson'Metadata'Variants -> ShowS
$cshowsPrec :: Int -> PostTokensRequestBodyPerson'Metadata'Variants -> ShowS
GHC.Show.Show, PostTokensRequestBodyPerson'Metadata'Variants
-> PostTokensRequestBodyPerson'Metadata'Variants -> Bool
(PostTokensRequestBodyPerson'Metadata'Variants
-> PostTokensRequestBodyPerson'Metadata'Variants -> Bool)
-> (PostTokensRequestBodyPerson'Metadata'Variants
-> PostTokensRequestBodyPerson'Metadata'Variants -> Bool)
-> Eq PostTokensRequestBodyPerson'Metadata'Variants
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostTokensRequestBodyPerson'Metadata'Variants
-> PostTokensRequestBodyPerson'Metadata'Variants -> Bool
$c/= :: PostTokensRequestBodyPerson'Metadata'Variants
-> PostTokensRequestBodyPerson'Metadata'Variants -> Bool
== :: PostTokensRequestBodyPerson'Metadata'Variants
-> PostTokensRequestBodyPerson'Metadata'Variants -> Bool
$c== :: PostTokensRequestBodyPerson'Metadata'Variants
-> PostTokensRequestBodyPerson'Metadata'Variants -> Bool
GHC.Classes.Eq)
instance Data.Aeson.Types.ToJSON.ToJSON PostTokensRequestBodyPerson'Metadata'Variants where
toJSON :: PostTokensRequestBodyPerson'Metadata'Variants -> Value
toJSON (PostTokensRequestBodyPerson'Metadata'Object Object
a) = Object -> Value
forall a. ToJSON a => a -> Value
Data.Aeson.Types.ToJSON.toJSON Object
a
toJSON (PostTokensRequestBodyPerson'Metadata'Variants
PostTokensRequestBodyPerson'Metadata'EmptyString) = Value
""
instance Data.Aeson.Types.FromJSON.FromJSON PostTokensRequestBodyPerson'Metadata'Variants where
parseJSON :: Value -> Parser PostTokensRequestBodyPerson'Metadata'Variants
parseJSON Value
val =
if
| Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"" -> PostTokensRequestBodyPerson'Metadata'Variants
-> Parser PostTokensRequestBodyPerson'Metadata'Variants
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure PostTokensRequestBodyPerson'Metadata'Variants
PostTokensRequestBodyPerson'Metadata'EmptyString
| Bool
GHC.Base.otherwise -> case (Object -> PostTokensRequestBodyPerson'Metadata'Variants
PostTokensRequestBodyPerson'Metadata'Object (Object -> PostTokensRequestBodyPerson'Metadata'Variants)
-> Result Object
-> Result PostTokensRequestBodyPerson'Metadata'Variants
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Data.Functor.<$> Value -> Result Object
forall a. FromJSON a => Value -> Result a
Data.Aeson.Types.FromJSON.fromJSON Value
val) Result PostTokensRequestBodyPerson'Metadata'Variants
-> Result PostTokensRequestBodyPerson'Metadata'Variants
-> Result PostTokensRequestBodyPerson'Metadata'Variants
forall (f :: * -> *) a. Alternative f => f a -> f a -> f a
GHC.Base.<|> String -> Result PostTokensRequestBodyPerson'Metadata'Variants
forall a. String -> Result a
Data.Aeson.Types.Internal.Error String
"No variant matched" of
Data.Aeson.Types.Internal.Success PostTokensRequestBodyPerson'Metadata'Variants
a -> PostTokensRequestBodyPerson'Metadata'Variants
-> Parser PostTokensRequestBodyPerson'Metadata'Variants
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure PostTokensRequestBodyPerson'Metadata'Variants
a
Data.Aeson.Types.Internal.Error String
a -> String -> Parser PostTokensRequestBodyPerson'Metadata'Variants
forall (m :: * -> *) a. MonadFail m => String -> m a
Control.Monad.Fail.fail String
a
data PostTokensRequestBodyPerson'Relationship' = PostTokensRequestBodyPerson'Relationship'
{
PostTokensRequestBodyPerson'Relationship' -> Maybe Bool
postTokensRequestBodyPerson'Relationship'Director :: (GHC.Maybe.Maybe GHC.Types.Bool),
PostTokensRequestBodyPerson'Relationship' -> Maybe Bool
postTokensRequestBodyPerson'Relationship'Executive :: (GHC.Maybe.Maybe GHC.Types.Bool),
PostTokensRequestBodyPerson'Relationship' -> Maybe Bool
postTokensRequestBodyPerson'Relationship'Owner :: (GHC.Maybe.Maybe GHC.Types.Bool),
PostTokensRequestBodyPerson'Relationship'
-> Maybe
PostTokensRequestBodyPerson'Relationship'PercentOwnership'Variants
postTokensRequestBodyPerson'Relationship'PercentOwnership :: (GHC.Maybe.Maybe PostTokensRequestBodyPerson'Relationship'PercentOwnership'Variants),
PostTokensRequestBodyPerson'Relationship' -> Maybe Bool
postTokensRequestBodyPerson'Relationship'Representative :: (GHC.Maybe.Maybe GHC.Types.Bool),
PostTokensRequestBodyPerson'Relationship' -> Maybe Text
postTokensRequestBodyPerson'Relationship'Title :: (GHC.Maybe.Maybe Data.Text.Internal.Text)
}
deriving
( Int -> PostTokensRequestBodyPerson'Relationship' -> ShowS
[PostTokensRequestBodyPerson'Relationship'] -> ShowS
PostTokensRequestBodyPerson'Relationship' -> String
(Int -> PostTokensRequestBodyPerson'Relationship' -> ShowS)
-> (PostTokensRequestBodyPerson'Relationship' -> String)
-> ([PostTokensRequestBodyPerson'Relationship'] -> ShowS)
-> Show PostTokensRequestBodyPerson'Relationship'
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PostTokensRequestBodyPerson'Relationship'] -> ShowS
$cshowList :: [PostTokensRequestBodyPerson'Relationship'] -> ShowS
show :: PostTokensRequestBodyPerson'Relationship' -> String
$cshow :: PostTokensRequestBodyPerson'Relationship' -> String
showsPrec :: Int -> PostTokensRequestBodyPerson'Relationship' -> ShowS
$cshowsPrec :: Int -> PostTokensRequestBodyPerson'Relationship' -> ShowS
GHC.Show.Show,
PostTokensRequestBodyPerson'Relationship'
-> PostTokensRequestBodyPerson'Relationship' -> Bool
(PostTokensRequestBodyPerson'Relationship'
-> PostTokensRequestBodyPerson'Relationship' -> Bool)
-> (PostTokensRequestBodyPerson'Relationship'
-> PostTokensRequestBodyPerson'Relationship' -> Bool)
-> Eq PostTokensRequestBodyPerson'Relationship'
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostTokensRequestBodyPerson'Relationship'
-> PostTokensRequestBodyPerson'Relationship' -> Bool
$c/= :: PostTokensRequestBodyPerson'Relationship'
-> PostTokensRequestBodyPerson'Relationship' -> Bool
== :: PostTokensRequestBodyPerson'Relationship'
-> PostTokensRequestBodyPerson'Relationship' -> Bool
$c== :: PostTokensRequestBodyPerson'Relationship'
-> PostTokensRequestBodyPerson'Relationship' -> Bool
GHC.Classes.Eq
)
instance Data.Aeson.Types.ToJSON.ToJSON PostTokensRequestBodyPerson'Relationship' where
toJSON :: PostTokensRequestBodyPerson'Relationship' -> Value
toJSON PostTokensRequestBodyPerson'Relationship'
obj = [Pair] -> Value
Data.Aeson.Types.Internal.object (Text
"director" Text -> Maybe Bool -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyPerson'Relationship' -> Maybe Bool
postTokensRequestBodyPerson'Relationship'Director PostTokensRequestBodyPerson'Relationship'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"executive" Text -> Maybe Bool -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyPerson'Relationship' -> Maybe Bool
postTokensRequestBodyPerson'Relationship'Executive PostTokensRequestBodyPerson'Relationship'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"owner" Text -> Maybe Bool -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyPerson'Relationship' -> Maybe Bool
postTokensRequestBodyPerson'Relationship'Owner PostTokensRequestBodyPerson'Relationship'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"percent_ownership" Text
-> Maybe
PostTokensRequestBodyPerson'Relationship'PercentOwnership'Variants
-> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyPerson'Relationship'
-> Maybe
PostTokensRequestBodyPerson'Relationship'PercentOwnership'Variants
postTokensRequestBodyPerson'Relationship'PercentOwnership PostTokensRequestBodyPerson'Relationship'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"representative" Text -> Maybe Bool -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyPerson'Relationship' -> Maybe Bool
postTokensRequestBodyPerson'Relationship'Representative PostTokensRequestBodyPerson'Relationship'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"title" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyPerson'Relationship' -> Maybe Text
postTokensRequestBodyPerson'Relationship'Title PostTokensRequestBodyPerson'Relationship'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: [Pair]
forall a. Monoid a => a
GHC.Base.mempty)
toEncoding :: PostTokensRequestBodyPerson'Relationship' -> Encoding
toEncoding PostTokensRequestBodyPerson'Relationship'
obj = Series -> Encoding
Data.Aeson.Encoding.Internal.pairs ((Text
"director" Text -> Maybe Bool -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyPerson'Relationship' -> Maybe Bool
postTokensRequestBodyPerson'Relationship'Director PostTokensRequestBodyPerson'Relationship'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"executive" Text -> Maybe Bool -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyPerson'Relationship' -> Maybe Bool
postTokensRequestBodyPerson'Relationship'Executive PostTokensRequestBodyPerson'Relationship'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"owner" Text -> Maybe Bool -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyPerson'Relationship' -> Maybe Bool
postTokensRequestBodyPerson'Relationship'Owner PostTokensRequestBodyPerson'Relationship'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"percent_ownership" Text
-> Maybe
PostTokensRequestBodyPerson'Relationship'PercentOwnership'Variants
-> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyPerson'Relationship'
-> Maybe
PostTokensRequestBodyPerson'Relationship'PercentOwnership'Variants
postTokensRequestBodyPerson'Relationship'PercentOwnership PostTokensRequestBodyPerson'Relationship'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"representative" Text -> Maybe Bool -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyPerson'Relationship' -> Maybe Bool
postTokensRequestBodyPerson'Relationship'Representative PostTokensRequestBodyPerson'Relationship'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> (Text
"title" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyPerson'Relationship' -> Maybe Text
postTokensRequestBodyPerson'Relationship'Title PostTokensRequestBodyPerson'Relationship'
obj))))))
instance Data.Aeson.Types.FromJSON.FromJSON PostTokensRequestBodyPerson'Relationship' where
parseJSON :: Value -> Parser PostTokensRequestBodyPerson'Relationship'
parseJSON = String
-> (Object -> Parser PostTokensRequestBodyPerson'Relationship')
-> Value
-> Parser PostTokensRequestBodyPerson'Relationship'
forall a. String -> (Object -> Parser a) -> Value -> Parser a
Data.Aeson.Types.FromJSON.withObject String
"PostTokensRequestBodyPerson'Relationship'" (\Object
obj -> ((((((Maybe Bool
-> Maybe Bool
-> Maybe Bool
-> Maybe
PostTokensRequestBodyPerson'Relationship'PercentOwnership'Variants
-> Maybe Bool
-> Maybe Text
-> PostTokensRequestBodyPerson'Relationship')
-> Parser
(Maybe Bool
-> Maybe Bool
-> Maybe Bool
-> Maybe
PostTokensRequestBodyPerson'Relationship'PercentOwnership'Variants
-> Maybe Bool
-> Maybe Text
-> PostTokensRequestBodyPerson'Relationship')
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure Maybe Bool
-> Maybe Bool
-> Maybe Bool
-> Maybe
PostTokensRequestBodyPerson'Relationship'PercentOwnership'Variants
-> Maybe Bool
-> Maybe Text
-> PostTokensRequestBodyPerson'Relationship'
PostTokensRequestBodyPerson'Relationship' Parser
(Maybe Bool
-> Maybe Bool
-> Maybe Bool
-> Maybe
PostTokensRequestBodyPerson'Relationship'PercentOwnership'Variants
-> Maybe Bool
-> Maybe Text
-> PostTokensRequestBodyPerson'Relationship')
-> Parser (Maybe Bool)
-> Parser
(Maybe Bool
-> Maybe Bool
-> Maybe
PostTokensRequestBodyPerson'Relationship'PercentOwnership'Variants
-> Maybe Bool
-> Maybe Text
-> PostTokensRequestBodyPerson'Relationship')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Bool)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"director")) Parser
(Maybe Bool
-> Maybe Bool
-> Maybe
PostTokensRequestBodyPerson'Relationship'PercentOwnership'Variants
-> Maybe Bool
-> Maybe Text
-> PostTokensRequestBodyPerson'Relationship')
-> Parser (Maybe Bool)
-> Parser
(Maybe Bool
-> Maybe
PostTokensRequestBodyPerson'Relationship'PercentOwnership'Variants
-> Maybe Bool
-> Maybe Text
-> PostTokensRequestBodyPerson'Relationship')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Bool)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"executive")) Parser
(Maybe Bool
-> Maybe
PostTokensRequestBodyPerson'Relationship'PercentOwnership'Variants
-> Maybe Bool
-> Maybe Text
-> PostTokensRequestBodyPerson'Relationship')
-> Parser (Maybe Bool)
-> Parser
(Maybe
PostTokensRequestBodyPerson'Relationship'PercentOwnership'Variants
-> Maybe Bool
-> Maybe Text
-> PostTokensRequestBodyPerson'Relationship')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Bool)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"owner")) Parser
(Maybe
PostTokensRequestBodyPerson'Relationship'PercentOwnership'Variants
-> Maybe Bool
-> Maybe Text
-> PostTokensRequestBodyPerson'Relationship')
-> Parser
(Maybe
PostTokensRequestBodyPerson'Relationship'PercentOwnership'Variants)
-> Parser
(Maybe Bool
-> Maybe Text -> PostTokensRequestBodyPerson'Relationship')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object
-> Text
-> Parser
(Maybe
PostTokensRequestBodyPerson'Relationship'PercentOwnership'Variants)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"percent_ownership")) Parser
(Maybe Bool
-> Maybe Text -> PostTokensRequestBodyPerson'Relationship')
-> Parser (Maybe Bool)
-> Parser (Maybe Text -> PostTokensRequestBodyPerson'Relationship')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Bool)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"representative")) Parser (Maybe Text -> PostTokensRequestBodyPerson'Relationship')
-> Parser (Maybe Text)
-> Parser PostTokensRequestBodyPerson'Relationship'
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"title"))
mkPostTokensRequestBodyPerson'Relationship' :: PostTokensRequestBodyPerson'Relationship'
mkPostTokensRequestBodyPerson'Relationship' :: PostTokensRequestBodyPerson'Relationship'
mkPostTokensRequestBodyPerson'Relationship' =
PostTokensRequestBodyPerson'Relationship' :: Maybe Bool
-> Maybe Bool
-> Maybe Bool
-> Maybe
PostTokensRequestBodyPerson'Relationship'PercentOwnership'Variants
-> Maybe Bool
-> Maybe Text
-> PostTokensRequestBodyPerson'Relationship'
PostTokensRequestBodyPerson'Relationship'
{ postTokensRequestBodyPerson'Relationship'Director :: Maybe Bool
postTokensRequestBodyPerson'Relationship'Director = Maybe Bool
forall a. Maybe a
GHC.Maybe.Nothing,
postTokensRequestBodyPerson'Relationship'Executive :: Maybe Bool
postTokensRequestBodyPerson'Relationship'Executive = Maybe Bool
forall a. Maybe a
GHC.Maybe.Nothing,
postTokensRequestBodyPerson'Relationship'Owner :: Maybe Bool
postTokensRequestBodyPerson'Relationship'Owner = Maybe Bool
forall a. Maybe a
GHC.Maybe.Nothing,
postTokensRequestBodyPerson'Relationship'PercentOwnership :: Maybe
PostTokensRequestBodyPerson'Relationship'PercentOwnership'Variants
postTokensRequestBodyPerson'Relationship'PercentOwnership = Maybe
PostTokensRequestBodyPerson'Relationship'PercentOwnership'Variants
forall a. Maybe a
GHC.Maybe.Nothing,
postTokensRequestBodyPerson'Relationship'Representative :: Maybe Bool
postTokensRequestBodyPerson'Relationship'Representative = Maybe Bool
forall a. Maybe a
GHC.Maybe.Nothing,
postTokensRequestBodyPerson'Relationship'Title :: Maybe Text
postTokensRequestBodyPerson'Relationship'Title = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing
}
data PostTokensRequestBodyPerson'Relationship'PercentOwnership'Variants
=
PostTokensRequestBodyPerson'Relationship'PercentOwnership'EmptyString
| PostTokensRequestBodyPerson'Relationship'PercentOwnership'Double GHC.Types.Double
deriving (Int
-> PostTokensRequestBodyPerson'Relationship'PercentOwnership'Variants
-> ShowS
[PostTokensRequestBodyPerson'Relationship'PercentOwnership'Variants]
-> ShowS
PostTokensRequestBodyPerson'Relationship'PercentOwnership'Variants
-> String
(Int
-> PostTokensRequestBodyPerson'Relationship'PercentOwnership'Variants
-> ShowS)
-> (PostTokensRequestBodyPerson'Relationship'PercentOwnership'Variants
-> String)
-> ([PostTokensRequestBodyPerson'Relationship'PercentOwnership'Variants]
-> ShowS)
-> Show
PostTokensRequestBodyPerson'Relationship'PercentOwnership'Variants
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PostTokensRequestBodyPerson'Relationship'PercentOwnership'Variants]
-> ShowS
$cshowList :: [PostTokensRequestBodyPerson'Relationship'PercentOwnership'Variants]
-> ShowS
show :: PostTokensRequestBodyPerson'Relationship'PercentOwnership'Variants
-> String
$cshow :: PostTokensRequestBodyPerson'Relationship'PercentOwnership'Variants
-> String
showsPrec :: Int
-> PostTokensRequestBodyPerson'Relationship'PercentOwnership'Variants
-> ShowS
$cshowsPrec :: Int
-> PostTokensRequestBodyPerson'Relationship'PercentOwnership'Variants
-> ShowS
GHC.Show.Show, PostTokensRequestBodyPerson'Relationship'PercentOwnership'Variants
-> PostTokensRequestBodyPerson'Relationship'PercentOwnership'Variants
-> Bool
(PostTokensRequestBodyPerson'Relationship'PercentOwnership'Variants
-> PostTokensRequestBodyPerson'Relationship'PercentOwnership'Variants
-> Bool)
-> (PostTokensRequestBodyPerson'Relationship'PercentOwnership'Variants
-> PostTokensRequestBodyPerson'Relationship'PercentOwnership'Variants
-> Bool)
-> Eq
PostTokensRequestBodyPerson'Relationship'PercentOwnership'Variants
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostTokensRequestBodyPerson'Relationship'PercentOwnership'Variants
-> PostTokensRequestBodyPerson'Relationship'PercentOwnership'Variants
-> Bool
$c/= :: PostTokensRequestBodyPerson'Relationship'PercentOwnership'Variants
-> PostTokensRequestBodyPerson'Relationship'PercentOwnership'Variants
-> Bool
== :: PostTokensRequestBodyPerson'Relationship'PercentOwnership'Variants
-> PostTokensRequestBodyPerson'Relationship'PercentOwnership'Variants
-> Bool
$c== :: PostTokensRequestBodyPerson'Relationship'PercentOwnership'Variants
-> PostTokensRequestBodyPerson'Relationship'PercentOwnership'Variants
-> Bool
GHC.Classes.Eq)
instance Data.Aeson.Types.ToJSON.ToJSON PostTokensRequestBodyPerson'Relationship'PercentOwnership'Variants where
toJSON :: PostTokensRequestBodyPerson'Relationship'PercentOwnership'Variants
-> Value
toJSON (PostTokensRequestBodyPerson'Relationship'PercentOwnership'Double Double
a) = Double -> Value
forall a. ToJSON a => a -> Value
Data.Aeson.Types.ToJSON.toJSON Double
a
toJSON (PostTokensRequestBodyPerson'Relationship'PercentOwnership'Variants
PostTokensRequestBodyPerson'Relationship'PercentOwnership'EmptyString) = Value
""
instance Data.Aeson.Types.FromJSON.FromJSON PostTokensRequestBodyPerson'Relationship'PercentOwnership'Variants where
parseJSON :: Value
-> Parser
PostTokensRequestBodyPerson'Relationship'PercentOwnership'Variants
parseJSON Value
val =
if
| Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"" -> PostTokensRequestBodyPerson'Relationship'PercentOwnership'Variants
-> Parser
PostTokensRequestBodyPerson'Relationship'PercentOwnership'Variants
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure PostTokensRequestBodyPerson'Relationship'PercentOwnership'Variants
PostTokensRequestBodyPerson'Relationship'PercentOwnership'EmptyString
| Bool
GHC.Base.otherwise -> case (Double
-> PostTokensRequestBodyPerson'Relationship'PercentOwnership'Variants
PostTokensRequestBodyPerson'Relationship'PercentOwnership'Double (Double
-> PostTokensRequestBodyPerson'Relationship'PercentOwnership'Variants)
-> Result Double
-> Result
PostTokensRequestBodyPerson'Relationship'PercentOwnership'Variants
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Data.Functor.<$> Value -> Result Double
forall a. FromJSON a => Value -> Result a
Data.Aeson.Types.FromJSON.fromJSON Value
val) Result
PostTokensRequestBodyPerson'Relationship'PercentOwnership'Variants
-> Result
PostTokensRequestBodyPerson'Relationship'PercentOwnership'Variants
-> Result
PostTokensRequestBodyPerson'Relationship'PercentOwnership'Variants
forall (f :: * -> *) a. Alternative f => f a -> f a -> f a
GHC.Base.<|> String
-> Result
PostTokensRequestBodyPerson'Relationship'PercentOwnership'Variants
forall a. String -> Result a
Data.Aeson.Types.Internal.Error String
"No variant matched" of
Data.Aeson.Types.Internal.Success PostTokensRequestBodyPerson'Relationship'PercentOwnership'Variants
a -> PostTokensRequestBodyPerson'Relationship'PercentOwnership'Variants
-> Parser
PostTokensRequestBodyPerson'Relationship'PercentOwnership'Variants
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure PostTokensRequestBodyPerson'Relationship'PercentOwnership'Variants
a
Data.Aeson.Types.Internal.Error String
a -> String
-> Parser
PostTokensRequestBodyPerson'Relationship'PercentOwnership'Variants
forall (m :: * -> *) a. MonadFail m => String -> m a
Control.Monad.Fail.fail String
a
data PostTokensRequestBodyPerson'Verification' = PostTokensRequestBodyPerson'Verification'
{
PostTokensRequestBodyPerson'Verification'
-> Maybe
PostTokensRequestBodyPerson'Verification'AdditionalDocument'
postTokensRequestBodyPerson'Verification'AdditionalDocument :: (GHC.Maybe.Maybe PostTokensRequestBodyPerson'Verification'AdditionalDocument'),
PostTokensRequestBodyPerson'Verification'
-> Maybe PostTokensRequestBodyPerson'Verification'Document'
postTokensRequestBodyPerson'Verification'Document :: (GHC.Maybe.Maybe PostTokensRequestBodyPerson'Verification'Document')
}
deriving
( Int -> PostTokensRequestBodyPerson'Verification' -> ShowS
[PostTokensRequestBodyPerson'Verification'] -> ShowS
PostTokensRequestBodyPerson'Verification' -> String
(Int -> PostTokensRequestBodyPerson'Verification' -> ShowS)
-> (PostTokensRequestBodyPerson'Verification' -> String)
-> ([PostTokensRequestBodyPerson'Verification'] -> ShowS)
-> Show PostTokensRequestBodyPerson'Verification'
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PostTokensRequestBodyPerson'Verification'] -> ShowS
$cshowList :: [PostTokensRequestBodyPerson'Verification'] -> ShowS
show :: PostTokensRequestBodyPerson'Verification' -> String
$cshow :: PostTokensRequestBodyPerson'Verification' -> String
showsPrec :: Int -> PostTokensRequestBodyPerson'Verification' -> ShowS
$cshowsPrec :: Int -> PostTokensRequestBodyPerson'Verification' -> ShowS
GHC.Show.Show,
PostTokensRequestBodyPerson'Verification'
-> PostTokensRequestBodyPerson'Verification' -> Bool
(PostTokensRequestBodyPerson'Verification'
-> PostTokensRequestBodyPerson'Verification' -> Bool)
-> (PostTokensRequestBodyPerson'Verification'
-> PostTokensRequestBodyPerson'Verification' -> Bool)
-> Eq PostTokensRequestBodyPerson'Verification'
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostTokensRequestBodyPerson'Verification'
-> PostTokensRequestBodyPerson'Verification' -> Bool
$c/= :: PostTokensRequestBodyPerson'Verification'
-> PostTokensRequestBodyPerson'Verification' -> Bool
== :: PostTokensRequestBodyPerson'Verification'
-> PostTokensRequestBodyPerson'Verification' -> Bool
$c== :: PostTokensRequestBodyPerson'Verification'
-> PostTokensRequestBodyPerson'Verification' -> Bool
GHC.Classes.Eq
)
instance Data.Aeson.Types.ToJSON.ToJSON PostTokensRequestBodyPerson'Verification' where
toJSON :: PostTokensRequestBodyPerson'Verification' -> Value
toJSON PostTokensRequestBodyPerson'Verification'
obj = [Pair] -> Value
Data.Aeson.Types.Internal.object (Text
"additional_document" Text
-> Maybe
PostTokensRequestBodyPerson'Verification'AdditionalDocument'
-> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyPerson'Verification'
-> Maybe
PostTokensRequestBodyPerson'Verification'AdditionalDocument'
postTokensRequestBodyPerson'Verification'AdditionalDocument PostTokensRequestBodyPerson'Verification'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"document" Text
-> Maybe PostTokensRequestBodyPerson'Verification'Document' -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyPerson'Verification'
-> Maybe PostTokensRequestBodyPerson'Verification'Document'
postTokensRequestBodyPerson'Verification'Document PostTokensRequestBodyPerson'Verification'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: [Pair]
forall a. Monoid a => a
GHC.Base.mempty)
toEncoding :: PostTokensRequestBodyPerson'Verification' -> Encoding
toEncoding PostTokensRequestBodyPerson'Verification'
obj = Series -> Encoding
Data.Aeson.Encoding.Internal.pairs ((Text
"additional_document" Text
-> Maybe
PostTokensRequestBodyPerson'Verification'AdditionalDocument'
-> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyPerson'Verification'
-> Maybe
PostTokensRequestBodyPerson'Verification'AdditionalDocument'
postTokensRequestBodyPerson'Verification'AdditionalDocument PostTokensRequestBodyPerson'Verification'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> (Text
"document" Text
-> Maybe PostTokensRequestBodyPerson'Verification'Document'
-> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyPerson'Verification'
-> Maybe PostTokensRequestBodyPerson'Verification'Document'
postTokensRequestBodyPerson'Verification'Document PostTokensRequestBodyPerson'Verification'
obj))
instance Data.Aeson.Types.FromJSON.FromJSON PostTokensRequestBodyPerson'Verification' where
parseJSON :: Value -> Parser PostTokensRequestBodyPerson'Verification'
parseJSON = String
-> (Object -> Parser PostTokensRequestBodyPerson'Verification')
-> Value
-> Parser PostTokensRequestBodyPerson'Verification'
forall a. String -> (Object -> Parser a) -> Value -> Parser a
Data.Aeson.Types.FromJSON.withObject String
"PostTokensRequestBodyPerson'Verification'" (\Object
obj -> ((Maybe PostTokensRequestBodyPerson'Verification'AdditionalDocument'
-> Maybe PostTokensRequestBodyPerson'Verification'Document'
-> PostTokensRequestBodyPerson'Verification')
-> Parser
(Maybe PostTokensRequestBodyPerson'Verification'AdditionalDocument'
-> Maybe PostTokensRequestBodyPerson'Verification'Document'
-> PostTokensRequestBodyPerson'Verification')
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure Maybe PostTokensRequestBodyPerson'Verification'AdditionalDocument'
-> Maybe PostTokensRequestBodyPerson'Verification'Document'
-> PostTokensRequestBodyPerson'Verification'
PostTokensRequestBodyPerson'Verification' Parser
(Maybe PostTokensRequestBodyPerson'Verification'AdditionalDocument'
-> Maybe PostTokensRequestBodyPerson'Verification'Document'
-> PostTokensRequestBodyPerson'Verification')
-> Parser
(Maybe
PostTokensRequestBodyPerson'Verification'AdditionalDocument')
-> Parser
(Maybe PostTokensRequestBodyPerson'Verification'Document'
-> PostTokensRequestBodyPerson'Verification')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object
-> Text
-> Parser
(Maybe
PostTokensRequestBodyPerson'Verification'AdditionalDocument')
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"additional_document")) Parser
(Maybe PostTokensRequestBodyPerson'Verification'Document'
-> PostTokensRequestBodyPerson'Verification')
-> Parser
(Maybe PostTokensRequestBodyPerson'Verification'Document')
-> Parser PostTokensRequestBodyPerson'Verification'
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object
-> Text
-> Parser
(Maybe PostTokensRequestBodyPerson'Verification'Document')
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"document"))
mkPostTokensRequestBodyPerson'Verification' :: PostTokensRequestBodyPerson'Verification'
mkPostTokensRequestBodyPerson'Verification' :: PostTokensRequestBodyPerson'Verification'
mkPostTokensRequestBodyPerson'Verification' =
PostTokensRequestBodyPerson'Verification' :: Maybe PostTokensRequestBodyPerson'Verification'AdditionalDocument'
-> Maybe PostTokensRequestBodyPerson'Verification'Document'
-> PostTokensRequestBodyPerson'Verification'
PostTokensRequestBodyPerson'Verification'
{ postTokensRequestBodyPerson'Verification'AdditionalDocument :: Maybe PostTokensRequestBodyPerson'Verification'AdditionalDocument'
postTokensRequestBodyPerson'Verification'AdditionalDocument = Maybe PostTokensRequestBodyPerson'Verification'AdditionalDocument'
forall a. Maybe a
GHC.Maybe.Nothing,
postTokensRequestBodyPerson'Verification'Document :: Maybe PostTokensRequestBodyPerson'Verification'Document'
postTokensRequestBodyPerson'Verification'Document = Maybe PostTokensRequestBodyPerson'Verification'Document'
forall a. Maybe a
GHC.Maybe.Nothing
}
data PostTokensRequestBodyPerson'Verification'AdditionalDocument' = PostTokensRequestBodyPerson'Verification'AdditionalDocument'
{
PostTokensRequestBodyPerson'Verification'AdditionalDocument'
-> Maybe Text
postTokensRequestBodyPerson'Verification'AdditionalDocument'Back :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
PostTokensRequestBodyPerson'Verification'AdditionalDocument'
-> Maybe Text
postTokensRequestBodyPerson'Verification'AdditionalDocument'Front :: (GHC.Maybe.Maybe Data.Text.Internal.Text)
}
deriving
( Int
-> PostTokensRequestBodyPerson'Verification'AdditionalDocument'
-> ShowS
[PostTokensRequestBodyPerson'Verification'AdditionalDocument']
-> ShowS
PostTokensRequestBodyPerson'Verification'AdditionalDocument'
-> String
(Int
-> PostTokensRequestBodyPerson'Verification'AdditionalDocument'
-> ShowS)
-> (PostTokensRequestBodyPerson'Verification'AdditionalDocument'
-> String)
-> ([PostTokensRequestBodyPerson'Verification'AdditionalDocument']
-> ShowS)
-> Show
PostTokensRequestBodyPerson'Verification'AdditionalDocument'
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PostTokensRequestBodyPerson'Verification'AdditionalDocument']
-> ShowS
$cshowList :: [PostTokensRequestBodyPerson'Verification'AdditionalDocument']
-> ShowS
show :: PostTokensRequestBodyPerson'Verification'AdditionalDocument'
-> String
$cshow :: PostTokensRequestBodyPerson'Verification'AdditionalDocument'
-> String
showsPrec :: Int
-> PostTokensRequestBodyPerson'Verification'AdditionalDocument'
-> ShowS
$cshowsPrec :: Int
-> PostTokensRequestBodyPerson'Verification'AdditionalDocument'
-> ShowS
GHC.Show.Show,
PostTokensRequestBodyPerson'Verification'AdditionalDocument'
-> PostTokensRequestBodyPerson'Verification'AdditionalDocument'
-> Bool
(PostTokensRequestBodyPerson'Verification'AdditionalDocument'
-> PostTokensRequestBodyPerson'Verification'AdditionalDocument'
-> Bool)
-> (PostTokensRequestBodyPerson'Verification'AdditionalDocument'
-> PostTokensRequestBodyPerson'Verification'AdditionalDocument'
-> Bool)
-> Eq PostTokensRequestBodyPerson'Verification'AdditionalDocument'
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostTokensRequestBodyPerson'Verification'AdditionalDocument'
-> PostTokensRequestBodyPerson'Verification'AdditionalDocument'
-> Bool
$c/= :: PostTokensRequestBodyPerson'Verification'AdditionalDocument'
-> PostTokensRequestBodyPerson'Verification'AdditionalDocument'
-> Bool
== :: PostTokensRequestBodyPerson'Verification'AdditionalDocument'
-> PostTokensRequestBodyPerson'Verification'AdditionalDocument'
-> Bool
$c== :: PostTokensRequestBodyPerson'Verification'AdditionalDocument'
-> PostTokensRequestBodyPerson'Verification'AdditionalDocument'
-> Bool
GHC.Classes.Eq
)
instance Data.Aeson.Types.ToJSON.ToJSON PostTokensRequestBodyPerson'Verification'AdditionalDocument' where
toJSON :: PostTokensRequestBodyPerson'Verification'AdditionalDocument'
-> Value
toJSON PostTokensRequestBodyPerson'Verification'AdditionalDocument'
obj = [Pair] -> Value
Data.Aeson.Types.Internal.object (Text
"back" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyPerson'Verification'AdditionalDocument'
-> Maybe Text
postTokensRequestBodyPerson'Verification'AdditionalDocument'Back PostTokensRequestBodyPerson'Verification'AdditionalDocument'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"front" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyPerson'Verification'AdditionalDocument'
-> Maybe Text
postTokensRequestBodyPerson'Verification'AdditionalDocument'Front PostTokensRequestBodyPerson'Verification'AdditionalDocument'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: [Pair]
forall a. Monoid a => a
GHC.Base.mempty)
toEncoding :: PostTokensRequestBodyPerson'Verification'AdditionalDocument'
-> Encoding
toEncoding PostTokensRequestBodyPerson'Verification'AdditionalDocument'
obj = Series -> Encoding
Data.Aeson.Encoding.Internal.pairs ((Text
"back" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyPerson'Verification'AdditionalDocument'
-> Maybe Text
postTokensRequestBodyPerson'Verification'AdditionalDocument'Back PostTokensRequestBodyPerson'Verification'AdditionalDocument'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> (Text
"front" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyPerson'Verification'AdditionalDocument'
-> Maybe Text
postTokensRequestBodyPerson'Verification'AdditionalDocument'Front PostTokensRequestBodyPerson'Verification'AdditionalDocument'
obj))
instance Data.Aeson.Types.FromJSON.FromJSON PostTokensRequestBodyPerson'Verification'AdditionalDocument' where
parseJSON :: Value
-> Parser
PostTokensRequestBodyPerson'Verification'AdditionalDocument'
parseJSON = String
-> (Object
-> Parser
PostTokensRequestBodyPerson'Verification'AdditionalDocument')
-> Value
-> Parser
PostTokensRequestBodyPerson'Verification'AdditionalDocument'
forall a. String -> (Object -> Parser a) -> Value -> Parser a
Data.Aeson.Types.FromJSON.withObject String
"PostTokensRequestBodyPerson'Verification'AdditionalDocument'" (\Object
obj -> ((Maybe Text
-> Maybe Text
-> PostTokensRequestBodyPerson'Verification'AdditionalDocument')
-> Parser
(Maybe Text
-> Maybe Text
-> PostTokensRequestBodyPerson'Verification'AdditionalDocument')
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure Maybe Text
-> Maybe Text
-> PostTokensRequestBodyPerson'Verification'AdditionalDocument'
PostTokensRequestBodyPerson'Verification'AdditionalDocument' Parser
(Maybe Text
-> Maybe Text
-> PostTokensRequestBodyPerson'Verification'AdditionalDocument')
-> Parser (Maybe Text)
-> Parser
(Maybe Text
-> PostTokensRequestBodyPerson'Verification'AdditionalDocument')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"back")) Parser
(Maybe Text
-> PostTokensRequestBodyPerson'Verification'AdditionalDocument')
-> Parser (Maybe Text)
-> Parser
PostTokensRequestBodyPerson'Verification'AdditionalDocument'
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"front"))
mkPostTokensRequestBodyPerson'Verification'AdditionalDocument' :: PostTokensRequestBodyPerson'Verification'AdditionalDocument'
mkPostTokensRequestBodyPerson'Verification'AdditionalDocument' :: PostTokensRequestBodyPerson'Verification'AdditionalDocument'
mkPostTokensRequestBodyPerson'Verification'AdditionalDocument' =
PostTokensRequestBodyPerson'Verification'AdditionalDocument' :: Maybe Text
-> Maybe Text
-> PostTokensRequestBodyPerson'Verification'AdditionalDocument'
PostTokensRequestBodyPerson'Verification'AdditionalDocument'
{ postTokensRequestBodyPerson'Verification'AdditionalDocument'Back :: Maybe Text
postTokensRequestBodyPerson'Verification'AdditionalDocument'Back = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
postTokensRequestBodyPerson'Verification'AdditionalDocument'Front :: Maybe Text
postTokensRequestBodyPerson'Verification'AdditionalDocument'Front = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing
}
data PostTokensRequestBodyPerson'Verification'Document' = PostTokensRequestBodyPerson'Verification'Document'
{
PostTokensRequestBodyPerson'Verification'Document' -> Maybe Text
postTokensRequestBodyPerson'Verification'Document'Back :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
PostTokensRequestBodyPerson'Verification'Document' -> Maybe Text
postTokensRequestBodyPerson'Verification'Document'Front :: (GHC.Maybe.Maybe Data.Text.Internal.Text)
}
deriving
( Int -> PostTokensRequestBodyPerson'Verification'Document' -> ShowS
[PostTokensRequestBodyPerson'Verification'Document'] -> ShowS
PostTokensRequestBodyPerson'Verification'Document' -> String
(Int
-> PostTokensRequestBodyPerson'Verification'Document' -> ShowS)
-> (PostTokensRequestBodyPerson'Verification'Document' -> String)
-> ([PostTokensRequestBodyPerson'Verification'Document'] -> ShowS)
-> Show PostTokensRequestBodyPerson'Verification'Document'
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PostTokensRequestBodyPerson'Verification'Document'] -> ShowS
$cshowList :: [PostTokensRequestBodyPerson'Verification'Document'] -> ShowS
show :: PostTokensRequestBodyPerson'Verification'Document' -> String
$cshow :: PostTokensRequestBodyPerson'Verification'Document' -> String
showsPrec :: Int -> PostTokensRequestBodyPerson'Verification'Document' -> ShowS
$cshowsPrec :: Int -> PostTokensRequestBodyPerson'Verification'Document' -> ShowS
GHC.Show.Show,
PostTokensRequestBodyPerson'Verification'Document'
-> PostTokensRequestBodyPerson'Verification'Document' -> Bool
(PostTokensRequestBodyPerson'Verification'Document'
-> PostTokensRequestBodyPerson'Verification'Document' -> Bool)
-> (PostTokensRequestBodyPerson'Verification'Document'
-> PostTokensRequestBodyPerson'Verification'Document' -> Bool)
-> Eq PostTokensRequestBodyPerson'Verification'Document'
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostTokensRequestBodyPerson'Verification'Document'
-> PostTokensRequestBodyPerson'Verification'Document' -> Bool
$c/= :: PostTokensRequestBodyPerson'Verification'Document'
-> PostTokensRequestBodyPerson'Verification'Document' -> Bool
== :: PostTokensRequestBodyPerson'Verification'Document'
-> PostTokensRequestBodyPerson'Verification'Document' -> Bool
$c== :: PostTokensRequestBodyPerson'Verification'Document'
-> PostTokensRequestBodyPerson'Verification'Document' -> Bool
GHC.Classes.Eq
)
instance Data.Aeson.Types.ToJSON.ToJSON PostTokensRequestBodyPerson'Verification'Document' where
toJSON :: PostTokensRequestBodyPerson'Verification'Document' -> Value
toJSON PostTokensRequestBodyPerson'Verification'Document'
obj = [Pair] -> Value
Data.Aeson.Types.Internal.object (Text
"back" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyPerson'Verification'Document' -> Maybe Text
postTokensRequestBodyPerson'Verification'Document'Back PostTokensRequestBodyPerson'Verification'Document'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"front" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyPerson'Verification'Document' -> Maybe Text
postTokensRequestBodyPerson'Verification'Document'Front PostTokensRequestBodyPerson'Verification'Document'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: [Pair]
forall a. Monoid a => a
GHC.Base.mempty)
toEncoding :: PostTokensRequestBodyPerson'Verification'Document' -> Encoding
toEncoding PostTokensRequestBodyPerson'Verification'Document'
obj = Series -> Encoding
Data.Aeson.Encoding.Internal.pairs ((Text
"back" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyPerson'Verification'Document' -> Maybe Text
postTokensRequestBodyPerson'Verification'Document'Back PostTokensRequestBodyPerson'Verification'Document'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> (Text
"front" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyPerson'Verification'Document' -> Maybe Text
postTokensRequestBodyPerson'Verification'Document'Front PostTokensRequestBodyPerson'Verification'Document'
obj))
instance Data.Aeson.Types.FromJSON.FromJSON PostTokensRequestBodyPerson'Verification'Document' where
parseJSON :: Value -> Parser PostTokensRequestBodyPerson'Verification'Document'
parseJSON = String
-> (Object
-> Parser PostTokensRequestBodyPerson'Verification'Document')
-> Value
-> Parser PostTokensRequestBodyPerson'Verification'Document'
forall a. String -> (Object -> Parser a) -> Value -> Parser a
Data.Aeson.Types.FromJSON.withObject String
"PostTokensRequestBodyPerson'Verification'Document'" (\Object
obj -> ((Maybe Text
-> Maybe Text
-> PostTokensRequestBodyPerson'Verification'Document')
-> Parser
(Maybe Text
-> Maybe Text
-> PostTokensRequestBodyPerson'Verification'Document')
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure Maybe Text
-> Maybe Text -> PostTokensRequestBodyPerson'Verification'Document'
PostTokensRequestBodyPerson'Verification'Document' Parser
(Maybe Text
-> Maybe Text
-> PostTokensRequestBodyPerson'Verification'Document')
-> Parser (Maybe Text)
-> Parser
(Maybe Text -> PostTokensRequestBodyPerson'Verification'Document')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"back")) Parser
(Maybe Text -> PostTokensRequestBodyPerson'Verification'Document')
-> Parser (Maybe Text)
-> Parser PostTokensRequestBodyPerson'Verification'Document'
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"front"))
mkPostTokensRequestBodyPerson'Verification'Document' :: PostTokensRequestBodyPerson'Verification'Document'
mkPostTokensRequestBodyPerson'Verification'Document' :: PostTokensRequestBodyPerson'Verification'Document'
mkPostTokensRequestBodyPerson'Verification'Document' =
PostTokensRequestBodyPerson'Verification'Document' :: Maybe Text
-> Maybe Text -> PostTokensRequestBodyPerson'Verification'Document'
PostTokensRequestBodyPerson'Verification'Document'
{ postTokensRequestBodyPerson'Verification'Document'Back :: Maybe Text
postTokensRequestBodyPerson'Verification'Document'Back = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
postTokensRequestBodyPerson'Verification'Document'Front :: Maybe Text
postTokensRequestBodyPerson'Verification'Document'Front = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing
}
data PostTokensRequestBodyPii' = PostTokensRequestBodyPii'
{
PostTokensRequestBodyPii' -> Maybe Text
postTokensRequestBodyPii'IdNumber :: (GHC.Maybe.Maybe Data.Text.Internal.Text)
}
deriving
( Int -> PostTokensRequestBodyPii' -> ShowS
[PostTokensRequestBodyPii'] -> ShowS
PostTokensRequestBodyPii' -> String
(Int -> PostTokensRequestBodyPii' -> ShowS)
-> (PostTokensRequestBodyPii' -> String)
-> ([PostTokensRequestBodyPii'] -> ShowS)
-> Show PostTokensRequestBodyPii'
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PostTokensRequestBodyPii'] -> ShowS
$cshowList :: [PostTokensRequestBodyPii'] -> ShowS
show :: PostTokensRequestBodyPii' -> String
$cshow :: PostTokensRequestBodyPii' -> String
showsPrec :: Int -> PostTokensRequestBodyPii' -> ShowS
$cshowsPrec :: Int -> PostTokensRequestBodyPii' -> ShowS
GHC.Show.Show,
PostTokensRequestBodyPii' -> PostTokensRequestBodyPii' -> Bool
(PostTokensRequestBodyPii' -> PostTokensRequestBodyPii' -> Bool)
-> (PostTokensRequestBodyPii' -> PostTokensRequestBodyPii' -> Bool)
-> Eq PostTokensRequestBodyPii'
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostTokensRequestBodyPii' -> PostTokensRequestBodyPii' -> Bool
$c/= :: PostTokensRequestBodyPii' -> PostTokensRequestBodyPii' -> Bool
== :: PostTokensRequestBodyPii' -> PostTokensRequestBodyPii' -> Bool
$c== :: PostTokensRequestBodyPii' -> PostTokensRequestBodyPii' -> Bool
GHC.Classes.Eq
)
instance Data.Aeson.Types.ToJSON.ToJSON PostTokensRequestBodyPii' where
toJSON :: PostTokensRequestBodyPii' -> Value
toJSON PostTokensRequestBodyPii'
obj = [Pair] -> Value
Data.Aeson.Types.Internal.object (Text
"id_number" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyPii' -> Maybe Text
postTokensRequestBodyPii'IdNumber PostTokensRequestBodyPii'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: [Pair]
forall a. Monoid a => a
GHC.Base.mempty)
toEncoding :: PostTokensRequestBodyPii' -> Encoding
toEncoding PostTokensRequestBodyPii'
obj = Series -> Encoding
Data.Aeson.Encoding.Internal.pairs (Text
"id_number" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostTokensRequestBodyPii' -> Maybe Text
postTokensRequestBodyPii'IdNumber PostTokensRequestBodyPii'
obj)
instance Data.Aeson.Types.FromJSON.FromJSON PostTokensRequestBodyPii' where
parseJSON :: Value -> Parser PostTokensRequestBodyPii'
parseJSON = String
-> (Object -> Parser PostTokensRequestBodyPii')
-> Value
-> Parser PostTokensRequestBodyPii'
forall a. String -> (Object -> Parser a) -> Value -> Parser a
Data.Aeson.Types.FromJSON.withObject String
"PostTokensRequestBodyPii'" (\Object
obj -> (Maybe Text -> PostTokensRequestBodyPii')
-> Parser (Maybe Text -> PostTokensRequestBodyPii')
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure Maybe Text -> PostTokensRequestBodyPii'
PostTokensRequestBodyPii' Parser (Maybe Text -> PostTokensRequestBodyPii')
-> Parser (Maybe Text) -> Parser PostTokensRequestBodyPii'
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"id_number"))
mkPostTokensRequestBodyPii' :: PostTokensRequestBodyPii'
mkPostTokensRequestBodyPii' :: PostTokensRequestBodyPii'
mkPostTokensRequestBodyPii' = PostTokensRequestBodyPii' :: Maybe Text -> PostTokensRequestBodyPii'
PostTokensRequestBodyPii' {postTokensRequestBodyPii'IdNumber :: Maybe Text
postTokensRequestBodyPii'IdNumber = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing}
data PostTokensResponse
=
PostTokensResponseError GHC.Base.String
|
PostTokensResponse200 Token
|
PostTokensResponseDefault Error
deriving (Int -> PostTokensResponse -> ShowS
[PostTokensResponse] -> ShowS
PostTokensResponse -> String
(Int -> PostTokensResponse -> ShowS)
-> (PostTokensResponse -> String)
-> ([PostTokensResponse] -> ShowS)
-> Show PostTokensResponse
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PostTokensResponse] -> ShowS
$cshowList :: [PostTokensResponse] -> ShowS
show :: PostTokensResponse -> String
$cshow :: PostTokensResponse -> String
showsPrec :: Int -> PostTokensResponse -> ShowS
$cshowsPrec :: Int -> PostTokensResponse -> ShowS
GHC.Show.Show, PostTokensResponse -> PostTokensResponse -> Bool
(PostTokensResponse -> PostTokensResponse -> Bool)
-> (PostTokensResponse -> PostTokensResponse -> Bool)
-> Eq PostTokensResponse
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostTokensResponse -> PostTokensResponse -> Bool
$c/= :: PostTokensResponse -> PostTokensResponse -> Bool
== :: PostTokensResponse -> PostTokensResponse -> Bool
$c== :: PostTokensResponse -> PostTokensResponse -> Bool
GHC.Classes.Eq)