{-# LANGUAGE ExplicitForAll #-}
{-# LANGUAGE MultiWayIf #-}
-- CHANGE WITH CAUTION: This is a generated code file generated by https://github.com/Haskell-OpenAPI-Code-Generator/Haskell-OpenAPI-Client-Code-Generator.
{-# LANGUAGE OverloadedStrings #-}

-- | Contains the different functions to run the operation postTokens
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

-- | > POST /v1/tokens
--
-- \<p>Creates a single-use token that represents a bank account’s details.
-- This token can be used with any API method in place of a bank account dictionary. This token can be used only once, by attaching it to a \<a href=\"\#accounts\">Custom account\<\/a>.\<\/p>
postTokens ::
  forall m.
  StripeAPI.Common.MonadHTTP m =>
  -- | The request body to send
  GHC.Maybe.Maybe PostTokensRequestBody ->
  -- | Monadic computation which returns the result of the operation
  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)

-- | Defines the object schema located at @paths.\/v1\/tokens.POST.requestBody.content.application\/x-www-form-urlencoded.schema@ in the specification.
data PostTokensRequestBody = PostTokensRequestBody
  { -- | account: Information for the account this token will represent.
    PostTokensRequestBody -> Maybe PostTokensRequestBodyAccount'
postTokensRequestBodyAccount :: (GHC.Maybe.Maybe PostTokensRequestBodyAccount'),
    -- | bank_account: The bank account this token will represent.
    PostTokensRequestBody -> Maybe PostTokensRequestBodyBankAccount'
postTokensRequestBodyBankAccount :: (GHC.Maybe.Maybe PostTokensRequestBodyBankAccount'),
    -- | card
    PostTokensRequestBody -> Maybe PostTokensRequestBodyCard'Variants
postTokensRequestBodyCard :: (GHC.Maybe.Maybe PostTokensRequestBodyCard'Variants),
    -- | customer: The customer (owned by the application\'s account) for which to create a token. This can be used only with an [OAuth access token](https:\/\/stripe.com\/docs\/connect\/standard-accounts) or [Stripe-Account header](https:\/\/stripe.com\/docs\/connect\/authentication). For more details, see [Cloning Saved Payment Methods](https:\/\/stripe.com\/docs\/connect\/cloning-saved-payment-methods).
    --
    -- Constraints:
    --
    -- * Maximum length of 5000
    PostTokensRequestBody -> Maybe Text
postTokensRequestBodyCustomer :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | cvc_update: The updated CVC value this token will represent.
    PostTokensRequestBody -> Maybe PostTokensRequestBodyCvcUpdate'
postTokensRequestBodyCvcUpdate :: (GHC.Maybe.Maybe PostTokensRequestBodyCvcUpdate'),
    -- | expand: Specifies which fields in the response should be expanded.
    PostTokensRequestBody -> Maybe [Text]
postTokensRequestBodyExpand :: (GHC.Maybe.Maybe ([Data.Text.Internal.Text])),
    -- | person: Information for the person this token will represent.
    PostTokensRequestBody -> Maybe PostTokensRequestBodyPerson'
postTokensRequestBodyPerson :: (GHC.Maybe.Maybe PostTokensRequestBodyPerson'),
    -- | pii: The PII this token will represent.
    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"))

-- | Create a new 'PostTokensRequestBody' with all required fields.
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
    }

-- | Defines the object schema located at @paths.\/v1\/tokens.POST.requestBody.content.application\/x-www-form-urlencoded.schema.properties.account@ in the specification.
--
-- Information for the account this token will represent.
data PostTokensRequestBodyAccount' = PostTokensRequestBodyAccount'
  { -- | business_type
    PostTokensRequestBodyAccount'
-> Maybe PostTokensRequestBodyAccount'BusinessType'
postTokensRequestBodyAccount'BusinessType :: (GHC.Maybe.Maybe PostTokensRequestBodyAccount'BusinessType'),
    -- | company
    PostTokensRequestBodyAccount'
-> Maybe PostTokensRequestBodyAccount'Company'
postTokensRequestBodyAccount'Company :: (GHC.Maybe.Maybe PostTokensRequestBodyAccount'Company'),
    -- | individual
    PostTokensRequestBodyAccount'
-> Maybe PostTokensRequestBodyAccount'Individual'
postTokensRequestBodyAccount'Individual :: (GHC.Maybe.Maybe PostTokensRequestBodyAccount'Individual'),
    -- | tos_shown_and_accepted
    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"))

-- | Create a new 'PostTokensRequestBodyAccount'' with all required fields.
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
    }

-- | Defines the enum schema located at @paths.\/v1\/tokens.POST.requestBody.content.application\/x-www-form-urlencoded.schema.properties.account.properties.business_type@ in the specification.
data PostTokensRequestBodyAccount'BusinessType'
  = -- | This case is used if the value encountered during decoding does not match any of the provided cases in the specification.
    PostTokensRequestBodyAccount'BusinessType'Other Data.Aeson.Types.Internal.Value
  | -- | This constructor can be used to send values to the server which are not present in the specification yet.
    PostTokensRequestBodyAccount'BusinessType'Typed Data.Text.Internal.Text
  | -- | Represents the JSON value @"company"@
    PostTokensRequestBodyAccount'BusinessType'EnumCompany
  | -- | Represents the JSON value @"government_entity"@
    PostTokensRequestBodyAccount'BusinessType'EnumGovernmentEntity
  | -- | Represents the JSON value @"individual"@
    PostTokensRequestBodyAccount'BusinessType'EnumIndividual
  | -- | Represents the JSON value @"non_profit"@
    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
      )

-- | Defines the object schema located at @paths.\/v1\/tokens.POST.requestBody.content.application\/x-www-form-urlencoded.schema.properties.account.properties.company@ in the specification.
data PostTokensRequestBodyAccount'Company' = PostTokensRequestBodyAccount'Company'
  { -- | address
    PostTokensRequestBodyAccount'Company'
-> Maybe PostTokensRequestBodyAccount'Company'Address'
postTokensRequestBodyAccount'Company'Address :: (GHC.Maybe.Maybe PostTokensRequestBodyAccount'Company'Address'),
    -- | address_kana
    PostTokensRequestBodyAccount'Company'
-> Maybe PostTokensRequestBodyAccount'Company'AddressKana'
postTokensRequestBodyAccount'Company'AddressKana :: (GHC.Maybe.Maybe PostTokensRequestBodyAccount'Company'AddressKana'),
    -- | address_kanji
    PostTokensRequestBodyAccount'Company'
-> Maybe PostTokensRequestBodyAccount'Company'AddressKanji'
postTokensRequestBodyAccount'Company'AddressKanji :: (GHC.Maybe.Maybe PostTokensRequestBodyAccount'Company'AddressKanji'),
    -- | directors_provided
    PostTokensRequestBodyAccount'Company' -> Maybe Bool
postTokensRequestBodyAccount'Company'DirectorsProvided :: (GHC.Maybe.Maybe GHC.Types.Bool),
    -- | executives_provided
    PostTokensRequestBodyAccount'Company' -> Maybe Bool
postTokensRequestBodyAccount'Company'ExecutivesProvided :: (GHC.Maybe.Maybe GHC.Types.Bool),
    -- | name
    --
    -- Constraints:
    --
    -- * Maximum length of 100
    PostTokensRequestBodyAccount'Company' -> Maybe Text
postTokensRequestBodyAccount'Company'Name :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | name_kana
    --
    -- Constraints:
    --
    -- * Maximum length of 100
    PostTokensRequestBodyAccount'Company' -> Maybe Text
postTokensRequestBodyAccount'Company'NameKana :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | name_kanji
    --
    -- Constraints:
    --
    -- * Maximum length of 100
    PostTokensRequestBodyAccount'Company' -> Maybe Text
postTokensRequestBodyAccount'Company'NameKanji :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | owners_provided
    PostTokensRequestBodyAccount'Company' -> Maybe Bool
postTokensRequestBodyAccount'Company'OwnersProvided :: (GHC.Maybe.Maybe GHC.Types.Bool),
    -- | phone
    --
    -- Constraints:
    --
    -- * Maximum length of 5000
    PostTokensRequestBodyAccount'Company' -> Maybe Text
postTokensRequestBodyAccount'Company'Phone :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | registration_number
    --
    -- Constraints:
    --
    -- * Maximum length of 5000
    PostTokensRequestBodyAccount'Company' -> Maybe Text
postTokensRequestBodyAccount'Company'RegistrationNumber :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | structure
    PostTokensRequestBodyAccount'Company'
-> Maybe PostTokensRequestBodyAccount'Company'Structure'
postTokensRequestBodyAccount'Company'Structure :: (GHC.Maybe.Maybe PostTokensRequestBodyAccount'Company'Structure'),
    -- | tax_id
    --
    -- Constraints:
    --
    -- * Maximum length of 5000
    PostTokensRequestBodyAccount'Company' -> Maybe Text
postTokensRequestBodyAccount'Company'TaxId :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | tax_id_registrar
    --
    -- Constraints:
    --
    -- * Maximum length of 5000
    PostTokensRequestBodyAccount'Company' -> Maybe Text
postTokensRequestBodyAccount'Company'TaxIdRegistrar :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | vat_id
    --
    -- Constraints:
    --
    -- * Maximum length of 5000
    PostTokensRequestBodyAccount'Company' -> Maybe Text
postTokensRequestBodyAccount'Company'VatId :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | verification
    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"))

-- | Create a new 'PostTokensRequestBodyAccount'Company'' with all required fields.
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
    }

-- | Defines the object schema located at @paths.\/v1\/tokens.POST.requestBody.content.application\/x-www-form-urlencoded.schema.properties.account.properties.company.properties.address@ in the specification.
data PostTokensRequestBodyAccount'Company'Address' = PostTokensRequestBodyAccount'Company'Address'
  { -- | city
    --
    -- Constraints:
    --
    -- * Maximum length of 100
    PostTokensRequestBodyAccount'Company'Address' -> Maybe Text
postTokensRequestBodyAccount'Company'Address'City :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | country
    --
    -- Constraints:
    --
    -- * Maximum length of 5000
    PostTokensRequestBodyAccount'Company'Address' -> Maybe Text
postTokensRequestBodyAccount'Company'Address'Country :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | line1
    --
    -- Constraints:
    --
    -- * Maximum length of 200
    PostTokensRequestBodyAccount'Company'Address' -> Maybe Text
postTokensRequestBodyAccount'Company'Address'Line1 :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | line2
    --
    -- Constraints:
    --
    -- * Maximum length of 200
    PostTokensRequestBodyAccount'Company'Address' -> Maybe Text
postTokensRequestBodyAccount'Company'Address'Line2 :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | postal_code
    --
    -- Constraints:
    --
    -- * Maximum length of 5000
    PostTokensRequestBodyAccount'Company'Address' -> Maybe Text
postTokensRequestBodyAccount'Company'Address'PostalCode :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | state
    --
    -- Constraints:
    --
    -- * Maximum length of 5000
    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"))

-- | Create a new 'PostTokensRequestBodyAccount'Company'Address'' with all required fields.
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
    }

-- | Defines the object schema located at @paths.\/v1\/tokens.POST.requestBody.content.application\/x-www-form-urlencoded.schema.properties.account.properties.company.properties.address_kana@ in the specification.
data PostTokensRequestBodyAccount'Company'AddressKana' = PostTokensRequestBodyAccount'Company'AddressKana'
  { -- | city
    --
    -- Constraints:
    --
    -- * Maximum length of 5000
    PostTokensRequestBodyAccount'Company'AddressKana' -> Maybe Text
postTokensRequestBodyAccount'Company'AddressKana'City :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | country
    --
    -- Constraints:
    --
    -- * Maximum length of 5000
    PostTokensRequestBodyAccount'Company'AddressKana' -> Maybe Text
postTokensRequestBodyAccount'Company'AddressKana'Country :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | line1
    --
    -- Constraints:
    --
    -- * Maximum length of 5000
    PostTokensRequestBodyAccount'Company'AddressKana' -> Maybe Text
postTokensRequestBodyAccount'Company'AddressKana'Line1 :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | line2
    --
    -- Constraints:
    --
    -- * Maximum length of 5000
    PostTokensRequestBodyAccount'Company'AddressKana' -> Maybe Text
postTokensRequestBodyAccount'Company'AddressKana'Line2 :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | postal_code
    --
    -- Constraints:
    --
    -- * Maximum length of 5000
    PostTokensRequestBodyAccount'Company'AddressKana' -> Maybe Text
postTokensRequestBodyAccount'Company'AddressKana'PostalCode :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | state
    --
    -- Constraints:
    --
    -- * Maximum length of 5000
    PostTokensRequestBodyAccount'Company'AddressKana' -> Maybe Text
postTokensRequestBodyAccount'Company'AddressKana'State :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | town
    --
    -- Constraints:
    --
    -- * Maximum length of 5000
    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"))

-- | Create a new 'PostTokensRequestBodyAccount'Company'AddressKana'' with all required fields.
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
    }

-- | Defines the object schema located at @paths.\/v1\/tokens.POST.requestBody.content.application\/x-www-form-urlencoded.schema.properties.account.properties.company.properties.address_kanji@ in the specification.
data PostTokensRequestBodyAccount'Company'AddressKanji' = PostTokensRequestBodyAccount'Company'AddressKanji'
  { -- | city
    --
    -- Constraints:
    --
    -- * Maximum length of 5000
    PostTokensRequestBodyAccount'Company'AddressKanji' -> Maybe Text
postTokensRequestBodyAccount'Company'AddressKanji'City :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | country
    --
    -- Constraints:
    --
    -- * Maximum length of 5000
    PostTokensRequestBodyAccount'Company'AddressKanji' -> Maybe Text
postTokensRequestBodyAccount'Company'AddressKanji'Country :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | line1
    --
    -- Constraints:
    --
    -- * Maximum length of 5000
    PostTokensRequestBodyAccount'Company'AddressKanji' -> Maybe Text
postTokensRequestBodyAccount'Company'AddressKanji'Line1 :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | line2
    --
    -- Constraints:
    --
    -- * Maximum length of 5000
    PostTokensRequestBodyAccount'Company'AddressKanji' -> Maybe Text
postTokensRequestBodyAccount'Company'AddressKanji'Line2 :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | postal_code
    --
    -- Constraints:
    --
    -- * Maximum length of 5000
    PostTokensRequestBodyAccount'Company'AddressKanji' -> Maybe Text
postTokensRequestBodyAccount'Company'AddressKanji'PostalCode :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | state
    --
    -- Constraints:
    --
    -- * Maximum length of 5000
    PostTokensRequestBodyAccount'Company'AddressKanji' -> Maybe Text
postTokensRequestBodyAccount'Company'AddressKanji'State :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | town
    --
    -- Constraints:
    --
    -- * Maximum length of 5000
    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"))

-- | Create a new 'PostTokensRequestBodyAccount'Company'AddressKanji'' with all required fields.
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
    }

-- | Defines the enum schema located at @paths.\/v1\/tokens.POST.requestBody.content.application\/x-www-form-urlencoded.schema.properties.account.properties.company.properties.structure@ in the specification.
data PostTokensRequestBodyAccount'Company'Structure'
  = -- | This case is used if the value encountered during decoding does not match any of the provided cases in the specification.
    PostTokensRequestBodyAccount'Company'Structure'Other Data.Aeson.Types.Internal.Value
  | -- | This constructor can be used to send values to the server which are not present in the specification yet.
    PostTokensRequestBodyAccount'Company'Structure'Typed Data.Text.Internal.Text
  | -- | Represents the JSON value @""@
    PostTokensRequestBodyAccount'Company'Structure'EnumEmptyString
  | -- | Represents the JSON value @"free_zone_establishment"@
    PostTokensRequestBodyAccount'Company'Structure'EnumFreeZoneEstablishment
  | -- | Represents the JSON value @"free_zone_llc"@
    PostTokensRequestBodyAccount'Company'Structure'EnumFreeZoneLlc
  | -- | Represents the JSON value @"government_instrumentality"@
    PostTokensRequestBodyAccount'Company'Structure'EnumGovernmentInstrumentality
  | -- | Represents the JSON value @"governmental_unit"@
    PostTokensRequestBodyAccount'Company'Structure'EnumGovernmentalUnit
  | -- | Represents the JSON value @"incorporated_non_profit"@
    PostTokensRequestBodyAccount'Company'Structure'EnumIncorporatedNonProfit
  | -- | Represents the JSON value @"limited_liability_partnership"@
    PostTokensRequestBodyAccount'Company'Structure'EnumLimitedLiabilityPartnership
  | -- | Represents the JSON value @"llc"@
    PostTokensRequestBodyAccount'Company'Structure'EnumLlc
  | -- | Represents the JSON value @"multi_member_llc"@
    PostTokensRequestBodyAccount'Company'Structure'EnumMultiMemberLlc
  | -- | Represents the JSON value @"private_company"@
    PostTokensRequestBodyAccount'Company'Structure'EnumPrivateCompany
  | -- | Represents the JSON value @"private_corporation"@
    PostTokensRequestBodyAccount'Company'Structure'EnumPrivateCorporation
  | -- | Represents the JSON value @"private_partnership"@
    PostTokensRequestBodyAccount'Company'Structure'EnumPrivatePartnership
  | -- | Represents the JSON value @"public_company"@
    PostTokensRequestBodyAccount'Company'Structure'EnumPublicCompany
  | -- | Represents the JSON value @"public_corporation"@
    PostTokensRequestBodyAccount'Company'Structure'EnumPublicCorporation
  | -- | Represents the JSON value @"public_partnership"@
    PostTokensRequestBodyAccount'Company'Structure'EnumPublicPartnership
  | -- | Represents the JSON value @"single_member_llc"@
    PostTokensRequestBodyAccount'Company'Structure'EnumSingleMemberLlc
  | -- | Represents the JSON value @"sole_establishment"@
    PostTokensRequestBodyAccount'Company'Structure'EnumSoleEstablishment
  | -- | Represents the JSON value @"sole_proprietorship"@
    PostTokensRequestBodyAccount'Company'Structure'EnumSoleProprietorship
  | -- | Represents the JSON value @"tax_exempt_government_instrumentality"@
    PostTokensRequestBodyAccount'Company'Structure'EnumTaxExemptGovernmentInstrumentality
  | -- | Represents the JSON value @"unincorporated_association"@
    PostTokensRequestBodyAccount'Company'Structure'EnumUnincorporatedAssociation
  | -- | Represents the JSON value @"unincorporated_non_profit"@
    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
      )

-- | Defines the object schema located at @paths.\/v1\/tokens.POST.requestBody.content.application\/x-www-form-urlencoded.schema.properties.account.properties.company.properties.verification@ in the specification.
data PostTokensRequestBodyAccount'Company'Verification' = PostTokensRequestBodyAccount'Company'Verification'
  { -- | document
    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"))

-- | Create a new 'PostTokensRequestBodyAccount'Company'Verification'' with all required fields.
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}

-- | Defines the object schema located at @paths.\/v1\/tokens.POST.requestBody.content.application\/x-www-form-urlencoded.schema.properties.account.properties.company.properties.verification.properties.document@ in the specification.
data PostTokensRequestBodyAccount'Company'Verification'Document' = PostTokensRequestBodyAccount'Company'Verification'Document'
  { -- | back
    --
    -- Constraints:
    --
    -- * Maximum length of 500
    PostTokensRequestBodyAccount'Company'Verification'Document'
-> Maybe Text
postTokensRequestBodyAccount'Company'Verification'Document'Back :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | front
    --
    -- Constraints:
    --
    -- * Maximum length of 500
    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"))

-- | Create a new 'PostTokensRequestBodyAccount'Company'Verification'Document'' with all required fields.
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
    }

-- | Defines the object schema located at @paths.\/v1\/tokens.POST.requestBody.content.application\/x-www-form-urlencoded.schema.properties.account.properties.individual@ in the specification.
data PostTokensRequestBodyAccount'Individual' = PostTokensRequestBodyAccount'Individual'
  { -- | address
    PostTokensRequestBodyAccount'Individual'
-> Maybe PostTokensRequestBodyAccount'Individual'Address'
postTokensRequestBodyAccount'Individual'Address :: (GHC.Maybe.Maybe PostTokensRequestBodyAccount'Individual'Address'),
    -- | address_kana
    PostTokensRequestBodyAccount'Individual'
-> Maybe PostTokensRequestBodyAccount'Individual'AddressKana'
postTokensRequestBodyAccount'Individual'AddressKana :: (GHC.Maybe.Maybe PostTokensRequestBodyAccount'Individual'AddressKana'),
    -- | address_kanji
    PostTokensRequestBodyAccount'Individual'
-> Maybe PostTokensRequestBodyAccount'Individual'AddressKanji'
postTokensRequestBodyAccount'Individual'AddressKanji :: (GHC.Maybe.Maybe PostTokensRequestBodyAccount'Individual'AddressKanji'),
    -- | dob
    PostTokensRequestBodyAccount'Individual'
-> Maybe PostTokensRequestBodyAccount'Individual'Dob'Variants
postTokensRequestBodyAccount'Individual'Dob :: (GHC.Maybe.Maybe PostTokensRequestBodyAccount'Individual'Dob'Variants),
    -- | email
    PostTokensRequestBodyAccount'Individual' -> Maybe Text
postTokensRequestBodyAccount'Individual'Email :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | first_name
    --
    -- Constraints:
    --
    -- * Maximum length of 100
    PostTokensRequestBodyAccount'Individual' -> Maybe Text
postTokensRequestBodyAccount'Individual'FirstName :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | first_name_kana
    --
    -- Constraints:
    --
    -- * Maximum length of 5000
    PostTokensRequestBodyAccount'Individual' -> Maybe Text
postTokensRequestBodyAccount'Individual'FirstNameKana :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | first_name_kanji
    --
    -- Constraints:
    --
    -- * Maximum length of 5000
    PostTokensRequestBodyAccount'Individual' -> Maybe Text
postTokensRequestBodyAccount'Individual'FirstNameKanji :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | gender
    PostTokensRequestBodyAccount'Individual' -> Maybe Text
postTokensRequestBodyAccount'Individual'Gender :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | id_number
    --
    -- Constraints:
    --
    -- * Maximum length of 5000
    PostTokensRequestBodyAccount'Individual' -> Maybe Text
postTokensRequestBodyAccount'Individual'IdNumber :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | last_name
    --
    -- Constraints:
    --
    -- * Maximum length of 100
    PostTokensRequestBodyAccount'Individual' -> Maybe Text
postTokensRequestBodyAccount'Individual'LastName :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | last_name_kana
    --
    -- Constraints:
    --
    -- * Maximum length of 5000
    PostTokensRequestBodyAccount'Individual' -> Maybe Text
postTokensRequestBodyAccount'Individual'LastNameKana :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | last_name_kanji
    --
    -- Constraints:
    --
    -- * Maximum length of 5000
    PostTokensRequestBodyAccount'Individual' -> Maybe Text
postTokensRequestBodyAccount'Individual'LastNameKanji :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | maiden_name
    --
    -- Constraints:
    --
    -- * Maximum length of 5000
    PostTokensRequestBodyAccount'Individual' -> Maybe Text
postTokensRequestBodyAccount'Individual'MaidenName :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | metadata
    PostTokensRequestBodyAccount'Individual'
-> Maybe PostTokensRequestBodyAccount'Individual'Metadata'Variants
postTokensRequestBodyAccount'Individual'Metadata :: (GHC.Maybe.Maybe PostTokensRequestBodyAccount'Individual'Metadata'Variants),
    -- | phone
    PostTokensRequestBodyAccount'Individual' -> Maybe Text
postTokensRequestBodyAccount'Individual'Phone :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | political_exposure
    PostTokensRequestBodyAccount'Individual'
-> Maybe PostTokensRequestBodyAccount'Individual'PoliticalExposure'
postTokensRequestBodyAccount'Individual'PoliticalExposure :: (GHC.Maybe.Maybe PostTokensRequestBodyAccount'Individual'PoliticalExposure'),
    -- | ssn_last_4
    --
    -- Constraints:
    --
    -- * Maximum length of 5000
    PostTokensRequestBodyAccount'Individual' -> Maybe Text
postTokensRequestBodyAccount'Individual'SsnLast_4 :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | verification
    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"))

-- | Create a new 'PostTokensRequestBodyAccount'Individual'' with all required fields.
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
    }

-- | Defines the object schema located at @paths.\/v1\/tokens.POST.requestBody.content.application\/x-www-form-urlencoded.schema.properties.account.properties.individual.properties.address@ in the specification.
data PostTokensRequestBodyAccount'Individual'Address' = PostTokensRequestBodyAccount'Individual'Address'
  { -- | city
    --
    -- Constraints:
    --
    -- * Maximum length of 100
    PostTokensRequestBodyAccount'Individual'Address' -> Maybe Text
postTokensRequestBodyAccount'Individual'Address'City :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | country
    --
    -- Constraints:
    --
    -- * Maximum length of 5000
    PostTokensRequestBodyAccount'Individual'Address' -> Maybe Text
postTokensRequestBodyAccount'Individual'Address'Country :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | line1
    --
    -- Constraints:
    --
    -- * Maximum length of 200
    PostTokensRequestBodyAccount'Individual'Address' -> Maybe Text
postTokensRequestBodyAccount'Individual'Address'Line1 :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | line2
    --
    -- Constraints:
    --
    -- * Maximum length of 200
    PostTokensRequestBodyAccount'Individual'Address' -> Maybe Text
postTokensRequestBodyAccount'Individual'Address'Line2 :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | postal_code
    --
    -- Constraints:
    --
    -- * Maximum length of 5000
    PostTokensRequestBodyAccount'Individual'Address' -> Maybe Text
postTokensRequestBodyAccount'Individual'Address'PostalCode :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | state
    --
    -- Constraints:
    --
    -- * Maximum length of 5000
    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"))

-- | Create a new 'PostTokensRequestBodyAccount'Individual'Address'' with all required fields.
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
    }

-- | Defines the object schema located at @paths.\/v1\/tokens.POST.requestBody.content.application\/x-www-form-urlencoded.schema.properties.account.properties.individual.properties.address_kana@ in the specification.
data PostTokensRequestBodyAccount'Individual'AddressKana' = PostTokensRequestBodyAccount'Individual'AddressKana'
  { -- | city
    --
    -- Constraints:
    --
    -- * Maximum length of 5000
    PostTokensRequestBodyAccount'Individual'AddressKana' -> Maybe Text
postTokensRequestBodyAccount'Individual'AddressKana'City :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | country
    --
    -- Constraints:
    --
    -- * Maximum length of 5000
    PostTokensRequestBodyAccount'Individual'AddressKana' -> Maybe Text
postTokensRequestBodyAccount'Individual'AddressKana'Country :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | line1
    --
    -- Constraints:
    --
    -- * Maximum length of 5000
    PostTokensRequestBodyAccount'Individual'AddressKana' -> Maybe Text
postTokensRequestBodyAccount'Individual'AddressKana'Line1 :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | line2
    --
    -- Constraints:
    --
    -- * Maximum length of 5000
    PostTokensRequestBodyAccount'Individual'AddressKana' -> Maybe Text
postTokensRequestBodyAccount'Individual'AddressKana'Line2 :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | postal_code
    --
    -- Constraints:
    --
    -- * Maximum length of 5000
    PostTokensRequestBodyAccount'Individual'AddressKana' -> Maybe Text
postTokensRequestBodyAccount'Individual'AddressKana'PostalCode :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | state
    --
    -- Constraints:
    --
    -- * Maximum length of 5000
    PostTokensRequestBodyAccount'Individual'AddressKana' -> Maybe Text
postTokensRequestBodyAccount'Individual'AddressKana'State :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | town
    --
    -- Constraints:
    --
    -- * Maximum length of 5000
    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"))

-- | Create a new 'PostTokensRequestBodyAccount'Individual'AddressKana'' with all required fields.
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
    }

-- | Defines the object schema located at @paths.\/v1\/tokens.POST.requestBody.content.application\/x-www-form-urlencoded.schema.properties.account.properties.individual.properties.address_kanji@ in the specification.
data PostTokensRequestBodyAccount'Individual'AddressKanji' = PostTokensRequestBodyAccount'Individual'AddressKanji'
  { -- | city
    --
    -- Constraints:
    --
    -- * Maximum length of 5000
    PostTokensRequestBodyAccount'Individual'AddressKanji' -> Maybe Text
postTokensRequestBodyAccount'Individual'AddressKanji'City :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | country
    --
    -- Constraints:
    --
    -- * Maximum length of 5000
    PostTokensRequestBodyAccount'Individual'AddressKanji' -> Maybe Text
postTokensRequestBodyAccount'Individual'AddressKanji'Country :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | line1
    --
    -- Constraints:
    --
    -- * Maximum length of 5000
    PostTokensRequestBodyAccount'Individual'AddressKanji' -> Maybe Text
postTokensRequestBodyAccount'Individual'AddressKanji'Line1 :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | line2
    --
    -- Constraints:
    --
    -- * Maximum length of 5000
    PostTokensRequestBodyAccount'Individual'AddressKanji' -> Maybe Text
postTokensRequestBodyAccount'Individual'AddressKanji'Line2 :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | postal_code
    --
    -- Constraints:
    --
    -- * Maximum length of 5000
    PostTokensRequestBodyAccount'Individual'AddressKanji' -> Maybe Text
postTokensRequestBodyAccount'Individual'AddressKanji'PostalCode :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | state
    --
    -- Constraints:
    --
    -- * Maximum length of 5000
    PostTokensRequestBodyAccount'Individual'AddressKanji' -> Maybe Text
postTokensRequestBodyAccount'Individual'AddressKanji'State :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | town
    --
    -- Constraints:
    --
    -- * Maximum length of 5000
    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"))

-- | Create a new 'PostTokensRequestBodyAccount'Individual'AddressKanji'' with all required fields.
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
    }

-- | Defines the object schema located at @paths.\/v1\/tokens.POST.requestBody.content.application\/x-www-form-urlencoded.schema.properties.account.properties.individual.properties.dob.anyOf@ in the specification.
data PostTokensRequestBodyAccount'Individual'Dob'OneOf1 = PostTokensRequestBodyAccount'Individual'Dob'OneOf1
  { -- | day
    PostTokensRequestBodyAccount'Individual'Dob'OneOf1 -> Int
postTokensRequestBodyAccount'Individual'Dob'OneOf1Day :: GHC.Types.Int,
    -- | month
    PostTokensRequestBodyAccount'Individual'Dob'OneOf1 -> Int
postTokensRequestBodyAccount'Individual'Dob'OneOf1Month :: GHC.Types.Int,
    -- | year
    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"))

-- | Create a new 'PostTokensRequestBodyAccount'Individual'Dob'OneOf1' with all required fields.
mkPostTokensRequestBodyAccount'Individual'Dob'OneOf1 ::
  -- | 'postTokensRequestBodyAccount'Individual'Dob'OneOf1Day'
  GHC.Types.Int ->
  -- | 'postTokensRequestBodyAccount'Individual'Dob'OneOf1Month'
  GHC.Types.Int ->
  -- | 'postTokensRequestBodyAccount'Individual'Dob'OneOf1Year'
  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
    }

-- | Defines the oneOf schema located at @paths.\/v1\/tokens.POST.requestBody.content.application\/x-www-form-urlencoded.schema.properties.account.properties.individual.properties.dob.anyOf@ in the specification.
data PostTokensRequestBodyAccount'Individual'Dob'Variants
  = -- | Represents the JSON value @""@
    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

-- | Defines the oneOf schema located at @paths.\/v1\/tokens.POST.requestBody.content.application\/x-www-form-urlencoded.schema.properties.account.properties.individual.properties.metadata.anyOf@ in the specification.
data PostTokensRequestBodyAccount'Individual'Metadata'Variants
  = -- | Represents the JSON value @""@
    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

-- | Defines the enum schema located at @paths.\/v1\/tokens.POST.requestBody.content.application\/x-www-form-urlencoded.schema.properties.account.properties.individual.properties.political_exposure@ in the specification.
data PostTokensRequestBodyAccount'Individual'PoliticalExposure'
  = -- | This case is used if the value encountered during decoding does not match any of the provided cases in the specification.
    PostTokensRequestBodyAccount'Individual'PoliticalExposure'Other Data.Aeson.Types.Internal.Value
  | -- | This constructor can be used to send values to the server which are not present in the specification yet.
    PostTokensRequestBodyAccount'Individual'PoliticalExposure'Typed Data.Text.Internal.Text
  | -- | Represents the JSON value @"existing"@
    PostTokensRequestBodyAccount'Individual'PoliticalExposure'EnumExisting
  | -- | Represents the JSON value @"none"@
    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
      )

-- | Defines the object schema located at @paths.\/v1\/tokens.POST.requestBody.content.application\/x-www-form-urlencoded.schema.properties.account.properties.individual.properties.verification@ in the specification.
data PostTokensRequestBodyAccount'Individual'Verification' = PostTokensRequestBodyAccount'Individual'Verification'
  { -- | additional_document
    PostTokensRequestBodyAccount'Individual'Verification'
-> Maybe
     PostTokensRequestBodyAccount'Individual'Verification'AdditionalDocument'
postTokensRequestBodyAccount'Individual'Verification'AdditionalDocument :: (GHC.Maybe.Maybe PostTokensRequestBodyAccount'Individual'Verification'AdditionalDocument'),
    -- | document
    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"))

-- | Create a new 'PostTokensRequestBodyAccount'Individual'Verification'' with all required fields.
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
    }

-- | Defines the object schema located at @paths.\/v1\/tokens.POST.requestBody.content.application\/x-www-form-urlencoded.schema.properties.account.properties.individual.properties.verification.properties.additional_document@ in the specification.
data PostTokensRequestBodyAccount'Individual'Verification'AdditionalDocument' = PostTokensRequestBodyAccount'Individual'Verification'AdditionalDocument'
  { -- | back
    --
    -- Constraints:
    --
    -- * Maximum length of 500
    PostTokensRequestBodyAccount'Individual'Verification'AdditionalDocument'
-> Maybe Text
postTokensRequestBodyAccount'Individual'Verification'AdditionalDocument'Back :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | front
    --
    -- Constraints:
    --
    -- * Maximum length of 500
    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"))

-- | Create a new 'PostTokensRequestBodyAccount'Individual'Verification'AdditionalDocument'' with all required fields.
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
    }

-- | Defines the object schema located at @paths.\/v1\/tokens.POST.requestBody.content.application\/x-www-form-urlencoded.schema.properties.account.properties.individual.properties.verification.properties.document@ in the specification.
data PostTokensRequestBodyAccount'Individual'Verification'Document' = PostTokensRequestBodyAccount'Individual'Verification'Document'
  { -- | back
    --
    -- Constraints:
    --
    -- * Maximum length of 500
    PostTokensRequestBodyAccount'Individual'Verification'Document'
-> Maybe Text
postTokensRequestBodyAccount'Individual'Verification'Document'Back :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | front
    --
    -- Constraints:
    --
    -- * Maximum length of 500
    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"))

-- | Create a new 'PostTokensRequestBodyAccount'Individual'Verification'Document'' with all required fields.
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
    }

-- | Defines the object schema located at @paths.\/v1\/tokens.POST.requestBody.content.application\/x-www-form-urlencoded.schema.properties.bank_account@ in the specification.
--
-- The bank account this token will represent.
data PostTokensRequestBodyBankAccount' = PostTokensRequestBodyBankAccount'
  { -- | account_holder_name
    --
    -- Constraints:
    --
    -- * Maximum length of 5000
    PostTokensRequestBodyBankAccount' -> Maybe Text
postTokensRequestBodyBankAccount'AccountHolderName :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | account_holder_type
    --
    -- Constraints:
    --
    -- * Maximum length of 5000
    PostTokensRequestBodyBankAccount'
-> Maybe PostTokensRequestBodyBankAccount'AccountHolderType'
postTokensRequestBodyBankAccount'AccountHolderType :: (GHC.Maybe.Maybe PostTokensRequestBodyBankAccount'AccountHolderType'),
    -- | account_number
    --
    -- Constraints:
    --
    -- * Maximum length of 5000
    PostTokensRequestBodyBankAccount' -> Text
postTokensRequestBodyBankAccount'AccountNumber :: Data.Text.Internal.Text,
    -- | country
    --
    -- Constraints:
    --
    -- * Maximum length of 5000
    PostTokensRequestBodyBankAccount' -> Text
postTokensRequestBodyBankAccount'Country :: Data.Text.Internal.Text,
    -- | currency
    PostTokensRequestBodyBankAccount' -> Maybe Text
postTokensRequestBodyBankAccount'Currency :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | routing_number
    --
    -- Constraints:
    --
    -- * Maximum length of 5000
    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"))

-- | Create a new 'PostTokensRequestBodyBankAccount'' with all required fields.
mkPostTokensRequestBodyBankAccount' ::
  -- | 'postTokensRequestBodyBankAccount'AccountNumber'
  Data.Text.Internal.Text ->
  -- | 'postTokensRequestBodyBankAccount'Country'
  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
    }

-- | Defines the enum schema located at @paths.\/v1\/tokens.POST.requestBody.content.application\/x-www-form-urlencoded.schema.properties.bank_account.properties.account_holder_type@ in the specification.
data PostTokensRequestBodyBankAccount'AccountHolderType'
  = -- | This case is used if the value encountered during decoding does not match any of the provided cases in the specification.
    PostTokensRequestBodyBankAccount'AccountHolderType'Other Data.Aeson.Types.Internal.Value
  | -- | This constructor can be used to send values to the server which are not present in the specification yet.
    PostTokensRequestBodyBankAccount'AccountHolderType'Typed Data.Text.Internal.Text
  | -- | Represents the JSON value @"company"@
    PostTokensRequestBodyBankAccount'AccountHolderType'EnumCompany
  | -- | Represents the JSON value @"individual"@
    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
      )

-- | Defines the object schema located at @paths.\/v1\/tokens.POST.requestBody.content.application\/x-www-form-urlencoded.schema.properties.card.anyOf@ in the specification.
data PostTokensRequestBodyCard'OneOf1 = PostTokensRequestBodyCard'OneOf1
  { -- | address_city
    --
    -- Constraints:
    --
    -- * Maximum length of 5000
    PostTokensRequestBodyCard'OneOf1 -> Maybe Text
postTokensRequestBodyCard'OneOf1AddressCity :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | address_country
    --
    -- Constraints:
    --
    -- * Maximum length of 5000
    PostTokensRequestBodyCard'OneOf1 -> Maybe Text
postTokensRequestBodyCard'OneOf1AddressCountry :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | address_line1
    --
    -- Constraints:
    --
    -- * Maximum length of 5000
    PostTokensRequestBodyCard'OneOf1 -> Maybe Text
postTokensRequestBodyCard'OneOf1AddressLine1 :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | address_line2
    --
    -- Constraints:
    --
    -- * Maximum length of 5000
    PostTokensRequestBodyCard'OneOf1 -> Maybe Text
postTokensRequestBodyCard'OneOf1AddressLine2 :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | address_state
    --
    -- Constraints:
    --
    -- * Maximum length of 5000
    PostTokensRequestBodyCard'OneOf1 -> Maybe Text
postTokensRequestBodyCard'OneOf1AddressState :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | address_zip
    --
    -- Constraints:
    --
    -- * Maximum length of 5000
    PostTokensRequestBodyCard'OneOf1 -> Maybe Text
postTokensRequestBodyCard'OneOf1AddressZip :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | currency
    --
    -- Constraints:
    --
    -- * Maximum length of 5000
    PostTokensRequestBodyCard'OneOf1 -> Maybe Text
postTokensRequestBodyCard'OneOf1Currency :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | cvc
    --
    -- Constraints:
    --
    -- * Maximum length of 5000
    PostTokensRequestBodyCard'OneOf1 -> Maybe Text
postTokensRequestBodyCard'OneOf1Cvc :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | exp_month
    --
    -- Constraints:
    --
    -- * Maximum length of 5000
    PostTokensRequestBodyCard'OneOf1 -> Text
postTokensRequestBodyCard'OneOf1ExpMonth :: Data.Text.Internal.Text,
    -- | exp_year
    --
    -- Constraints:
    --
    -- * Maximum length of 5000
    PostTokensRequestBodyCard'OneOf1 -> Text
postTokensRequestBodyCard'OneOf1ExpYear :: Data.Text.Internal.Text,
    -- | name
    --
    -- Constraints:
    --
    -- * Maximum length of 5000
    PostTokensRequestBodyCard'OneOf1 -> Maybe Text
postTokensRequestBodyCard'OneOf1Name :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | number
    --
    -- Constraints:
    --
    -- * Maximum length of 5000
    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"))

-- | Create a new 'PostTokensRequestBodyCard'OneOf1' with all required fields.
mkPostTokensRequestBodyCard'OneOf1 ::
  -- | 'postTokensRequestBodyCard'OneOf1ExpMonth'
  Data.Text.Internal.Text ->
  -- | 'postTokensRequestBodyCard'OneOf1ExpYear'
  Data.Text.Internal.Text ->
  -- | 'postTokensRequestBodyCard'OneOf1Number'
  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
    }

-- | Defines the oneOf schema located at @paths.\/v1\/tokens.POST.requestBody.content.application\/x-www-form-urlencoded.schema.properties.card.anyOf@ in the specification.
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

-- | Defines the object schema located at @paths.\/v1\/tokens.POST.requestBody.content.application\/x-www-form-urlencoded.schema.properties.cvc_update@ in the specification.
--
-- The updated CVC value this token will represent.
data PostTokensRequestBodyCvcUpdate' = PostTokensRequestBodyCvcUpdate'
  { -- | cvc
    --
    -- Constraints:
    --
    -- * Maximum length of 5000
    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"))

-- | Create a new 'PostTokensRequestBodyCvcUpdate'' with all required fields.
mkPostTokensRequestBodyCvcUpdate' ::
  -- | 'postTokensRequestBodyCvcUpdate'Cvc'
  Data.Text.Internal.Text ->
  PostTokensRequestBodyCvcUpdate'
mkPostTokensRequestBodyCvcUpdate' :: Text -> PostTokensRequestBodyCvcUpdate'
mkPostTokensRequestBodyCvcUpdate' Text
postTokensRequestBodyCvcUpdate'Cvc = PostTokensRequestBodyCvcUpdate' :: Text -> PostTokensRequestBodyCvcUpdate'
PostTokensRequestBodyCvcUpdate' {postTokensRequestBodyCvcUpdate'Cvc :: Text
postTokensRequestBodyCvcUpdate'Cvc = Text
postTokensRequestBodyCvcUpdate'Cvc}

-- | Defines the object schema located at @paths.\/v1\/tokens.POST.requestBody.content.application\/x-www-form-urlencoded.schema.properties.person@ in the specification.
--
-- Information for the person this token will represent.
data PostTokensRequestBodyPerson' = PostTokensRequestBodyPerson'
  { -- | address
    PostTokensRequestBodyPerson'
-> Maybe PostTokensRequestBodyPerson'Address'
postTokensRequestBodyPerson'Address :: (GHC.Maybe.Maybe PostTokensRequestBodyPerson'Address'),
    -- | address_kana
    PostTokensRequestBodyPerson'
-> Maybe PostTokensRequestBodyPerson'AddressKana'
postTokensRequestBodyPerson'AddressKana :: (GHC.Maybe.Maybe PostTokensRequestBodyPerson'AddressKana'),
    -- | address_kanji
    PostTokensRequestBodyPerson'
-> Maybe PostTokensRequestBodyPerson'AddressKanji'
postTokensRequestBodyPerson'AddressKanji :: (GHC.Maybe.Maybe PostTokensRequestBodyPerson'AddressKanji'),
    -- | dob
    PostTokensRequestBodyPerson'
-> Maybe PostTokensRequestBodyPerson'Dob'Variants
postTokensRequestBodyPerson'Dob :: (GHC.Maybe.Maybe PostTokensRequestBodyPerson'Dob'Variants),
    -- | documents
    PostTokensRequestBodyPerson'
-> Maybe PostTokensRequestBodyPerson'Documents'
postTokensRequestBodyPerson'Documents :: (GHC.Maybe.Maybe PostTokensRequestBodyPerson'Documents'),
    -- | email
    PostTokensRequestBodyPerson' -> Maybe Text
postTokensRequestBodyPerson'Email :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | first_name
    --
    -- Constraints:
    --
    -- * Maximum length of 5000
    PostTokensRequestBodyPerson' -> Maybe Text
postTokensRequestBodyPerson'FirstName :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | first_name_kana
    --
    -- Constraints:
    --
    -- * Maximum length of 5000
    PostTokensRequestBodyPerson' -> Maybe Text
postTokensRequestBodyPerson'FirstNameKana :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | first_name_kanji
    --
    -- Constraints:
    --
    -- * Maximum length of 5000
    PostTokensRequestBodyPerson' -> Maybe Text
postTokensRequestBodyPerson'FirstNameKanji :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | gender
    PostTokensRequestBodyPerson' -> Maybe Text
postTokensRequestBodyPerson'Gender :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | id_number
    --
    -- Constraints:
    --
    -- * Maximum length of 5000
    PostTokensRequestBodyPerson' -> Maybe Text
postTokensRequestBodyPerson'IdNumber :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | last_name
    --
    -- Constraints:
    --
    -- * Maximum length of 5000
    PostTokensRequestBodyPerson' -> Maybe Text
postTokensRequestBodyPerson'LastName :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | last_name_kana
    --
    -- Constraints:
    --
    -- * Maximum length of 5000
    PostTokensRequestBodyPerson' -> Maybe Text
postTokensRequestBodyPerson'LastNameKana :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | last_name_kanji
    --
    -- Constraints:
    --
    -- * Maximum length of 5000
    PostTokensRequestBodyPerson' -> Maybe Text
postTokensRequestBodyPerson'LastNameKanji :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | maiden_name
    --
    -- Constraints:
    --
    -- * Maximum length of 5000
    PostTokensRequestBodyPerson' -> Maybe Text
postTokensRequestBodyPerson'MaidenName :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | metadata
    PostTokensRequestBodyPerson'
-> Maybe PostTokensRequestBodyPerson'Metadata'Variants
postTokensRequestBodyPerson'Metadata :: (GHC.Maybe.Maybe PostTokensRequestBodyPerson'Metadata'Variants),
    -- | nationality
    --
    -- Constraints:
    --
    -- * Maximum length of 5000
    PostTokensRequestBodyPerson' -> Maybe Text
postTokensRequestBodyPerson'Nationality :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | phone
    PostTokensRequestBodyPerson' -> Maybe Text
postTokensRequestBodyPerson'Phone :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | political_exposure
    --
    -- Constraints:
    --
    -- * Maximum length of 5000
    PostTokensRequestBodyPerson' -> Maybe Text
postTokensRequestBodyPerson'PoliticalExposure :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | relationship
    PostTokensRequestBodyPerson'
-> Maybe PostTokensRequestBodyPerson'Relationship'
postTokensRequestBodyPerson'Relationship :: (GHC.Maybe.Maybe PostTokensRequestBodyPerson'Relationship'),
    -- | ssn_last_4
    PostTokensRequestBodyPerson' -> Maybe Text
postTokensRequestBodyPerson'SsnLast_4 :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | verification
    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"))

-- | Create a new 'PostTokensRequestBodyPerson'' with all required fields.
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
    }

-- | Defines the object schema located at @paths.\/v1\/tokens.POST.requestBody.content.application\/x-www-form-urlencoded.schema.properties.person.properties.address@ in the specification.
data PostTokensRequestBodyPerson'Address' = PostTokensRequestBodyPerson'Address'
  { -- | city
    --
    -- Constraints:
    --
    -- * Maximum length of 100
    PostTokensRequestBodyPerson'Address' -> Maybe Text
postTokensRequestBodyPerson'Address'City :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | country
    --
    -- Constraints:
    --
    -- * Maximum length of 5000
    PostTokensRequestBodyPerson'Address' -> Maybe Text
postTokensRequestBodyPerson'Address'Country :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | line1
    --
    -- Constraints:
    --
    -- * Maximum length of 200
    PostTokensRequestBodyPerson'Address' -> Maybe Text
postTokensRequestBodyPerson'Address'Line1 :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | line2
    --
    -- Constraints:
    --
    -- * Maximum length of 200
    PostTokensRequestBodyPerson'Address' -> Maybe Text
postTokensRequestBodyPerson'Address'Line2 :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | postal_code
    --
    -- Constraints:
    --
    -- * Maximum length of 5000
    PostTokensRequestBodyPerson'Address' -> Maybe Text
postTokensRequestBodyPerson'Address'PostalCode :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | state
    --
    -- Constraints:
    --
    -- * Maximum length of 5000
    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"))

-- | Create a new 'PostTokensRequestBodyPerson'Address'' with all required fields.
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
    }

-- | Defines the object schema located at @paths.\/v1\/tokens.POST.requestBody.content.application\/x-www-form-urlencoded.schema.properties.person.properties.address_kana@ in the specification.
data PostTokensRequestBodyPerson'AddressKana' = PostTokensRequestBodyPerson'AddressKana'
  { -- | city
    --
    -- Constraints:
    --
    -- * Maximum length of 5000
    PostTokensRequestBodyPerson'AddressKana' -> Maybe Text
postTokensRequestBodyPerson'AddressKana'City :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | country
    --
    -- Constraints:
    --
    -- * Maximum length of 5000
    PostTokensRequestBodyPerson'AddressKana' -> Maybe Text
postTokensRequestBodyPerson'AddressKana'Country :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | line1
    --
    -- Constraints:
    --
    -- * Maximum length of 5000
    PostTokensRequestBodyPerson'AddressKana' -> Maybe Text
postTokensRequestBodyPerson'AddressKana'Line1 :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | line2
    --
    -- Constraints:
    --
    -- * Maximum length of 5000
    PostTokensRequestBodyPerson'AddressKana' -> Maybe Text
postTokensRequestBodyPerson'AddressKana'Line2 :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | postal_code
    --
    -- Constraints:
    --
    -- * Maximum length of 5000
    PostTokensRequestBodyPerson'AddressKana' -> Maybe Text
postTokensRequestBodyPerson'AddressKana'PostalCode :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | state
    --
    -- Constraints:
    --
    -- * Maximum length of 5000
    PostTokensRequestBodyPerson'AddressKana' -> Maybe Text
postTokensRequestBodyPerson'AddressKana'State :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | town
    --
    -- Constraints:
    --
    -- * Maximum length of 5000
    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"))

-- | Create a new 'PostTokensRequestBodyPerson'AddressKana'' with all required fields.
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
    }

-- | Defines the object schema located at @paths.\/v1\/tokens.POST.requestBody.content.application\/x-www-form-urlencoded.schema.properties.person.properties.address_kanji@ in the specification.
data PostTokensRequestBodyPerson'AddressKanji' = PostTokensRequestBodyPerson'AddressKanji'
  { -- | city
    --
    -- Constraints:
    --
    -- * Maximum length of 5000
    PostTokensRequestBodyPerson'AddressKanji' -> Maybe Text
postTokensRequestBodyPerson'AddressKanji'City :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | country
    --
    -- Constraints:
    --
    -- * Maximum length of 5000
    PostTokensRequestBodyPerson'AddressKanji' -> Maybe Text
postTokensRequestBodyPerson'AddressKanji'Country :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | line1
    --
    -- Constraints:
    --
    -- * Maximum length of 5000
    PostTokensRequestBodyPerson'AddressKanji' -> Maybe Text
postTokensRequestBodyPerson'AddressKanji'Line1 :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | line2
    --
    -- Constraints:
    --
    -- * Maximum length of 5000
    PostTokensRequestBodyPerson'AddressKanji' -> Maybe Text
postTokensRequestBodyPerson'AddressKanji'Line2 :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | postal_code
    --
    -- Constraints:
    --
    -- * Maximum length of 5000
    PostTokensRequestBodyPerson'AddressKanji' -> Maybe Text
postTokensRequestBodyPerson'AddressKanji'PostalCode :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | state
    --
    -- Constraints:
    --
    -- * Maximum length of 5000
    PostTokensRequestBodyPerson'AddressKanji' -> Maybe Text
postTokensRequestBodyPerson'AddressKanji'State :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | town
    --
    -- Constraints:
    --
    -- * Maximum length of 5000
    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"))

-- | Create a new 'PostTokensRequestBodyPerson'AddressKanji'' with all required fields.
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
    }

-- | Defines the object schema located at @paths.\/v1\/tokens.POST.requestBody.content.application\/x-www-form-urlencoded.schema.properties.person.properties.dob.anyOf@ in the specification.
data PostTokensRequestBodyPerson'Dob'OneOf1 = PostTokensRequestBodyPerson'Dob'OneOf1
  { -- | day
    PostTokensRequestBodyPerson'Dob'OneOf1 -> Int
postTokensRequestBodyPerson'Dob'OneOf1Day :: GHC.Types.Int,
    -- | month
    PostTokensRequestBodyPerson'Dob'OneOf1 -> Int
postTokensRequestBodyPerson'Dob'OneOf1Month :: GHC.Types.Int,
    -- | year
    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"))

-- | Create a new 'PostTokensRequestBodyPerson'Dob'OneOf1' with all required fields.
mkPostTokensRequestBodyPerson'Dob'OneOf1 ::
  -- | 'postTokensRequestBodyPerson'Dob'OneOf1Day'
  GHC.Types.Int ->
  -- | 'postTokensRequestBodyPerson'Dob'OneOf1Month'
  GHC.Types.Int ->
  -- | 'postTokensRequestBodyPerson'Dob'OneOf1Year'
  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
    }

-- | Defines the oneOf schema located at @paths.\/v1\/tokens.POST.requestBody.content.application\/x-www-form-urlencoded.schema.properties.person.properties.dob.anyOf@ in the specification.
data PostTokensRequestBodyPerson'Dob'Variants
  = -- | Represents the JSON value @""@
    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

-- | Defines the object schema located at @paths.\/v1\/tokens.POST.requestBody.content.application\/x-www-form-urlencoded.schema.properties.person.properties.documents@ in the specification.
data PostTokensRequestBodyPerson'Documents' = PostTokensRequestBodyPerson'Documents'
  { -- | company_authorization
    PostTokensRequestBodyPerson'Documents'
-> Maybe
     PostTokensRequestBodyPerson'Documents'CompanyAuthorization'
postTokensRequestBodyPerson'Documents'CompanyAuthorization :: (GHC.Maybe.Maybe PostTokensRequestBodyPerson'Documents'CompanyAuthorization'),
    -- | passport
    PostTokensRequestBodyPerson'Documents'
-> Maybe PostTokensRequestBodyPerson'Documents'Passport'
postTokensRequestBodyPerson'Documents'Passport :: (GHC.Maybe.Maybe PostTokensRequestBodyPerson'Documents'Passport'),
    -- | visa
    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"))

-- | Create a new 'PostTokensRequestBodyPerson'Documents'' with all required fields.
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
    }

-- | Defines the object schema located at @paths.\/v1\/tokens.POST.requestBody.content.application\/x-www-form-urlencoded.schema.properties.person.properties.documents.properties.company_authorization@ in the specification.
data PostTokensRequestBodyPerson'Documents'CompanyAuthorization' = PostTokensRequestBodyPerson'Documents'CompanyAuthorization'
  { -- | files
    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"))

-- | Create a new 'PostTokensRequestBodyPerson'Documents'CompanyAuthorization'' with all required fields.
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}

-- | Defines the object schema located at @paths.\/v1\/tokens.POST.requestBody.content.application\/x-www-form-urlencoded.schema.properties.person.properties.documents.properties.passport@ in the specification.
data PostTokensRequestBodyPerson'Documents'Passport' = PostTokensRequestBodyPerson'Documents'Passport'
  { -- | files
    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"))

-- | Create a new 'PostTokensRequestBodyPerson'Documents'Passport'' with all required fields.
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}

-- | Defines the object schema located at @paths.\/v1\/tokens.POST.requestBody.content.application\/x-www-form-urlencoded.schema.properties.person.properties.documents.properties.visa@ in the specification.
data PostTokensRequestBodyPerson'Documents'Visa' = PostTokensRequestBodyPerson'Documents'Visa'
  { -- | files
    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"))

-- | Create a new 'PostTokensRequestBodyPerson'Documents'Visa'' with all required fields.
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}

-- | Defines the oneOf schema located at @paths.\/v1\/tokens.POST.requestBody.content.application\/x-www-form-urlencoded.schema.properties.person.properties.metadata.anyOf@ in the specification.
data PostTokensRequestBodyPerson'Metadata'Variants
  = -- | Represents the JSON value @""@
    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

-- | Defines the object schema located at @paths.\/v1\/tokens.POST.requestBody.content.application\/x-www-form-urlencoded.schema.properties.person.properties.relationship@ in the specification.
data PostTokensRequestBodyPerson'Relationship' = PostTokensRequestBodyPerson'Relationship'
  { -- | director
    PostTokensRequestBodyPerson'Relationship' -> Maybe Bool
postTokensRequestBodyPerson'Relationship'Director :: (GHC.Maybe.Maybe GHC.Types.Bool),
    -- | executive
    PostTokensRequestBodyPerson'Relationship' -> Maybe Bool
postTokensRequestBodyPerson'Relationship'Executive :: (GHC.Maybe.Maybe GHC.Types.Bool),
    -- | owner
    PostTokensRequestBodyPerson'Relationship' -> Maybe Bool
postTokensRequestBodyPerson'Relationship'Owner :: (GHC.Maybe.Maybe GHC.Types.Bool),
    -- | percent_ownership
    PostTokensRequestBodyPerson'Relationship'
-> Maybe
     PostTokensRequestBodyPerson'Relationship'PercentOwnership'Variants
postTokensRequestBodyPerson'Relationship'PercentOwnership :: (GHC.Maybe.Maybe PostTokensRequestBodyPerson'Relationship'PercentOwnership'Variants),
    -- | representative
    PostTokensRequestBodyPerson'Relationship' -> Maybe Bool
postTokensRequestBodyPerson'Relationship'Representative :: (GHC.Maybe.Maybe GHC.Types.Bool),
    -- | title
    --
    -- Constraints:
    --
    -- * Maximum length of 5000
    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"))

-- | Create a new 'PostTokensRequestBodyPerson'Relationship'' with all required fields.
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
    }

-- | Defines the oneOf schema located at @paths.\/v1\/tokens.POST.requestBody.content.application\/x-www-form-urlencoded.schema.properties.person.properties.relationship.properties.percent_ownership.anyOf@ in the specification.
data PostTokensRequestBodyPerson'Relationship'PercentOwnership'Variants
  = -- | Represents the JSON value @""@
    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

-- | Defines the object schema located at @paths.\/v1\/tokens.POST.requestBody.content.application\/x-www-form-urlencoded.schema.properties.person.properties.verification@ in the specification.
data PostTokensRequestBodyPerson'Verification' = PostTokensRequestBodyPerson'Verification'
  { -- | additional_document
    PostTokensRequestBodyPerson'Verification'
-> Maybe
     PostTokensRequestBodyPerson'Verification'AdditionalDocument'
postTokensRequestBodyPerson'Verification'AdditionalDocument :: (GHC.Maybe.Maybe PostTokensRequestBodyPerson'Verification'AdditionalDocument'),
    -- | document
    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"))

-- | Create a new 'PostTokensRequestBodyPerson'Verification'' with all required fields.
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
    }

-- | Defines the object schema located at @paths.\/v1\/tokens.POST.requestBody.content.application\/x-www-form-urlencoded.schema.properties.person.properties.verification.properties.additional_document@ in the specification.
data PostTokensRequestBodyPerson'Verification'AdditionalDocument' = PostTokensRequestBodyPerson'Verification'AdditionalDocument'
  { -- | back
    --
    -- Constraints:
    --
    -- * Maximum length of 500
    PostTokensRequestBodyPerson'Verification'AdditionalDocument'
-> Maybe Text
postTokensRequestBodyPerson'Verification'AdditionalDocument'Back :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | front
    --
    -- Constraints:
    --
    -- * Maximum length of 500
    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"))

-- | Create a new 'PostTokensRequestBodyPerson'Verification'AdditionalDocument'' with all required fields.
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
    }

-- | Defines the object schema located at @paths.\/v1\/tokens.POST.requestBody.content.application\/x-www-form-urlencoded.schema.properties.person.properties.verification.properties.document@ in the specification.
data PostTokensRequestBodyPerson'Verification'Document' = PostTokensRequestBodyPerson'Verification'Document'
  { -- | back
    --
    -- Constraints:
    --
    -- * Maximum length of 500
    PostTokensRequestBodyPerson'Verification'Document' -> Maybe Text
postTokensRequestBodyPerson'Verification'Document'Back :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | front
    --
    -- Constraints:
    --
    -- * Maximum length of 500
    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"))

-- | Create a new 'PostTokensRequestBodyPerson'Verification'Document'' with all required fields.
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
    }

-- | Defines the object schema located at @paths.\/v1\/tokens.POST.requestBody.content.application\/x-www-form-urlencoded.schema.properties.pii@ in the specification.
--
-- The PII this token will represent.
data PostTokensRequestBodyPii' = PostTokensRequestBodyPii'
  { -- | id_number
    --
    -- Constraints:
    --
    -- * Maximum length of 5000
    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"))

-- | Create a new 'PostTokensRequestBodyPii'' with all required fields.
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}

-- | Represents a response of the operation 'postTokens'.
--
-- The response constructor is chosen by the status code of the response. If no case matches (no specific case for the response code, no range case, no default case), 'PostTokensResponseError' is used.
data PostTokensResponse
  = -- | Means either no matching case available or a parse error
    PostTokensResponseError GHC.Base.String
  | -- | Successful response.
    PostTokensResponse200 Token
  | -- | Error response.
    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)