{-# 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 postAccountsAccountPeople
module StripeAPI.Operations.PostAccountsAccountPeople 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/accounts/{account}/people
--
-- \<p>Creates a new person.\<\/p>
postAccountsAccountPeople ::
  forall m.
  StripeAPI.Common.MonadHTTP m =>
  -- | account | Constraints: Maximum length of 5000
  Data.Text.Internal.Text ->
  -- | The request body to send
  GHC.Maybe.Maybe PostAccountsAccountPeopleRequestBody ->
  -- | Monadic computation which returns the result of the operation
  StripeAPI.Common.ClientT m (Network.HTTP.Client.Types.Response PostAccountsAccountPeopleResponse)
postAccountsAccountPeople :: Text
-> Maybe PostAccountsAccountPeopleRequestBody
-> ClientT m (Response PostAccountsAccountPeopleResponse)
postAccountsAccountPeople
  Text
account
  Maybe PostAccountsAccountPeopleRequestBody
body =
    (Response ByteString -> Response PostAccountsAccountPeopleResponse)
-> ClientT m (Response ByteString)
-> ClientT m (Response PostAccountsAccountPeopleResponse)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
GHC.Base.fmap
      ( \Response ByteString
response_0 ->
          (ByteString -> PostAccountsAccountPeopleResponse)
-> Response ByteString
-> Response PostAccountsAccountPeopleResponse
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
GHC.Base.fmap
            ( (String -> PostAccountsAccountPeopleResponse)
-> (PostAccountsAccountPeopleResponse
    -> PostAccountsAccountPeopleResponse)
-> Either String PostAccountsAccountPeopleResponse
-> PostAccountsAccountPeopleResponse
forall a c b. (a -> c) -> (b -> c) -> Either a b -> c
Data.Either.either String -> PostAccountsAccountPeopleResponse
PostAccountsAccountPeopleResponseError PostAccountsAccountPeopleResponse
-> PostAccountsAccountPeopleResponse
forall a. a -> a
GHC.Base.id
                (Either String PostAccountsAccountPeopleResponse
 -> PostAccountsAccountPeopleResponse)
-> (ByteString -> Either String PostAccountsAccountPeopleResponse)
-> ByteString
-> PostAccountsAccountPeopleResponse
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) ->
                                     Person -> PostAccountsAccountPeopleResponse
PostAccountsAccountPeopleResponse200
                                       (Person -> PostAccountsAccountPeopleResponse)
-> Either String Person
-> Either String PostAccountsAccountPeopleResponse
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Data.Functor.<$> ( ByteString -> Either String Person
forall a. FromJSON a => ByteString -> Either String a
Data.Aeson.eitherDecodeStrict ByteString
body ::
                                                            Data.Either.Either
                                                              GHC.Base.String
                                                              Person
                                                        )
                                   | 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 -> PostAccountsAccountPeopleResponse
PostAccountsAccountPeopleResponseDefault
                                       (Error -> PostAccountsAccountPeopleResponse)
-> Either String Error
-> Either String PostAccountsAccountPeopleResponse
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 PostAccountsAccountPeopleResponse
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 PostAccountsAccountPeopleRequestBody
-> RequestBodyEncoding
-> ClientT m (Response ByteString)
forall (m :: * -> *) body.
(MonadHTTP m, ToJSON body) =>
Text
-> Text
-> [QueryParameter]
-> Maybe body
-> RequestBodyEncoding
-> ClientT 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/accounts/" String -> String -> String
forall a. [a] -> [a] -> [a]
GHC.Base.++ (ByteString -> String
Data.ByteString.Char8.unpack (Bool -> ByteString -> ByteString
Network.HTTP.Types.URI.urlEncode Bool
GHC.Types.True (ByteString -> ByteString) -> ByteString -> ByteString
forall a b. (a -> b) -> a -> b
GHC.Base.$ (String -> ByteString
Data.ByteString.Char8.pack (String -> ByteString) -> String -> ByteString
forall a b. (a -> b) -> a -> b
GHC.Base.$ Text -> String
forall a. StringifyModel a => a -> String
StripeAPI.Common.stringifyModel Text
account)) String -> String -> String
forall a. [a] -> [a] -> [a]
GHC.Base.++ String
"/people"))) [QueryParameter]
forall a. Monoid a => a
GHC.Base.mempty Maybe PostAccountsAccountPeopleRequestBody
body RequestBodyEncoding
StripeAPI.Common.RequestBodyEncodingFormData)

-- | Defines the object schema located at @paths.\/v1\/accounts\/{account}\/people.POST.requestBody.content.application\/x-www-form-urlencoded.schema@ in the specification.
data PostAccountsAccountPeopleRequestBody = PostAccountsAccountPeopleRequestBody
  { -- | address: The person\'s address.
    PostAccountsAccountPeopleRequestBody
-> Maybe PostAccountsAccountPeopleRequestBodyAddress'
postAccountsAccountPeopleRequestBodyAddress :: (GHC.Maybe.Maybe PostAccountsAccountPeopleRequestBodyAddress'),
    -- | address_kana: The Kana variation of the person\'s address (Japan only).
    PostAccountsAccountPeopleRequestBody
-> Maybe PostAccountsAccountPeopleRequestBodyAddressKana'
postAccountsAccountPeopleRequestBodyAddressKana :: (GHC.Maybe.Maybe PostAccountsAccountPeopleRequestBodyAddressKana'),
    -- | address_kanji: The Kanji variation of the person\'s address (Japan only).
    PostAccountsAccountPeopleRequestBody
-> Maybe PostAccountsAccountPeopleRequestBodyAddressKanji'
postAccountsAccountPeopleRequestBodyAddressKanji :: (GHC.Maybe.Maybe PostAccountsAccountPeopleRequestBodyAddressKanji'),
    -- | dob: The person\'s date of birth.
    PostAccountsAccountPeopleRequestBody
-> Maybe PostAccountsAccountPeopleRequestBodyDob'Variants
postAccountsAccountPeopleRequestBodyDob :: (GHC.Maybe.Maybe PostAccountsAccountPeopleRequestBodyDob'Variants),
    -- | documents: Documents that may be submitted to satisfy various informational requests.
    PostAccountsAccountPeopleRequestBody
-> Maybe PostAccountsAccountPeopleRequestBodyDocuments'
postAccountsAccountPeopleRequestBodyDocuments :: (GHC.Maybe.Maybe PostAccountsAccountPeopleRequestBodyDocuments'),
    -- | email: The person\'s email address.
    PostAccountsAccountPeopleRequestBody -> Maybe Text
postAccountsAccountPeopleRequestBodyEmail :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | expand: Specifies which fields in the response should be expanded.
    PostAccountsAccountPeopleRequestBody -> Maybe [Text]
postAccountsAccountPeopleRequestBodyExpand :: (GHC.Maybe.Maybe ([Data.Text.Internal.Text])),
    -- | first_name: The person\'s first name.
    --
    -- Constraints:
    --
    -- * Maximum length of 5000
    PostAccountsAccountPeopleRequestBody -> Maybe Text
postAccountsAccountPeopleRequestBodyFirstName :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | first_name_kana: The Kana variation of the person\'s first name (Japan only).
    --
    -- Constraints:
    --
    -- * Maximum length of 5000
    PostAccountsAccountPeopleRequestBody -> Maybe Text
postAccountsAccountPeopleRequestBodyFirstNameKana :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | first_name_kanji: The Kanji variation of the person\'s first name (Japan only).
    --
    -- Constraints:
    --
    -- * Maximum length of 5000
    PostAccountsAccountPeopleRequestBody -> Maybe Text
postAccountsAccountPeopleRequestBodyFirstNameKanji :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | gender: The person\'s gender (International regulations require either \"male\" or \"female\").
    PostAccountsAccountPeopleRequestBody -> Maybe Text
postAccountsAccountPeopleRequestBodyGender :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | id_number: The person\'s ID number, as appropriate for their country. For example, a social security number in the U.S., social insurance number in Canada, etc. Instead of the number itself, you can also provide a [PII token provided by Stripe.js](https:\/\/stripe.com\/docs\/stripe.js\#collecting-pii-data).
    --
    -- Constraints:
    --
    -- * Maximum length of 5000
    PostAccountsAccountPeopleRequestBody -> Maybe Text
postAccountsAccountPeopleRequestBodyIdNumber :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | last_name: The person\'s last name.
    --
    -- Constraints:
    --
    -- * Maximum length of 5000
    PostAccountsAccountPeopleRequestBody -> Maybe Text
postAccountsAccountPeopleRequestBodyLastName :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | last_name_kana: The Kana variation of the person\'s last name (Japan only).
    --
    -- Constraints:
    --
    -- * Maximum length of 5000
    PostAccountsAccountPeopleRequestBody -> Maybe Text
postAccountsAccountPeopleRequestBodyLastNameKana :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | last_name_kanji: The Kanji variation of the person\'s last name (Japan only).
    --
    -- Constraints:
    --
    -- * Maximum length of 5000
    PostAccountsAccountPeopleRequestBody -> Maybe Text
postAccountsAccountPeopleRequestBodyLastNameKanji :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | maiden_name: The person\'s maiden name.
    --
    -- Constraints:
    --
    -- * Maximum length of 5000
    PostAccountsAccountPeopleRequestBody -> Maybe Text
postAccountsAccountPeopleRequestBodyMaidenName :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | metadata: Set of [key-value pairs](https:\/\/stripe.com\/docs\/api\/metadata) that you can attach to an object. This can be useful for storing additional information about the object in a structured format. Individual keys can be unset by posting an empty value to them. All keys can be unset by posting an empty value to \`metadata\`.
    PostAccountsAccountPeopleRequestBody
-> Maybe PostAccountsAccountPeopleRequestBodyMetadata'Variants
postAccountsAccountPeopleRequestBodyMetadata :: (GHC.Maybe.Maybe PostAccountsAccountPeopleRequestBodyMetadata'Variants),
    -- | nationality: The country where the person is a national. Two-letter country code ([ISO 3166-1 alpha-2](https:\/\/en.wikipedia.org\/wiki\/ISO_3166-1_alpha-2)), or \"XX\" if unavailable.
    --
    -- Constraints:
    --
    -- * Maximum length of 5000
    PostAccountsAccountPeopleRequestBody -> Maybe Text
postAccountsAccountPeopleRequestBodyNationality :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | person_token: A [person token](https:\/\/stripe.com\/docs\/connect\/account-tokens), used to securely provide details to the person.
    --
    -- Constraints:
    --
    -- * Maximum length of 5000
    PostAccountsAccountPeopleRequestBody -> Maybe Text
postAccountsAccountPeopleRequestBodyPersonToken :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | phone: The person\'s phone number.
    PostAccountsAccountPeopleRequestBody -> Maybe Text
postAccountsAccountPeopleRequestBodyPhone :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | political_exposure: Indicates if the person or any of their representatives, family members, or other closely related persons, declares that they hold or have held an important public job or function, in any jurisdiction.
    --
    -- Constraints:
    --
    -- * Maximum length of 5000
    PostAccountsAccountPeopleRequestBody -> Maybe Text
postAccountsAccountPeopleRequestBodyPoliticalExposure :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | relationship: The relationship that this person has with the account\'s legal entity.
    PostAccountsAccountPeopleRequestBody
-> Maybe PostAccountsAccountPeopleRequestBodyRelationship'
postAccountsAccountPeopleRequestBodyRelationship :: (GHC.Maybe.Maybe PostAccountsAccountPeopleRequestBodyRelationship'),
    -- | ssn_last_4: The last four digits of the person\'s Social Security number (U.S. only).
    PostAccountsAccountPeopleRequestBody -> Maybe Text
postAccountsAccountPeopleRequestBodySsnLast_4 :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | verification: The person\'s verification status.
    PostAccountsAccountPeopleRequestBody
-> Maybe PostAccountsAccountPeopleRequestBodyVerification'
postAccountsAccountPeopleRequestBodyVerification :: (GHC.Maybe.Maybe PostAccountsAccountPeopleRequestBodyVerification')
  }
  deriving
    ( Int -> PostAccountsAccountPeopleRequestBody -> String -> String
[PostAccountsAccountPeopleRequestBody] -> String -> String
PostAccountsAccountPeopleRequestBody -> String
(Int -> PostAccountsAccountPeopleRequestBody -> String -> String)
-> (PostAccountsAccountPeopleRequestBody -> String)
-> ([PostAccountsAccountPeopleRequestBody] -> String -> String)
-> Show PostAccountsAccountPeopleRequestBody
forall a.
(Int -> a -> String -> String)
-> (a -> String) -> ([a] -> String -> String) -> Show a
showList :: [PostAccountsAccountPeopleRequestBody] -> String -> String
$cshowList :: [PostAccountsAccountPeopleRequestBody] -> String -> String
show :: PostAccountsAccountPeopleRequestBody -> String
$cshow :: PostAccountsAccountPeopleRequestBody -> String
showsPrec :: Int -> PostAccountsAccountPeopleRequestBody -> String -> String
$cshowsPrec :: Int -> PostAccountsAccountPeopleRequestBody -> String -> String
GHC.Show.Show,
      PostAccountsAccountPeopleRequestBody
-> PostAccountsAccountPeopleRequestBody -> Bool
(PostAccountsAccountPeopleRequestBody
 -> PostAccountsAccountPeopleRequestBody -> Bool)
-> (PostAccountsAccountPeopleRequestBody
    -> PostAccountsAccountPeopleRequestBody -> Bool)
-> Eq PostAccountsAccountPeopleRequestBody
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostAccountsAccountPeopleRequestBody
-> PostAccountsAccountPeopleRequestBody -> Bool
$c/= :: PostAccountsAccountPeopleRequestBody
-> PostAccountsAccountPeopleRequestBody -> Bool
== :: PostAccountsAccountPeopleRequestBody
-> PostAccountsAccountPeopleRequestBody -> Bool
$c== :: PostAccountsAccountPeopleRequestBody
-> PostAccountsAccountPeopleRequestBody -> Bool
GHC.Classes.Eq
    )

instance Data.Aeson.Types.ToJSON.ToJSON PostAccountsAccountPeopleRequestBody where
  toJSON :: PostAccountsAccountPeopleRequestBody -> Value
toJSON PostAccountsAccountPeopleRequestBody
obj = [Pair] -> Value
Data.Aeson.Types.Internal.object (Text
"address" Text -> Maybe PostAccountsAccountPeopleRequestBodyAddress' -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsAccountPeopleRequestBody
-> Maybe PostAccountsAccountPeopleRequestBodyAddress'
postAccountsAccountPeopleRequestBodyAddress PostAccountsAccountPeopleRequestBody
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"address_kana" Text
-> Maybe PostAccountsAccountPeopleRequestBodyAddressKana' -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsAccountPeopleRequestBody
-> Maybe PostAccountsAccountPeopleRequestBodyAddressKana'
postAccountsAccountPeopleRequestBodyAddressKana PostAccountsAccountPeopleRequestBody
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"address_kanji" Text
-> Maybe PostAccountsAccountPeopleRequestBodyAddressKanji' -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsAccountPeopleRequestBody
-> Maybe PostAccountsAccountPeopleRequestBodyAddressKanji'
postAccountsAccountPeopleRequestBodyAddressKanji PostAccountsAccountPeopleRequestBody
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"dob" Text
-> Maybe PostAccountsAccountPeopleRequestBodyDob'Variants -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsAccountPeopleRequestBody
-> Maybe PostAccountsAccountPeopleRequestBodyDob'Variants
postAccountsAccountPeopleRequestBodyDob PostAccountsAccountPeopleRequestBody
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"documents" Text
-> Maybe PostAccountsAccountPeopleRequestBodyDocuments' -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsAccountPeopleRequestBody
-> Maybe PostAccountsAccountPeopleRequestBodyDocuments'
postAccountsAccountPeopleRequestBodyDocuments PostAccountsAccountPeopleRequestBody
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..= PostAccountsAccountPeopleRequestBody -> Maybe Text
postAccountsAccountPeopleRequestBodyEmail PostAccountsAccountPeopleRequestBody
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..= PostAccountsAccountPeopleRequestBody -> Maybe [Text]
postAccountsAccountPeopleRequestBodyExpand PostAccountsAccountPeopleRequestBody
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..= PostAccountsAccountPeopleRequestBody -> Maybe Text
postAccountsAccountPeopleRequestBodyFirstName PostAccountsAccountPeopleRequestBody
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..= PostAccountsAccountPeopleRequestBody -> Maybe Text
postAccountsAccountPeopleRequestBodyFirstNameKana PostAccountsAccountPeopleRequestBody
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..= PostAccountsAccountPeopleRequestBody -> Maybe Text
postAccountsAccountPeopleRequestBodyFirstNameKanji PostAccountsAccountPeopleRequestBody
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..= PostAccountsAccountPeopleRequestBody -> Maybe Text
postAccountsAccountPeopleRequestBodyGender PostAccountsAccountPeopleRequestBody
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..= PostAccountsAccountPeopleRequestBody -> Maybe Text
postAccountsAccountPeopleRequestBodyIdNumber PostAccountsAccountPeopleRequestBody
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..= PostAccountsAccountPeopleRequestBody -> Maybe Text
postAccountsAccountPeopleRequestBodyLastName PostAccountsAccountPeopleRequestBody
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..= PostAccountsAccountPeopleRequestBody -> Maybe Text
postAccountsAccountPeopleRequestBodyLastNameKana PostAccountsAccountPeopleRequestBody
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..= PostAccountsAccountPeopleRequestBody -> Maybe Text
postAccountsAccountPeopleRequestBodyLastNameKanji PostAccountsAccountPeopleRequestBody
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..= PostAccountsAccountPeopleRequestBody -> Maybe Text
postAccountsAccountPeopleRequestBodyMaidenName PostAccountsAccountPeopleRequestBody
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"metadata" Text
-> Maybe PostAccountsAccountPeopleRequestBodyMetadata'Variants
-> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsAccountPeopleRequestBody
-> Maybe PostAccountsAccountPeopleRequestBodyMetadata'Variants
postAccountsAccountPeopleRequestBodyMetadata PostAccountsAccountPeopleRequestBody
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..= PostAccountsAccountPeopleRequestBody -> Maybe Text
postAccountsAccountPeopleRequestBodyNationality PostAccountsAccountPeopleRequestBody
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"person_token" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsAccountPeopleRequestBody -> Maybe Text
postAccountsAccountPeopleRequestBodyPersonToken PostAccountsAccountPeopleRequestBody
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..= PostAccountsAccountPeopleRequestBody -> Maybe Text
postAccountsAccountPeopleRequestBodyPhone PostAccountsAccountPeopleRequestBody
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..= PostAccountsAccountPeopleRequestBody -> Maybe Text
postAccountsAccountPeopleRequestBodyPoliticalExposure PostAccountsAccountPeopleRequestBody
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"relationship" Text
-> Maybe PostAccountsAccountPeopleRequestBodyRelationship' -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsAccountPeopleRequestBody
-> Maybe PostAccountsAccountPeopleRequestBodyRelationship'
postAccountsAccountPeopleRequestBodyRelationship PostAccountsAccountPeopleRequestBody
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..= PostAccountsAccountPeopleRequestBody -> Maybe Text
postAccountsAccountPeopleRequestBodySsnLast_4 PostAccountsAccountPeopleRequestBody
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"verification" Text
-> Maybe PostAccountsAccountPeopleRequestBodyVerification' -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsAccountPeopleRequestBody
-> Maybe PostAccountsAccountPeopleRequestBodyVerification'
postAccountsAccountPeopleRequestBodyVerification PostAccountsAccountPeopleRequestBody
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: [Pair]
forall a. Monoid a => a
GHC.Base.mempty)
  toEncoding :: PostAccountsAccountPeopleRequestBody -> Encoding
toEncoding PostAccountsAccountPeopleRequestBody
obj = Series -> Encoding
Data.Aeson.Encoding.Internal.pairs ((Text
"address" Text
-> Maybe PostAccountsAccountPeopleRequestBodyAddress' -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsAccountPeopleRequestBody
-> Maybe PostAccountsAccountPeopleRequestBodyAddress'
postAccountsAccountPeopleRequestBodyAddress PostAccountsAccountPeopleRequestBody
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"address_kana" Text
-> Maybe PostAccountsAccountPeopleRequestBodyAddressKana' -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsAccountPeopleRequestBody
-> Maybe PostAccountsAccountPeopleRequestBodyAddressKana'
postAccountsAccountPeopleRequestBodyAddressKana PostAccountsAccountPeopleRequestBody
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"address_kanji" Text
-> Maybe PostAccountsAccountPeopleRequestBodyAddressKanji'
-> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsAccountPeopleRequestBody
-> Maybe PostAccountsAccountPeopleRequestBodyAddressKanji'
postAccountsAccountPeopleRequestBodyAddressKanji PostAccountsAccountPeopleRequestBody
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"dob" Text
-> Maybe PostAccountsAccountPeopleRequestBodyDob'Variants -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsAccountPeopleRequestBody
-> Maybe PostAccountsAccountPeopleRequestBodyDob'Variants
postAccountsAccountPeopleRequestBodyDob PostAccountsAccountPeopleRequestBody
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"documents" Text
-> Maybe PostAccountsAccountPeopleRequestBodyDocuments' -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsAccountPeopleRequestBody
-> Maybe PostAccountsAccountPeopleRequestBodyDocuments'
postAccountsAccountPeopleRequestBodyDocuments PostAccountsAccountPeopleRequestBody
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..= PostAccountsAccountPeopleRequestBody -> Maybe Text
postAccountsAccountPeopleRequestBodyEmail PostAccountsAccountPeopleRequestBody
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..= PostAccountsAccountPeopleRequestBody -> Maybe [Text]
postAccountsAccountPeopleRequestBodyExpand PostAccountsAccountPeopleRequestBody
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..= PostAccountsAccountPeopleRequestBody -> Maybe Text
postAccountsAccountPeopleRequestBodyFirstName PostAccountsAccountPeopleRequestBody
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..= PostAccountsAccountPeopleRequestBody -> Maybe Text
postAccountsAccountPeopleRequestBodyFirstNameKana PostAccountsAccountPeopleRequestBody
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..= PostAccountsAccountPeopleRequestBody -> Maybe Text
postAccountsAccountPeopleRequestBodyFirstNameKanji PostAccountsAccountPeopleRequestBody
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..= PostAccountsAccountPeopleRequestBody -> Maybe Text
postAccountsAccountPeopleRequestBodyGender PostAccountsAccountPeopleRequestBody
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..= PostAccountsAccountPeopleRequestBody -> Maybe Text
postAccountsAccountPeopleRequestBodyIdNumber PostAccountsAccountPeopleRequestBody
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..= PostAccountsAccountPeopleRequestBody -> Maybe Text
postAccountsAccountPeopleRequestBodyLastName PostAccountsAccountPeopleRequestBody
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..= PostAccountsAccountPeopleRequestBody -> Maybe Text
postAccountsAccountPeopleRequestBodyLastNameKana PostAccountsAccountPeopleRequestBody
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..= PostAccountsAccountPeopleRequestBody -> Maybe Text
postAccountsAccountPeopleRequestBodyLastNameKanji PostAccountsAccountPeopleRequestBody
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..= PostAccountsAccountPeopleRequestBody -> Maybe Text
postAccountsAccountPeopleRequestBodyMaidenName PostAccountsAccountPeopleRequestBody
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"metadata" Text
-> Maybe PostAccountsAccountPeopleRequestBodyMetadata'Variants
-> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsAccountPeopleRequestBody
-> Maybe PostAccountsAccountPeopleRequestBodyMetadata'Variants
postAccountsAccountPeopleRequestBodyMetadata PostAccountsAccountPeopleRequestBody
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..= PostAccountsAccountPeopleRequestBody -> Maybe Text
postAccountsAccountPeopleRequestBodyNationality PostAccountsAccountPeopleRequestBody
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"person_token" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsAccountPeopleRequestBody -> Maybe Text
postAccountsAccountPeopleRequestBodyPersonToken PostAccountsAccountPeopleRequestBody
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..= PostAccountsAccountPeopleRequestBody -> Maybe Text
postAccountsAccountPeopleRequestBodyPhone PostAccountsAccountPeopleRequestBody
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..= PostAccountsAccountPeopleRequestBody -> Maybe Text
postAccountsAccountPeopleRequestBodyPoliticalExposure PostAccountsAccountPeopleRequestBody
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"relationship" Text
-> Maybe PostAccountsAccountPeopleRequestBodyRelationship'
-> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsAccountPeopleRequestBody
-> Maybe PostAccountsAccountPeopleRequestBodyRelationship'
postAccountsAccountPeopleRequestBodyRelationship PostAccountsAccountPeopleRequestBody
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..= PostAccountsAccountPeopleRequestBody -> Maybe Text
postAccountsAccountPeopleRequestBodySsnLast_4 PostAccountsAccountPeopleRequestBody
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> (Text
"verification" Text
-> Maybe PostAccountsAccountPeopleRequestBodyVerification'
-> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsAccountPeopleRequestBody
-> Maybe PostAccountsAccountPeopleRequestBodyVerification'
postAccountsAccountPeopleRequestBodyVerification PostAccountsAccountPeopleRequestBody
obj))))))))))))))))))))))))

instance Data.Aeson.Types.FromJSON.FromJSON PostAccountsAccountPeopleRequestBody where
  parseJSON :: Value -> Parser PostAccountsAccountPeopleRequestBody
parseJSON = String
-> (Object -> Parser PostAccountsAccountPeopleRequestBody)
-> Value
-> Parser PostAccountsAccountPeopleRequestBody
forall a. String -> (Object -> Parser a) -> Value -> Parser a
Data.Aeson.Types.FromJSON.withObject String
"PostAccountsAccountPeopleRequestBody" (\Object
obj -> ((((((((((((((((((((((((Maybe PostAccountsAccountPeopleRequestBodyAddress'
 -> Maybe PostAccountsAccountPeopleRequestBodyAddressKana'
 -> Maybe PostAccountsAccountPeopleRequestBodyAddressKanji'
 -> Maybe PostAccountsAccountPeopleRequestBodyDob'Variants
 -> Maybe PostAccountsAccountPeopleRequestBodyDocuments'
 -> Maybe Text
 -> Maybe [Text]
 -> Maybe Text
 -> Maybe Text
 -> Maybe Text
 -> Maybe Text
 -> Maybe Text
 -> Maybe Text
 -> Maybe Text
 -> Maybe Text
 -> Maybe Text
 -> Maybe PostAccountsAccountPeopleRequestBodyMetadata'Variants
 -> Maybe Text
 -> Maybe Text
 -> Maybe Text
 -> Maybe Text
 -> Maybe PostAccountsAccountPeopleRequestBodyRelationship'
 -> Maybe Text
 -> Maybe PostAccountsAccountPeopleRequestBodyVerification'
 -> PostAccountsAccountPeopleRequestBody)
-> Parser
     (Maybe PostAccountsAccountPeopleRequestBodyAddress'
      -> Maybe PostAccountsAccountPeopleRequestBodyAddressKana'
      -> Maybe PostAccountsAccountPeopleRequestBodyAddressKanji'
      -> Maybe PostAccountsAccountPeopleRequestBodyDob'Variants
      -> Maybe PostAccountsAccountPeopleRequestBodyDocuments'
      -> Maybe Text
      -> Maybe [Text]
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe PostAccountsAccountPeopleRequestBodyMetadata'Variants
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe PostAccountsAccountPeopleRequestBodyRelationship'
      -> Maybe Text
      -> Maybe PostAccountsAccountPeopleRequestBodyVerification'
      -> PostAccountsAccountPeopleRequestBody)
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure Maybe PostAccountsAccountPeopleRequestBodyAddress'
-> Maybe PostAccountsAccountPeopleRequestBodyAddressKana'
-> Maybe PostAccountsAccountPeopleRequestBodyAddressKanji'
-> Maybe PostAccountsAccountPeopleRequestBodyDob'Variants
-> Maybe PostAccountsAccountPeopleRequestBodyDocuments'
-> Maybe Text
-> Maybe [Text]
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostAccountsAccountPeopleRequestBodyMetadata'Variants
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostAccountsAccountPeopleRequestBodyRelationship'
-> Maybe Text
-> Maybe PostAccountsAccountPeopleRequestBodyVerification'
-> PostAccountsAccountPeopleRequestBody
PostAccountsAccountPeopleRequestBody Parser
  (Maybe PostAccountsAccountPeopleRequestBodyAddress'
   -> Maybe PostAccountsAccountPeopleRequestBodyAddressKana'
   -> Maybe PostAccountsAccountPeopleRequestBodyAddressKanji'
   -> Maybe PostAccountsAccountPeopleRequestBodyDob'Variants
   -> Maybe PostAccountsAccountPeopleRequestBodyDocuments'
   -> Maybe Text
   -> Maybe [Text]
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe PostAccountsAccountPeopleRequestBodyMetadata'Variants
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe PostAccountsAccountPeopleRequestBodyRelationship'
   -> Maybe Text
   -> Maybe PostAccountsAccountPeopleRequestBodyVerification'
   -> PostAccountsAccountPeopleRequestBody)
-> Parser (Maybe PostAccountsAccountPeopleRequestBodyAddress')
-> Parser
     (Maybe PostAccountsAccountPeopleRequestBodyAddressKana'
      -> Maybe PostAccountsAccountPeopleRequestBodyAddressKanji'
      -> Maybe PostAccountsAccountPeopleRequestBodyDob'Variants
      -> Maybe PostAccountsAccountPeopleRequestBodyDocuments'
      -> Maybe Text
      -> Maybe [Text]
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe PostAccountsAccountPeopleRequestBodyMetadata'Variants
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe PostAccountsAccountPeopleRequestBodyRelationship'
      -> Maybe Text
      -> Maybe PostAccountsAccountPeopleRequestBodyVerification'
      -> PostAccountsAccountPeopleRequestBody)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object
-> Text
-> Parser (Maybe PostAccountsAccountPeopleRequestBodyAddress')
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"address")) Parser
  (Maybe PostAccountsAccountPeopleRequestBodyAddressKana'
   -> Maybe PostAccountsAccountPeopleRequestBodyAddressKanji'
   -> Maybe PostAccountsAccountPeopleRequestBodyDob'Variants
   -> Maybe PostAccountsAccountPeopleRequestBodyDocuments'
   -> Maybe Text
   -> Maybe [Text]
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe PostAccountsAccountPeopleRequestBodyMetadata'Variants
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe PostAccountsAccountPeopleRequestBodyRelationship'
   -> Maybe Text
   -> Maybe PostAccountsAccountPeopleRequestBodyVerification'
   -> PostAccountsAccountPeopleRequestBody)
-> Parser (Maybe PostAccountsAccountPeopleRequestBodyAddressKana')
-> Parser
     (Maybe PostAccountsAccountPeopleRequestBodyAddressKanji'
      -> Maybe PostAccountsAccountPeopleRequestBodyDob'Variants
      -> Maybe PostAccountsAccountPeopleRequestBodyDocuments'
      -> Maybe Text
      -> Maybe [Text]
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe PostAccountsAccountPeopleRequestBodyMetadata'Variants
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe PostAccountsAccountPeopleRequestBodyRelationship'
      -> Maybe Text
      -> Maybe PostAccountsAccountPeopleRequestBodyVerification'
      -> PostAccountsAccountPeopleRequestBody)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object
-> Text
-> Parser (Maybe PostAccountsAccountPeopleRequestBodyAddressKana')
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"address_kana")) Parser
  (Maybe PostAccountsAccountPeopleRequestBodyAddressKanji'
   -> Maybe PostAccountsAccountPeopleRequestBodyDob'Variants
   -> Maybe PostAccountsAccountPeopleRequestBodyDocuments'
   -> Maybe Text
   -> Maybe [Text]
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe PostAccountsAccountPeopleRequestBodyMetadata'Variants
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe PostAccountsAccountPeopleRequestBodyRelationship'
   -> Maybe Text
   -> Maybe PostAccountsAccountPeopleRequestBodyVerification'
   -> PostAccountsAccountPeopleRequestBody)
-> Parser (Maybe PostAccountsAccountPeopleRequestBodyAddressKanji')
-> Parser
     (Maybe PostAccountsAccountPeopleRequestBodyDob'Variants
      -> Maybe PostAccountsAccountPeopleRequestBodyDocuments'
      -> Maybe Text
      -> Maybe [Text]
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe PostAccountsAccountPeopleRequestBodyMetadata'Variants
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe PostAccountsAccountPeopleRequestBodyRelationship'
      -> Maybe Text
      -> Maybe PostAccountsAccountPeopleRequestBodyVerification'
      -> PostAccountsAccountPeopleRequestBody)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object
-> Text
-> Parser (Maybe PostAccountsAccountPeopleRequestBodyAddressKanji')
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"address_kanji")) Parser
  (Maybe PostAccountsAccountPeopleRequestBodyDob'Variants
   -> Maybe PostAccountsAccountPeopleRequestBodyDocuments'
   -> Maybe Text
   -> Maybe [Text]
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe PostAccountsAccountPeopleRequestBodyMetadata'Variants
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe PostAccountsAccountPeopleRequestBodyRelationship'
   -> Maybe Text
   -> Maybe PostAccountsAccountPeopleRequestBodyVerification'
   -> PostAccountsAccountPeopleRequestBody)
-> Parser (Maybe PostAccountsAccountPeopleRequestBodyDob'Variants)
-> Parser
     (Maybe PostAccountsAccountPeopleRequestBodyDocuments'
      -> Maybe Text
      -> Maybe [Text]
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe PostAccountsAccountPeopleRequestBodyMetadata'Variants
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe PostAccountsAccountPeopleRequestBodyRelationship'
      -> Maybe Text
      -> Maybe PostAccountsAccountPeopleRequestBodyVerification'
      -> PostAccountsAccountPeopleRequestBody)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object
-> Text
-> Parser (Maybe PostAccountsAccountPeopleRequestBodyDob'Variants)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"dob")) Parser
  (Maybe PostAccountsAccountPeopleRequestBodyDocuments'
   -> Maybe Text
   -> Maybe [Text]
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe PostAccountsAccountPeopleRequestBodyMetadata'Variants
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe PostAccountsAccountPeopleRequestBodyRelationship'
   -> Maybe Text
   -> Maybe PostAccountsAccountPeopleRequestBodyVerification'
   -> PostAccountsAccountPeopleRequestBody)
-> Parser (Maybe PostAccountsAccountPeopleRequestBodyDocuments')
-> Parser
     (Maybe Text
      -> Maybe [Text]
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe PostAccountsAccountPeopleRequestBodyMetadata'Variants
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe PostAccountsAccountPeopleRequestBodyRelationship'
      -> Maybe Text
      -> Maybe PostAccountsAccountPeopleRequestBodyVerification'
      -> PostAccountsAccountPeopleRequestBody)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object
-> Text
-> Parser (Maybe PostAccountsAccountPeopleRequestBodyDocuments')
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 Text
   -> Maybe PostAccountsAccountPeopleRequestBodyMetadata'Variants
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe PostAccountsAccountPeopleRequestBodyRelationship'
   -> Maybe Text
   -> Maybe PostAccountsAccountPeopleRequestBodyVerification'
   -> PostAccountsAccountPeopleRequestBody)
-> Parser (Maybe Text)
-> Parser
     (Maybe [Text]
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe PostAccountsAccountPeopleRequestBodyMetadata'Variants
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe PostAccountsAccountPeopleRequestBodyRelationship'
      -> Maybe Text
      -> Maybe PostAccountsAccountPeopleRequestBodyVerification'
      -> PostAccountsAccountPeopleRequestBody)
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 Text
   -> Maybe PostAccountsAccountPeopleRequestBodyMetadata'Variants
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe PostAccountsAccountPeopleRequestBodyRelationship'
   -> Maybe Text
   -> Maybe PostAccountsAccountPeopleRequestBodyVerification'
   -> PostAccountsAccountPeopleRequestBody)
-> Parser (Maybe [Text])
-> Parser
     (Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe PostAccountsAccountPeopleRequestBodyMetadata'Variants
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe PostAccountsAccountPeopleRequestBodyRelationship'
      -> Maybe Text
      -> Maybe PostAccountsAccountPeopleRequestBodyVerification'
      -> PostAccountsAccountPeopleRequestBody)
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 Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe PostAccountsAccountPeopleRequestBodyMetadata'Variants
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe PostAccountsAccountPeopleRequestBodyRelationship'
   -> Maybe Text
   -> Maybe PostAccountsAccountPeopleRequestBodyVerification'
   -> PostAccountsAccountPeopleRequestBody)
-> Parser (Maybe Text)
-> Parser
     (Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe PostAccountsAccountPeopleRequestBodyMetadata'Variants
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe PostAccountsAccountPeopleRequestBodyRelationship'
      -> Maybe Text
      -> Maybe PostAccountsAccountPeopleRequestBodyVerification'
      -> PostAccountsAccountPeopleRequestBody)
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 PostAccountsAccountPeopleRequestBodyMetadata'Variants
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe PostAccountsAccountPeopleRequestBodyRelationship'
   -> Maybe Text
   -> Maybe PostAccountsAccountPeopleRequestBodyVerification'
   -> PostAccountsAccountPeopleRequestBody)
-> Parser (Maybe Text)
-> Parser
     (Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe PostAccountsAccountPeopleRequestBodyMetadata'Variants
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe PostAccountsAccountPeopleRequestBodyRelationship'
      -> Maybe Text
      -> Maybe PostAccountsAccountPeopleRequestBodyVerification'
      -> PostAccountsAccountPeopleRequestBody)
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 PostAccountsAccountPeopleRequestBodyMetadata'Variants
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe PostAccountsAccountPeopleRequestBodyRelationship'
   -> Maybe Text
   -> Maybe PostAccountsAccountPeopleRequestBodyVerification'
   -> PostAccountsAccountPeopleRequestBody)
-> Parser (Maybe Text)
-> Parser
     (Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe PostAccountsAccountPeopleRequestBodyMetadata'Variants
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe PostAccountsAccountPeopleRequestBodyRelationship'
      -> Maybe Text
      -> Maybe PostAccountsAccountPeopleRequestBodyVerification'
      -> PostAccountsAccountPeopleRequestBody)
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 PostAccountsAccountPeopleRequestBodyMetadata'Variants
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe PostAccountsAccountPeopleRequestBodyRelationship'
   -> Maybe Text
   -> Maybe PostAccountsAccountPeopleRequestBodyVerification'
   -> PostAccountsAccountPeopleRequestBody)
-> Parser (Maybe Text)
-> Parser
     (Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe PostAccountsAccountPeopleRequestBodyMetadata'Variants
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe PostAccountsAccountPeopleRequestBodyRelationship'
      -> Maybe Text
      -> Maybe PostAccountsAccountPeopleRequestBodyVerification'
      -> PostAccountsAccountPeopleRequestBody)
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 PostAccountsAccountPeopleRequestBodyMetadata'Variants
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe PostAccountsAccountPeopleRequestBodyRelationship'
   -> Maybe Text
   -> Maybe PostAccountsAccountPeopleRequestBodyVerification'
   -> PostAccountsAccountPeopleRequestBody)
-> Parser (Maybe Text)
-> Parser
     (Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe PostAccountsAccountPeopleRequestBodyMetadata'Variants
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe PostAccountsAccountPeopleRequestBodyRelationship'
      -> Maybe Text
      -> Maybe PostAccountsAccountPeopleRequestBodyVerification'
      -> PostAccountsAccountPeopleRequestBody)
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 PostAccountsAccountPeopleRequestBodyMetadata'Variants
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe PostAccountsAccountPeopleRequestBodyRelationship'
   -> Maybe Text
   -> Maybe PostAccountsAccountPeopleRequestBodyVerification'
   -> PostAccountsAccountPeopleRequestBody)
-> Parser (Maybe Text)
-> Parser
     (Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe PostAccountsAccountPeopleRequestBodyMetadata'Variants
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe PostAccountsAccountPeopleRequestBodyRelationship'
      -> Maybe Text
      -> Maybe PostAccountsAccountPeopleRequestBodyVerification'
      -> PostAccountsAccountPeopleRequestBody)
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 PostAccountsAccountPeopleRequestBodyMetadata'Variants
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe PostAccountsAccountPeopleRequestBodyRelationship'
   -> Maybe Text
   -> Maybe PostAccountsAccountPeopleRequestBodyVerification'
   -> PostAccountsAccountPeopleRequestBody)
-> Parser (Maybe Text)
-> Parser
     (Maybe Text
      -> Maybe Text
      -> Maybe PostAccountsAccountPeopleRequestBodyMetadata'Variants
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe PostAccountsAccountPeopleRequestBodyRelationship'
      -> Maybe Text
      -> Maybe PostAccountsAccountPeopleRequestBodyVerification'
      -> PostAccountsAccountPeopleRequestBody)
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 PostAccountsAccountPeopleRequestBodyMetadata'Variants
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe PostAccountsAccountPeopleRequestBodyRelationship'
   -> Maybe Text
   -> Maybe PostAccountsAccountPeopleRequestBodyVerification'
   -> PostAccountsAccountPeopleRequestBody)
-> Parser (Maybe Text)
-> Parser
     (Maybe Text
      -> Maybe PostAccountsAccountPeopleRequestBodyMetadata'Variants
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe PostAccountsAccountPeopleRequestBodyRelationship'
      -> Maybe Text
      -> Maybe PostAccountsAccountPeopleRequestBodyVerification'
      -> PostAccountsAccountPeopleRequestBody)
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 PostAccountsAccountPeopleRequestBodyMetadata'Variants
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe PostAccountsAccountPeopleRequestBodyRelationship'
   -> Maybe Text
   -> Maybe PostAccountsAccountPeopleRequestBodyVerification'
   -> PostAccountsAccountPeopleRequestBody)
-> Parser (Maybe Text)
-> Parser
     (Maybe PostAccountsAccountPeopleRequestBodyMetadata'Variants
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe PostAccountsAccountPeopleRequestBodyRelationship'
      -> Maybe Text
      -> Maybe PostAccountsAccountPeopleRequestBodyVerification'
      -> PostAccountsAccountPeopleRequestBody)
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 PostAccountsAccountPeopleRequestBodyMetadata'Variants
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe PostAccountsAccountPeopleRequestBodyRelationship'
   -> Maybe Text
   -> Maybe PostAccountsAccountPeopleRequestBodyVerification'
   -> PostAccountsAccountPeopleRequestBody)
-> Parser
     (Maybe PostAccountsAccountPeopleRequestBodyMetadata'Variants)
-> Parser
     (Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe PostAccountsAccountPeopleRequestBodyRelationship'
      -> Maybe Text
      -> Maybe PostAccountsAccountPeopleRequestBodyVerification'
      -> PostAccountsAccountPeopleRequestBody)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object
-> Text
-> Parser
     (Maybe PostAccountsAccountPeopleRequestBodyMetadata'Variants)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"metadata")) Parser
  (Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe PostAccountsAccountPeopleRequestBodyRelationship'
   -> Maybe Text
   -> Maybe PostAccountsAccountPeopleRequestBodyVerification'
   -> PostAccountsAccountPeopleRequestBody)
-> Parser (Maybe Text)
-> Parser
     (Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe PostAccountsAccountPeopleRequestBodyRelationship'
      -> Maybe Text
      -> Maybe PostAccountsAccountPeopleRequestBodyVerification'
      -> PostAccountsAccountPeopleRequestBody)
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 Text
   -> Maybe PostAccountsAccountPeopleRequestBodyRelationship'
   -> Maybe Text
   -> Maybe PostAccountsAccountPeopleRequestBodyVerification'
   -> PostAccountsAccountPeopleRequestBody)
-> Parser (Maybe Text)
-> Parser
     (Maybe Text
      -> Maybe Text
      -> Maybe PostAccountsAccountPeopleRequestBodyRelationship'
      -> Maybe Text
      -> Maybe PostAccountsAccountPeopleRequestBodyVerification'
      -> PostAccountsAccountPeopleRequestBody)
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
"person_token")) Parser
  (Maybe Text
   -> Maybe Text
   -> Maybe PostAccountsAccountPeopleRequestBodyRelationship'
   -> Maybe Text
   -> Maybe PostAccountsAccountPeopleRequestBodyVerification'
   -> PostAccountsAccountPeopleRequestBody)
-> Parser (Maybe Text)
-> Parser
     (Maybe Text
      -> Maybe PostAccountsAccountPeopleRequestBodyRelationship'
      -> Maybe Text
      -> Maybe PostAccountsAccountPeopleRequestBodyVerification'
      -> PostAccountsAccountPeopleRequestBody)
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 PostAccountsAccountPeopleRequestBodyRelationship'
   -> Maybe Text
   -> Maybe PostAccountsAccountPeopleRequestBodyVerification'
   -> PostAccountsAccountPeopleRequestBody)
-> Parser (Maybe Text)
-> Parser
     (Maybe PostAccountsAccountPeopleRequestBodyRelationship'
      -> Maybe Text
      -> Maybe PostAccountsAccountPeopleRequestBodyVerification'
      -> PostAccountsAccountPeopleRequestBody)
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 PostAccountsAccountPeopleRequestBodyRelationship'
   -> Maybe Text
   -> Maybe PostAccountsAccountPeopleRequestBodyVerification'
   -> PostAccountsAccountPeopleRequestBody)
-> Parser (Maybe PostAccountsAccountPeopleRequestBodyRelationship')
-> Parser
     (Maybe Text
      -> Maybe PostAccountsAccountPeopleRequestBodyVerification'
      -> PostAccountsAccountPeopleRequestBody)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object
-> Text
-> Parser (Maybe PostAccountsAccountPeopleRequestBodyRelationship')
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"relationship")) Parser
  (Maybe Text
   -> Maybe PostAccountsAccountPeopleRequestBodyVerification'
   -> PostAccountsAccountPeopleRequestBody)
-> Parser (Maybe Text)
-> Parser
     (Maybe PostAccountsAccountPeopleRequestBodyVerification'
      -> PostAccountsAccountPeopleRequestBody)
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 PostAccountsAccountPeopleRequestBodyVerification'
   -> PostAccountsAccountPeopleRequestBody)
-> Parser (Maybe PostAccountsAccountPeopleRequestBodyVerification')
-> Parser PostAccountsAccountPeopleRequestBody
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object
-> Text
-> Parser (Maybe PostAccountsAccountPeopleRequestBodyVerification')
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"verification"))

-- | Create a new 'PostAccountsAccountPeopleRequestBody' with all required fields.
mkPostAccountsAccountPeopleRequestBody :: PostAccountsAccountPeopleRequestBody
mkPostAccountsAccountPeopleRequestBody :: PostAccountsAccountPeopleRequestBody
mkPostAccountsAccountPeopleRequestBody =
  PostAccountsAccountPeopleRequestBody :: Maybe PostAccountsAccountPeopleRequestBodyAddress'
-> Maybe PostAccountsAccountPeopleRequestBodyAddressKana'
-> Maybe PostAccountsAccountPeopleRequestBodyAddressKanji'
-> Maybe PostAccountsAccountPeopleRequestBodyDob'Variants
-> Maybe PostAccountsAccountPeopleRequestBodyDocuments'
-> Maybe Text
-> Maybe [Text]
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostAccountsAccountPeopleRequestBodyMetadata'Variants
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostAccountsAccountPeopleRequestBodyRelationship'
-> Maybe Text
-> Maybe PostAccountsAccountPeopleRequestBodyVerification'
-> PostAccountsAccountPeopleRequestBody
PostAccountsAccountPeopleRequestBody
    { postAccountsAccountPeopleRequestBodyAddress :: Maybe PostAccountsAccountPeopleRequestBodyAddress'
postAccountsAccountPeopleRequestBodyAddress = Maybe PostAccountsAccountPeopleRequestBodyAddress'
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsAccountPeopleRequestBodyAddressKana :: Maybe PostAccountsAccountPeopleRequestBodyAddressKana'
postAccountsAccountPeopleRequestBodyAddressKana = Maybe PostAccountsAccountPeopleRequestBodyAddressKana'
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsAccountPeopleRequestBodyAddressKanji :: Maybe PostAccountsAccountPeopleRequestBodyAddressKanji'
postAccountsAccountPeopleRequestBodyAddressKanji = Maybe PostAccountsAccountPeopleRequestBodyAddressKanji'
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsAccountPeopleRequestBodyDob :: Maybe PostAccountsAccountPeopleRequestBodyDob'Variants
postAccountsAccountPeopleRequestBodyDob = Maybe PostAccountsAccountPeopleRequestBodyDob'Variants
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsAccountPeopleRequestBodyDocuments :: Maybe PostAccountsAccountPeopleRequestBodyDocuments'
postAccountsAccountPeopleRequestBodyDocuments = Maybe PostAccountsAccountPeopleRequestBodyDocuments'
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsAccountPeopleRequestBodyEmail :: Maybe Text
postAccountsAccountPeopleRequestBodyEmail = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsAccountPeopleRequestBodyExpand :: Maybe [Text]
postAccountsAccountPeopleRequestBodyExpand = Maybe [Text]
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsAccountPeopleRequestBodyFirstName :: Maybe Text
postAccountsAccountPeopleRequestBodyFirstName = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsAccountPeopleRequestBodyFirstNameKana :: Maybe Text
postAccountsAccountPeopleRequestBodyFirstNameKana = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsAccountPeopleRequestBodyFirstNameKanji :: Maybe Text
postAccountsAccountPeopleRequestBodyFirstNameKanji = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsAccountPeopleRequestBodyGender :: Maybe Text
postAccountsAccountPeopleRequestBodyGender = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsAccountPeopleRequestBodyIdNumber :: Maybe Text
postAccountsAccountPeopleRequestBodyIdNumber = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsAccountPeopleRequestBodyLastName :: Maybe Text
postAccountsAccountPeopleRequestBodyLastName = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsAccountPeopleRequestBodyLastNameKana :: Maybe Text
postAccountsAccountPeopleRequestBodyLastNameKana = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsAccountPeopleRequestBodyLastNameKanji :: Maybe Text
postAccountsAccountPeopleRequestBodyLastNameKanji = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsAccountPeopleRequestBodyMaidenName :: Maybe Text
postAccountsAccountPeopleRequestBodyMaidenName = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsAccountPeopleRequestBodyMetadata :: Maybe PostAccountsAccountPeopleRequestBodyMetadata'Variants
postAccountsAccountPeopleRequestBodyMetadata = Maybe PostAccountsAccountPeopleRequestBodyMetadata'Variants
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsAccountPeopleRequestBodyNationality :: Maybe Text
postAccountsAccountPeopleRequestBodyNationality = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsAccountPeopleRequestBodyPersonToken :: Maybe Text
postAccountsAccountPeopleRequestBodyPersonToken = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsAccountPeopleRequestBodyPhone :: Maybe Text
postAccountsAccountPeopleRequestBodyPhone = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsAccountPeopleRequestBodyPoliticalExposure :: Maybe Text
postAccountsAccountPeopleRequestBodyPoliticalExposure = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsAccountPeopleRequestBodyRelationship :: Maybe PostAccountsAccountPeopleRequestBodyRelationship'
postAccountsAccountPeopleRequestBodyRelationship = Maybe PostAccountsAccountPeopleRequestBodyRelationship'
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsAccountPeopleRequestBodySsnLast_4 :: Maybe Text
postAccountsAccountPeopleRequestBodySsnLast_4 = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsAccountPeopleRequestBodyVerification :: Maybe PostAccountsAccountPeopleRequestBodyVerification'
postAccountsAccountPeopleRequestBodyVerification = Maybe PostAccountsAccountPeopleRequestBodyVerification'
forall a. Maybe a
GHC.Maybe.Nothing
    }

-- | Defines the object schema located at @paths.\/v1\/accounts\/{account}\/people.POST.requestBody.content.application\/x-www-form-urlencoded.schema.properties.address@ in the specification.
--
-- The person\'s address.
data PostAccountsAccountPeopleRequestBodyAddress' = PostAccountsAccountPeopleRequestBodyAddress'
  { -- | city
    --
    -- Constraints:
    --
    -- * Maximum length of 100
    PostAccountsAccountPeopleRequestBodyAddress' -> Maybe Text
postAccountsAccountPeopleRequestBodyAddress'City :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | country
    --
    -- Constraints:
    --
    -- * Maximum length of 5000
    PostAccountsAccountPeopleRequestBodyAddress' -> Maybe Text
postAccountsAccountPeopleRequestBodyAddress'Country :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | line1
    --
    -- Constraints:
    --
    -- * Maximum length of 200
    PostAccountsAccountPeopleRequestBodyAddress' -> Maybe Text
postAccountsAccountPeopleRequestBodyAddress'Line1 :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | line2
    --
    -- Constraints:
    --
    -- * Maximum length of 200
    PostAccountsAccountPeopleRequestBodyAddress' -> Maybe Text
postAccountsAccountPeopleRequestBodyAddress'Line2 :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | postal_code
    --
    -- Constraints:
    --
    -- * Maximum length of 5000
    PostAccountsAccountPeopleRequestBodyAddress' -> Maybe Text
postAccountsAccountPeopleRequestBodyAddress'PostalCode :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | state
    --
    -- Constraints:
    --
    -- * Maximum length of 5000
    PostAccountsAccountPeopleRequestBodyAddress' -> Maybe Text
postAccountsAccountPeopleRequestBodyAddress'State :: (GHC.Maybe.Maybe Data.Text.Internal.Text)
  }
  deriving
    ( Int
-> PostAccountsAccountPeopleRequestBodyAddress' -> String -> String
[PostAccountsAccountPeopleRequestBodyAddress'] -> String -> String
PostAccountsAccountPeopleRequestBodyAddress' -> String
(Int
 -> PostAccountsAccountPeopleRequestBodyAddress'
 -> String
 -> String)
-> (PostAccountsAccountPeopleRequestBodyAddress' -> String)
-> ([PostAccountsAccountPeopleRequestBodyAddress']
    -> String -> String)
-> Show PostAccountsAccountPeopleRequestBodyAddress'
forall a.
(Int -> a -> String -> String)
-> (a -> String) -> ([a] -> String -> String) -> Show a
showList :: [PostAccountsAccountPeopleRequestBodyAddress'] -> String -> String
$cshowList :: [PostAccountsAccountPeopleRequestBodyAddress'] -> String -> String
show :: PostAccountsAccountPeopleRequestBodyAddress' -> String
$cshow :: PostAccountsAccountPeopleRequestBodyAddress' -> String
showsPrec :: Int
-> PostAccountsAccountPeopleRequestBodyAddress' -> String -> String
$cshowsPrec :: Int
-> PostAccountsAccountPeopleRequestBodyAddress' -> String -> String
GHC.Show.Show,
      PostAccountsAccountPeopleRequestBodyAddress'
-> PostAccountsAccountPeopleRequestBodyAddress' -> Bool
(PostAccountsAccountPeopleRequestBodyAddress'
 -> PostAccountsAccountPeopleRequestBodyAddress' -> Bool)
-> (PostAccountsAccountPeopleRequestBodyAddress'
    -> PostAccountsAccountPeopleRequestBodyAddress' -> Bool)
-> Eq PostAccountsAccountPeopleRequestBodyAddress'
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostAccountsAccountPeopleRequestBodyAddress'
-> PostAccountsAccountPeopleRequestBodyAddress' -> Bool
$c/= :: PostAccountsAccountPeopleRequestBodyAddress'
-> PostAccountsAccountPeopleRequestBodyAddress' -> Bool
== :: PostAccountsAccountPeopleRequestBodyAddress'
-> PostAccountsAccountPeopleRequestBodyAddress' -> Bool
$c== :: PostAccountsAccountPeopleRequestBodyAddress'
-> PostAccountsAccountPeopleRequestBodyAddress' -> Bool
GHC.Classes.Eq
    )

instance Data.Aeson.Types.ToJSON.ToJSON PostAccountsAccountPeopleRequestBodyAddress' where
  toJSON :: PostAccountsAccountPeopleRequestBodyAddress' -> Value
toJSON PostAccountsAccountPeopleRequestBodyAddress'
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..= PostAccountsAccountPeopleRequestBodyAddress' -> Maybe Text
postAccountsAccountPeopleRequestBodyAddress'City PostAccountsAccountPeopleRequestBodyAddress'
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..= PostAccountsAccountPeopleRequestBodyAddress' -> Maybe Text
postAccountsAccountPeopleRequestBodyAddress'Country PostAccountsAccountPeopleRequestBodyAddress'
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..= PostAccountsAccountPeopleRequestBodyAddress' -> Maybe Text
postAccountsAccountPeopleRequestBodyAddress'Line1 PostAccountsAccountPeopleRequestBodyAddress'
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..= PostAccountsAccountPeopleRequestBodyAddress' -> Maybe Text
postAccountsAccountPeopleRequestBodyAddress'Line2 PostAccountsAccountPeopleRequestBodyAddress'
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..= PostAccountsAccountPeopleRequestBodyAddress' -> Maybe Text
postAccountsAccountPeopleRequestBodyAddress'PostalCode PostAccountsAccountPeopleRequestBodyAddress'
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..= PostAccountsAccountPeopleRequestBodyAddress' -> Maybe Text
postAccountsAccountPeopleRequestBodyAddress'State PostAccountsAccountPeopleRequestBodyAddress'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: [Pair]
forall a. Monoid a => a
GHC.Base.mempty)
  toEncoding :: PostAccountsAccountPeopleRequestBodyAddress' -> Encoding
toEncoding PostAccountsAccountPeopleRequestBodyAddress'
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..= PostAccountsAccountPeopleRequestBodyAddress' -> Maybe Text
postAccountsAccountPeopleRequestBodyAddress'City PostAccountsAccountPeopleRequestBodyAddress'
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..= PostAccountsAccountPeopleRequestBodyAddress' -> Maybe Text
postAccountsAccountPeopleRequestBodyAddress'Country PostAccountsAccountPeopleRequestBodyAddress'
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..= PostAccountsAccountPeopleRequestBodyAddress' -> Maybe Text
postAccountsAccountPeopleRequestBodyAddress'Line1 PostAccountsAccountPeopleRequestBodyAddress'
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..= PostAccountsAccountPeopleRequestBodyAddress' -> Maybe Text
postAccountsAccountPeopleRequestBodyAddress'Line2 PostAccountsAccountPeopleRequestBodyAddress'
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..= PostAccountsAccountPeopleRequestBodyAddress' -> Maybe Text
postAccountsAccountPeopleRequestBodyAddress'PostalCode PostAccountsAccountPeopleRequestBodyAddress'
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..= PostAccountsAccountPeopleRequestBodyAddress' -> Maybe Text
postAccountsAccountPeopleRequestBodyAddress'State PostAccountsAccountPeopleRequestBodyAddress'
obj))))))

instance Data.Aeson.Types.FromJSON.FromJSON PostAccountsAccountPeopleRequestBodyAddress' where
  parseJSON :: Value -> Parser PostAccountsAccountPeopleRequestBodyAddress'
parseJSON = String
-> (Object -> Parser PostAccountsAccountPeopleRequestBodyAddress')
-> Value
-> Parser PostAccountsAccountPeopleRequestBodyAddress'
forall a. String -> (Object -> Parser a) -> Value -> Parser a
Data.Aeson.Types.FromJSON.withObject String
"PostAccountsAccountPeopleRequestBodyAddress'" (\Object
obj -> ((((((Maybe Text
 -> Maybe Text
 -> Maybe Text
 -> Maybe Text
 -> Maybe Text
 -> Maybe Text
 -> PostAccountsAccountPeopleRequestBodyAddress')
-> Parser
     (Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> PostAccountsAccountPeopleRequestBodyAddress')
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> PostAccountsAccountPeopleRequestBodyAddress'
PostAccountsAccountPeopleRequestBodyAddress' Parser
  (Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> PostAccountsAccountPeopleRequestBodyAddress')
-> Parser (Maybe Text)
-> Parser
     (Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> PostAccountsAccountPeopleRequestBodyAddress')
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
   -> PostAccountsAccountPeopleRequestBodyAddress')
-> Parser (Maybe Text)
-> Parser
     (Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> PostAccountsAccountPeopleRequestBodyAddress')
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
   -> PostAccountsAccountPeopleRequestBodyAddress')
-> Parser (Maybe Text)
-> Parser
     (Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> PostAccountsAccountPeopleRequestBodyAddress')
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
   -> PostAccountsAccountPeopleRequestBodyAddress')
-> Parser (Maybe Text)
-> Parser
     (Maybe Text
      -> Maybe Text -> PostAccountsAccountPeopleRequestBodyAddress')
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 -> PostAccountsAccountPeopleRequestBodyAddress')
-> Parser (Maybe Text)
-> Parser
     (Maybe Text -> PostAccountsAccountPeopleRequestBodyAddress')
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 -> PostAccountsAccountPeopleRequestBodyAddress')
-> Parser (Maybe Text)
-> Parser PostAccountsAccountPeopleRequestBodyAddress'
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 'PostAccountsAccountPeopleRequestBodyAddress'' with all required fields.
mkPostAccountsAccountPeopleRequestBodyAddress' :: PostAccountsAccountPeopleRequestBodyAddress'
mkPostAccountsAccountPeopleRequestBodyAddress' :: PostAccountsAccountPeopleRequestBodyAddress'
mkPostAccountsAccountPeopleRequestBodyAddress' =
  PostAccountsAccountPeopleRequestBodyAddress' :: Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> PostAccountsAccountPeopleRequestBodyAddress'
PostAccountsAccountPeopleRequestBodyAddress'
    { postAccountsAccountPeopleRequestBodyAddress'City :: Maybe Text
postAccountsAccountPeopleRequestBodyAddress'City = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsAccountPeopleRequestBodyAddress'Country :: Maybe Text
postAccountsAccountPeopleRequestBodyAddress'Country = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsAccountPeopleRequestBodyAddress'Line1 :: Maybe Text
postAccountsAccountPeopleRequestBodyAddress'Line1 = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsAccountPeopleRequestBodyAddress'Line2 :: Maybe Text
postAccountsAccountPeopleRequestBodyAddress'Line2 = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsAccountPeopleRequestBodyAddress'PostalCode :: Maybe Text
postAccountsAccountPeopleRequestBodyAddress'PostalCode = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsAccountPeopleRequestBodyAddress'State :: Maybe Text
postAccountsAccountPeopleRequestBodyAddress'State = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing
    }

-- | Defines the object schema located at @paths.\/v1\/accounts\/{account}\/people.POST.requestBody.content.application\/x-www-form-urlencoded.schema.properties.address_kana@ in the specification.
--
-- The Kana variation of the person\'s address (Japan only).
data PostAccountsAccountPeopleRequestBodyAddressKana' = PostAccountsAccountPeopleRequestBodyAddressKana'
  { -- | city
    --
    -- Constraints:
    --
    -- * Maximum length of 5000
    PostAccountsAccountPeopleRequestBodyAddressKana' -> Maybe Text
postAccountsAccountPeopleRequestBodyAddressKana'City :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | country
    --
    -- Constraints:
    --
    -- * Maximum length of 5000
    PostAccountsAccountPeopleRequestBodyAddressKana' -> Maybe Text
postAccountsAccountPeopleRequestBodyAddressKana'Country :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | line1
    --
    -- Constraints:
    --
    -- * Maximum length of 5000
    PostAccountsAccountPeopleRequestBodyAddressKana' -> Maybe Text
postAccountsAccountPeopleRequestBodyAddressKana'Line1 :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | line2
    --
    -- Constraints:
    --
    -- * Maximum length of 5000
    PostAccountsAccountPeopleRequestBodyAddressKana' -> Maybe Text
postAccountsAccountPeopleRequestBodyAddressKana'Line2 :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | postal_code
    --
    -- Constraints:
    --
    -- * Maximum length of 5000
    PostAccountsAccountPeopleRequestBodyAddressKana' -> Maybe Text
postAccountsAccountPeopleRequestBodyAddressKana'PostalCode :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | state
    --
    -- Constraints:
    --
    -- * Maximum length of 5000
    PostAccountsAccountPeopleRequestBodyAddressKana' -> Maybe Text
postAccountsAccountPeopleRequestBodyAddressKana'State :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | town
    --
    -- Constraints:
    --
    -- * Maximum length of 5000
    PostAccountsAccountPeopleRequestBodyAddressKana' -> Maybe Text
postAccountsAccountPeopleRequestBodyAddressKana'Town :: (GHC.Maybe.Maybe Data.Text.Internal.Text)
  }
  deriving
    ( Int
-> PostAccountsAccountPeopleRequestBodyAddressKana'
-> String
-> String
[PostAccountsAccountPeopleRequestBodyAddressKana']
-> String -> String
PostAccountsAccountPeopleRequestBodyAddressKana' -> String
(Int
 -> PostAccountsAccountPeopleRequestBodyAddressKana'
 -> String
 -> String)
-> (PostAccountsAccountPeopleRequestBodyAddressKana' -> String)
-> ([PostAccountsAccountPeopleRequestBodyAddressKana']
    -> String -> String)
-> Show PostAccountsAccountPeopleRequestBodyAddressKana'
forall a.
(Int -> a -> String -> String)
-> (a -> String) -> ([a] -> String -> String) -> Show a
showList :: [PostAccountsAccountPeopleRequestBodyAddressKana']
-> String -> String
$cshowList :: [PostAccountsAccountPeopleRequestBodyAddressKana']
-> String -> String
show :: PostAccountsAccountPeopleRequestBodyAddressKana' -> String
$cshow :: PostAccountsAccountPeopleRequestBodyAddressKana' -> String
showsPrec :: Int
-> PostAccountsAccountPeopleRequestBodyAddressKana'
-> String
-> String
$cshowsPrec :: Int
-> PostAccountsAccountPeopleRequestBodyAddressKana'
-> String
-> String
GHC.Show.Show,
      PostAccountsAccountPeopleRequestBodyAddressKana'
-> PostAccountsAccountPeopleRequestBodyAddressKana' -> Bool
(PostAccountsAccountPeopleRequestBodyAddressKana'
 -> PostAccountsAccountPeopleRequestBodyAddressKana' -> Bool)
-> (PostAccountsAccountPeopleRequestBodyAddressKana'
    -> PostAccountsAccountPeopleRequestBodyAddressKana' -> Bool)
-> Eq PostAccountsAccountPeopleRequestBodyAddressKana'
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostAccountsAccountPeopleRequestBodyAddressKana'
-> PostAccountsAccountPeopleRequestBodyAddressKana' -> Bool
$c/= :: PostAccountsAccountPeopleRequestBodyAddressKana'
-> PostAccountsAccountPeopleRequestBodyAddressKana' -> Bool
== :: PostAccountsAccountPeopleRequestBodyAddressKana'
-> PostAccountsAccountPeopleRequestBodyAddressKana' -> Bool
$c== :: PostAccountsAccountPeopleRequestBodyAddressKana'
-> PostAccountsAccountPeopleRequestBodyAddressKana' -> Bool
GHC.Classes.Eq
    )

instance Data.Aeson.Types.ToJSON.ToJSON PostAccountsAccountPeopleRequestBodyAddressKana' where
  toJSON :: PostAccountsAccountPeopleRequestBodyAddressKana' -> Value
toJSON PostAccountsAccountPeopleRequestBodyAddressKana'
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..= PostAccountsAccountPeopleRequestBodyAddressKana' -> Maybe Text
postAccountsAccountPeopleRequestBodyAddressKana'City PostAccountsAccountPeopleRequestBodyAddressKana'
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..= PostAccountsAccountPeopleRequestBodyAddressKana' -> Maybe Text
postAccountsAccountPeopleRequestBodyAddressKana'Country PostAccountsAccountPeopleRequestBodyAddressKana'
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..= PostAccountsAccountPeopleRequestBodyAddressKana' -> Maybe Text
postAccountsAccountPeopleRequestBodyAddressKana'Line1 PostAccountsAccountPeopleRequestBodyAddressKana'
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..= PostAccountsAccountPeopleRequestBodyAddressKana' -> Maybe Text
postAccountsAccountPeopleRequestBodyAddressKana'Line2 PostAccountsAccountPeopleRequestBodyAddressKana'
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..= PostAccountsAccountPeopleRequestBodyAddressKana' -> Maybe Text
postAccountsAccountPeopleRequestBodyAddressKana'PostalCode PostAccountsAccountPeopleRequestBodyAddressKana'
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..= PostAccountsAccountPeopleRequestBodyAddressKana' -> Maybe Text
postAccountsAccountPeopleRequestBodyAddressKana'State PostAccountsAccountPeopleRequestBodyAddressKana'
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..= PostAccountsAccountPeopleRequestBodyAddressKana' -> Maybe Text
postAccountsAccountPeopleRequestBodyAddressKana'Town PostAccountsAccountPeopleRequestBodyAddressKana'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: [Pair]
forall a. Monoid a => a
GHC.Base.mempty)
  toEncoding :: PostAccountsAccountPeopleRequestBodyAddressKana' -> Encoding
toEncoding PostAccountsAccountPeopleRequestBodyAddressKana'
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..= PostAccountsAccountPeopleRequestBodyAddressKana' -> Maybe Text
postAccountsAccountPeopleRequestBodyAddressKana'City PostAccountsAccountPeopleRequestBodyAddressKana'
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..= PostAccountsAccountPeopleRequestBodyAddressKana' -> Maybe Text
postAccountsAccountPeopleRequestBodyAddressKana'Country PostAccountsAccountPeopleRequestBodyAddressKana'
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..= PostAccountsAccountPeopleRequestBodyAddressKana' -> Maybe Text
postAccountsAccountPeopleRequestBodyAddressKana'Line1 PostAccountsAccountPeopleRequestBodyAddressKana'
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..= PostAccountsAccountPeopleRequestBodyAddressKana' -> Maybe Text
postAccountsAccountPeopleRequestBodyAddressKana'Line2 PostAccountsAccountPeopleRequestBodyAddressKana'
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..= PostAccountsAccountPeopleRequestBodyAddressKana' -> Maybe Text
postAccountsAccountPeopleRequestBodyAddressKana'PostalCode PostAccountsAccountPeopleRequestBodyAddressKana'
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..= PostAccountsAccountPeopleRequestBodyAddressKana' -> Maybe Text
postAccountsAccountPeopleRequestBodyAddressKana'State PostAccountsAccountPeopleRequestBodyAddressKana'
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..= PostAccountsAccountPeopleRequestBodyAddressKana' -> Maybe Text
postAccountsAccountPeopleRequestBodyAddressKana'Town PostAccountsAccountPeopleRequestBodyAddressKana'
obj)))))))

instance Data.Aeson.Types.FromJSON.FromJSON PostAccountsAccountPeopleRequestBodyAddressKana' where
  parseJSON :: Value -> Parser PostAccountsAccountPeopleRequestBodyAddressKana'
parseJSON = String
-> (Object
    -> Parser PostAccountsAccountPeopleRequestBodyAddressKana')
-> Value
-> Parser PostAccountsAccountPeopleRequestBodyAddressKana'
forall a. String -> (Object -> Parser a) -> Value -> Parser a
Data.Aeson.Types.FromJSON.withObject String
"PostAccountsAccountPeopleRequestBodyAddressKana'" (\Object
obj -> (((((((Maybe Text
 -> Maybe Text
 -> Maybe Text
 -> Maybe Text
 -> Maybe Text
 -> Maybe Text
 -> Maybe Text
 -> PostAccountsAccountPeopleRequestBodyAddressKana')
-> Parser
     (Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> PostAccountsAccountPeopleRequestBodyAddressKana')
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
-> PostAccountsAccountPeopleRequestBodyAddressKana'
PostAccountsAccountPeopleRequestBodyAddressKana' Parser
  (Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> PostAccountsAccountPeopleRequestBodyAddressKana')
-> Parser (Maybe Text)
-> Parser
     (Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> PostAccountsAccountPeopleRequestBodyAddressKana')
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
   -> PostAccountsAccountPeopleRequestBodyAddressKana')
-> Parser (Maybe Text)
-> Parser
     (Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> PostAccountsAccountPeopleRequestBodyAddressKana')
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
   -> PostAccountsAccountPeopleRequestBodyAddressKana')
-> Parser (Maybe Text)
-> Parser
     (Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> PostAccountsAccountPeopleRequestBodyAddressKana')
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
   -> PostAccountsAccountPeopleRequestBodyAddressKana')
-> Parser (Maybe Text)
-> Parser
     (Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> PostAccountsAccountPeopleRequestBodyAddressKana')
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
   -> PostAccountsAccountPeopleRequestBodyAddressKana')
-> Parser (Maybe Text)
-> Parser
     (Maybe Text
      -> Maybe Text -> PostAccountsAccountPeopleRequestBodyAddressKana')
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 -> PostAccountsAccountPeopleRequestBodyAddressKana')
-> Parser (Maybe Text)
-> Parser
     (Maybe Text -> PostAccountsAccountPeopleRequestBodyAddressKana')
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 -> PostAccountsAccountPeopleRequestBodyAddressKana')
-> Parser (Maybe Text)
-> Parser PostAccountsAccountPeopleRequestBodyAddressKana'
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 'PostAccountsAccountPeopleRequestBodyAddressKana'' with all required fields.
mkPostAccountsAccountPeopleRequestBodyAddressKana' :: PostAccountsAccountPeopleRequestBodyAddressKana'
mkPostAccountsAccountPeopleRequestBodyAddressKana' :: PostAccountsAccountPeopleRequestBodyAddressKana'
mkPostAccountsAccountPeopleRequestBodyAddressKana' =
  PostAccountsAccountPeopleRequestBodyAddressKana' :: Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> PostAccountsAccountPeopleRequestBodyAddressKana'
PostAccountsAccountPeopleRequestBodyAddressKana'
    { postAccountsAccountPeopleRequestBodyAddressKana'City :: Maybe Text
postAccountsAccountPeopleRequestBodyAddressKana'City = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsAccountPeopleRequestBodyAddressKana'Country :: Maybe Text
postAccountsAccountPeopleRequestBodyAddressKana'Country = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsAccountPeopleRequestBodyAddressKana'Line1 :: Maybe Text
postAccountsAccountPeopleRequestBodyAddressKana'Line1 = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsAccountPeopleRequestBodyAddressKana'Line2 :: Maybe Text
postAccountsAccountPeopleRequestBodyAddressKana'Line2 = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsAccountPeopleRequestBodyAddressKana'PostalCode :: Maybe Text
postAccountsAccountPeopleRequestBodyAddressKana'PostalCode = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsAccountPeopleRequestBodyAddressKana'State :: Maybe Text
postAccountsAccountPeopleRequestBodyAddressKana'State = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsAccountPeopleRequestBodyAddressKana'Town :: Maybe Text
postAccountsAccountPeopleRequestBodyAddressKana'Town = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing
    }

-- | Defines the object schema located at @paths.\/v1\/accounts\/{account}\/people.POST.requestBody.content.application\/x-www-form-urlencoded.schema.properties.address_kanji@ in the specification.
--
-- The Kanji variation of the person\'s address (Japan only).
data PostAccountsAccountPeopleRequestBodyAddressKanji' = PostAccountsAccountPeopleRequestBodyAddressKanji'
  { -- | city
    --
    -- Constraints:
    --
    -- * Maximum length of 5000
    PostAccountsAccountPeopleRequestBodyAddressKanji' -> Maybe Text
postAccountsAccountPeopleRequestBodyAddressKanji'City :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | country
    --
    -- Constraints:
    --
    -- * Maximum length of 5000
    PostAccountsAccountPeopleRequestBodyAddressKanji' -> Maybe Text
postAccountsAccountPeopleRequestBodyAddressKanji'Country :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | line1
    --
    -- Constraints:
    --
    -- * Maximum length of 5000
    PostAccountsAccountPeopleRequestBodyAddressKanji' -> Maybe Text
postAccountsAccountPeopleRequestBodyAddressKanji'Line1 :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | line2
    --
    -- Constraints:
    --
    -- * Maximum length of 5000
    PostAccountsAccountPeopleRequestBodyAddressKanji' -> Maybe Text
postAccountsAccountPeopleRequestBodyAddressKanji'Line2 :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | postal_code
    --
    -- Constraints:
    --
    -- * Maximum length of 5000
    PostAccountsAccountPeopleRequestBodyAddressKanji' -> Maybe Text
postAccountsAccountPeopleRequestBodyAddressKanji'PostalCode :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | state
    --
    -- Constraints:
    --
    -- * Maximum length of 5000
    PostAccountsAccountPeopleRequestBodyAddressKanji' -> Maybe Text
postAccountsAccountPeopleRequestBodyAddressKanji'State :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | town
    --
    -- Constraints:
    --
    -- * Maximum length of 5000
    PostAccountsAccountPeopleRequestBodyAddressKanji' -> Maybe Text
postAccountsAccountPeopleRequestBodyAddressKanji'Town :: (GHC.Maybe.Maybe Data.Text.Internal.Text)
  }
  deriving
    ( Int
-> PostAccountsAccountPeopleRequestBodyAddressKanji'
-> String
-> String
[PostAccountsAccountPeopleRequestBodyAddressKanji']
-> String -> String
PostAccountsAccountPeopleRequestBodyAddressKanji' -> String
(Int
 -> PostAccountsAccountPeopleRequestBodyAddressKanji'
 -> String
 -> String)
-> (PostAccountsAccountPeopleRequestBodyAddressKanji' -> String)
-> ([PostAccountsAccountPeopleRequestBodyAddressKanji']
    -> String -> String)
-> Show PostAccountsAccountPeopleRequestBodyAddressKanji'
forall a.
(Int -> a -> String -> String)
-> (a -> String) -> ([a] -> String -> String) -> Show a
showList :: [PostAccountsAccountPeopleRequestBodyAddressKanji']
-> String -> String
$cshowList :: [PostAccountsAccountPeopleRequestBodyAddressKanji']
-> String -> String
show :: PostAccountsAccountPeopleRequestBodyAddressKanji' -> String
$cshow :: PostAccountsAccountPeopleRequestBodyAddressKanji' -> String
showsPrec :: Int
-> PostAccountsAccountPeopleRequestBodyAddressKanji'
-> String
-> String
$cshowsPrec :: Int
-> PostAccountsAccountPeopleRequestBodyAddressKanji'
-> String
-> String
GHC.Show.Show,
      PostAccountsAccountPeopleRequestBodyAddressKanji'
-> PostAccountsAccountPeopleRequestBodyAddressKanji' -> Bool
(PostAccountsAccountPeopleRequestBodyAddressKanji'
 -> PostAccountsAccountPeopleRequestBodyAddressKanji' -> Bool)
-> (PostAccountsAccountPeopleRequestBodyAddressKanji'
    -> PostAccountsAccountPeopleRequestBodyAddressKanji' -> Bool)
-> Eq PostAccountsAccountPeopleRequestBodyAddressKanji'
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostAccountsAccountPeopleRequestBodyAddressKanji'
-> PostAccountsAccountPeopleRequestBodyAddressKanji' -> Bool
$c/= :: PostAccountsAccountPeopleRequestBodyAddressKanji'
-> PostAccountsAccountPeopleRequestBodyAddressKanji' -> Bool
== :: PostAccountsAccountPeopleRequestBodyAddressKanji'
-> PostAccountsAccountPeopleRequestBodyAddressKanji' -> Bool
$c== :: PostAccountsAccountPeopleRequestBodyAddressKanji'
-> PostAccountsAccountPeopleRequestBodyAddressKanji' -> Bool
GHC.Classes.Eq
    )

instance Data.Aeson.Types.ToJSON.ToJSON PostAccountsAccountPeopleRequestBodyAddressKanji' where
  toJSON :: PostAccountsAccountPeopleRequestBodyAddressKanji' -> Value
toJSON PostAccountsAccountPeopleRequestBodyAddressKanji'
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..= PostAccountsAccountPeopleRequestBodyAddressKanji' -> Maybe Text
postAccountsAccountPeopleRequestBodyAddressKanji'City PostAccountsAccountPeopleRequestBodyAddressKanji'
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..= PostAccountsAccountPeopleRequestBodyAddressKanji' -> Maybe Text
postAccountsAccountPeopleRequestBodyAddressKanji'Country PostAccountsAccountPeopleRequestBodyAddressKanji'
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..= PostAccountsAccountPeopleRequestBodyAddressKanji' -> Maybe Text
postAccountsAccountPeopleRequestBodyAddressKanji'Line1 PostAccountsAccountPeopleRequestBodyAddressKanji'
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..= PostAccountsAccountPeopleRequestBodyAddressKanji' -> Maybe Text
postAccountsAccountPeopleRequestBodyAddressKanji'Line2 PostAccountsAccountPeopleRequestBodyAddressKanji'
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..= PostAccountsAccountPeopleRequestBodyAddressKanji' -> Maybe Text
postAccountsAccountPeopleRequestBodyAddressKanji'PostalCode PostAccountsAccountPeopleRequestBodyAddressKanji'
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..= PostAccountsAccountPeopleRequestBodyAddressKanji' -> Maybe Text
postAccountsAccountPeopleRequestBodyAddressKanji'State PostAccountsAccountPeopleRequestBodyAddressKanji'
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..= PostAccountsAccountPeopleRequestBodyAddressKanji' -> Maybe Text
postAccountsAccountPeopleRequestBodyAddressKanji'Town PostAccountsAccountPeopleRequestBodyAddressKanji'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: [Pair]
forall a. Monoid a => a
GHC.Base.mempty)
  toEncoding :: PostAccountsAccountPeopleRequestBodyAddressKanji' -> Encoding
toEncoding PostAccountsAccountPeopleRequestBodyAddressKanji'
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..= PostAccountsAccountPeopleRequestBodyAddressKanji' -> Maybe Text
postAccountsAccountPeopleRequestBodyAddressKanji'City PostAccountsAccountPeopleRequestBodyAddressKanji'
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..= PostAccountsAccountPeopleRequestBodyAddressKanji' -> Maybe Text
postAccountsAccountPeopleRequestBodyAddressKanji'Country PostAccountsAccountPeopleRequestBodyAddressKanji'
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..= PostAccountsAccountPeopleRequestBodyAddressKanji' -> Maybe Text
postAccountsAccountPeopleRequestBodyAddressKanji'Line1 PostAccountsAccountPeopleRequestBodyAddressKanji'
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..= PostAccountsAccountPeopleRequestBodyAddressKanji' -> Maybe Text
postAccountsAccountPeopleRequestBodyAddressKanji'Line2 PostAccountsAccountPeopleRequestBodyAddressKanji'
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..= PostAccountsAccountPeopleRequestBodyAddressKanji' -> Maybe Text
postAccountsAccountPeopleRequestBodyAddressKanji'PostalCode PostAccountsAccountPeopleRequestBodyAddressKanji'
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..= PostAccountsAccountPeopleRequestBodyAddressKanji' -> Maybe Text
postAccountsAccountPeopleRequestBodyAddressKanji'State PostAccountsAccountPeopleRequestBodyAddressKanji'
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..= PostAccountsAccountPeopleRequestBodyAddressKanji' -> Maybe Text
postAccountsAccountPeopleRequestBodyAddressKanji'Town PostAccountsAccountPeopleRequestBodyAddressKanji'
obj)))))))

instance Data.Aeson.Types.FromJSON.FromJSON PostAccountsAccountPeopleRequestBodyAddressKanji' where
  parseJSON :: Value -> Parser PostAccountsAccountPeopleRequestBodyAddressKanji'
parseJSON = String
-> (Object
    -> Parser PostAccountsAccountPeopleRequestBodyAddressKanji')
-> Value
-> Parser PostAccountsAccountPeopleRequestBodyAddressKanji'
forall a. String -> (Object -> Parser a) -> Value -> Parser a
Data.Aeson.Types.FromJSON.withObject String
"PostAccountsAccountPeopleRequestBodyAddressKanji'" (\Object
obj -> (((((((Maybe Text
 -> Maybe Text
 -> Maybe Text
 -> Maybe Text
 -> Maybe Text
 -> Maybe Text
 -> Maybe Text
 -> PostAccountsAccountPeopleRequestBodyAddressKanji')
-> Parser
     (Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> PostAccountsAccountPeopleRequestBodyAddressKanji')
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
-> PostAccountsAccountPeopleRequestBodyAddressKanji'
PostAccountsAccountPeopleRequestBodyAddressKanji' Parser
  (Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> PostAccountsAccountPeopleRequestBodyAddressKanji')
-> Parser (Maybe Text)
-> Parser
     (Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> PostAccountsAccountPeopleRequestBodyAddressKanji')
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
   -> PostAccountsAccountPeopleRequestBodyAddressKanji')
-> Parser (Maybe Text)
-> Parser
     (Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> PostAccountsAccountPeopleRequestBodyAddressKanji')
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
   -> PostAccountsAccountPeopleRequestBodyAddressKanji')
-> Parser (Maybe Text)
-> Parser
     (Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> PostAccountsAccountPeopleRequestBodyAddressKanji')
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
   -> PostAccountsAccountPeopleRequestBodyAddressKanji')
-> Parser (Maybe Text)
-> Parser
     (Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> PostAccountsAccountPeopleRequestBodyAddressKanji')
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
   -> PostAccountsAccountPeopleRequestBodyAddressKanji')
-> Parser (Maybe Text)
-> Parser
     (Maybe Text
      -> Maybe Text -> PostAccountsAccountPeopleRequestBodyAddressKanji')
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 -> PostAccountsAccountPeopleRequestBodyAddressKanji')
-> Parser (Maybe Text)
-> Parser
     (Maybe Text -> PostAccountsAccountPeopleRequestBodyAddressKanji')
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 -> PostAccountsAccountPeopleRequestBodyAddressKanji')
-> Parser (Maybe Text)
-> Parser PostAccountsAccountPeopleRequestBodyAddressKanji'
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 'PostAccountsAccountPeopleRequestBodyAddressKanji'' with all required fields.
mkPostAccountsAccountPeopleRequestBodyAddressKanji' :: PostAccountsAccountPeopleRequestBodyAddressKanji'
mkPostAccountsAccountPeopleRequestBodyAddressKanji' :: PostAccountsAccountPeopleRequestBodyAddressKanji'
mkPostAccountsAccountPeopleRequestBodyAddressKanji' =
  PostAccountsAccountPeopleRequestBodyAddressKanji' :: Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> PostAccountsAccountPeopleRequestBodyAddressKanji'
PostAccountsAccountPeopleRequestBodyAddressKanji'
    { postAccountsAccountPeopleRequestBodyAddressKanji'City :: Maybe Text
postAccountsAccountPeopleRequestBodyAddressKanji'City = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsAccountPeopleRequestBodyAddressKanji'Country :: Maybe Text
postAccountsAccountPeopleRequestBodyAddressKanji'Country = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsAccountPeopleRequestBodyAddressKanji'Line1 :: Maybe Text
postAccountsAccountPeopleRequestBodyAddressKanji'Line1 = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsAccountPeopleRequestBodyAddressKanji'Line2 :: Maybe Text
postAccountsAccountPeopleRequestBodyAddressKanji'Line2 = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsAccountPeopleRequestBodyAddressKanji'PostalCode :: Maybe Text
postAccountsAccountPeopleRequestBodyAddressKanji'PostalCode = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsAccountPeopleRequestBodyAddressKanji'State :: Maybe Text
postAccountsAccountPeopleRequestBodyAddressKanji'State = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsAccountPeopleRequestBodyAddressKanji'Town :: Maybe Text
postAccountsAccountPeopleRequestBodyAddressKanji'Town = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing
    }

-- | Defines the object schema located at @paths.\/v1\/accounts\/{account}\/people.POST.requestBody.content.application\/x-www-form-urlencoded.schema.properties.dob.anyOf@ in the specification.
data PostAccountsAccountPeopleRequestBodyDob'OneOf1 = PostAccountsAccountPeopleRequestBodyDob'OneOf1
  { -- | day
    PostAccountsAccountPeopleRequestBodyDob'OneOf1 -> Int
postAccountsAccountPeopleRequestBodyDob'OneOf1Day :: GHC.Types.Int,
    -- | month
    PostAccountsAccountPeopleRequestBodyDob'OneOf1 -> Int
postAccountsAccountPeopleRequestBodyDob'OneOf1Month :: GHC.Types.Int,
    -- | year
    PostAccountsAccountPeopleRequestBodyDob'OneOf1 -> Int
postAccountsAccountPeopleRequestBodyDob'OneOf1Year :: GHC.Types.Int
  }
  deriving
    ( Int
-> PostAccountsAccountPeopleRequestBodyDob'OneOf1
-> String
-> String
[PostAccountsAccountPeopleRequestBodyDob'OneOf1]
-> String -> String
PostAccountsAccountPeopleRequestBodyDob'OneOf1 -> String
(Int
 -> PostAccountsAccountPeopleRequestBodyDob'OneOf1
 -> String
 -> String)
-> (PostAccountsAccountPeopleRequestBodyDob'OneOf1 -> String)
-> ([PostAccountsAccountPeopleRequestBodyDob'OneOf1]
    -> String -> String)
-> Show PostAccountsAccountPeopleRequestBodyDob'OneOf1
forall a.
(Int -> a -> String -> String)
-> (a -> String) -> ([a] -> String -> String) -> Show a
showList :: [PostAccountsAccountPeopleRequestBodyDob'OneOf1]
-> String -> String
$cshowList :: [PostAccountsAccountPeopleRequestBodyDob'OneOf1]
-> String -> String
show :: PostAccountsAccountPeopleRequestBodyDob'OneOf1 -> String
$cshow :: PostAccountsAccountPeopleRequestBodyDob'OneOf1 -> String
showsPrec :: Int
-> PostAccountsAccountPeopleRequestBodyDob'OneOf1
-> String
-> String
$cshowsPrec :: Int
-> PostAccountsAccountPeopleRequestBodyDob'OneOf1
-> String
-> String
GHC.Show.Show,
      PostAccountsAccountPeopleRequestBodyDob'OneOf1
-> PostAccountsAccountPeopleRequestBodyDob'OneOf1 -> Bool
(PostAccountsAccountPeopleRequestBodyDob'OneOf1
 -> PostAccountsAccountPeopleRequestBodyDob'OneOf1 -> Bool)
-> (PostAccountsAccountPeopleRequestBodyDob'OneOf1
    -> PostAccountsAccountPeopleRequestBodyDob'OneOf1 -> Bool)
-> Eq PostAccountsAccountPeopleRequestBodyDob'OneOf1
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostAccountsAccountPeopleRequestBodyDob'OneOf1
-> PostAccountsAccountPeopleRequestBodyDob'OneOf1 -> Bool
$c/= :: PostAccountsAccountPeopleRequestBodyDob'OneOf1
-> PostAccountsAccountPeopleRequestBodyDob'OneOf1 -> Bool
== :: PostAccountsAccountPeopleRequestBodyDob'OneOf1
-> PostAccountsAccountPeopleRequestBodyDob'OneOf1 -> Bool
$c== :: PostAccountsAccountPeopleRequestBodyDob'OneOf1
-> PostAccountsAccountPeopleRequestBodyDob'OneOf1 -> Bool
GHC.Classes.Eq
    )

instance Data.Aeson.Types.ToJSON.ToJSON PostAccountsAccountPeopleRequestBodyDob'OneOf1 where
  toJSON :: PostAccountsAccountPeopleRequestBodyDob'OneOf1 -> Value
toJSON PostAccountsAccountPeopleRequestBodyDob'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..= PostAccountsAccountPeopleRequestBodyDob'OneOf1 -> Int
postAccountsAccountPeopleRequestBodyDob'OneOf1Day PostAccountsAccountPeopleRequestBodyDob'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..= PostAccountsAccountPeopleRequestBodyDob'OneOf1 -> Int
postAccountsAccountPeopleRequestBodyDob'OneOf1Month PostAccountsAccountPeopleRequestBodyDob'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..= PostAccountsAccountPeopleRequestBodyDob'OneOf1 -> Int
postAccountsAccountPeopleRequestBodyDob'OneOf1Year PostAccountsAccountPeopleRequestBodyDob'OneOf1
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: [Pair]
forall a. Monoid a => a
GHC.Base.mempty)
  toEncoding :: PostAccountsAccountPeopleRequestBodyDob'OneOf1 -> Encoding
toEncoding PostAccountsAccountPeopleRequestBodyDob'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..= PostAccountsAccountPeopleRequestBodyDob'OneOf1 -> Int
postAccountsAccountPeopleRequestBodyDob'OneOf1Day PostAccountsAccountPeopleRequestBodyDob'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..= PostAccountsAccountPeopleRequestBodyDob'OneOf1 -> Int
postAccountsAccountPeopleRequestBodyDob'OneOf1Month PostAccountsAccountPeopleRequestBodyDob'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..= PostAccountsAccountPeopleRequestBodyDob'OneOf1 -> Int
postAccountsAccountPeopleRequestBodyDob'OneOf1Year PostAccountsAccountPeopleRequestBodyDob'OneOf1
obj)))

instance Data.Aeson.Types.FromJSON.FromJSON PostAccountsAccountPeopleRequestBodyDob'OneOf1 where
  parseJSON :: Value -> Parser PostAccountsAccountPeopleRequestBodyDob'OneOf1
parseJSON = String
-> (Object
    -> Parser PostAccountsAccountPeopleRequestBodyDob'OneOf1)
-> Value
-> Parser PostAccountsAccountPeopleRequestBodyDob'OneOf1
forall a. String -> (Object -> Parser a) -> Value -> Parser a
Data.Aeson.Types.FromJSON.withObject String
"PostAccountsAccountPeopleRequestBodyDob'OneOf1" (\Object
obj -> (((Int
 -> Int -> Int -> PostAccountsAccountPeopleRequestBodyDob'OneOf1)
-> Parser
     (Int
      -> Int -> Int -> PostAccountsAccountPeopleRequestBodyDob'OneOf1)
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure Int -> Int -> Int -> PostAccountsAccountPeopleRequestBodyDob'OneOf1
PostAccountsAccountPeopleRequestBodyDob'OneOf1 Parser
  (Int
   -> Int -> Int -> PostAccountsAccountPeopleRequestBodyDob'OneOf1)
-> Parser Int
-> Parser
     (Int -> Int -> PostAccountsAccountPeopleRequestBodyDob'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 -> PostAccountsAccountPeopleRequestBodyDob'OneOf1)
-> Parser Int
-> Parser (Int -> PostAccountsAccountPeopleRequestBodyDob'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 -> PostAccountsAccountPeopleRequestBodyDob'OneOf1)
-> Parser Int
-> Parser PostAccountsAccountPeopleRequestBodyDob'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 'PostAccountsAccountPeopleRequestBodyDob'OneOf1' with all required fields.
mkPostAccountsAccountPeopleRequestBodyDob'OneOf1 ::
  -- | 'postAccountsAccountPeopleRequestBodyDob'OneOf1Day'
  GHC.Types.Int ->
  -- | 'postAccountsAccountPeopleRequestBodyDob'OneOf1Month'
  GHC.Types.Int ->
  -- | 'postAccountsAccountPeopleRequestBodyDob'OneOf1Year'
  GHC.Types.Int ->
  PostAccountsAccountPeopleRequestBodyDob'OneOf1
mkPostAccountsAccountPeopleRequestBodyDob'OneOf1 :: Int -> Int -> Int -> PostAccountsAccountPeopleRequestBodyDob'OneOf1
mkPostAccountsAccountPeopleRequestBodyDob'OneOf1 Int
postAccountsAccountPeopleRequestBodyDob'OneOf1Day Int
postAccountsAccountPeopleRequestBodyDob'OneOf1Month Int
postAccountsAccountPeopleRequestBodyDob'OneOf1Year =
  PostAccountsAccountPeopleRequestBodyDob'OneOf1 :: Int -> Int -> Int -> PostAccountsAccountPeopleRequestBodyDob'OneOf1
PostAccountsAccountPeopleRequestBodyDob'OneOf1
    { postAccountsAccountPeopleRequestBodyDob'OneOf1Day :: Int
postAccountsAccountPeopleRequestBodyDob'OneOf1Day = Int
postAccountsAccountPeopleRequestBodyDob'OneOf1Day,
      postAccountsAccountPeopleRequestBodyDob'OneOf1Month :: Int
postAccountsAccountPeopleRequestBodyDob'OneOf1Month = Int
postAccountsAccountPeopleRequestBodyDob'OneOf1Month,
      postAccountsAccountPeopleRequestBodyDob'OneOf1Year :: Int
postAccountsAccountPeopleRequestBodyDob'OneOf1Year = Int
postAccountsAccountPeopleRequestBodyDob'OneOf1Year
    }

-- | Defines the oneOf schema located at @paths.\/v1\/accounts\/{account}\/people.POST.requestBody.content.application\/x-www-form-urlencoded.schema.properties.dob.anyOf@ in the specification.
--
-- The person\'s date of birth.
data PostAccountsAccountPeopleRequestBodyDob'Variants
  = -- | Represents the JSON value @""@
    PostAccountsAccountPeopleRequestBodyDob'EmptyString
  | PostAccountsAccountPeopleRequestBodyDob'PostAccountsAccountPeopleRequestBodyDob'OneOf1 PostAccountsAccountPeopleRequestBodyDob'OneOf1
  deriving (Int
-> PostAccountsAccountPeopleRequestBodyDob'Variants
-> String
-> String
[PostAccountsAccountPeopleRequestBodyDob'Variants]
-> String -> String
PostAccountsAccountPeopleRequestBodyDob'Variants -> String
(Int
 -> PostAccountsAccountPeopleRequestBodyDob'Variants
 -> String
 -> String)
-> (PostAccountsAccountPeopleRequestBodyDob'Variants -> String)
-> ([PostAccountsAccountPeopleRequestBodyDob'Variants]
    -> String -> String)
-> Show PostAccountsAccountPeopleRequestBodyDob'Variants
forall a.
(Int -> a -> String -> String)
-> (a -> String) -> ([a] -> String -> String) -> Show a
showList :: [PostAccountsAccountPeopleRequestBodyDob'Variants]
-> String -> String
$cshowList :: [PostAccountsAccountPeopleRequestBodyDob'Variants]
-> String -> String
show :: PostAccountsAccountPeopleRequestBodyDob'Variants -> String
$cshow :: PostAccountsAccountPeopleRequestBodyDob'Variants -> String
showsPrec :: Int
-> PostAccountsAccountPeopleRequestBodyDob'Variants
-> String
-> String
$cshowsPrec :: Int
-> PostAccountsAccountPeopleRequestBodyDob'Variants
-> String
-> String
GHC.Show.Show, PostAccountsAccountPeopleRequestBodyDob'Variants
-> PostAccountsAccountPeopleRequestBodyDob'Variants -> Bool
(PostAccountsAccountPeopleRequestBodyDob'Variants
 -> PostAccountsAccountPeopleRequestBodyDob'Variants -> Bool)
-> (PostAccountsAccountPeopleRequestBodyDob'Variants
    -> PostAccountsAccountPeopleRequestBodyDob'Variants -> Bool)
-> Eq PostAccountsAccountPeopleRequestBodyDob'Variants
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostAccountsAccountPeopleRequestBodyDob'Variants
-> PostAccountsAccountPeopleRequestBodyDob'Variants -> Bool
$c/= :: PostAccountsAccountPeopleRequestBodyDob'Variants
-> PostAccountsAccountPeopleRequestBodyDob'Variants -> Bool
== :: PostAccountsAccountPeopleRequestBodyDob'Variants
-> PostAccountsAccountPeopleRequestBodyDob'Variants -> Bool
$c== :: PostAccountsAccountPeopleRequestBodyDob'Variants
-> PostAccountsAccountPeopleRequestBodyDob'Variants -> Bool
GHC.Classes.Eq)

instance Data.Aeson.Types.ToJSON.ToJSON PostAccountsAccountPeopleRequestBodyDob'Variants where
  toJSON :: PostAccountsAccountPeopleRequestBodyDob'Variants -> Value
toJSON (PostAccountsAccountPeopleRequestBodyDob'PostAccountsAccountPeopleRequestBodyDob'OneOf1 PostAccountsAccountPeopleRequestBodyDob'OneOf1
a) = PostAccountsAccountPeopleRequestBodyDob'OneOf1 -> Value
forall a. ToJSON a => a -> Value
Data.Aeson.Types.ToJSON.toJSON PostAccountsAccountPeopleRequestBodyDob'OneOf1
a
  toJSON (PostAccountsAccountPeopleRequestBodyDob'Variants
PostAccountsAccountPeopleRequestBodyDob'EmptyString) = Value
""

instance Data.Aeson.Types.FromJSON.FromJSON PostAccountsAccountPeopleRequestBodyDob'Variants where
  parseJSON :: Value -> Parser PostAccountsAccountPeopleRequestBodyDob'Variants
parseJSON Value
val =
    if
        | Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"" -> PostAccountsAccountPeopleRequestBodyDob'Variants
-> Parser PostAccountsAccountPeopleRequestBodyDob'Variants
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure PostAccountsAccountPeopleRequestBodyDob'Variants
PostAccountsAccountPeopleRequestBodyDob'EmptyString
        | Bool
GHC.Base.otherwise -> case (PostAccountsAccountPeopleRequestBodyDob'OneOf1
-> PostAccountsAccountPeopleRequestBodyDob'Variants
PostAccountsAccountPeopleRequestBodyDob'PostAccountsAccountPeopleRequestBodyDob'OneOf1 (PostAccountsAccountPeopleRequestBodyDob'OneOf1
 -> PostAccountsAccountPeopleRequestBodyDob'Variants)
-> Result PostAccountsAccountPeopleRequestBodyDob'OneOf1
-> Result PostAccountsAccountPeopleRequestBodyDob'Variants
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Data.Functor.<$> Value -> Result PostAccountsAccountPeopleRequestBodyDob'OneOf1
forall a. FromJSON a => Value -> Result a
Data.Aeson.Types.FromJSON.fromJSON Value
val) Result PostAccountsAccountPeopleRequestBodyDob'Variants
-> Result PostAccountsAccountPeopleRequestBodyDob'Variants
-> Result PostAccountsAccountPeopleRequestBodyDob'Variants
forall (f :: * -> *) a. Alternative f => f a -> f a -> f a
GHC.Base.<|> String -> Result PostAccountsAccountPeopleRequestBodyDob'Variants
forall a. String -> Result a
Data.Aeson.Types.Internal.Error String
"No variant matched" of
          Data.Aeson.Types.Internal.Success PostAccountsAccountPeopleRequestBodyDob'Variants
a -> PostAccountsAccountPeopleRequestBodyDob'Variants
-> Parser PostAccountsAccountPeopleRequestBodyDob'Variants
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure PostAccountsAccountPeopleRequestBodyDob'Variants
a
          Data.Aeson.Types.Internal.Error String
a -> String -> Parser PostAccountsAccountPeopleRequestBodyDob'Variants
forall (m :: * -> *) a. MonadFail m => String -> m a
Control.Monad.Fail.fail String
a

-- | Defines the object schema located at @paths.\/v1\/accounts\/{account}\/people.POST.requestBody.content.application\/x-www-form-urlencoded.schema.properties.documents@ in the specification.
--
-- Documents that may be submitted to satisfy various informational requests.
data PostAccountsAccountPeopleRequestBodyDocuments' = PostAccountsAccountPeopleRequestBodyDocuments'
  { -- | company_authorization
    PostAccountsAccountPeopleRequestBodyDocuments'
-> Maybe
     PostAccountsAccountPeopleRequestBodyDocuments'CompanyAuthorization'
postAccountsAccountPeopleRequestBodyDocuments'CompanyAuthorization :: (GHC.Maybe.Maybe PostAccountsAccountPeopleRequestBodyDocuments'CompanyAuthorization'),
    -- | passport
    PostAccountsAccountPeopleRequestBodyDocuments'
-> Maybe PostAccountsAccountPeopleRequestBodyDocuments'Passport'
postAccountsAccountPeopleRequestBodyDocuments'Passport :: (GHC.Maybe.Maybe PostAccountsAccountPeopleRequestBodyDocuments'Passport'),
    -- | visa
    PostAccountsAccountPeopleRequestBodyDocuments'
-> Maybe PostAccountsAccountPeopleRequestBodyDocuments'Visa'
postAccountsAccountPeopleRequestBodyDocuments'Visa :: (GHC.Maybe.Maybe PostAccountsAccountPeopleRequestBodyDocuments'Visa')
  }
  deriving
    ( Int
-> PostAccountsAccountPeopleRequestBodyDocuments'
-> String
-> String
[PostAccountsAccountPeopleRequestBodyDocuments']
-> String -> String
PostAccountsAccountPeopleRequestBodyDocuments' -> String
(Int
 -> PostAccountsAccountPeopleRequestBodyDocuments'
 -> String
 -> String)
-> (PostAccountsAccountPeopleRequestBodyDocuments' -> String)
-> ([PostAccountsAccountPeopleRequestBodyDocuments']
    -> String -> String)
-> Show PostAccountsAccountPeopleRequestBodyDocuments'
forall a.
(Int -> a -> String -> String)
-> (a -> String) -> ([a] -> String -> String) -> Show a
showList :: [PostAccountsAccountPeopleRequestBodyDocuments']
-> String -> String
$cshowList :: [PostAccountsAccountPeopleRequestBodyDocuments']
-> String -> String
show :: PostAccountsAccountPeopleRequestBodyDocuments' -> String
$cshow :: PostAccountsAccountPeopleRequestBodyDocuments' -> String
showsPrec :: Int
-> PostAccountsAccountPeopleRequestBodyDocuments'
-> String
-> String
$cshowsPrec :: Int
-> PostAccountsAccountPeopleRequestBodyDocuments'
-> String
-> String
GHC.Show.Show,
      PostAccountsAccountPeopleRequestBodyDocuments'
-> PostAccountsAccountPeopleRequestBodyDocuments' -> Bool
(PostAccountsAccountPeopleRequestBodyDocuments'
 -> PostAccountsAccountPeopleRequestBodyDocuments' -> Bool)
-> (PostAccountsAccountPeopleRequestBodyDocuments'
    -> PostAccountsAccountPeopleRequestBodyDocuments' -> Bool)
-> Eq PostAccountsAccountPeopleRequestBodyDocuments'
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostAccountsAccountPeopleRequestBodyDocuments'
-> PostAccountsAccountPeopleRequestBodyDocuments' -> Bool
$c/= :: PostAccountsAccountPeopleRequestBodyDocuments'
-> PostAccountsAccountPeopleRequestBodyDocuments' -> Bool
== :: PostAccountsAccountPeopleRequestBodyDocuments'
-> PostAccountsAccountPeopleRequestBodyDocuments' -> Bool
$c== :: PostAccountsAccountPeopleRequestBodyDocuments'
-> PostAccountsAccountPeopleRequestBodyDocuments' -> Bool
GHC.Classes.Eq
    )

instance Data.Aeson.Types.ToJSON.ToJSON PostAccountsAccountPeopleRequestBodyDocuments' where
  toJSON :: PostAccountsAccountPeopleRequestBodyDocuments' -> Value
toJSON PostAccountsAccountPeopleRequestBodyDocuments'
obj = [Pair] -> Value
Data.Aeson.Types.Internal.object (Text
"company_authorization" Text
-> Maybe
     PostAccountsAccountPeopleRequestBodyDocuments'CompanyAuthorization'
-> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsAccountPeopleRequestBodyDocuments'
-> Maybe
     PostAccountsAccountPeopleRequestBodyDocuments'CompanyAuthorization'
postAccountsAccountPeopleRequestBodyDocuments'CompanyAuthorization PostAccountsAccountPeopleRequestBodyDocuments'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"passport" Text
-> Maybe PostAccountsAccountPeopleRequestBodyDocuments'Passport'
-> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsAccountPeopleRequestBodyDocuments'
-> Maybe PostAccountsAccountPeopleRequestBodyDocuments'Passport'
postAccountsAccountPeopleRequestBodyDocuments'Passport PostAccountsAccountPeopleRequestBodyDocuments'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"visa" Text
-> Maybe PostAccountsAccountPeopleRequestBodyDocuments'Visa'
-> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsAccountPeopleRequestBodyDocuments'
-> Maybe PostAccountsAccountPeopleRequestBodyDocuments'Visa'
postAccountsAccountPeopleRequestBodyDocuments'Visa PostAccountsAccountPeopleRequestBodyDocuments'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: [Pair]
forall a. Monoid a => a
GHC.Base.mempty)
  toEncoding :: PostAccountsAccountPeopleRequestBodyDocuments' -> Encoding
toEncoding PostAccountsAccountPeopleRequestBodyDocuments'
obj = Series -> Encoding
Data.Aeson.Encoding.Internal.pairs ((Text
"company_authorization" Text
-> Maybe
     PostAccountsAccountPeopleRequestBodyDocuments'CompanyAuthorization'
-> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsAccountPeopleRequestBodyDocuments'
-> Maybe
     PostAccountsAccountPeopleRequestBodyDocuments'CompanyAuthorization'
postAccountsAccountPeopleRequestBodyDocuments'CompanyAuthorization PostAccountsAccountPeopleRequestBodyDocuments'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"passport" Text
-> Maybe PostAccountsAccountPeopleRequestBodyDocuments'Passport'
-> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsAccountPeopleRequestBodyDocuments'
-> Maybe PostAccountsAccountPeopleRequestBodyDocuments'Passport'
postAccountsAccountPeopleRequestBodyDocuments'Passport PostAccountsAccountPeopleRequestBodyDocuments'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> (Text
"visa" Text
-> Maybe PostAccountsAccountPeopleRequestBodyDocuments'Visa'
-> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsAccountPeopleRequestBodyDocuments'
-> Maybe PostAccountsAccountPeopleRequestBodyDocuments'Visa'
postAccountsAccountPeopleRequestBodyDocuments'Visa PostAccountsAccountPeopleRequestBodyDocuments'
obj)))

instance Data.Aeson.Types.FromJSON.FromJSON PostAccountsAccountPeopleRequestBodyDocuments' where
  parseJSON :: Value -> Parser PostAccountsAccountPeopleRequestBodyDocuments'
parseJSON = String
-> (Object
    -> Parser PostAccountsAccountPeopleRequestBodyDocuments')
-> Value
-> Parser PostAccountsAccountPeopleRequestBodyDocuments'
forall a. String -> (Object -> Parser a) -> Value -> Parser a
Data.Aeson.Types.FromJSON.withObject String
"PostAccountsAccountPeopleRequestBodyDocuments'" (\Object
obj -> (((Maybe
   PostAccountsAccountPeopleRequestBodyDocuments'CompanyAuthorization'
 -> Maybe PostAccountsAccountPeopleRequestBodyDocuments'Passport'
 -> Maybe PostAccountsAccountPeopleRequestBodyDocuments'Visa'
 -> PostAccountsAccountPeopleRequestBodyDocuments')
-> Parser
     (Maybe
        PostAccountsAccountPeopleRequestBodyDocuments'CompanyAuthorization'
      -> Maybe PostAccountsAccountPeopleRequestBodyDocuments'Passport'
      -> Maybe PostAccountsAccountPeopleRequestBodyDocuments'Visa'
      -> PostAccountsAccountPeopleRequestBodyDocuments')
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure Maybe
  PostAccountsAccountPeopleRequestBodyDocuments'CompanyAuthorization'
-> Maybe PostAccountsAccountPeopleRequestBodyDocuments'Passport'
-> Maybe PostAccountsAccountPeopleRequestBodyDocuments'Visa'
-> PostAccountsAccountPeopleRequestBodyDocuments'
PostAccountsAccountPeopleRequestBodyDocuments' Parser
  (Maybe
     PostAccountsAccountPeopleRequestBodyDocuments'CompanyAuthorization'
   -> Maybe PostAccountsAccountPeopleRequestBodyDocuments'Passport'
   -> Maybe PostAccountsAccountPeopleRequestBodyDocuments'Visa'
   -> PostAccountsAccountPeopleRequestBodyDocuments')
-> Parser
     (Maybe
        PostAccountsAccountPeopleRequestBodyDocuments'CompanyAuthorization')
-> Parser
     (Maybe PostAccountsAccountPeopleRequestBodyDocuments'Passport'
      -> Maybe PostAccountsAccountPeopleRequestBodyDocuments'Visa'
      -> PostAccountsAccountPeopleRequestBodyDocuments')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object
-> Text
-> Parser
     (Maybe
        PostAccountsAccountPeopleRequestBodyDocuments'CompanyAuthorization')
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"company_authorization")) Parser
  (Maybe PostAccountsAccountPeopleRequestBodyDocuments'Passport'
   -> Maybe PostAccountsAccountPeopleRequestBodyDocuments'Visa'
   -> PostAccountsAccountPeopleRequestBodyDocuments')
-> Parser
     (Maybe PostAccountsAccountPeopleRequestBodyDocuments'Passport')
-> Parser
     (Maybe PostAccountsAccountPeopleRequestBodyDocuments'Visa'
      -> PostAccountsAccountPeopleRequestBodyDocuments')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object
-> Text
-> Parser
     (Maybe PostAccountsAccountPeopleRequestBodyDocuments'Passport')
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"passport")) Parser
  (Maybe PostAccountsAccountPeopleRequestBodyDocuments'Visa'
   -> PostAccountsAccountPeopleRequestBodyDocuments')
-> Parser
     (Maybe PostAccountsAccountPeopleRequestBodyDocuments'Visa')
-> Parser PostAccountsAccountPeopleRequestBodyDocuments'
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object
-> Text
-> Parser
     (Maybe PostAccountsAccountPeopleRequestBodyDocuments'Visa')
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"visa"))

-- | Create a new 'PostAccountsAccountPeopleRequestBodyDocuments'' with all required fields.
mkPostAccountsAccountPeopleRequestBodyDocuments' :: PostAccountsAccountPeopleRequestBodyDocuments'
mkPostAccountsAccountPeopleRequestBodyDocuments' :: PostAccountsAccountPeopleRequestBodyDocuments'
mkPostAccountsAccountPeopleRequestBodyDocuments' =
  PostAccountsAccountPeopleRequestBodyDocuments' :: Maybe
  PostAccountsAccountPeopleRequestBodyDocuments'CompanyAuthorization'
-> Maybe PostAccountsAccountPeopleRequestBodyDocuments'Passport'
-> Maybe PostAccountsAccountPeopleRequestBodyDocuments'Visa'
-> PostAccountsAccountPeopleRequestBodyDocuments'
PostAccountsAccountPeopleRequestBodyDocuments'
    { postAccountsAccountPeopleRequestBodyDocuments'CompanyAuthorization :: Maybe
  PostAccountsAccountPeopleRequestBodyDocuments'CompanyAuthorization'
postAccountsAccountPeopleRequestBodyDocuments'CompanyAuthorization = Maybe
  PostAccountsAccountPeopleRequestBodyDocuments'CompanyAuthorization'
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsAccountPeopleRequestBodyDocuments'Passport :: Maybe PostAccountsAccountPeopleRequestBodyDocuments'Passport'
postAccountsAccountPeopleRequestBodyDocuments'Passport = Maybe PostAccountsAccountPeopleRequestBodyDocuments'Passport'
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsAccountPeopleRequestBodyDocuments'Visa :: Maybe PostAccountsAccountPeopleRequestBodyDocuments'Visa'
postAccountsAccountPeopleRequestBodyDocuments'Visa = Maybe PostAccountsAccountPeopleRequestBodyDocuments'Visa'
forall a. Maybe a
GHC.Maybe.Nothing
    }

-- | Defines the object schema located at @paths.\/v1\/accounts\/{account}\/people.POST.requestBody.content.application\/x-www-form-urlencoded.schema.properties.documents.properties.company_authorization@ in the specification.
data PostAccountsAccountPeopleRequestBodyDocuments'CompanyAuthorization' = PostAccountsAccountPeopleRequestBodyDocuments'CompanyAuthorization'
  { -- | files
    PostAccountsAccountPeopleRequestBodyDocuments'CompanyAuthorization'
-> Maybe [Text]
postAccountsAccountPeopleRequestBodyDocuments'CompanyAuthorization'Files :: (GHC.Maybe.Maybe ([Data.Text.Internal.Text]))
  }
  deriving
    ( Int
-> PostAccountsAccountPeopleRequestBodyDocuments'CompanyAuthorization'
-> String
-> String
[PostAccountsAccountPeopleRequestBodyDocuments'CompanyAuthorization']
-> String -> String
PostAccountsAccountPeopleRequestBodyDocuments'CompanyAuthorization'
-> String
(Int
 -> PostAccountsAccountPeopleRequestBodyDocuments'CompanyAuthorization'
 -> String
 -> String)
-> (PostAccountsAccountPeopleRequestBodyDocuments'CompanyAuthorization'
    -> String)
-> ([PostAccountsAccountPeopleRequestBodyDocuments'CompanyAuthorization']
    -> String -> String)
-> Show
     PostAccountsAccountPeopleRequestBodyDocuments'CompanyAuthorization'
forall a.
(Int -> a -> String -> String)
-> (a -> String) -> ([a] -> String -> String) -> Show a
showList :: [PostAccountsAccountPeopleRequestBodyDocuments'CompanyAuthorization']
-> String -> String
$cshowList :: [PostAccountsAccountPeopleRequestBodyDocuments'CompanyAuthorization']
-> String -> String
show :: PostAccountsAccountPeopleRequestBodyDocuments'CompanyAuthorization'
-> String
$cshow :: PostAccountsAccountPeopleRequestBodyDocuments'CompanyAuthorization'
-> String
showsPrec :: Int
-> PostAccountsAccountPeopleRequestBodyDocuments'CompanyAuthorization'
-> String
-> String
$cshowsPrec :: Int
-> PostAccountsAccountPeopleRequestBodyDocuments'CompanyAuthorization'
-> String
-> String
GHC.Show.Show,
      PostAccountsAccountPeopleRequestBodyDocuments'CompanyAuthorization'
-> PostAccountsAccountPeopleRequestBodyDocuments'CompanyAuthorization'
-> Bool
(PostAccountsAccountPeopleRequestBodyDocuments'CompanyAuthorization'
 -> PostAccountsAccountPeopleRequestBodyDocuments'CompanyAuthorization'
 -> Bool)
-> (PostAccountsAccountPeopleRequestBodyDocuments'CompanyAuthorization'
    -> PostAccountsAccountPeopleRequestBodyDocuments'CompanyAuthorization'
    -> Bool)
-> Eq
     PostAccountsAccountPeopleRequestBodyDocuments'CompanyAuthorization'
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostAccountsAccountPeopleRequestBodyDocuments'CompanyAuthorization'
-> PostAccountsAccountPeopleRequestBodyDocuments'CompanyAuthorization'
-> Bool
$c/= :: PostAccountsAccountPeopleRequestBodyDocuments'CompanyAuthorization'
-> PostAccountsAccountPeopleRequestBodyDocuments'CompanyAuthorization'
-> Bool
== :: PostAccountsAccountPeopleRequestBodyDocuments'CompanyAuthorization'
-> PostAccountsAccountPeopleRequestBodyDocuments'CompanyAuthorization'
-> Bool
$c== :: PostAccountsAccountPeopleRequestBodyDocuments'CompanyAuthorization'
-> PostAccountsAccountPeopleRequestBodyDocuments'CompanyAuthorization'
-> Bool
GHC.Classes.Eq
    )

instance Data.Aeson.Types.ToJSON.ToJSON PostAccountsAccountPeopleRequestBodyDocuments'CompanyAuthorization' where
  toJSON :: PostAccountsAccountPeopleRequestBodyDocuments'CompanyAuthorization'
-> Value
toJSON PostAccountsAccountPeopleRequestBodyDocuments'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..= PostAccountsAccountPeopleRequestBodyDocuments'CompanyAuthorization'
-> Maybe [Text]
postAccountsAccountPeopleRequestBodyDocuments'CompanyAuthorization'Files PostAccountsAccountPeopleRequestBodyDocuments'CompanyAuthorization'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: [Pair]
forall a. Monoid a => a
GHC.Base.mempty)
  toEncoding :: PostAccountsAccountPeopleRequestBodyDocuments'CompanyAuthorization'
-> Encoding
toEncoding PostAccountsAccountPeopleRequestBodyDocuments'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..= PostAccountsAccountPeopleRequestBodyDocuments'CompanyAuthorization'
-> Maybe [Text]
postAccountsAccountPeopleRequestBodyDocuments'CompanyAuthorization'Files PostAccountsAccountPeopleRequestBodyDocuments'CompanyAuthorization'
obj)

instance Data.Aeson.Types.FromJSON.FromJSON PostAccountsAccountPeopleRequestBodyDocuments'CompanyAuthorization' where
  parseJSON :: Value
-> Parser
     PostAccountsAccountPeopleRequestBodyDocuments'CompanyAuthorization'
parseJSON = String
-> (Object
    -> Parser
         PostAccountsAccountPeopleRequestBodyDocuments'CompanyAuthorization')
-> Value
-> Parser
     PostAccountsAccountPeopleRequestBodyDocuments'CompanyAuthorization'
forall a. String -> (Object -> Parser a) -> Value -> Parser a
Data.Aeson.Types.FromJSON.withObject String
"PostAccountsAccountPeopleRequestBodyDocuments'CompanyAuthorization'" (\Object
obj -> (Maybe [Text]
 -> PostAccountsAccountPeopleRequestBodyDocuments'CompanyAuthorization')
-> Parser
     (Maybe [Text]
      -> PostAccountsAccountPeopleRequestBodyDocuments'CompanyAuthorization')
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure Maybe [Text]
-> PostAccountsAccountPeopleRequestBodyDocuments'CompanyAuthorization'
PostAccountsAccountPeopleRequestBodyDocuments'CompanyAuthorization' Parser
  (Maybe [Text]
   -> PostAccountsAccountPeopleRequestBodyDocuments'CompanyAuthorization')
-> Parser (Maybe [Text])
-> Parser
     PostAccountsAccountPeopleRequestBodyDocuments'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 'PostAccountsAccountPeopleRequestBodyDocuments'CompanyAuthorization'' with all required fields.
mkPostAccountsAccountPeopleRequestBodyDocuments'CompanyAuthorization' :: PostAccountsAccountPeopleRequestBodyDocuments'CompanyAuthorization'
mkPostAccountsAccountPeopleRequestBodyDocuments'CompanyAuthorization' :: PostAccountsAccountPeopleRequestBodyDocuments'CompanyAuthorization'
mkPostAccountsAccountPeopleRequestBodyDocuments'CompanyAuthorization' = PostAccountsAccountPeopleRequestBodyDocuments'CompanyAuthorization' :: Maybe [Text]
-> PostAccountsAccountPeopleRequestBodyDocuments'CompanyAuthorization'
PostAccountsAccountPeopleRequestBodyDocuments'CompanyAuthorization' {postAccountsAccountPeopleRequestBodyDocuments'CompanyAuthorization'Files :: Maybe [Text]
postAccountsAccountPeopleRequestBodyDocuments'CompanyAuthorization'Files = Maybe [Text]
forall a. Maybe a
GHC.Maybe.Nothing}

-- | Defines the object schema located at @paths.\/v1\/accounts\/{account}\/people.POST.requestBody.content.application\/x-www-form-urlencoded.schema.properties.documents.properties.passport@ in the specification.
data PostAccountsAccountPeopleRequestBodyDocuments'Passport' = PostAccountsAccountPeopleRequestBodyDocuments'Passport'
  { -- | files
    PostAccountsAccountPeopleRequestBodyDocuments'Passport'
-> Maybe [Text]
postAccountsAccountPeopleRequestBodyDocuments'Passport'Files :: (GHC.Maybe.Maybe ([Data.Text.Internal.Text]))
  }
  deriving
    ( Int
-> PostAccountsAccountPeopleRequestBodyDocuments'Passport'
-> String
-> String
[PostAccountsAccountPeopleRequestBodyDocuments'Passport']
-> String -> String
PostAccountsAccountPeopleRequestBodyDocuments'Passport' -> String
(Int
 -> PostAccountsAccountPeopleRequestBodyDocuments'Passport'
 -> String
 -> String)
-> (PostAccountsAccountPeopleRequestBodyDocuments'Passport'
    -> String)
-> ([PostAccountsAccountPeopleRequestBodyDocuments'Passport']
    -> String -> String)
-> Show PostAccountsAccountPeopleRequestBodyDocuments'Passport'
forall a.
(Int -> a -> String -> String)
-> (a -> String) -> ([a] -> String -> String) -> Show a
showList :: [PostAccountsAccountPeopleRequestBodyDocuments'Passport']
-> String -> String
$cshowList :: [PostAccountsAccountPeopleRequestBodyDocuments'Passport']
-> String -> String
show :: PostAccountsAccountPeopleRequestBodyDocuments'Passport' -> String
$cshow :: PostAccountsAccountPeopleRequestBodyDocuments'Passport' -> String
showsPrec :: Int
-> PostAccountsAccountPeopleRequestBodyDocuments'Passport'
-> String
-> String
$cshowsPrec :: Int
-> PostAccountsAccountPeopleRequestBodyDocuments'Passport'
-> String
-> String
GHC.Show.Show,
      PostAccountsAccountPeopleRequestBodyDocuments'Passport'
-> PostAccountsAccountPeopleRequestBodyDocuments'Passport' -> Bool
(PostAccountsAccountPeopleRequestBodyDocuments'Passport'
 -> PostAccountsAccountPeopleRequestBodyDocuments'Passport' -> Bool)
-> (PostAccountsAccountPeopleRequestBodyDocuments'Passport'
    -> PostAccountsAccountPeopleRequestBodyDocuments'Passport' -> Bool)
-> Eq PostAccountsAccountPeopleRequestBodyDocuments'Passport'
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostAccountsAccountPeopleRequestBodyDocuments'Passport'
-> PostAccountsAccountPeopleRequestBodyDocuments'Passport' -> Bool
$c/= :: PostAccountsAccountPeopleRequestBodyDocuments'Passport'
-> PostAccountsAccountPeopleRequestBodyDocuments'Passport' -> Bool
== :: PostAccountsAccountPeopleRequestBodyDocuments'Passport'
-> PostAccountsAccountPeopleRequestBodyDocuments'Passport' -> Bool
$c== :: PostAccountsAccountPeopleRequestBodyDocuments'Passport'
-> PostAccountsAccountPeopleRequestBodyDocuments'Passport' -> Bool
GHC.Classes.Eq
    )

instance Data.Aeson.Types.ToJSON.ToJSON PostAccountsAccountPeopleRequestBodyDocuments'Passport' where
  toJSON :: PostAccountsAccountPeopleRequestBodyDocuments'Passport' -> Value
toJSON PostAccountsAccountPeopleRequestBodyDocuments'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..= PostAccountsAccountPeopleRequestBodyDocuments'Passport'
-> Maybe [Text]
postAccountsAccountPeopleRequestBodyDocuments'Passport'Files PostAccountsAccountPeopleRequestBodyDocuments'Passport'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: [Pair]
forall a. Monoid a => a
GHC.Base.mempty)
  toEncoding :: PostAccountsAccountPeopleRequestBodyDocuments'Passport' -> Encoding
toEncoding PostAccountsAccountPeopleRequestBodyDocuments'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..= PostAccountsAccountPeopleRequestBodyDocuments'Passport'
-> Maybe [Text]
postAccountsAccountPeopleRequestBodyDocuments'Passport'Files PostAccountsAccountPeopleRequestBodyDocuments'Passport'
obj)

instance Data.Aeson.Types.FromJSON.FromJSON PostAccountsAccountPeopleRequestBodyDocuments'Passport' where
  parseJSON :: Value
-> Parser PostAccountsAccountPeopleRequestBodyDocuments'Passport'
parseJSON = String
-> (Object
    -> Parser PostAccountsAccountPeopleRequestBodyDocuments'Passport')
-> Value
-> Parser PostAccountsAccountPeopleRequestBodyDocuments'Passport'
forall a. String -> (Object -> Parser a) -> Value -> Parser a
Data.Aeson.Types.FromJSON.withObject String
"PostAccountsAccountPeopleRequestBodyDocuments'Passport'" (\Object
obj -> (Maybe [Text]
 -> PostAccountsAccountPeopleRequestBodyDocuments'Passport')
-> Parser
     (Maybe [Text]
      -> PostAccountsAccountPeopleRequestBodyDocuments'Passport')
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure Maybe [Text]
-> PostAccountsAccountPeopleRequestBodyDocuments'Passport'
PostAccountsAccountPeopleRequestBodyDocuments'Passport' Parser
  (Maybe [Text]
   -> PostAccountsAccountPeopleRequestBodyDocuments'Passport')
-> Parser (Maybe [Text])
-> Parser PostAccountsAccountPeopleRequestBodyDocuments'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 'PostAccountsAccountPeopleRequestBodyDocuments'Passport'' with all required fields.
mkPostAccountsAccountPeopleRequestBodyDocuments'Passport' :: PostAccountsAccountPeopleRequestBodyDocuments'Passport'
mkPostAccountsAccountPeopleRequestBodyDocuments'Passport' :: PostAccountsAccountPeopleRequestBodyDocuments'Passport'
mkPostAccountsAccountPeopleRequestBodyDocuments'Passport' = PostAccountsAccountPeopleRequestBodyDocuments'Passport' :: Maybe [Text]
-> PostAccountsAccountPeopleRequestBodyDocuments'Passport'
PostAccountsAccountPeopleRequestBodyDocuments'Passport' {postAccountsAccountPeopleRequestBodyDocuments'Passport'Files :: Maybe [Text]
postAccountsAccountPeopleRequestBodyDocuments'Passport'Files = Maybe [Text]
forall a. Maybe a
GHC.Maybe.Nothing}

-- | Defines the object schema located at @paths.\/v1\/accounts\/{account}\/people.POST.requestBody.content.application\/x-www-form-urlencoded.schema.properties.documents.properties.visa@ in the specification.
data PostAccountsAccountPeopleRequestBodyDocuments'Visa' = PostAccountsAccountPeopleRequestBodyDocuments'Visa'
  { -- | files
    PostAccountsAccountPeopleRequestBodyDocuments'Visa' -> Maybe [Text]
postAccountsAccountPeopleRequestBodyDocuments'Visa'Files :: (GHC.Maybe.Maybe ([Data.Text.Internal.Text]))
  }
  deriving
    ( Int
-> PostAccountsAccountPeopleRequestBodyDocuments'Visa'
-> String
-> String
[PostAccountsAccountPeopleRequestBodyDocuments'Visa']
-> String -> String
PostAccountsAccountPeopleRequestBodyDocuments'Visa' -> String
(Int
 -> PostAccountsAccountPeopleRequestBodyDocuments'Visa'
 -> String
 -> String)
-> (PostAccountsAccountPeopleRequestBodyDocuments'Visa' -> String)
-> ([PostAccountsAccountPeopleRequestBodyDocuments'Visa']
    -> String -> String)
-> Show PostAccountsAccountPeopleRequestBodyDocuments'Visa'
forall a.
(Int -> a -> String -> String)
-> (a -> String) -> ([a] -> String -> String) -> Show a
showList :: [PostAccountsAccountPeopleRequestBodyDocuments'Visa']
-> String -> String
$cshowList :: [PostAccountsAccountPeopleRequestBodyDocuments'Visa']
-> String -> String
show :: PostAccountsAccountPeopleRequestBodyDocuments'Visa' -> String
$cshow :: PostAccountsAccountPeopleRequestBodyDocuments'Visa' -> String
showsPrec :: Int
-> PostAccountsAccountPeopleRequestBodyDocuments'Visa'
-> String
-> String
$cshowsPrec :: Int
-> PostAccountsAccountPeopleRequestBodyDocuments'Visa'
-> String
-> String
GHC.Show.Show,
      PostAccountsAccountPeopleRequestBodyDocuments'Visa'
-> PostAccountsAccountPeopleRequestBodyDocuments'Visa' -> Bool
(PostAccountsAccountPeopleRequestBodyDocuments'Visa'
 -> PostAccountsAccountPeopleRequestBodyDocuments'Visa' -> Bool)
-> (PostAccountsAccountPeopleRequestBodyDocuments'Visa'
    -> PostAccountsAccountPeopleRequestBodyDocuments'Visa' -> Bool)
-> Eq PostAccountsAccountPeopleRequestBodyDocuments'Visa'
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostAccountsAccountPeopleRequestBodyDocuments'Visa'
-> PostAccountsAccountPeopleRequestBodyDocuments'Visa' -> Bool
$c/= :: PostAccountsAccountPeopleRequestBodyDocuments'Visa'
-> PostAccountsAccountPeopleRequestBodyDocuments'Visa' -> Bool
== :: PostAccountsAccountPeopleRequestBodyDocuments'Visa'
-> PostAccountsAccountPeopleRequestBodyDocuments'Visa' -> Bool
$c== :: PostAccountsAccountPeopleRequestBodyDocuments'Visa'
-> PostAccountsAccountPeopleRequestBodyDocuments'Visa' -> Bool
GHC.Classes.Eq
    )

instance Data.Aeson.Types.ToJSON.ToJSON PostAccountsAccountPeopleRequestBodyDocuments'Visa' where
  toJSON :: PostAccountsAccountPeopleRequestBodyDocuments'Visa' -> Value
toJSON PostAccountsAccountPeopleRequestBodyDocuments'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..= PostAccountsAccountPeopleRequestBodyDocuments'Visa' -> Maybe [Text]
postAccountsAccountPeopleRequestBodyDocuments'Visa'Files PostAccountsAccountPeopleRequestBodyDocuments'Visa'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: [Pair]
forall a. Monoid a => a
GHC.Base.mempty)
  toEncoding :: PostAccountsAccountPeopleRequestBodyDocuments'Visa' -> Encoding
toEncoding PostAccountsAccountPeopleRequestBodyDocuments'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..= PostAccountsAccountPeopleRequestBodyDocuments'Visa' -> Maybe [Text]
postAccountsAccountPeopleRequestBodyDocuments'Visa'Files PostAccountsAccountPeopleRequestBodyDocuments'Visa'
obj)

instance Data.Aeson.Types.FromJSON.FromJSON PostAccountsAccountPeopleRequestBodyDocuments'Visa' where
  parseJSON :: Value -> Parser PostAccountsAccountPeopleRequestBodyDocuments'Visa'
parseJSON = String
-> (Object
    -> Parser PostAccountsAccountPeopleRequestBodyDocuments'Visa')
-> Value
-> Parser PostAccountsAccountPeopleRequestBodyDocuments'Visa'
forall a. String -> (Object -> Parser a) -> Value -> Parser a
Data.Aeson.Types.FromJSON.withObject String
"PostAccountsAccountPeopleRequestBodyDocuments'Visa'" (\Object
obj -> (Maybe [Text]
 -> PostAccountsAccountPeopleRequestBodyDocuments'Visa')
-> Parser
     (Maybe [Text]
      -> PostAccountsAccountPeopleRequestBodyDocuments'Visa')
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure Maybe [Text] -> PostAccountsAccountPeopleRequestBodyDocuments'Visa'
PostAccountsAccountPeopleRequestBodyDocuments'Visa' Parser
  (Maybe [Text]
   -> PostAccountsAccountPeopleRequestBodyDocuments'Visa')
-> Parser (Maybe [Text])
-> Parser PostAccountsAccountPeopleRequestBodyDocuments'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 'PostAccountsAccountPeopleRequestBodyDocuments'Visa'' with all required fields.
mkPostAccountsAccountPeopleRequestBodyDocuments'Visa' :: PostAccountsAccountPeopleRequestBodyDocuments'Visa'
mkPostAccountsAccountPeopleRequestBodyDocuments'Visa' :: PostAccountsAccountPeopleRequestBodyDocuments'Visa'
mkPostAccountsAccountPeopleRequestBodyDocuments'Visa' = PostAccountsAccountPeopleRequestBodyDocuments'Visa' :: Maybe [Text] -> PostAccountsAccountPeopleRequestBodyDocuments'Visa'
PostAccountsAccountPeopleRequestBodyDocuments'Visa' {postAccountsAccountPeopleRequestBodyDocuments'Visa'Files :: Maybe [Text]
postAccountsAccountPeopleRequestBodyDocuments'Visa'Files = Maybe [Text]
forall a. Maybe a
GHC.Maybe.Nothing}

-- | Defines the oneOf schema located at @paths.\/v1\/accounts\/{account}\/people.POST.requestBody.content.application\/x-www-form-urlencoded.schema.properties.metadata.anyOf@ in the specification.
--
-- Set of [key-value pairs](https:\/\/stripe.com\/docs\/api\/metadata) that you can attach to an object. This can be useful for storing additional information about the object in a structured format. Individual keys can be unset by posting an empty value to them. All keys can be unset by posting an empty value to \`metadata\`.
data PostAccountsAccountPeopleRequestBodyMetadata'Variants
  = -- | Represents the JSON value @""@
    PostAccountsAccountPeopleRequestBodyMetadata'EmptyString
  | PostAccountsAccountPeopleRequestBodyMetadata'Object Data.Aeson.Types.Internal.Object
  deriving (Int
-> PostAccountsAccountPeopleRequestBodyMetadata'Variants
-> String
-> String
[PostAccountsAccountPeopleRequestBodyMetadata'Variants]
-> String -> String
PostAccountsAccountPeopleRequestBodyMetadata'Variants -> String
(Int
 -> PostAccountsAccountPeopleRequestBodyMetadata'Variants
 -> String
 -> String)
-> (PostAccountsAccountPeopleRequestBodyMetadata'Variants
    -> String)
-> ([PostAccountsAccountPeopleRequestBodyMetadata'Variants]
    -> String -> String)
-> Show PostAccountsAccountPeopleRequestBodyMetadata'Variants
forall a.
(Int -> a -> String -> String)
-> (a -> String) -> ([a] -> String -> String) -> Show a
showList :: [PostAccountsAccountPeopleRequestBodyMetadata'Variants]
-> String -> String
$cshowList :: [PostAccountsAccountPeopleRequestBodyMetadata'Variants]
-> String -> String
show :: PostAccountsAccountPeopleRequestBodyMetadata'Variants -> String
$cshow :: PostAccountsAccountPeopleRequestBodyMetadata'Variants -> String
showsPrec :: Int
-> PostAccountsAccountPeopleRequestBodyMetadata'Variants
-> String
-> String
$cshowsPrec :: Int
-> PostAccountsAccountPeopleRequestBodyMetadata'Variants
-> String
-> String
GHC.Show.Show, PostAccountsAccountPeopleRequestBodyMetadata'Variants
-> PostAccountsAccountPeopleRequestBodyMetadata'Variants -> Bool
(PostAccountsAccountPeopleRequestBodyMetadata'Variants
 -> PostAccountsAccountPeopleRequestBodyMetadata'Variants -> Bool)
-> (PostAccountsAccountPeopleRequestBodyMetadata'Variants
    -> PostAccountsAccountPeopleRequestBodyMetadata'Variants -> Bool)
-> Eq PostAccountsAccountPeopleRequestBodyMetadata'Variants
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostAccountsAccountPeopleRequestBodyMetadata'Variants
-> PostAccountsAccountPeopleRequestBodyMetadata'Variants -> Bool
$c/= :: PostAccountsAccountPeopleRequestBodyMetadata'Variants
-> PostAccountsAccountPeopleRequestBodyMetadata'Variants -> Bool
== :: PostAccountsAccountPeopleRequestBodyMetadata'Variants
-> PostAccountsAccountPeopleRequestBodyMetadata'Variants -> Bool
$c== :: PostAccountsAccountPeopleRequestBodyMetadata'Variants
-> PostAccountsAccountPeopleRequestBodyMetadata'Variants -> Bool
GHC.Classes.Eq)

instance Data.Aeson.Types.ToJSON.ToJSON PostAccountsAccountPeopleRequestBodyMetadata'Variants where
  toJSON :: PostAccountsAccountPeopleRequestBodyMetadata'Variants -> Value
toJSON (PostAccountsAccountPeopleRequestBodyMetadata'Object Object
a) = Object -> Value
forall a. ToJSON a => a -> Value
Data.Aeson.Types.ToJSON.toJSON Object
a
  toJSON (PostAccountsAccountPeopleRequestBodyMetadata'Variants
PostAccountsAccountPeopleRequestBodyMetadata'EmptyString) = Value
""

instance Data.Aeson.Types.FromJSON.FromJSON PostAccountsAccountPeopleRequestBodyMetadata'Variants where
  parseJSON :: Value
-> Parser PostAccountsAccountPeopleRequestBodyMetadata'Variants
parseJSON Value
val =
    if
        | Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"" -> PostAccountsAccountPeopleRequestBodyMetadata'Variants
-> Parser PostAccountsAccountPeopleRequestBodyMetadata'Variants
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure PostAccountsAccountPeopleRequestBodyMetadata'Variants
PostAccountsAccountPeopleRequestBodyMetadata'EmptyString
        | Bool
GHC.Base.otherwise -> case (Object -> PostAccountsAccountPeopleRequestBodyMetadata'Variants
PostAccountsAccountPeopleRequestBodyMetadata'Object (Object -> PostAccountsAccountPeopleRequestBodyMetadata'Variants)
-> Result Object
-> Result PostAccountsAccountPeopleRequestBodyMetadata'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 PostAccountsAccountPeopleRequestBodyMetadata'Variants
-> Result PostAccountsAccountPeopleRequestBodyMetadata'Variants
-> Result PostAccountsAccountPeopleRequestBodyMetadata'Variants
forall (f :: * -> *) a. Alternative f => f a -> f a -> f a
GHC.Base.<|> String
-> Result PostAccountsAccountPeopleRequestBodyMetadata'Variants
forall a. String -> Result a
Data.Aeson.Types.Internal.Error String
"No variant matched" of
          Data.Aeson.Types.Internal.Success PostAccountsAccountPeopleRequestBodyMetadata'Variants
a -> PostAccountsAccountPeopleRequestBodyMetadata'Variants
-> Parser PostAccountsAccountPeopleRequestBodyMetadata'Variants
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure PostAccountsAccountPeopleRequestBodyMetadata'Variants
a
          Data.Aeson.Types.Internal.Error String
a -> String
-> Parser PostAccountsAccountPeopleRequestBodyMetadata'Variants
forall (m :: * -> *) a. MonadFail m => String -> m a
Control.Monad.Fail.fail String
a

-- | Defines the object schema located at @paths.\/v1\/accounts\/{account}\/people.POST.requestBody.content.application\/x-www-form-urlencoded.schema.properties.relationship@ in the specification.
--
-- The relationship that this person has with the account\'s legal entity.
data PostAccountsAccountPeopleRequestBodyRelationship' = PostAccountsAccountPeopleRequestBodyRelationship'
  { -- | director
    PostAccountsAccountPeopleRequestBodyRelationship' -> Maybe Bool
postAccountsAccountPeopleRequestBodyRelationship'Director :: (GHC.Maybe.Maybe GHC.Types.Bool),
    -- | executive
    PostAccountsAccountPeopleRequestBodyRelationship' -> Maybe Bool
postAccountsAccountPeopleRequestBodyRelationship'Executive :: (GHC.Maybe.Maybe GHC.Types.Bool),
    -- | owner
    PostAccountsAccountPeopleRequestBodyRelationship' -> Maybe Bool
postAccountsAccountPeopleRequestBodyRelationship'Owner :: (GHC.Maybe.Maybe GHC.Types.Bool),
    -- | percent_ownership
    PostAccountsAccountPeopleRequestBodyRelationship'
-> Maybe
     PostAccountsAccountPeopleRequestBodyRelationship'PercentOwnership'Variants
postAccountsAccountPeopleRequestBodyRelationship'PercentOwnership :: (GHC.Maybe.Maybe PostAccountsAccountPeopleRequestBodyRelationship'PercentOwnership'Variants),
    -- | representative
    PostAccountsAccountPeopleRequestBodyRelationship' -> Maybe Bool
postAccountsAccountPeopleRequestBodyRelationship'Representative :: (GHC.Maybe.Maybe GHC.Types.Bool),
    -- | title
    --
    -- Constraints:
    --
    -- * Maximum length of 5000
    PostAccountsAccountPeopleRequestBodyRelationship' -> Maybe Text
postAccountsAccountPeopleRequestBodyRelationship'Title :: (GHC.Maybe.Maybe Data.Text.Internal.Text)
  }
  deriving
    ( Int
-> PostAccountsAccountPeopleRequestBodyRelationship'
-> String
-> String
[PostAccountsAccountPeopleRequestBodyRelationship']
-> String -> String
PostAccountsAccountPeopleRequestBodyRelationship' -> String
(Int
 -> PostAccountsAccountPeopleRequestBodyRelationship'
 -> String
 -> String)
-> (PostAccountsAccountPeopleRequestBodyRelationship' -> String)
-> ([PostAccountsAccountPeopleRequestBodyRelationship']
    -> String -> String)
-> Show PostAccountsAccountPeopleRequestBodyRelationship'
forall a.
(Int -> a -> String -> String)
-> (a -> String) -> ([a] -> String -> String) -> Show a
showList :: [PostAccountsAccountPeopleRequestBodyRelationship']
-> String -> String
$cshowList :: [PostAccountsAccountPeopleRequestBodyRelationship']
-> String -> String
show :: PostAccountsAccountPeopleRequestBodyRelationship' -> String
$cshow :: PostAccountsAccountPeopleRequestBodyRelationship' -> String
showsPrec :: Int
-> PostAccountsAccountPeopleRequestBodyRelationship'
-> String
-> String
$cshowsPrec :: Int
-> PostAccountsAccountPeopleRequestBodyRelationship'
-> String
-> String
GHC.Show.Show,
      PostAccountsAccountPeopleRequestBodyRelationship'
-> PostAccountsAccountPeopleRequestBodyRelationship' -> Bool
(PostAccountsAccountPeopleRequestBodyRelationship'
 -> PostAccountsAccountPeopleRequestBodyRelationship' -> Bool)
-> (PostAccountsAccountPeopleRequestBodyRelationship'
    -> PostAccountsAccountPeopleRequestBodyRelationship' -> Bool)
-> Eq PostAccountsAccountPeopleRequestBodyRelationship'
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostAccountsAccountPeopleRequestBodyRelationship'
-> PostAccountsAccountPeopleRequestBodyRelationship' -> Bool
$c/= :: PostAccountsAccountPeopleRequestBodyRelationship'
-> PostAccountsAccountPeopleRequestBodyRelationship' -> Bool
== :: PostAccountsAccountPeopleRequestBodyRelationship'
-> PostAccountsAccountPeopleRequestBodyRelationship' -> Bool
$c== :: PostAccountsAccountPeopleRequestBodyRelationship'
-> PostAccountsAccountPeopleRequestBodyRelationship' -> Bool
GHC.Classes.Eq
    )

instance Data.Aeson.Types.ToJSON.ToJSON PostAccountsAccountPeopleRequestBodyRelationship' where
  toJSON :: PostAccountsAccountPeopleRequestBodyRelationship' -> Value
toJSON PostAccountsAccountPeopleRequestBodyRelationship'
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..= PostAccountsAccountPeopleRequestBodyRelationship' -> Maybe Bool
postAccountsAccountPeopleRequestBodyRelationship'Director PostAccountsAccountPeopleRequestBodyRelationship'
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..= PostAccountsAccountPeopleRequestBodyRelationship' -> Maybe Bool
postAccountsAccountPeopleRequestBodyRelationship'Executive PostAccountsAccountPeopleRequestBodyRelationship'
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..= PostAccountsAccountPeopleRequestBodyRelationship' -> Maybe Bool
postAccountsAccountPeopleRequestBodyRelationship'Owner PostAccountsAccountPeopleRequestBodyRelationship'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"percent_ownership" Text
-> Maybe
     PostAccountsAccountPeopleRequestBodyRelationship'PercentOwnership'Variants
-> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsAccountPeopleRequestBodyRelationship'
-> Maybe
     PostAccountsAccountPeopleRequestBodyRelationship'PercentOwnership'Variants
postAccountsAccountPeopleRequestBodyRelationship'PercentOwnership PostAccountsAccountPeopleRequestBodyRelationship'
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..= PostAccountsAccountPeopleRequestBodyRelationship' -> Maybe Bool
postAccountsAccountPeopleRequestBodyRelationship'Representative PostAccountsAccountPeopleRequestBodyRelationship'
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..= PostAccountsAccountPeopleRequestBodyRelationship' -> Maybe Text
postAccountsAccountPeopleRequestBodyRelationship'Title PostAccountsAccountPeopleRequestBodyRelationship'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: [Pair]
forall a. Monoid a => a
GHC.Base.mempty)
  toEncoding :: PostAccountsAccountPeopleRequestBodyRelationship' -> Encoding
toEncoding PostAccountsAccountPeopleRequestBodyRelationship'
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..= PostAccountsAccountPeopleRequestBodyRelationship' -> Maybe Bool
postAccountsAccountPeopleRequestBodyRelationship'Director PostAccountsAccountPeopleRequestBodyRelationship'
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..= PostAccountsAccountPeopleRequestBodyRelationship' -> Maybe Bool
postAccountsAccountPeopleRequestBodyRelationship'Executive PostAccountsAccountPeopleRequestBodyRelationship'
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..= PostAccountsAccountPeopleRequestBodyRelationship' -> Maybe Bool
postAccountsAccountPeopleRequestBodyRelationship'Owner PostAccountsAccountPeopleRequestBodyRelationship'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"percent_ownership" Text
-> Maybe
     PostAccountsAccountPeopleRequestBodyRelationship'PercentOwnership'Variants
-> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsAccountPeopleRequestBodyRelationship'
-> Maybe
     PostAccountsAccountPeopleRequestBodyRelationship'PercentOwnership'Variants
postAccountsAccountPeopleRequestBodyRelationship'PercentOwnership PostAccountsAccountPeopleRequestBodyRelationship'
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..= PostAccountsAccountPeopleRequestBodyRelationship' -> Maybe Bool
postAccountsAccountPeopleRequestBodyRelationship'Representative PostAccountsAccountPeopleRequestBodyRelationship'
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..= PostAccountsAccountPeopleRequestBodyRelationship' -> Maybe Text
postAccountsAccountPeopleRequestBodyRelationship'Title PostAccountsAccountPeopleRequestBodyRelationship'
obj))))))

instance Data.Aeson.Types.FromJSON.FromJSON PostAccountsAccountPeopleRequestBodyRelationship' where
  parseJSON :: Value -> Parser PostAccountsAccountPeopleRequestBodyRelationship'
parseJSON = String
-> (Object
    -> Parser PostAccountsAccountPeopleRequestBodyRelationship')
-> Value
-> Parser PostAccountsAccountPeopleRequestBodyRelationship'
forall a. String -> (Object -> Parser a) -> Value -> Parser a
Data.Aeson.Types.FromJSON.withObject String
"PostAccountsAccountPeopleRequestBodyRelationship'" (\Object
obj -> ((((((Maybe Bool
 -> Maybe Bool
 -> Maybe Bool
 -> Maybe
      PostAccountsAccountPeopleRequestBodyRelationship'PercentOwnership'Variants
 -> Maybe Bool
 -> Maybe Text
 -> PostAccountsAccountPeopleRequestBodyRelationship')
-> Parser
     (Maybe Bool
      -> Maybe Bool
      -> Maybe Bool
      -> Maybe
           PostAccountsAccountPeopleRequestBodyRelationship'PercentOwnership'Variants
      -> Maybe Bool
      -> Maybe Text
      -> PostAccountsAccountPeopleRequestBodyRelationship')
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure Maybe Bool
-> Maybe Bool
-> Maybe Bool
-> Maybe
     PostAccountsAccountPeopleRequestBodyRelationship'PercentOwnership'Variants
-> Maybe Bool
-> Maybe Text
-> PostAccountsAccountPeopleRequestBodyRelationship'
PostAccountsAccountPeopleRequestBodyRelationship' Parser
  (Maybe Bool
   -> Maybe Bool
   -> Maybe Bool
   -> Maybe
        PostAccountsAccountPeopleRequestBodyRelationship'PercentOwnership'Variants
   -> Maybe Bool
   -> Maybe Text
   -> PostAccountsAccountPeopleRequestBodyRelationship')
-> Parser (Maybe Bool)
-> Parser
     (Maybe Bool
      -> Maybe Bool
      -> Maybe
           PostAccountsAccountPeopleRequestBodyRelationship'PercentOwnership'Variants
      -> Maybe Bool
      -> Maybe Text
      -> PostAccountsAccountPeopleRequestBodyRelationship')
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
        PostAccountsAccountPeopleRequestBodyRelationship'PercentOwnership'Variants
   -> Maybe Bool
   -> Maybe Text
   -> PostAccountsAccountPeopleRequestBodyRelationship')
-> Parser (Maybe Bool)
-> Parser
     (Maybe Bool
      -> Maybe
           PostAccountsAccountPeopleRequestBodyRelationship'PercentOwnership'Variants
      -> Maybe Bool
      -> Maybe Text
      -> PostAccountsAccountPeopleRequestBodyRelationship')
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
        PostAccountsAccountPeopleRequestBodyRelationship'PercentOwnership'Variants
   -> Maybe Bool
   -> Maybe Text
   -> PostAccountsAccountPeopleRequestBodyRelationship')
-> Parser (Maybe Bool)
-> Parser
     (Maybe
        PostAccountsAccountPeopleRequestBodyRelationship'PercentOwnership'Variants
      -> Maybe Bool
      -> Maybe Text
      -> PostAccountsAccountPeopleRequestBodyRelationship')
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
     PostAccountsAccountPeopleRequestBodyRelationship'PercentOwnership'Variants
   -> Maybe Bool
   -> Maybe Text
   -> PostAccountsAccountPeopleRequestBodyRelationship')
-> Parser
     (Maybe
        PostAccountsAccountPeopleRequestBodyRelationship'PercentOwnership'Variants)
-> Parser
     (Maybe Bool
      -> Maybe Text -> PostAccountsAccountPeopleRequestBodyRelationship')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object
-> Text
-> Parser
     (Maybe
        PostAccountsAccountPeopleRequestBodyRelationship'PercentOwnership'Variants)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"percent_ownership")) Parser
  (Maybe Bool
   -> Maybe Text -> PostAccountsAccountPeopleRequestBodyRelationship')
-> Parser (Maybe Bool)
-> Parser
     (Maybe Text -> PostAccountsAccountPeopleRequestBodyRelationship')
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 -> PostAccountsAccountPeopleRequestBodyRelationship')
-> Parser (Maybe Text)
-> Parser PostAccountsAccountPeopleRequestBodyRelationship'
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 'PostAccountsAccountPeopleRequestBodyRelationship'' with all required fields.
mkPostAccountsAccountPeopleRequestBodyRelationship' :: PostAccountsAccountPeopleRequestBodyRelationship'
mkPostAccountsAccountPeopleRequestBodyRelationship' :: PostAccountsAccountPeopleRequestBodyRelationship'
mkPostAccountsAccountPeopleRequestBodyRelationship' =
  PostAccountsAccountPeopleRequestBodyRelationship' :: Maybe Bool
-> Maybe Bool
-> Maybe Bool
-> Maybe
     PostAccountsAccountPeopleRequestBodyRelationship'PercentOwnership'Variants
-> Maybe Bool
-> Maybe Text
-> PostAccountsAccountPeopleRequestBodyRelationship'
PostAccountsAccountPeopleRequestBodyRelationship'
    { postAccountsAccountPeopleRequestBodyRelationship'Director :: Maybe Bool
postAccountsAccountPeopleRequestBodyRelationship'Director = Maybe Bool
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsAccountPeopleRequestBodyRelationship'Executive :: Maybe Bool
postAccountsAccountPeopleRequestBodyRelationship'Executive = Maybe Bool
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsAccountPeopleRequestBodyRelationship'Owner :: Maybe Bool
postAccountsAccountPeopleRequestBodyRelationship'Owner = Maybe Bool
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsAccountPeopleRequestBodyRelationship'PercentOwnership :: Maybe
  PostAccountsAccountPeopleRequestBodyRelationship'PercentOwnership'Variants
postAccountsAccountPeopleRequestBodyRelationship'PercentOwnership = Maybe
  PostAccountsAccountPeopleRequestBodyRelationship'PercentOwnership'Variants
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsAccountPeopleRequestBodyRelationship'Representative :: Maybe Bool
postAccountsAccountPeopleRequestBodyRelationship'Representative = Maybe Bool
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsAccountPeopleRequestBodyRelationship'Title :: Maybe Text
postAccountsAccountPeopleRequestBodyRelationship'Title = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing
    }

-- | Defines the oneOf schema located at @paths.\/v1\/accounts\/{account}\/people.POST.requestBody.content.application\/x-www-form-urlencoded.schema.properties.relationship.properties.percent_ownership.anyOf@ in the specification.
data PostAccountsAccountPeopleRequestBodyRelationship'PercentOwnership'Variants
  = -- | Represents the JSON value @""@
    PostAccountsAccountPeopleRequestBodyRelationship'PercentOwnership'EmptyString
  | PostAccountsAccountPeopleRequestBodyRelationship'PercentOwnership'Double GHC.Types.Double
  deriving (Int
-> PostAccountsAccountPeopleRequestBodyRelationship'PercentOwnership'Variants
-> String
-> String
[PostAccountsAccountPeopleRequestBodyRelationship'PercentOwnership'Variants]
-> String -> String
PostAccountsAccountPeopleRequestBodyRelationship'PercentOwnership'Variants
-> String
(Int
 -> PostAccountsAccountPeopleRequestBodyRelationship'PercentOwnership'Variants
 -> String
 -> String)
-> (PostAccountsAccountPeopleRequestBodyRelationship'PercentOwnership'Variants
    -> String)
-> ([PostAccountsAccountPeopleRequestBodyRelationship'PercentOwnership'Variants]
    -> String -> String)
-> Show
     PostAccountsAccountPeopleRequestBodyRelationship'PercentOwnership'Variants
forall a.
(Int -> a -> String -> String)
-> (a -> String) -> ([a] -> String -> String) -> Show a
showList :: [PostAccountsAccountPeopleRequestBodyRelationship'PercentOwnership'Variants]
-> String -> String
$cshowList :: [PostAccountsAccountPeopleRequestBodyRelationship'PercentOwnership'Variants]
-> String -> String
show :: PostAccountsAccountPeopleRequestBodyRelationship'PercentOwnership'Variants
-> String
$cshow :: PostAccountsAccountPeopleRequestBodyRelationship'PercentOwnership'Variants
-> String
showsPrec :: Int
-> PostAccountsAccountPeopleRequestBodyRelationship'PercentOwnership'Variants
-> String
-> String
$cshowsPrec :: Int
-> PostAccountsAccountPeopleRequestBodyRelationship'PercentOwnership'Variants
-> String
-> String
GHC.Show.Show, PostAccountsAccountPeopleRequestBodyRelationship'PercentOwnership'Variants
-> PostAccountsAccountPeopleRequestBodyRelationship'PercentOwnership'Variants
-> Bool
(PostAccountsAccountPeopleRequestBodyRelationship'PercentOwnership'Variants
 -> PostAccountsAccountPeopleRequestBodyRelationship'PercentOwnership'Variants
 -> Bool)
-> (PostAccountsAccountPeopleRequestBodyRelationship'PercentOwnership'Variants
    -> PostAccountsAccountPeopleRequestBodyRelationship'PercentOwnership'Variants
    -> Bool)
-> Eq
     PostAccountsAccountPeopleRequestBodyRelationship'PercentOwnership'Variants
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostAccountsAccountPeopleRequestBodyRelationship'PercentOwnership'Variants
-> PostAccountsAccountPeopleRequestBodyRelationship'PercentOwnership'Variants
-> Bool
$c/= :: PostAccountsAccountPeopleRequestBodyRelationship'PercentOwnership'Variants
-> PostAccountsAccountPeopleRequestBodyRelationship'PercentOwnership'Variants
-> Bool
== :: PostAccountsAccountPeopleRequestBodyRelationship'PercentOwnership'Variants
-> PostAccountsAccountPeopleRequestBodyRelationship'PercentOwnership'Variants
-> Bool
$c== :: PostAccountsAccountPeopleRequestBodyRelationship'PercentOwnership'Variants
-> PostAccountsAccountPeopleRequestBodyRelationship'PercentOwnership'Variants
-> Bool
GHC.Classes.Eq)

instance Data.Aeson.Types.ToJSON.ToJSON PostAccountsAccountPeopleRequestBodyRelationship'PercentOwnership'Variants where
  toJSON :: PostAccountsAccountPeopleRequestBodyRelationship'PercentOwnership'Variants
-> Value
toJSON (PostAccountsAccountPeopleRequestBodyRelationship'PercentOwnership'Double Double
a) = Double -> Value
forall a. ToJSON a => a -> Value
Data.Aeson.Types.ToJSON.toJSON Double
a
  toJSON (PostAccountsAccountPeopleRequestBodyRelationship'PercentOwnership'Variants
PostAccountsAccountPeopleRequestBodyRelationship'PercentOwnership'EmptyString) = Value
""

instance Data.Aeson.Types.FromJSON.FromJSON PostAccountsAccountPeopleRequestBodyRelationship'PercentOwnership'Variants where
  parseJSON :: Value
-> Parser
     PostAccountsAccountPeopleRequestBodyRelationship'PercentOwnership'Variants
parseJSON Value
val =
    if
        | Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"" -> PostAccountsAccountPeopleRequestBodyRelationship'PercentOwnership'Variants
-> Parser
     PostAccountsAccountPeopleRequestBodyRelationship'PercentOwnership'Variants
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure PostAccountsAccountPeopleRequestBodyRelationship'PercentOwnership'Variants
PostAccountsAccountPeopleRequestBodyRelationship'PercentOwnership'EmptyString
        | Bool
GHC.Base.otherwise -> case (Double
-> PostAccountsAccountPeopleRequestBodyRelationship'PercentOwnership'Variants
PostAccountsAccountPeopleRequestBodyRelationship'PercentOwnership'Double (Double
 -> PostAccountsAccountPeopleRequestBodyRelationship'PercentOwnership'Variants)
-> Result Double
-> Result
     PostAccountsAccountPeopleRequestBodyRelationship'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
  PostAccountsAccountPeopleRequestBodyRelationship'PercentOwnership'Variants
-> Result
     PostAccountsAccountPeopleRequestBodyRelationship'PercentOwnership'Variants
-> Result
     PostAccountsAccountPeopleRequestBodyRelationship'PercentOwnership'Variants
forall (f :: * -> *) a. Alternative f => f a -> f a -> f a
GHC.Base.<|> String
-> Result
     PostAccountsAccountPeopleRequestBodyRelationship'PercentOwnership'Variants
forall a. String -> Result a
Data.Aeson.Types.Internal.Error String
"No variant matched" of
          Data.Aeson.Types.Internal.Success PostAccountsAccountPeopleRequestBodyRelationship'PercentOwnership'Variants
a -> PostAccountsAccountPeopleRequestBodyRelationship'PercentOwnership'Variants
-> Parser
     PostAccountsAccountPeopleRequestBodyRelationship'PercentOwnership'Variants
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure PostAccountsAccountPeopleRequestBodyRelationship'PercentOwnership'Variants
a
          Data.Aeson.Types.Internal.Error String
a -> String
-> Parser
     PostAccountsAccountPeopleRequestBodyRelationship'PercentOwnership'Variants
forall (m :: * -> *) a. MonadFail m => String -> m a
Control.Monad.Fail.fail String
a

-- | Defines the object schema located at @paths.\/v1\/accounts\/{account}\/people.POST.requestBody.content.application\/x-www-form-urlencoded.schema.properties.verification@ in the specification.
--
-- The person\'s verification status.
data PostAccountsAccountPeopleRequestBodyVerification' = PostAccountsAccountPeopleRequestBodyVerification'
  { -- | additional_document
    PostAccountsAccountPeopleRequestBodyVerification'
-> Maybe
     PostAccountsAccountPeopleRequestBodyVerification'AdditionalDocument'
postAccountsAccountPeopleRequestBodyVerification'AdditionalDocument :: (GHC.Maybe.Maybe PostAccountsAccountPeopleRequestBodyVerification'AdditionalDocument'),
    -- | document
    PostAccountsAccountPeopleRequestBodyVerification'
-> Maybe PostAccountsAccountPeopleRequestBodyVerification'Document'
postAccountsAccountPeopleRequestBodyVerification'Document :: (GHC.Maybe.Maybe PostAccountsAccountPeopleRequestBodyVerification'Document')
  }
  deriving
    ( Int
-> PostAccountsAccountPeopleRequestBodyVerification'
-> String
-> String
[PostAccountsAccountPeopleRequestBodyVerification']
-> String -> String
PostAccountsAccountPeopleRequestBodyVerification' -> String
(Int
 -> PostAccountsAccountPeopleRequestBodyVerification'
 -> String
 -> String)
-> (PostAccountsAccountPeopleRequestBodyVerification' -> String)
-> ([PostAccountsAccountPeopleRequestBodyVerification']
    -> String -> String)
-> Show PostAccountsAccountPeopleRequestBodyVerification'
forall a.
(Int -> a -> String -> String)
-> (a -> String) -> ([a] -> String -> String) -> Show a
showList :: [PostAccountsAccountPeopleRequestBodyVerification']
-> String -> String
$cshowList :: [PostAccountsAccountPeopleRequestBodyVerification']
-> String -> String
show :: PostAccountsAccountPeopleRequestBodyVerification' -> String
$cshow :: PostAccountsAccountPeopleRequestBodyVerification' -> String
showsPrec :: Int
-> PostAccountsAccountPeopleRequestBodyVerification'
-> String
-> String
$cshowsPrec :: Int
-> PostAccountsAccountPeopleRequestBodyVerification'
-> String
-> String
GHC.Show.Show,
      PostAccountsAccountPeopleRequestBodyVerification'
-> PostAccountsAccountPeopleRequestBodyVerification' -> Bool
(PostAccountsAccountPeopleRequestBodyVerification'
 -> PostAccountsAccountPeopleRequestBodyVerification' -> Bool)
-> (PostAccountsAccountPeopleRequestBodyVerification'
    -> PostAccountsAccountPeopleRequestBodyVerification' -> Bool)
-> Eq PostAccountsAccountPeopleRequestBodyVerification'
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostAccountsAccountPeopleRequestBodyVerification'
-> PostAccountsAccountPeopleRequestBodyVerification' -> Bool
$c/= :: PostAccountsAccountPeopleRequestBodyVerification'
-> PostAccountsAccountPeopleRequestBodyVerification' -> Bool
== :: PostAccountsAccountPeopleRequestBodyVerification'
-> PostAccountsAccountPeopleRequestBodyVerification' -> Bool
$c== :: PostAccountsAccountPeopleRequestBodyVerification'
-> PostAccountsAccountPeopleRequestBodyVerification' -> Bool
GHC.Classes.Eq
    )

instance Data.Aeson.Types.ToJSON.ToJSON PostAccountsAccountPeopleRequestBodyVerification' where
  toJSON :: PostAccountsAccountPeopleRequestBodyVerification' -> Value
toJSON PostAccountsAccountPeopleRequestBodyVerification'
obj = [Pair] -> Value
Data.Aeson.Types.Internal.object (Text
"additional_document" Text
-> Maybe
     PostAccountsAccountPeopleRequestBodyVerification'AdditionalDocument'
-> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsAccountPeopleRequestBodyVerification'
-> Maybe
     PostAccountsAccountPeopleRequestBodyVerification'AdditionalDocument'
postAccountsAccountPeopleRequestBodyVerification'AdditionalDocument PostAccountsAccountPeopleRequestBodyVerification'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"document" Text
-> Maybe PostAccountsAccountPeopleRequestBodyVerification'Document'
-> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsAccountPeopleRequestBodyVerification'
-> Maybe PostAccountsAccountPeopleRequestBodyVerification'Document'
postAccountsAccountPeopleRequestBodyVerification'Document PostAccountsAccountPeopleRequestBodyVerification'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: [Pair]
forall a. Monoid a => a
GHC.Base.mempty)
  toEncoding :: PostAccountsAccountPeopleRequestBodyVerification' -> Encoding
toEncoding PostAccountsAccountPeopleRequestBodyVerification'
obj = Series -> Encoding
Data.Aeson.Encoding.Internal.pairs ((Text
"additional_document" Text
-> Maybe
     PostAccountsAccountPeopleRequestBodyVerification'AdditionalDocument'
-> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsAccountPeopleRequestBodyVerification'
-> Maybe
     PostAccountsAccountPeopleRequestBodyVerification'AdditionalDocument'
postAccountsAccountPeopleRequestBodyVerification'AdditionalDocument PostAccountsAccountPeopleRequestBodyVerification'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> (Text
"document" Text
-> Maybe PostAccountsAccountPeopleRequestBodyVerification'Document'
-> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsAccountPeopleRequestBodyVerification'
-> Maybe PostAccountsAccountPeopleRequestBodyVerification'Document'
postAccountsAccountPeopleRequestBodyVerification'Document PostAccountsAccountPeopleRequestBodyVerification'
obj))

instance Data.Aeson.Types.FromJSON.FromJSON PostAccountsAccountPeopleRequestBodyVerification' where
  parseJSON :: Value -> Parser PostAccountsAccountPeopleRequestBodyVerification'
parseJSON = String
-> (Object
    -> Parser PostAccountsAccountPeopleRequestBodyVerification')
-> Value
-> Parser PostAccountsAccountPeopleRequestBodyVerification'
forall a. String -> (Object -> Parser a) -> Value -> Parser a
Data.Aeson.Types.FromJSON.withObject String
"PostAccountsAccountPeopleRequestBodyVerification'" (\Object
obj -> ((Maybe
   PostAccountsAccountPeopleRequestBodyVerification'AdditionalDocument'
 -> Maybe PostAccountsAccountPeopleRequestBodyVerification'Document'
 -> PostAccountsAccountPeopleRequestBodyVerification')
-> Parser
     (Maybe
        PostAccountsAccountPeopleRequestBodyVerification'AdditionalDocument'
      -> Maybe PostAccountsAccountPeopleRequestBodyVerification'Document'
      -> PostAccountsAccountPeopleRequestBodyVerification')
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure Maybe
  PostAccountsAccountPeopleRequestBodyVerification'AdditionalDocument'
-> Maybe PostAccountsAccountPeopleRequestBodyVerification'Document'
-> PostAccountsAccountPeopleRequestBodyVerification'
PostAccountsAccountPeopleRequestBodyVerification' Parser
  (Maybe
     PostAccountsAccountPeopleRequestBodyVerification'AdditionalDocument'
   -> Maybe PostAccountsAccountPeopleRequestBodyVerification'Document'
   -> PostAccountsAccountPeopleRequestBodyVerification')
-> Parser
     (Maybe
        PostAccountsAccountPeopleRequestBodyVerification'AdditionalDocument')
-> Parser
     (Maybe PostAccountsAccountPeopleRequestBodyVerification'Document'
      -> PostAccountsAccountPeopleRequestBodyVerification')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object
-> Text
-> Parser
     (Maybe
        PostAccountsAccountPeopleRequestBodyVerification'AdditionalDocument')
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"additional_document")) Parser
  (Maybe PostAccountsAccountPeopleRequestBodyVerification'Document'
   -> PostAccountsAccountPeopleRequestBodyVerification')
-> Parser
     (Maybe PostAccountsAccountPeopleRequestBodyVerification'Document')
-> Parser PostAccountsAccountPeopleRequestBodyVerification'
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object
-> Text
-> Parser
     (Maybe PostAccountsAccountPeopleRequestBodyVerification'Document')
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"document"))

-- | Create a new 'PostAccountsAccountPeopleRequestBodyVerification'' with all required fields.
mkPostAccountsAccountPeopleRequestBodyVerification' :: PostAccountsAccountPeopleRequestBodyVerification'
mkPostAccountsAccountPeopleRequestBodyVerification' :: PostAccountsAccountPeopleRequestBodyVerification'
mkPostAccountsAccountPeopleRequestBodyVerification' =
  PostAccountsAccountPeopleRequestBodyVerification' :: Maybe
  PostAccountsAccountPeopleRequestBodyVerification'AdditionalDocument'
-> Maybe PostAccountsAccountPeopleRequestBodyVerification'Document'
-> PostAccountsAccountPeopleRequestBodyVerification'
PostAccountsAccountPeopleRequestBodyVerification'
    { postAccountsAccountPeopleRequestBodyVerification'AdditionalDocument :: Maybe
  PostAccountsAccountPeopleRequestBodyVerification'AdditionalDocument'
postAccountsAccountPeopleRequestBodyVerification'AdditionalDocument = Maybe
  PostAccountsAccountPeopleRequestBodyVerification'AdditionalDocument'
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsAccountPeopleRequestBodyVerification'Document :: Maybe PostAccountsAccountPeopleRequestBodyVerification'Document'
postAccountsAccountPeopleRequestBodyVerification'Document = Maybe PostAccountsAccountPeopleRequestBodyVerification'Document'
forall a. Maybe a
GHC.Maybe.Nothing
    }

-- | Defines the object schema located at @paths.\/v1\/accounts\/{account}\/people.POST.requestBody.content.application\/x-www-form-urlencoded.schema.properties.verification.properties.additional_document@ in the specification.
data PostAccountsAccountPeopleRequestBodyVerification'AdditionalDocument' = PostAccountsAccountPeopleRequestBodyVerification'AdditionalDocument'
  { -- | back
    --
    -- Constraints:
    --
    -- * Maximum length of 500
    PostAccountsAccountPeopleRequestBodyVerification'AdditionalDocument'
-> Maybe Text
postAccountsAccountPeopleRequestBodyVerification'AdditionalDocument'Back :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | front
    --
    -- Constraints:
    --
    -- * Maximum length of 500
    PostAccountsAccountPeopleRequestBodyVerification'AdditionalDocument'
-> Maybe Text
postAccountsAccountPeopleRequestBodyVerification'AdditionalDocument'Front :: (GHC.Maybe.Maybe Data.Text.Internal.Text)
  }
  deriving
    ( Int
-> PostAccountsAccountPeopleRequestBodyVerification'AdditionalDocument'
-> String
-> String
[PostAccountsAccountPeopleRequestBodyVerification'AdditionalDocument']
-> String -> String
PostAccountsAccountPeopleRequestBodyVerification'AdditionalDocument'
-> String
(Int
 -> PostAccountsAccountPeopleRequestBodyVerification'AdditionalDocument'
 -> String
 -> String)
-> (PostAccountsAccountPeopleRequestBodyVerification'AdditionalDocument'
    -> String)
-> ([PostAccountsAccountPeopleRequestBodyVerification'AdditionalDocument']
    -> String -> String)
-> Show
     PostAccountsAccountPeopleRequestBodyVerification'AdditionalDocument'
forall a.
(Int -> a -> String -> String)
-> (a -> String) -> ([a] -> String -> String) -> Show a
showList :: [PostAccountsAccountPeopleRequestBodyVerification'AdditionalDocument']
-> String -> String
$cshowList :: [PostAccountsAccountPeopleRequestBodyVerification'AdditionalDocument']
-> String -> String
show :: PostAccountsAccountPeopleRequestBodyVerification'AdditionalDocument'
-> String
$cshow :: PostAccountsAccountPeopleRequestBodyVerification'AdditionalDocument'
-> String
showsPrec :: Int
-> PostAccountsAccountPeopleRequestBodyVerification'AdditionalDocument'
-> String
-> String
$cshowsPrec :: Int
-> PostAccountsAccountPeopleRequestBodyVerification'AdditionalDocument'
-> String
-> String
GHC.Show.Show,
      PostAccountsAccountPeopleRequestBodyVerification'AdditionalDocument'
-> PostAccountsAccountPeopleRequestBodyVerification'AdditionalDocument'
-> Bool
(PostAccountsAccountPeopleRequestBodyVerification'AdditionalDocument'
 -> PostAccountsAccountPeopleRequestBodyVerification'AdditionalDocument'
 -> Bool)
-> (PostAccountsAccountPeopleRequestBodyVerification'AdditionalDocument'
    -> PostAccountsAccountPeopleRequestBodyVerification'AdditionalDocument'
    -> Bool)
-> Eq
     PostAccountsAccountPeopleRequestBodyVerification'AdditionalDocument'
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostAccountsAccountPeopleRequestBodyVerification'AdditionalDocument'
-> PostAccountsAccountPeopleRequestBodyVerification'AdditionalDocument'
-> Bool
$c/= :: PostAccountsAccountPeopleRequestBodyVerification'AdditionalDocument'
-> PostAccountsAccountPeopleRequestBodyVerification'AdditionalDocument'
-> Bool
== :: PostAccountsAccountPeopleRequestBodyVerification'AdditionalDocument'
-> PostAccountsAccountPeopleRequestBodyVerification'AdditionalDocument'
-> Bool
$c== :: PostAccountsAccountPeopleRequestBodyVerification'AdditionalDocument'
-> PostAccountsAccountPeopleRequestBodyVerification'AdditionalDocument'
-> Bool
GHC.Classes.Eq
    )

instance Data.Aeson.Types.ToJSON.ToJSON PostAccountsAccountPeopleRequestBodyVerification'AdditionalDocument' where
  toJSON :: PostAccountsAccountPeopleRequestBodyVerification'AdditionalDocument'
-> Value
toJSON PostAccountsAccountPeopleRequestBodyVerification'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..= PostAccountsAccountPeopleRequestBodyVerification'AdditionalDocument'
-> Maybe Text
postAccountsAccountPeopleRequestBodyVerification'AdditionalDocument'Back PostAccountsAccountPeopleRequestBodyVerification'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..= PostAccountsAccountPeopleRequestBodyVerification'AdditionalDocument'
-> Maybe Text
postAccountsAccountPeopleRequestBodyVerification'AdditionalDocument'Front PostAccountsAccountPeopleRequestBodyVerification'AdditionalDocument'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: [Pair]
forall a. Monoid a => a
GHC.Base.mempty)
  toEncoding :: PostAccountsAccountPeopleRequestBodyVerification'AdditionalDocument'
-> Encoding
toEncoding PostAccountsAccountPeopleRequestBodyVerification'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..= PostAccountsAccountPeopleRequestBodyVerification'AdditionalDocument'
-> Maybe Text
postAccountsAccountPeopleRequestBodyVerification'AdditionalDocument'Back PostAccountsAccountPeopleRequestBodyVerification'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..= PostAccountsAccountPeopleRequestBodyVerification'AdditionalDocument'
-> Maybe Text
postAccountsAccountPeopleRequestBodyVerification'AdditionalDocument'Front PostAccountsAccountPeopleRequestBodyVerification'AdditionalDocument'
obj))

instance Data.Aeson.Types.FromJSON.FromJSON PostAccountsAccountPeopleRequestBodyVerification'AdditionalDocument' where
  parseJSON :: Value
-> Parser
     PostAccountsAccountPeopleRequestBodyVerification'AdditionalDocument'
parseJSON = String
-> (Object
    -> Parser
         PostAccountsAccountPeopleRequestBodyVerification'AdditionalDocument')
-> Value
-> Parser
     PostAccountsAccountPeopleRequestBodyVerification'AdditionalDocument'
forall a. String -> (Object -> Parser a) -> Value -> Parser a
Data.Aeson.Types.FromJSON.withObject String
"PostAccountsAccountPeopleRequestBodyVerification'AdditionalDocument'" (\Object
obj -> ((Maybe Text
 -> Maybe Text
 -> PostAccountsAccountPeopleRequestBodyVerification'AdditionalDocument')
-> Parser
     (Maybe Text
      -> Maybe Text
      -> PostAccountsAccountPeopleRequestBodyVerification'AdditionalDocument')
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure Maybe Text
-> Maybe Text
-> PostAccountsAccountPeopleRequestBodyVerification'AdditionalDocument'
PostAccountsAccountPeopleRequestBodyVerification'AdditionalDocument' Parser
  (Maybe Text
   -> Maybe Text
   -> PostAccountsAccountPeopleRequestBodyVerification'AdditionalDocument')
-> Parser (Maybe Text)
-> Parser
     (Maybe Text
      -> PostAccountsAccountPeopleRequestBodyVerification'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
   -> PostAccountsAccountPeopleRequestBodyVerification'AdditionalDocument')
-> Parser (Maybe Text)
-> Parser
     PostAccountsAccountPeopleRequestBodyVerification'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 'PostAccountsAccountPeopleRequestBodyVerification'AdditionalDocument'' with all required fields.
mkPostAccountsAccountPeopleRequestBodyVerification'AdditionalDocument' :: PostAccountsAccountPeopleRequestBodyVerification'AdditionalDocument'
mkPostAccountsAccountPeopleRequestBodyVerification'AdditionalDocument' :: PostAccountsAccountPeopleRequestBodyVerification'AdditionalDocument'
mkPostAccountsAccountPeopleRequestBodyVerification'AdditionalDocument' =
  PostAccountsAccountPeopleRequestBodyVerification'AdditionalDocument' :: Maybe Text
-> Maybe Text
-> PostAccountsAccountPeopleRequestBodyVerification'AdditionalDocument'
PostAccountsAccountPeopleRequestBodyVerification'AdditionalDocument'
    { postAccountsAccountPeopleRequestBodyVerification'AdditionalDocument'Back :: Maybe Text
postAccountsAccountPeopleRequestBodyVerification'AdditionalDocument'Back = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsAccountPeopleRequestBodyVerification'AdditionalDocument'Front :: Maybe Text
postAccountsAccountPeopleRequestBodyVerification'AdditionalDocument'Front = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing
    }

-- | Defines the object schema located at @paths.\/v1\/accounts\/{account}\/people.POST.requestBody.content.application\/x-www-form-urlencoded.schema.properties.verification.properties.document@ in the specification.
data PostAccountsAccountPeopleRequestBodyVerification'Document' = PostAccountsAccountPeopleRequestBodyVerification'Document'
  { -- | back
    --
    -- Constraints:
    --
    -- * Maximum length of 500
    PostAccountsAccountPeopleRequestBodyVerification'Document'
-> Maybe Text
postAccountsAccountPeopleRequestBodyVerification'Document'Back :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | front
    --
    -- Constraints:
    --
    -- * Maximum length of 500
    PostAccountsAccountPeopleRequestBodyVerification'Document'
-> Maybe Text
postAccountsAccountPeopleRequestBodyVerification'Document'Front :: (GHC.Maybe.Maybe Data.Text.Internal.Text)
  }
  deriving
    ( Int
-> PostAccountsAccountPeopleRequestBodyVerification'Document'
-> String
-> String
[PostAccountsAccountPeopleRequestBodyVerification'Document']
-> String -> String
PostAccountsAccountPeopleRequestBodyVerification'Document'
-> String
(Int
 -> PostAccountsAccountPeopleRequestBodyVerification'Document'
 -> String
 -> String)
-> (PostAccountsAccountPeopleRequestBodyVerification'Document'
    -> String)
-> ([PostAccountsAccountPeopleRequestBodyVerification'Document']
    -> String -> String)
-> Show PostAccountsAccountPeopleRequestBodyVerification'Document'
forall a.
(Int -> a -> String -> String)
-> (a -> String) -> ([a] -> String -> String) -> Show a
showList :: [PostAccountsAccountPeopleRequestBodyVerification'Document']
-> String -> String
$cshowList :: [PostAccountsAccountPeopleRequestBodyVerification'Document']
-> String -> String
show :: PostAccountsAccountPeopleRequestBodyVerification'Document'
-> String
$cshow :: PostAccountsAccountPeopleRequestBodyVerification'Document'
-> String
showsPrec :: Int
-> PostAccountsAccountPeopleRequestBodyVerification'Document'
-> String
-> String
$cshowsPrec :: Int
-> PostAccountsAccountPeopleRequestBodyVerification'Document'
-> String
-> String
GHC.Show.Show,
      PostAccountsAccountPeopleRequestBodyVerification'Document'
-> PostAccountsAccountPeopleRequestBodyVerification'Document'
-> Bool
(PostAccountsAccountPeopleRequestBodyVerification'Document'
 -> PostAccountsAccountPeopleRequestBodyVerification'Document'
 -> Bool)
-> (PostAccountsAccountPeopleRequestBodyVerification'Document'
    -> PostAccountsAccountPeopleRequestBodyVerification'Document'
    -> Bool)
-> Eq PostAccountsAccountPeopleRequestBodyVerification'Document'
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostAccountsAccountPeopleRequestBodyVerification'Document'
-> PostAccountsAccountPeopleRequestBodyVerification'Document'
-> Bool
$c/= :: PostAccountsAccountPeopleRequestBodyVerification'Document'
-> PostAccountsAccountPeopleRequestBodyVerification'Document'
-> Bool
== :: PostAccountsAccountPeopleRequestBodyVerification'Document'
-> PostAccountsAccountPeopleRequestBodyVerification'Document'
-> Bool
$c== :: PostAccountsAccountPeopleRequestBodyVerification'Document'
-> PostAccountsAccountPeopleRequestBodyVerification'Document'
-> Bool
GHC.Classes.Eq
    )

instance Data.Aeson.Types.ToJSON.ToJSON PostAccountsAccountPeopleRequestBodyVerification'Document' where
  toJSON :: PostAccountsAccountPeopleRequestBodyVerification'Document' -> Value
toJSON PostAccountsAccountPeopleRequestBodyVerification'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..= PostAccountsAccountPeopleRequestBodyVerification'Document'
-> Maybe Text
postAccountsAccountPeopleRequestBodyVerification'Document'Back PostAccountsAccountPeopleRequestBodyVerification'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..= PostAccountsAccountPeopleRequestBodyVerification'Document'
-> Maybe Text
postAccountsAccountPeopleRequestBodyVerification'Document'Front PostAccountsAccountPeopleRequestBodyVerification'Document'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: [Pair]
forall a. Monoid a => a
GHC.Base.mempty)
  toEncoding :: PostAccountsAccountPeopleRequestBodyVerification'Document'
-> Encoding
toEncoding PostAccountsAccountPeopleRequestBodyVerification'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..= PostAccountsAccountPeopleRequestBodyVerification'Document'
-> Maybe Text
postAccountsAccountPeopleRequestBodyVerification'Document'Back PostAccountsAccountPeopleRequestBodyVerification'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..= PostAccountsAccountPeopleRequestBodyVerification'Document'
-> Maybe Text
postAccountsAccountPeopleRequestBodyVerification'Document'Front PostAccountsAccountPeopleRequestBodyVerification'Document'
obj))

instance Data.Aeson.Types.FromJSON.FromJSON PostAccountsAccountPeopleRequestBodyVerification'Document' where
  parseJSON :: Value
-> Parser
     PostAccountsAccountPeopleRequestBodyVerification'Document'
parseJSON = String
-> (Object
    -> Parser
         PostAccountsAccountPeopleRequestBodyVerification'Document')
-> Value
-> Parser
     PostAccountsAccountPeopleRequestBodyVerification'Document'
forall a. String -> (Object -> Parser a) -> Value -> Parser a
Data.Aeson.Types.FromJSON.withObject String
"PostAccountsAccountPeopleRequestBodyVerification'Document'" (\Object
obj -> ((Maybe Text
 -> Maybe Text
 -> PostAccountsAccountPeopleRequestBodyVerification'Document')
-> Parser
     (Maybe Text
      -> Maybe Text
      -> PostAccountsAccountPeopleRequestBodyVerification'Document')
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure Maybe Text
-> Maybe Text
-> PostAccountsAccountPeopleRequestBodyVerification'Document'
PostAccountsAccountPeopleRequestBodyVerification'Document' Parser
  (Maybe Text
   -> Maybe Text
   -> PostAccountsAccountPeopleRequestBodyVerification'Document')
-> Parser (Maybe Text)
-> Parser
     (Maybe Text
      -> PostAccountsAccountPeopleRequestBodyVerification'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
   -> PostAccountsAccountPeopleRequestBodyVerification'Document')
-> Parser (Maybe Text)
-> Parser
     PostAccountsAccountPeopleRequestBodyVerification'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 'PostAccountsAccountPeopleRequestBodyVerification'Document'' with all required fields.
mkPostAccountsAccountPeopleRequestBodyVerification'Document' :: PostAccountsAccountPeopleRequestBodyVerification'Document'
mkPostAccountsAccountPeopleRequestBodyVerification'Document' :: PostAccountsAccountPeopleRequestBodyVerification'Document'
mkPostAccountsAccountPeopleRequestBodyVerification'Document' =
  PostAccountsAccountPeopleRequestBodyVerification'Document' :: Maybe Text
-> Maybe Text
-> PostAccountsAccountPeopleRequestBodyVerification'Document'
PostAccountsAccountPeopleRequestBodyVerification'Document'
    { postAccountsAccountPeopleRequestBodyVerification'Document'Back :: Maybe Text
postAccountsAccountPeopleRequestBodyVerification'Document'Back = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsAccountPeopleRequestBodyVerification'Document'Front :: Maybe Text
postAccountsAccountPeopleRequestBodyVerification'Document'Front = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing
    }

-- | Represents a response of the operation 'postAccountsAccountPeople'.
--
-- 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), 'PostAccountsAccountPeopleResponseError' is used.
data PostAccountsAccountPeopleResponse
  = -- | Means either no matching case available or a parse error
    PostAccountsAccountPeopleResponseError GHC.Base.String
  | -- | Successful response.
    PostAccountsAccountPeopleResponse200 Person
  | -- | Error response.
    PostAccountsAccountPeopleResponseDefault Error
  deriving (Int -> PostAccountsAccountPeopleResponse -> String -> String
[PostAccountsAccountPeopleResponse] -> String -> String
PostAccountsAccountPeopleResponse -> String
(Int -> PostAccountsAccountPeopleResponse -> String -> String)
-> (PostAccountsAccountPeopleResponse -> String)
-> ([PostAccountsAccountPeopleResponse] -> String -> String)
-> Show PostAccountsAccountPeopleResponse
forall a.
(Int -> a -> String -> String)
-> (a -> String) -> ([a] -> String -> String) -> Show a
showList :: [PostAccountsAccountPeopleResponse] -> String -> String
$cshowList :: [PostAccountsAccountPeopleResponse] -> String -> String
show :: PostAccountsAccountPeopleResponse -> String
$cshow :: PostAccountsAccountPeopleResponse -> String
showsPrec :: Int -> PostAccountsAccountPeopleResponse -> String -> String
$cshowsPrec :: Int -> PostAccountsAccountPeopleResponse -> String -> String
GHC.Show.Show, PostAccountsAccountPeopleResponse
-> PostAccountsAccountPeopleResponse -> Bool
(PostAccountsAccountPeopleResponse
 -> PostAccountsAccountPeopleResponse -> Bool)
-> (PostAccountsAccountPeopleResponse
    -> PostAccountsAccountPeopleResponse -> Bool)
-> Eq PostAccountsAccountPeopleResponse
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostAccountsAccountPeopleResponse
-> PostAccountsAccountPeopleResponse -> Bool
$c/= :: PostAccountsAccountPeopleResponse
-> PostAccountsAccountPeopleResponse -> Bool
== :: PostAccountsAccountPeopleResponse
-> PostAccountsAccountPeopleResponse -> Bool
$c== :: PostAccountsAccountPeopleResponse
-> PostAccountsAccountPeopleResponse -> Bool
GHC.Classes.Eq)