{-# 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 postAccounts
module StripeAPI.Operations.PostAccounts 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
--
-- \<p>With \<a href=\"\/docs\/connect\">Connect\<\/a>, you can create Stripe accounts for your users.
-- To do this, you’ll first need to \<a href=\"https:\/\/dashboard.stripe.com\/account\/applications\/settings\">register your platform\<\/a>.\<\/p>
postAccounts ::
  forall m.
  StripeAPI.Common.MonadHTTP m =>
  -- | The request body to send
  GHC.Maybe.Maybe PostAccountsRequestBody ->
  -- | Monadic computation which returns the result of the operation
  StripeAPI.Common.ClientT m (Network.HTTP.Client.Types.Response PostAccountsResponse)
postAccounts :: Maybe PostAccountsRequestBody
-> ClientT m (Response PostAccountsResponse)
postAccounts Maybe PostAccountsRequestBody
body =
  (Response ByteString -> Response PostAccountsResponse)
-> ClientT m (Response ByteString)
-> ClientT m (Response PostAccountsResponse)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
GHC.Base.fmap
    ( \Response ByteString
response_0 ->
        (ByteString -> PostAccountsResponse)
-> Response ByteString -> Response PostAccountsResponse
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
GHC.Base.fmap
          ( (String -> PostAccountsResponse)
-> (PostAccountsResponse -> PostAccountsResponse)
-> Either String PostAccountsResponse
-> PostAccountsResponse
forall a c b. (a -> c) -> (b -> c) -> Either a b -> c
Data.Either.either String -> PostAccountsResponse
PostAccountsResponseError PostAccountsResponse -> PostAccountsResponse
forall a. a -> a
GHC.Base.id
              (Either String PostAccountsResponse -> PostAccountsResponse)
-> (ByteString -> Either String PostAccountsResponse)
-> ByteString
-> PostAccountsResponse
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) ->
                                   Account -> PostAccountsResponse
PostAccountsResponse200
                                     (Account -> PostAccountsResponse)
-> Either String Account -> Either String PostAccountsResponse
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Data.Functor.<$> ( ByteString -> Either String Account
forall a. FromJSON a => ByteString -> Either String a
Data.Aeson.eitherDecodeStrict ByteString
body ::
                                                          Data.Either.Either
                                                            GHC.Base.String
                                                            Account
                                                      )
                                 | 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 -> PostAccountsResponse
PostAccountsResponseDefault
                                     (Error -> PostAccountsResponse)
-> Either String Error -> Either String PostAccountsResponse
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 PostAccountsResponse
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 PostAccountsRequestBody
-> 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") [QueryParameter]
forall a. Monoid a => a
GHC.Base.mempty Maybe PostAccountsRequestBody
body RequestBodyEncoding
StripeAPI.Common.RequestBodyEncodingFormData)

-- | Defines the object schema located at @paths.\/v1\/accounts.POST.requestBody.content.application\/x-www-form-urlencoded.schema@ in the specification.
data PostAccountsRequestBody = PostAccountsRequestBody
  { -- | account_token: An [account token](https:\/\/stripe.com\/docs\/api\#create_account_token), used to securely provide details to the account.
    --
    -- Constraints:
    --
    -- * Maximum length of 5000
    PostAccountsRequestBody -> Maybe Text
postAccountsRequestBodyAccountToken :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | bank_account: Either a token, like the ones returned by [Stripe.js](https:\/\/stripe.com\/docs\/stripe.js), or a dictionary containing a user\'s bank account details.
    PostAccountsRequestBody
-> Maybe PostAccountsRequestBodyBankAccount'Variants
postAccountsRequestBodyBankAccount :: (GHC.Maybe.Maybe PostAccountsRequestBodyBankAccount'Variants),
    -- | business_profile: Business information about the account.
    PostAccountsRequestBody
-> Maybe PostAccountsRequestBodyBusinessProfile'
postAccountsRequestBodyBusinessProfile :: (GHC.Maybe.Maybe PostAccountsRequestBodyBusinessProfile'),
    -- | business_type: The business type.
    PostAccountsRequestBody
-> Maybe PostAccountsRequestBodyBusinessType'
postAccountsRequestBodyBusinessType :: (GHC.Maybe.Maybe PostAccountsRequestBodyBusinessType'),
    -- | capabilities: Each key of the dictionary represents a capability, and each capability maps to its settings (e.g. whether it has been requested or not). Each capability will be inactive until you have provided its specific requirements and Stripe has verified them. An account may have some of its requested capabilities be active and some be inactive.
    PostAccountsRequestBody
-> Maybe PostAccountsRequestBodyCapabilities'
postAccountsRequestBodyCapabilities :: (GHC.Maybe.Maybe PostAccountsRequestBodyCapabilities'),
    -- | company: Information about the company or business. This field is available for any \`business_type\`.
    PostAccountsRequestBody -> Maybe PostAccountsRequestBodyCompany'
postAccountsRequestBodyCompany :: (GHC.Maybe.Maybe PostAccountsRequestBodyCompany'),
    -- | country: The country in which the account holder resides, or in which the business is legally established. This should be an ISO 3166-1 alpha-2 country code. For example, if you are in the United States and the business for which you\'re creating an account is legally represented in Canada, you would use \`CA\` as the country for the account being created.
    --
    -- Constraints:
    --
    -- * Maximum length of 5000
    PostAccountsRequestBody -> Maybe Text
postAccountsRequestBodyCountry :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | default_currency: Three-letter ISO currency code representing the default currency for the account. This must be a currency that [Stripe supports in the account\'s country](https:\/\/stripe.com\/docs\/payouts).
    PostAccountsRequestBody -> Maybe Text
postAccountsRequestBodyDefaultCurrency :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | documents: Documents that may be submitted to satisfy various informational requests.
    PostAccountsRequestBody -> Maybe PostAccountsRequestBodyDocuments'
postAccountsRequestBodyDocuments :: (GHC.Maybe.Maybe PostAccountsRequestBodyDocuments'),
    -- | email: The email address of the account holder. This is only to make the account easier to identify to you. Stripe will never directly email Custom accounts.
    PostAccountsRequestBody -> Maybe Text
postAccountsRequestBodyEmail :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | expand: Specifies which fields in the response should be expanded.
    PostAccountsRequestBody -> Maybe [Text]
postAccountsRequestBodyExpand :: (GHC.Maybe.Maybe ([Data.Text.Internal.Text])),
    -- | external_account: A card or bank account to attach to the account for receiving [payouts](https:\/\/stripe.com\/docs\/connect\/bank-debit-card-payouts) (you won’t be able to use it for top-ups). You can provide either a token, like the ones returned by [Stripe.js](https:\/\/stripe.com\/docs\/stripe.js), or a dictionary, as documented in the \`external_account\` parameter for [bank account](https:\/\/stripe.com\/docs\/api\#account_create_bank_account) creation. \<br>\<br>By default, providing an external account sets it as the new default external account for its currency, and deletes the old default if one exists. To add additional external accounts without replacing the existing default for the currency, use the bank account or card creation API.
    --
    -- Constraints:
    --
    -- * Maximum length of 5000
    PostAccountsRequestBody -> Maybe Text
postAccountsRequestBodyExternalAccount :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | individual: Information about the person represented by the account. This field is null unless \`business_type\` is set to \`individual\`.
    PostAccountsRequestBody -> Maybe PostAccountsRequestBodyIndividual'
postAccountsRequestBodyIndividual :: (GHC.Maybe.Maybe PostAccountsRequestBodyIndividual'),
    -- | 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\`.
    PostAccountsRequestBody
-> Maybe PostAccountsRequestBodyMetadata'Variants
postAccountsRequestBodyMetadata :: (GHC.Maybe.Maybe PostAccountsRequestBodyMetadata'Variants),
    -- | settings: Options for customizing how the account functions within Stripe.
    PostAccountsRequestBody -> Maybe PostAccountsRequestBodySettings'
postAccountsRequestBodySettings :: (GHC.Maybe.Maybe PostAccountsRequestBodySettings'),
    -- | tos_acceptance: Details on the account\'s acceptance of the [Stripe Services Agreement](https:\/\/stripe.com\/docs\/connect\/updating-accounts\#tos-acceptance).
    PostAccountsRequestBody
-> Maybe PostAccountsRequestBodyTosAcceptance'
postAccountsRequestBodyTosAcceptance :: (GHC.Maybe.Maybe PostAccountsRequestBodyTosAcceptance'),
    -- | type: The type of Stripe account to create. May be one of \`custom\`, \`express\` or \`standard\`.
    PostAccountsRequestBody -> Maybe PostAccountsRequestBodyType'
postAccountsRequestBodyType :: (GHC.Maybe.Maybe PostAccountsRequestBodyType')
  }
  deriving
    ( Int -> PostAccountsRequestBody -> ShowS
[PostAccountsRequestBody] -> ShowS
PostAccountsRequestBody -> String
(Int -> PostAccountsRequestBody -> ShowS)
-> (PostAccountsRequestBody -> String)
-> ([PostAccountsRequestBody] -> ShowS)
-> Show PostAccountsRequestBody
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PostAccountsRequestBody] -> ShowS
$cshowList :: [PostAccountsRequestBody] -> ShowS
show :: PostAccountsRequestBody -> String
$cshow :: PostAccountsRequestBody -> String
showsPrec :: Int -> PostAccountsRequestBody -> ShowS
$cshowsPrec :: Int -> PostAccountsRequestBody -> ShowS
GHC.Show.Show,
      PostAccountsRequestBody -> PostAccountsRequestBody -> Bool
(PostAccountsRequestBody -> PostAccountsRequestBody -> Bool)
-> (PostAccountsRequestBody -> PostAccountsRequestBody -> Bool)
-> Eq PostAccountsRequestBody
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostAccountsRequestBody -> PostAccountsRequestBody -> Bool
$c/= :: PostAccountsRequestBody -> PostAccountsRequestBody -> Bool
== :: PostAccountsRequestBody -> PostAccountsRequestBody -> Bool
$c== :: PostAccountsRequestBody -> PostAccountsRequestBody -> Bool
GHC.Classes.Eq
    )

instance Data.Aeson.Types.ToJSON.ToJSON PostAccountsRequestBody where
  toJSON :: PostAccountsRequestBody -> Value
toJSON PostAccountsRequestBody
obj = [Pair] -> Value
Data.Aeson.Types.Internal.object (Text
"account_token" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBody -> Maybe Text
postAccountsRequestBodyAccountToken PostAccountsRequestBody
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"bank_account" Text -> Maybe PostAccountsRequestBodyBankAccount'Variants -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBody
-> Maybe PostAccountsRequestBodyBankAccount'Variants
postAccountsRequestBodyBankAccount PostAccountsRequestBody
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"business_profile" Text -> Maybe PostAccountsRequestBodyBusinessProfile' -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBody
-> Maybe PostAccountsRequestBodyBusinessProfile'
postAccountsRequestBodyBusinessProfile PostAccountsRequestBody
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"business_type" Text -> Maybe PostAccountsRequestBodyBusinessType' -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBody
-> Maybe PostAccountsRequestBodyBusinessType'
postAccountsRequestBodyBusinessType PostAccountsRequestBody
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"capabilities" Text -> Maybe PostAccountsRequestBodyCapabilities' -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBody
-> Maybe PostAccountsRequestBodyCapabilities'
postAccountsRequestBodyCapabilities PostAccountsRequestBody
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"company" Text -> Maybe PostAccountsRequestBodyCompany' -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBody -> Maybe PostAccountsRequestBodyCompany'
postAccountsRequestBodyCompany PostAccountsRequestBody
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..= PostAccountsRequestBody -> Maybe Text
postAccountsRequestBodyCountry PostAccountsRequestBody
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"default_currency" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBody -> Maybe Text
postAccountsRequestBodyDefaultCurrency PostAccountsRequestBody
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"documents" Text -> Maybe PostAccountsRequestBodyDocuments' -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBody -> Maybe PostAccountsRequestBodyDocuments'
postAccountsRequestBodyDocuments PostAccountsRequestBody
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..= PostAccountsRequestBody -> Maybe Text
postAccountsRequestBodyEmail PostAccountsRequestBody
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..= PostAccountsRequestBody -> Maybe [Text]
postAccountsRequestBodyExpand PostAccountsRequestBody
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"external_account" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBody -> Maybe Text
postAccountsRequestBodyExternalAccount PostAccountsRequestBody
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"individual" Text -> Maybe PostAccountsRequestBodyIndividual' -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBody -> Maybe PostAccountsRequestBodyIndividual'
postAccountsRequestBodyIndividual PostAccountsRequestBody
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"metadata" Text -> Maybe PostAccountsRequestBodyMetadata'Variants -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBody
-> Maybe PostAccountsRequestBodyMetadata'Variants
postAccountsRequestBodyMetadata PostAccountsRequestBody
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"settings" Text -> Maybe PostAccountsRequestBodySettings' -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBody -> Maybe PostAccountsRequestBodySettings'
postAccountsRequestBodySettings PostAccountsRequestBody
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"tos_acceptance" Text -> Maybe PostAccountsRequestBodyTosAcceptance' -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBody
-> Maybe PostAccountsRequestBodyTosAcceptance'
postAccountsRequestBodyTosAcceptance PostAccountsRequestBody
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"type" Text -> Maybe PostAccountsRequestBodyType' -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBody -> Maybe PostAccountsRequestBodyType'
postAccountsRequestBodyType PostAccountsRequestBody
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: [Pair]
forall a. Monoid a => a
GHC.Base.mempty)
  toEncoding :: PostAccountsRequestBody -> Encoding
toEncoding PostAccountsRequestBody
obj = Series -> Encoding
Data.Aeson.Encoding.Internal.pairs ((Text
"account_token" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBody -> Maybe Text
postAccountsRequestBodyAccountToken PostAccountsRequestBody
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"bank_account" Text -> Maybe PostAccountsRequestBodyBankAccount'Variants -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBody
-> Maybe PostAccountsRequestBodyBankAccount'Variants
postAccountsRequestBodyBankAccount PostAccountsRequestBody
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"business_profile" Text -> Maybe PostAccountsRequestBodyBusinessProfile' -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBody
-> Maybe PostAccountsRequestBodyBusinessProfile'
postAccountsRequestBodyBusinessProfile PostAccountsRequestBody
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"business_type" Text -> Maybe PostAccountsRequestBodyBusinessType' -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBody
-> Maybe PostAccountsRequestBodyBusinessType'
postAccountsRequestBodyBusinessType PostAccountsRequestBody
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"capabilities" Text -> Maybe PostAccountsRequestBodyCapabilities' -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBody
-> Maybe PostAccountsRequestBodyCapabilities'
postAccountsRequestBodyCapabilities PostAccountsRequestBody
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"company" Text -> Maybe PostAccountsRequestBodyCompany' -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBody -> Maybe PostAccountsRequestBodyCompany'
postAccountsRequestBodyCompany PostAccountsRequestBody
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..= PostAccountsRequestBody -> Maybe Text
postAccountsRequestBodyCountry PostAccountsRequestBody
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"default_currency" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBody -> Maybe Text
postAccountsRequestBodyDefaultCurrency PostAccountsRequestBody
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"documents" Text -> Maybe PostAccountsRequestBodyDocuments' -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBody -> Maybe PostAccountsRequestBodyDocuments'
postAccountsRequestBodyDocuments PostAccountsRequestBody
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..= PostAccountsRequestBody -> Maybe Text
postAccountsRequestBodyEmail PostAccountsRequestBody
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..= PostAccountsRequestBody -> Maybe [Text]
postAccountsRequestBodyExpand PostAccountsRequestBody
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"external_account" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBody -> Maybe Text
postAccountsRequestBodyExternalAccount PostAccountsRequestBody
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"individual" Text -> Maybe PostAccountsRequestBodyIndividual' -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBody -> Maybe PostAccountsRequestBodyIndividual'
postAccountsRequestBodyIndividual PostAccountsRequestBody
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"metadata" Text -> Maybe PostAccountsRequestBodyMetadata'Variants -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBody
-> Maybe PostAccountsRequestBodyMetadata'Variants
postAccountsRequestBodyMetadata PostAccountsRequestBody
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"settings" Text -> Maybe PostAccountsRequestBodySettings' -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBody -> Maybe PostAccountsRequestBodySettings'
postAccountsRequestBodySettings PostAccountsRequestBody
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"tos_acceptance" Text -> Maybe PostAccountsRequestBodyTosAcceptance' -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBody
-> Maybe PostAccountsRequestBodyTosAcceptance'
postAccountsRequestBodyTosAcceptance PostAccountsRequestBody
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> (Text
"type" Text -> Maybe PostAccountsRequestBodyType' -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBody -> Maybe PostAccountsRequestBodyType'
postAccountsRequestBodyType PostAccountsRequestBody
obj)))))))))))))))))

instance Data.Aeson.Types.FromJSON.FromJSON PostAccountsRequestBody where
  parseJSON :: Value -> Parser PostAccountsRequestBody
parseJSON = String
-> (Object -> Parser PostAccountsRequestBody)
-> Value
-> Parser PostAccountsRequestBody
forall a. String -> (Object -> Parser a) -> Value -> Parser a
Data.Aeson.Types.FromJSON.withObject String
"PostAccountsRequestBody" (\Object
obj -> (((((((((((((((((Maybe Text
 -> Maybe PostAccountsRequestBodyBankAccount'Variants
 -> Maybe PostAccountsRequestBodyBusinessProfile'
 -> Maybe PostAccountsRequestBodyBusinessType'
 -> Maybe PostAccountsRequestBodyCapabilities'
 -> Maybe PostAccountsRequestBodyCompany'
 -> Maybe Text
 -> Maybe Text
 -> Maybe PostAccountsRequestBodyDocuments'
 -> Maybe Text
 -> Maybe [Text]
 -> Maybe Text
 -> Maybe PostAccountsRequestBodyIndividual'
 -> Maybe PostAccountsRequestBodyMetadata'Variants
 -> Maybe PostAccountsRequestBodySettings'
 -> Maybe PostAccountsRequestBodyTosAcceptance'
 -> Maybe PostAccountsRequestBodyType'
 -> PostAccountsRequestBody)
-> Parser
     (Maybe Text
      -> Maybe PostAccountsRequestBodyBankAccount'Variants
      -> Maybe PostAccountsRequestBodyBusinessProfile'
      -> Maybe PostAccountsRequestBodyBusinessType'
      -> Maybe PostAccountsRequestBodyCapabilities'
      -> Maybe PostAccountsRequestBodyCompany'
      -> Maybe Text
      -> Maybe Text
      -> Maybe PostAccountsRequestBodyDocuments'
      -> Maybe Text
      -> Maybe [Text]
      -> Maybe Text
      -> Maybe PostAccountsRequestBodyIndividual'
      -> Maybe PostAccountsRequestBodyMetadata'Variants
      -> Maybe PostAccountsRequestBodySettings'
      -> Maybe PostAccountsRequestBodyTosAcceptance'
      -> Maybe PostAccountsRequestBodyType'
      -> PostAccountsRequestBody)
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure Maybe Text
-> Maybe PostAccountsRequestBodyBankAccount'Variants
-> Maybe PostAccountsRequestBodyBusinessProfile'
-> Maybe PostAccountsRequestBodyBusinessType'
-> Maybe PostAccountsRequestBodyCapabilities'
-> Maybe PostAccountsRequestBodyCompany'
-> Maybe Text
-> Maybe Text
-> Maybe PostAccountsRequestBodyDocuments'
-> Maybe Text
-> Maybe [Text]
-> Maybe Text
-> Maybe PostAccountsRequestBodyIndividual'
-> Maybe PostAccountsRequestBodyMetadata'Variants
-> Maybe PostAccountsRequestBodySettings'
-> Maybe PostAccountsRequestBodyTosAcceptance'
-> Maybe PostAccountsRequestBodyType'
-> PostAccountsRequestBody
PostAccountsRequestBody Parser
  (Maybe Text
   -> Maybe PostAccountsRequestBodyBankAccount'Variants
   -> Maybe PostAccountsRequestBodyBusinessProfile'
   -> Maybe PostAccountsRequestBodyBusinessType'
   -> Maybe PostAccountsRequestBodyCapabilities'
   -> Maybe PostAccountsRequestBodyCompany'
   -> Maybe Text
   -> Maybe Text
   -> Maybe PostAccountsRequestBodyDocuments'
   -> Maybe Text
   -> Maybe [Text]
   -> Maybe Text
   -> Maybe PostAccountsRequestBodyIndividual'
   -> Maybe PostAccountsRequestBodyMetadata'Variants
   -> Maybe PostAccountsRequestBodySettings'
   -> Maybe PostAccountsRequestBodyTosAcceptance'
   -> Maybe PostAccountsRequestBodyType'
   -> PostAccountsRequestBody)
-> Parser (Maybe Text)
-> Parser
     (Maybe PostAccountsRequestBodyBankAccount'Variants
      -> Maybe PostAccountsRequestBodyBusinessProfile'
      -> Maybe PostAccountsRequestBodyBusinessType'
      -> Maybe PostAccountsRequestBodyCapabilities'
      -> Maybe PostAccountsRequestBodyCompany'
      -> Maybe Text
      -> Maybe Text
      -> Maybe PostAccountsRequestBodyDocuments'
      -> Maybe Text
      -> Maybe [Text]
      -> Maybe Text
      -> Maybe PostAccountsRequestBodyIndividual'
      -> Maybe PostAccountsRequestBodyMetadata'Variants
      -> Maybe PostAccountsRequestBodySettings'
      -> Maybe PostAccountsRequestBodyTosAcceptance'
      -> Maybe PostAccountsRequestBodyType'
      -> PostAccountsRequestBody)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"account_token")) Parser
  (Maybe PostAccountsRequestBodyBankAccount'Variants
   -> Maybe PostAccountsRequestBodyBusinessProfile'
   -> Maybe PostAccountsRequestBodyBusinessType'
   -> Maybe PostAccountsRequestBodyCapabilities'
   -> Maybe PostAccountsRequestBodyCompany'
   -> Maybe Text
   -> Maybe Text
   -> Maybe PostAccountsRequestBodyDocuments'
   -> Maybe Text
   -> Maybe [Text]
   -> Maybe Text
   -> Maybe PostAccountsRequestBodyIndividual'
   -> Maybe PostAccountsRequestBodyMetadata'Variants
   -> Maybe PostAccountsRequestBodySettings'
   -> Maybe PostAccountsRequestBodyTosAcceptance'
   -> Maybe PostAccountsRequestBodyType'
   -> PostAccountsRequestBody)
-> Parser (Maybe PostAccountsRequestBodyBankAccount'Variants)
-> Parser
     (Maybe PostAccountsRequestBodyBusinessProfile'
      -> Maybe PostAccountsRequestBodyBusinessType'
      -> Maybe PostAccountsRequestBodyCapabilities'
      -> Maybe PostAccountsRequestBodyCompany'
      -> Maybe Text
      -> Maybe Text
      -> Maybe PostAccountsRequestBodyDocuments'
      -> Maybe Text
      -> Maybe [Text]
      -> Maybe Text
      -> Maybe PostAccountsRequestBodyIndividual'
      -> Maybe PostAccountsRequestBodyMetadata'Variants
      -> Maybe PostAccountsRequestBodySettings'
      -> Maybe PostAccountsRequestBodyTosAcceptance'
      -> Maybe PostAccountsRequestBodyType'
      -> PostAccountsRequestBody)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object
-> Text
-> Parser (Maybe PostAccountsRequestBodyBankAccount'Variants)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"bank_account")) Parser
  (Maybe PostAccountsRequestBodyBusinessProfile'
   -> Maybe PostAccountsRequestBodyBusinessType'
   -> Maybe PostAccountsRequestBodyCapabilities'
   -> Maybe PostAccountsRequestBodyCompany'
   -> Maybe Text
   -> Maybe Text
   -> Maybe PostAccountsRequestBodyDocuments'
   -> Maybe Text
   -> Maybe [Text]
   -> Maybe Text
   -> Maybe PostAccountsRequestBodyIndividual'
   -> Maybe PostAccountsRequestBodyMetadata'Variants
   -> Maybe PostAccountsRequestBodySettings'
   -> Maybe PostAccountsRequestBodyTosAcceptance'
   -> Maybe PostAccountsRequestBodyType'
   -> PostAccountsRequestBody)
-> Parser (Maybe PostAccountsRequestBodyBusinessProfile')
-> Parser
     (Maybe PostAccountsRequestBodyBusinessType'
      -> Maybe PostAccountsRequestBodyCapabilities'
      -> Maybe PostAccountsRequestBodyCompany'
      -> Maybe Text
      -> Maybe Text
      -> Maybe PostAccountsRequestBodyDocuments'
      -> Maybe Text
      -> Maybe [Text]
      -> Maybe Text
      -> Maybe PostAccountsRequestBodyIndividual'
      -> Maybe PostAccountsRequestBodyMetadata'Variants
      -> Maybe PostAccountsRequestBodySettings'
      -> Maybe PostAccountsRequestBodyTosAcceptance'
      -> Maybe PostAccountsRequestBodyType'
      -> PostAccountsRequestBody)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object
-> Text -> Parser (Maybe PostAccountsRequestBodyBusinessProfile')
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"business_profile")) Parser
  (Maybe PostAccountsRequestBodyBusinessType'
   -> Maybe PostAccountsRequestBodyCapabilities'
   -> Maybe PostAccountsRequestBodyCompany'
   -> Maybe Text
   -> Maybe Text
   -> Maybe PostAccountsRequestBodyDocuments'
   -> Maybe Text
   -> Maybe [Text]
   -> Maybe Text
   -> Maybe PostAccountsRequestBodyIndividual'
   -> Maybe PostAccountsRequestBodyMetadata'Variants
   -> Maybe PostAccountsRequestBodySettings'
   -> Maybe PostAccountsRequestBodyTosAcceptance'
   -> Maybe PostAccountsRequestBodyType'
   -> PostAccountsRequestBody)
-> Parser (Maybe PostAccountsRequestBodyBusinessType')
-> Parser
     (Maybe PostAccountsRequestBodyCapabilities'
      -> Maybe PostAccountsRequestBodyCompany'
      -> Maybe Text
      -> Maybe Text
      -> Maybe PostAccountsRequestBodyDocuments'
      -> Maybe Text
      -> Maybe [Text]
      -> Maybe Text
      -> Maybe PostAccountsRequestBodyIndividual'
      -> Maybe PostAccountsRequestBodyMetadata'Variants
      -> Maybe PostAccountsRequestBodySettings'
      -> Maybe PostAccountsRequestBodyTosAcceptance'
      -> Maybe PostAccountsRequestBodyType'
      -> PostAccountsRequestBody)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object
-> Text -> Parser (Maybe PostAccountsRequestBodyBusinessType')
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"business_type")) Parser
  (Maybe PostAccountsRequestBodyCapabilities'
   -> Maybe PostAccountsRequestBodyCompany'
   -> Maybe Text
   -> Maybe Text
   -> Maybe PostAccountsRequestBodyDocuments'
   -> Maybe Text
   -> Maybe [Text]
   -> Maybe Text
   -> Maybe PostAccountsRequestBodyIndividual'
   -> Maybe PostAccountsRequestBodyMetadata'Variants
   -> Maybe PostAccountsRequestBodySettings'
   -> Maybe PostAccountsRequestBodyTosAcceptance'
   -> Maybe PostAccountsRequestBodyType'
   -> PostAccountsRequestBody)
-> Parser (Maybe PostAccountsRequestBodyCapabilities')
-> Parser
     (Maybe PostAccountsRequestBodyCompany'
      -> Maybe Text
      -> Maybe Text
      -> Maybe PostAccountsRequestBodyDocuments'
      -> Maybe Text
      -> Maybe [Text]
      -> Maybe Text
      -> Maybe PostAccountsRequestBodyIndividual'
      -> Maybe PostAccountsRequestBodyMetadata'Variants
      -> Maybe PostAccountsRequestBodySettings'
      -> Maybe PostAccountsRequestBodyTosAcceptance'
      -> Maybe PostAccountsRequestBodyType'
      -> PostAccountsRequestBody)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object
-> Text -> Parser (Maybe PostAccountsRequestBodyCapabilities')
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"capabilities")) Parser
  (Maybe PostAccountsRequestBodyCompany'
   -> Maybe Text
   -> Maybe Text
   -> Maybe PostAccountsRequestBodyDocuments'
   -> Maybe Text
   -> Maybe [Text]
   -> Maybe Text
   -> Maybe PostAccountsRequestBodyIndividual'
   -> Maybe PostAccountsRequestBodyMetadata'Variants
   -> Maybe PostAccountsRequestBodySettings'
   -> Maybe PostAccountsRequestBodyTosAcceptance'
   -> Maybe PostAccountsRequestBodyType'
   -> PostAccountsRequestBody)
-> Parser (Maybe PostAccountsRequestBodyCompany')
-> Parser
     (Maybe Text
      -> Maybe Text
      -> Maybe PostAccountsRequestBodyDocuments'
      -> Maybe Text
      -> Maybe [Text]
      -> Maybe Text
      -> Maybe PostAccountsRequestBodyIndividual'
      -> Maybe PostAccountsRequestBodyMetadata'Variants
      -> Maybe PostAccountsRequestBodySettings'
      -> Maybe PostAccountsRequestBodyTosAcceptance'
      -> Maybe PostAccountsRequestBodyType'
      -> PostAccountsRequestBody)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe PostAccountsRequestBodyCompany')
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"company")) Parser
  (Maybe Text
   -> Maybe Text
   -> Maybe PostAccountsRequestBodyDocuments'
   -> Maybe Text
   -> Maybe [Text]
   -> Maybe Text
   -> Maybe PostAccountsRequestBodyIndividual'
   -> Maybe PostAccountsRequestBodyMetadata'Variants
   -> Maybe PostAccountsRequestBodySettings'
   -> Maybe PostAccountsRequestBodyTosAcceptance'
   -> Maybe PostAccountsRequestBodyType'
   -> PostAccountsRequestBody)
-> Parser (Maybe Text)
-> Parser
     (Maybe Text
      -> Maybe PostAccountsRequestBodyDocuments'
      -> Maybe Text
      -> Maybe [Text]
      -> Maybe Text
      -> Maybe PostAccountsRequestBodyIndividual'
      -> Maybe PostAccountsRequestBodyMetadata'Variants
      -> Maybe PostAccountsRequestBodySettings'
      -> Maybe PostAccountsRequestBodyTosAcceptance'
      -> Maybe PostAccountsRequestBodyType'
      -> PostAccountsRequestBody)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f 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 PostAccountsRequestBodyDocuments'
   -> Maybe Text
   -> Maybe [Text]
   -> Maybe Text
   -> Maybe PostAccountsRequestBodyIndividual'
   -> Maybe PostAccountsRequestBodyMetadata'Variants
   -> Maybe PostAccountsRequestBodySettings'
   -> Maybe PostAccountsRequestBodyTosAcceptance'
   -> Maybe PostAccountsRequestBodyType'
   -> PostAccountsRequestBody)
-> Parser (Maybe Text)
-> Parser
     (Maybe PostAccountsRequestBodyDocuments'
      -> Maybe Text
      -> Maybe [Text]
      -> Maybe Text
      -> Maybe PostAccountsRequestBodyIndividual'
      -> Maybe PostAccountsRequestBodyMetadata'Variants
      -> Maybe PostAccountsRequestBodySettings'
      -> Maybe PostAccountsRequestBodyTosAcceptance'
      -> Maybe PostAccountsRequestBodyType'
      -> PostAccountsRequestBody)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"default_currency")) Parser
  (Maybe PostAccountsRequestBodyDocuments'
   -> Maybe Text
   -> Maybe [Text]
   -> Maybe Text
   -> Maybe PostAccountsRequestBodyIndividual'
   -> Maybe PostAccountsRequestBodyMetadata'Variants
   -> Maybe PostAccountsRequestBodySettings'
   -> Maybe PostAccountsRequestBodyTosAcceptance'
   -> Maybe PostAccountsRequestBodyType'
   -> PostAccountsRequestBody)
-> Parser (Maybe PostAccountsRequestBodyDocuments')
-> Parser
     (Maybe Text
      -> Maybe [Text]
      -> Maybe Text
      -> Maybe PostAccountsRequestBodyIndividual'
      -> Maybe PostAccountsRequestBodyMetadata'Variants
      -> Maybe PostAccountsRequestBodySettings'
      -> Maybe PostAccountsRequestBodyTosAcceptance'
      -> Maybe PostAccountsRequestBodyType'
      -> PostAccountsRequestBody)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe PostAccountsRequestBodyDocuments')
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"documents")) Parser
  (Maybe Text
   -> Maybe [Text]
   -> Maybe Text
   -> Maybe PostAccountsRequestBodyIndividual'
   -> Maybe PostAccountsRequestBodyMetadata'Variants
   -> Maybe PostAccountsRequestBodySettings'
   -> Maybe PostAccountsRequestBodyTosAcceptance'
   -> Maybe PostAccountsRequestBodyType'
   -> PostAccountsRequestBody)
-> Parser (Maybe Text)
-> Parser
     (Maybe [Text]
      -> Maybe Text
      -> Maybe PostAccountsRequestBodyIndividual'
      -> Maybe PostAccountsRequestBodyMetadata'Variants
      -> Maybe PostAccountsRequestBodySettings'
      -> Maybe PostAccountsRequestBodyTosAcceptance'
      -> Maybe PostAccountsRequestBodyType'
      -> PostAccountsRequestBody)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f 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 PostAccountsRequestBodyIndividual'
   -> Maybe PostAccountsRequestBodyMetadata'Variants
   -> Maybe PostAccountsRequestBodySettings'
   -> Maybe PostAccountsRequestBodyTosAcceptance'
   -> Maybe PostAccountsRequestBodyType'
   -> PostAccountsRequestBody)
-> Parser (Maybe [Text])
-> Parser
     (Maybe Text
      -> Maybe PostAccountsRequestBodyIndividual'
      -> Maybe PostAccountsRequestBodyMetadata'Variants
      -> Maybe PostAccountsRequestBodySettings'
      -> Maybe PostAccountsRequestBodyTosAcceptance'
      -> Maybe PostAccountsRequestBodyType'
      -> PostAccountsRequestBody)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f 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 PostAccountsRequestBodyIndividual'
   -> Maybe PostAccountsRequestBodyMetadata'Variants
   -> Maybe PostAccountsRequestBodySettings'
   -> Maybe PostAccountsRequestBodyTosAcceptance'
   -> Maybe PostAccountsRequestBodyType'
   -> PostAccountsRequestBody)
-> Parser (Maybe Text)
-> Parser
     (Maybe PostAccountsRequestBodyIndividual'
      -> Maybe PostAccountsRequestBodyMetadata'Variants
      -> Maybe PostAccountsRequestBodySettings'
      -> Maybe PostAccountsRequestBodyTosAcceptance'
      -> Maybe PostAccountsRequestBodyType'
      -> PostAccountsRequestBody)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"external_account")) Parser
  (Maybe PostAccountsRequestBodyIndividual'
   -> Maybe PostAccountsRequestBodyMetadata'Variants
   -> Maybe PostAccountsRequestBodySettings'
   -> Maybe PostAccountsRequestBodyTosAcceptance'
   -> Maybe PostAccountsRequestBodyType'
   -> PostAccountsRequestBody)
-> Parser (Maybe PostAccountsRequestBodyIndividual')
-> Parser
     (Maybe PostAccountsRequestBodyMetadata'Variants
      -> Maybe PostAccountsRequestBodySettings'
      -> Maybe PostAccountsRequestBodyTosAcceptance'
      -> Maybe PostAccountsRequestBodyType'
      -> PostAccountsRequestBody)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe PostAccountsRequestBodyIndividual')
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"individual")) Parser
  (Maybe PostAccountsRequestBodyMetadata'Variants
   -> Maybe PostAccountsRequestBodySettings'
   -> Maybe PostAccountsRequestBodyTosAcceptance'
   -> Maybe PostAccountsRequestBodyType'
   -> PostAccountsRequestBody)
-> Parser (Maybe PostAccountsRequestBodyMetadata'Variants)
-> Parser
     (Maybe PostAccountsRequestBodySettings'
      -> Maybe PostAccountsRequestBodyTosAcceptance'
      -> Maybe PostAccountsRequestBodyType'
      -> PostAccountsRequestBody)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object
-> Text -> Parser (Maybe PostAccountsRequestBodyMetadata'Variants)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"metadata")) Parser
  (Maybe PostAccountsRequestBodySettings'
   -> Maybe PostAccountsRequestBodyTosAcceptance'
   -> Maybe PostAccountsRequestBodyType'
   -> PostAccountsRequestBody)
-> Parser (Maybe PostAccountsRequestBodySettings')
-> Parser
     (Maybe PostAccountsRequestBodyTosAcceptance'
      -> Maybe PostAccountsRequestBodyType' -> PostAccountsRequestBody)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe PostAccountsRequestBodySettings')
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"settings")) Parser
  (Maybe PostAccountsRequestBodyTosAcceptance'
   -> Maybe PostAccountsRequestBodyType' -> PostAccountsRequestBody)
-> Parser (Maybe PostAccountsRequestBodyTosAcceptance')
-> Parser
     (Maybe PostAccountsRequestBodyType' -> PostAccountsRequestBody)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object
-> Text -> Parser (Maybe PostAccountsRequestBodyTosAcceptance')
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"tos_acceptance")) Parser
  (Maybe PostAccountsRequestBodyType' -> PostAccountsRequestBody)
-> Parser (Maybe PostAccountsRequestBodyType')
-> Parser PostAccountsRequestBody
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe PostAccountsRequestBodyType')
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"type"))

-- | Create a new 'PostAccountsRequestBody' with all required fields.
mkPostAccountsRequestBody :: PostAccountsRequestBody
mkPostAccountsRequestBody :: PostAccountsRequestBody
mkPostAccountsRequestBody =
  PostAccountsRequestBody :: Maybe Text
-> Maybe PostAccountsRequestBodyBankAccount'Variants
-> Maybe PostAccountsRequestBodyBusinessProfile'
-> Maybe PostAccountsRequestBodyBusinessType'
-> Maybe PostAccountsRequestBodyCapabilities'
-> Maybe PostAccountsRequestBodyCompany'
-> Maybe Text
-> Maybe Text
-> Maybe PostAccountsRequestBodyDocuments'
-> Maybe Text
-> Maybe [Text]
-> Maybe Text
-> Maybe PostAccountsRequestBodyIndividual'
-> Maybe PostAccountsRequestBodyMetadata'Variants
-> Maybe PostAccountsRequestBodySettings'
-> Maybe PostAccountsRequestBodyTosAcceptance'
-> Maybe PostAccountsRequestBodyType'
-> PostAccountsRequestBody
PostAccountsRequestBody
    { postAccountsRequestBodyAccountToken :: Maybe Text
postAccountsRequestBodyAccountToken = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsRequestBodyBankAccount :: Maybe PostAccountsRequestBodyBankAccount'Variants
postAccountsRequestBodyBankAccount = Maybe PostAccountsRequestBodyBankAccount'Variants
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsRequestBodyBusinessProfile :: Maybe PostAccountsRequestBodyBusinessProfile'
postAccountsRequestBodyBusinessProfile = Maybe PostAccountsRequestBodyBusinessProfile'
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsRequestBodyBusinessType :: Maybe PostAccountsRequestBodyBusinessType'
postAccountsRequestBodyBusinessType = Maybe PostAccountsRequestBodyBusinessType'
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsRequestBodyCapabilities :: Maybe PostAccountsRequestBodyCapabilities'
postAccountsRequestBodyCapabilities = Maybe PostAccountsRequestBodyCapabilities'
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsRequestBodyCompany :: Maybe PostAccountsRequestBodyCompany'
postAccountsRequestBodyCompany = Maybe PostAccountsRequestBodyCompany'
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsRequestBodyCountry :: Maybe Text
postAccountsRequestBodyCountry = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsRequestBodyDefaultCurrency :: Maybe Text
postAccountsRequestBodyDefaultCurrency = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsRequestBodyDocuments :: Maybe PostAccountsRequestBodyDocuments'
postAccountsRequestBodyDocuments = Maybe PostAccountsRequestBodyDocuments'
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsRequestBodyEmail :: Maybe Text
postAccountsRequestBodyEmail = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsRequestBodyExpand :: Maybe [Text]
postAccountsRequestBodyExpand = Maybe [Text]
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsRequestBodyExternalAccount :: Maybe Text
postAccountsRequestBodyExternalAccount = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsRequestBodyIndividual :: Maybe PostAccountsRequestBodyIndividual'
postAccountsRequestBodyIndividual = Maybe PostAccountsRequestBodyIndividual'
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsRequestBodyMetadata :: Maybe PostAccountsRequestBodyMetadata'Variants
postAccountsRequestBodyMetadata = Maybe PostAccountsRequestBodyMetadata'Variants
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsRequestBodySettings :: Maybe PostAccountsRequestBodySettings'
postAccountsRequestBodySettings = Maybe PostAccountsRequestBodySettings'
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsRequestBodyTosAcceptance :: Maybe PostAccountsRequestBodyTosAcceptance'
postAccountsRequestBodyTosAcceptance = Maybe PostAccountsRequestBodyTosAcceptance'
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsRequestBodyType :: Maybe PostAccountsRequestBodyType'
postAccountsRequestBodyType = Maybe PostAccountsRequestBodyType'
forall a. Maybe a
GHC.Maybe.Nothing
    }

-- | Defines the object schema located at @paths.\/v1\/accounts.POST.requestBody.content.application\/x-www-form-urlencoded.schema.properties.bank_account.anyOf@ in the specification.
data PostAccountsRequestBodyBankAccount'OneOf1 = PostAccountsRequestBodyBankAccount'OneOf1
  { -- | account_holder_name
    --
    -- Constraints:
    --
    -- * Maximum length of 5000
    PostAccountsRequestBodyBankAccount'OneOf1 -> Maybe Text
postAccountsRequestBodyBankAccount'OneOf1AccountHolderName :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | account_holder_type
    --
    -- Constraints:
    --
    -- * Maximum length of 5000
    PostAccountsRequestBodyBankAccount'OneOf1
-> Maybe
     PostAccountsRequestBodyBankAccount'OneOf1AccountHolderType'
postAccountsRequestBodyBankAccount'OneOf1AccountHolderType :: (GHC.Maybe.Maybe PostAccountsRequestBodyBankAccount'OneOf1AccountHolderType'),
    -- | account_number
    --
    -- Constraints:
    --
    -- * Maximum length of 5000
    PostAccountsRequestBodyBankAccount'OneOf1 -> Text
postAccountsRequestBodyBankAccount'OneOf1AccountNumber :: Data.Text.Internal.Text,
    -- | country
    --
    -- Constraints:
    --
    -- * Maximum length of 5000
    PostAccountsRequestBodyBankAccount'OneOf1 -> Text
postAccountsRequestBodyBankAccount'OneOf1Country :: Data.Text.Internal.Text,
    -- | currency
    PostAccountsRequestBodyBankAccount'OneOf1 -> Maybe Text
postAccountsRequestBodyBankAccount'OneOf1Currency :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | object
    --
    -- Constraints:
    --
    -- * Maximum length of 5000
    PostAccountsRequestBodyBankAccount'OneOf1
-> Maybe PostAccountsRequestBodyBankAccount'OneOf1Object'
postAccountsRequestBodyBankAccount'OneOf1Object :: (GHC.Maybe.Maybe PostAccountsRequestBodyBankAccount'OneOf1Object'),
    -- | routing_number
    --
    -- Constraints:
    --
    -- * Maximum length of 5000
    PostAccountsRequestBodyBankAccount'OneOf1 -> Maybe Text
postAccountsRequestBodyBankAccount'OneOf1RoutingNumber :: (GHC.Maybe.Maybe Data.Text.Internal.Text)
  }
  deriving
    ( Int -> PostAccountsRequestBodyBankAccount'OneOf1 -> ShowS
[PostAccountsRequestBodyBankAccount'OneOf1] -> ShowS
PostAccountsRequestBodyBankAccount'OneOf1 -> String
(Int -> PostAccountsRequestBodyBankAccount'OneOf1 -> ShowS)
-> (PostAccountsRequestBodyBankAccount'OneOf1 -> String)
-> ([PostAccountsRequestBodyBankAccount'OneOf1] -> ShowS)
-> Show PostAccountsRequestBodyBankAccount'OneOf1
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PostAccountsRequestBodyBankAccount'OneOf1] -> ShowS
$cshowList :: [PostAccountsRequestBodyBankAccount'OneOf1] -> ShowS
show :: PostAccountsRequestBodyBankAccount'OneOf1 -> String
$cshow :: PostAccountsRequestBodyBankAccount'OneOf1 -> String
showsPrec :: Int -> PostAccountsRequestBodyBankAccount'OneOf1 -> ShowS
$cshowsPrec :: Int -> PostAccountsRequestBodyBankAccount'OneOf1 -> ShowS
GHC.Show.Show,
      PostAccountsRequestBodyBankAccount'OneOf1
-> PostAccountsRequestBodyBankAccount'OneOf1 -> Bool
(PostAccountsRequestBodyBankAccount'OneOf1
 -> PostAccountsRequestBodyBankAccount'OneOf1 -> Bool)
-> (PostAccountsRequestBodyBankAccount'OneOf1
    -> PostAccountsRequestBodyBankAccount'OneOf1 -> Bool)
-> Eq PostAccountsRequestBodyBankAccount'OneOf1
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostAccountsRequestBodyBankAccount'OneOf1
-> PostAccountsRequestBodyBankAccount'OneOf1 -> Bool
$c/= :: PostAccountsRequestBodyBankAccount'OneOf1
-> PostAccountsRequestBodyBankAccount'OneOf1 -> Bool
== :: PostAccountsRequestBodyBankAccount'OneOf1
-> PostAccountsRequestBodyBankAccount'OneOf1 -> Bool
$c== :: PostAccountsRequestBodyBankAccount'OneOf1
-> PostAccountsRequestBodyBankAccount'OneOf1 -> Bool
GHC.Classes.Eq
    )

instance Data.Aeson.Types.ToJSON.ToJSON PostAccountsRequestBodyBankAccount'OneOf1 where
  toJSON :: PostAccountsRequestBodyBankAccount'OneOf1 -> Value
toJSON PostAccountsRequestBodyBankAccount'OneOf1
obj = [Pair] -> Value
Data.Aeson.Types.Internal.object (Text
"account_holder_name" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyBankAccount'OneOf1 -> Maybe Text
postAccountsRequestBodyBankAccount'OneOf1AccountHolderName PostAccountsRequestBodyBankAccount'OneOf1
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"account_holder_type" Text
-> Maybe
     PostAccountsRequestBodyBankAccount'OneOf1AccountHolderType'
-> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyBankAccount'OneOf1
-> Maybe
     PostAccountsRequestBodyBankAccount'OneOf1AccountHolderType'
postAccountsRequestBodyBankAccount'OneOf1AccountHolderType PostAccountsRequestBodyBankAccount'OneOf1
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"account_number" Text -> Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyBankAccount'OneOf1 -> Text
postAccountsRequestBodyBankAccount'OneOf1AccountNumber PostAccountsRequestBodyBankAccount'OneOf1
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"country" Text -> Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyBankAccount'OneOf1 -> Text
postAccountsRequestBodyBankAccount'OneOf1Country PostAccountsRequestBodyBankAccount'OneOf1
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"currency" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyBankAccount'OneOf1 -> Maybe Text
postAccountsRequestBodyBankAccount'OneOf1Currency PostAccountsRequestBodyBankAccount'OneOf1
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"object" Text
-> Maybe PostAccountsRequestBodyBankAccount'OneOf1Object' -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyBankAccount'OneOf1
-> Maybe PostAccountsRequestBodyBankAccount'OneOf1Object'
postAccountsRequestBodyBankAccount'OneOf1Object PostAccountsRequestBodyBankAccount'OneOf1
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"routing_number" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyBankAccount'OneOf1 -> Maybe Text
postAccountsRequestBodyBankAccount'OneOf1RoutingNumber PostAccountsRequestBodyBankAccount'OneOf1
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: [Pair]
forall a. Monoid a => a
GHC.Base.mempty)
  toEncoding :: PostAccountsRequestBodyBankAccount'OneOf1 -> Encoding
toEncoding PostAccountsRequestBodyBankAccount'OneOf1
obj = Series -> Encoding
Data.Aeson.Encoding.Internal.pairs ((Text
"account_holder_name" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyBankAccount'OneOf1 -> Maybe Text
postAccountsRequestBodyBankAccount'OneOf1AccountHolderName PostAccountsRequestBodyBankAccount'OneOf1
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"account_holder_type" Text
-> Maybe
     PostAccountsRequestBodyBankAccount'OneOf1AccountHolderType'
-> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyBankAccount'OneOf1
-> Maybe
     PostAccountsRequestBodyBankAccount'OneOf1AccountHolderType'
postAccountsRequestBodyBankAccount'OneOf1AccountHolderType PostAccountsRequestBodyBankAccount'OneOf1
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"account_number" Text -> Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyBankAccount'OneOf1 -> Text
postAccountsRequestBodyBankAccount'OneOf1AccountNumber PostAccountsRequestBodyBankAccount'OneOf1
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"country" Text -> Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyBankAccount'OneOf1 -> Text
postAccountsRequestBodyBankAccount'OneOf1Country PostAccountsRequestBodyBankAccount'OneOf1
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"currency" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyBankAccount'OneOf1 -> Maybe Text
postAccountsRequestBodyBankAccount'OneOf1Currency PostAccountsRequestBodyBankAccount'OneOf1
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"object" Text
-> Maybe PostAccountsRequestBodyBankAccount'OneOf1Object' -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyBankAccount'OneOf1
-> Maybe PostAccountsRequestBodyBankAccount'OneOf1Object'
postAccountsRequestBodyBankAccount'OneOf1Object PostAccountsRequestBodyBankAccount'OneOf1
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> (Text
"routing_number" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyBankAccount'OneOf1 -> Maybe Text
postAccountsRequestBodyBankAccount'OneOf1RoutingNumber PostAccountsRequestBodyBankAccount'OneOf1
obj)))))))

instance Data.Aeson.Types.FromJSON.FromJSON PostAccountsRequestBodyBankAccount'OneOf1 where
  parseJSON :: Value -> Parser PostAccountsRequestBodyBankAccount'OneOf1
parseJSON = String
-> (Object -> Parser PostAccountsRequestBodyBankAccount'OneOf1)
-> Value
-> Parser PostAccountsRequestBodyBankAccount'OneOf1
forall a. String -> (Object -> Parser a) -> Value -> Parser a
Data.Aeson.Types.FromJSON.withObject String
"PostAccountsRequestBodyBankAccount'OneOf1" (\Object
obj -> (((((((Maybe Text
 -> Maybe
      PostAccountsRequestBodyBankAccount'OneOf1AccountHolderType'
 -> Text
 -> Text
 -> Maybe Text
 -> Maybe PostAccountsRequestBodyBankAccount'OneOf1Object'
 -> Maybe Text
 -> PostAccountsRequestBodyBankAccount'OneOf1)
-> Parser
     (Maybe Text
      -> Maybe
           PostAccountsRequestBodyBankAccount'OneOf1AccountHolderType'
      -> Text
      -> Text
      -> Maybe Text
      -> Maybe PostAccountsRequestBodyBankAccount'OneOf1Object'
      -> Maybe Text
      -> PostAccountsRequestBodyBankAccount'OneOf1)
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure Maybe Text
-> Maybe
     PostAccountsRequestBodyBankAccount'OneOf1AccountHolderType'
-> Text
-> Text
-> Maybe Text
-> Maybe PostAccountsRequestBodyBankAccount'OneOf1Object'
-> Maybe Text
-> PostAccountsRequestBodyBankAccount'OneOf1
PostAccountsRequestBodyBankAccount'OneOf1 Parser
  (Maybe Text
   -> Maybe
        PostAccountsRequestBodyBankAccount'OneOf1AccountHolderType'
   -> Text
   -> Text
   -> Maybe Text
   -> Maybe PostAccountsRequestBodyBankAccount'OneOf1Object'
   -> Maybe Text
   -> PostAccountsRequestBodyBankAccount'OneOf1)
-> Parser (Maybe Text)
-> Parser
     (Maybe PostAccountsRequestBodyBankAccount'OneOf1AccountHolderType'
      -> Text
      -> Text
      -> Maybe Text
      -> Maybe PostAccountsRequestBodyBankAccount'OneOf1Object'
      -> Maybe Text
      -> PostAccountsRequestBodyBankAccount'OneOf1)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"account_holder_name")) Parser
  (Maybe PostAccountsRequestBodyBankAccount'OneOf1AccountHolderType'
   -> Text
   -> Text
   -> Maybe Text
   -> Maybe PostAccountsRequestBodyBankAccount'OneOf1Object'
   -> Maybe Text
   -> PostAccountsRequestBodyBankAccount'OneOf1)
-> Parser
     (Maybe PostAccountsRequestBodyBankAccount'OneOf1AccountHolderType')
-> Parser
     (Text
      -> Text
      -> Maybe Text
      -> Maybe PostAccountsRequestBodyBankAccount'OneOf1Object'
      -> Maybe Text
      -> PostAccountsRequestBodyBankAccount'OneOf1)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object
-> Text
-> Parser
     (Maybe PostAccountsRequestBodyBankAccount'OneOf1AccountHolderType')
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"account_holder_type")) Parser
  (Text
   -> Text
   -> Maybe Text
   -> Maybe PostAccountsRequestBodyBankAccount'OneOf1Object'
   -> Maybe Text
   -> PostAccountsRequestBodyBankAccount'OneOf1)
-> Parser Text
-> Parser
     (Text
      -> Maybe Text
      -> Maybe PostAccountsRequestBodyBankAccount'OneOf1Object'
      -> Maybe Text
      -> PostAccountsRequestBodyBankAccount'OneOf1)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser Text
forall a. FromJSON a => Object -> Text -> Parser a
Data.Aeson.Types.FromJSON..: Text
"account_number")) Parser
  (Text
   -> Maybe Text
   -> Maybe PostAccountsRequestBodyBankAccount'OneOf1Object'
   -> Maybe Text
   -> PostAccountsRequestBodyBankAccount'OneOf1)
-> Parser Text
-> Parser
     (Maybe Text
      -> Maybe PostAccountsRequestBodyBankAccount'OneOf1Object'
      -> Maybe Text
      -> PostAccountsRequestBodyBankAccount'OneOf1)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser Text
forall a. FromJSON a => Object -> Text -> Parser a
Data.Aeson.Types.FromJSON..: Text
"country")) Parser
  (Maybe Text
   -> Maybe PostAccountsRequestBodyBankAccount'OneOf1Object'
   -> Maybe Text
   -> PostAccountsRequestBodyBankAccount'OneOf1)
-> Parser (Maybe Text)
-> Parser
     (Maybe PostAccountsRequestBodyBankAccount'OneOf1Object'
      -> Maybe Text -> PostAccountsRequestBodyBankAccount'OneOf1)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"currency")) Parser
  (Maybe PostAccountsRequestBodyBankAccount'OneOf1Object'
   -> Maybe Text -> PostAccountsRequestBodyBankAccount'OneOf1)
-> Parser (Maybe PostAccountsRequestBodyBankAccount'OneOf1Object')
-> Parser (Maybe Text -> PostAccountsRequestBodyBankAccount'OneOf1)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object
-> Text
-> Parser (Maybe PostAccountsRequestBodyBankAccount'OneOf1Object')
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"object")) Parser (Maybe Text -> PostAccountsRequestBodyBankAccount'OneOf1)
-> Parser (Maybe Text)
-> Parser PostAccountsRequestBodyBankAccount'OneOf1
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"routing_number"))

-- | Create a new 'PostAccountsRequestBodyBankAccount'OneOf1' with all required fields.
mkPostAccountsRequestBodyBankAccount'OneOf1 ::
  -- | 'postAccountsRequestBodyBankAccount'OneOf1AccountNumber'
  Data.Text.Internal.Text ->
  -- | 'postAccountsRequestBodyBankAccount'OneOf1Country'
  Data.Text.Internal.Text ->
  PostAccountsRequestBodyBankAccount'OneOf1
mkPostAccountsRequestBodyBankAccount'OneOf1 :: Text -> Text -> PostAccountsRequestBodyBankAccount'OneOf1
mkPostAccountsRequestBodyBankAccount'OneOf1 Text
postAccountsRequestBodyBankAccount'OneOf1AccountNumber Text
postAccountsRequestBodyBankAccount'OneOf1Country =
  PostAccountsRequestBodyBankAccount'OneOf1 :: Maybe Text
-> Maybe
     PostAccountsRequestBodyBankAccount'OneOf1AccountHolderType'
-> Text
-> Text
-> Maybe Text
-> Maybe PostAccountsRequestBodyBankAccount'OneOf1Object'
-> Maybe Text
-> PostAccountsRequestBodyBankAccount'OneOf1
PostAccountsRequestBodyBankAccount'OneOf1
    { postAccountsRequestBodyBankAccount'OneOf1AccountHolderName :: Maybe Text
postAccountsRequestBodyBankAccount'OneOf1AccountHolderName = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsRequestBodyBankAccount'OneOf1AccountHolderType :: Maybe PostAccountsRequestBodyBankAccount'OneOf1AccountHolderType'
postAccountsRequestBodyBankAccount'OneOf1AccountHolderType = Maybe PostAccountsRequestBodyBankAccount'OneOf1AccountHolderType'
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsRequestBodyBankAccount'OneOf1AccountNumber :: Text
postAccountsRequestBodyBankAccount'OneOf1AccountNumber = Text
postAccountsRequestBodyBankAccount'OneOf1AccountNumber,
      postAccountsRequestBodyBankAccount'OneOf1Country :: Text
postAccountsRequestBodyBankAccount'OneOf1Country = Text
postAccountsRequestBodyBankAccount'OneOf1Country,
      postAccountsRequestBodyBankAccount'OneOf1Currency :: Maybe Text
postAccountsRequestBodyBankAccount'OneOf1Currency = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsRequestBodyBankAccount'OneOf1Object :: Maybe PostAccountsRequestBodyBankAccount'OneOf1Object'
postAccountsRequestBodyBankAccount'OneOf1Object = Maybe PostAccountsRequestBodyBankAccount'OneOf1Object'
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsRequestBodyBankAccount'OneOf1RoutingNumber :: Maybe Text
postAccountsRequestBodyBankAccount'OneOf1RoutingNumber = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing
    }

-- | Defines the enum schema located at @paths.\/v1\/accounts.POST.requestBody.content.application\/x-www-form-urlencoded.schema.properties.bank_account.anyOf.properties.account_holder_type@ in the specification.
data PostAccountsRequestBodyBankAccount'OneOf1AccountHolderType'
  = -- | This case is used if the value encountered during decoding does not match any of the provided cases in the specification.
    PostAccountsRequestBodyBankAccount'OneOf1AccountHolderType'Other Data.Aeson.Types.Internal.Value
  | -- | This constructor can be used to send values to the server which are not present in the specification yet.
    PostAccountsRequestBodyBankAccount'OneOf1AccountHolderType'Typed Data.Text.Internal.Text
  | -- | Represents the JSON value @"company"@
    PostAccountsRequestBodyBankAccount'OneOf1AccountHolderType'EnumCompany
  | -- | Represents the JSON value @"individual"@
    PostAccountsRequestBodyBankAccount'OneOf1AccountHolderType'EnumIndividual
  deriving (Int
-> PostAccountsRequestBodyBankAccount'OneOf1AccountHolderType'
-> ShowS
[PostAccountsRequestBodyBankAccount'OneOf1AccountHolderType']
-> ShowS
PostAccountsRequestBodyBankAccount'OneOf1AccountHolderType'
-> String
(Int
 -> PostAccountsRequestBodyBankAccount'OneOf1AccountHolderType'
 -> ShowS)
-> (PostAccountsRequestBodyBankAccount'OneOf1AccountHolderType'
    -> String)
-> ([PostAccountsRequestBodyBankAccount'OneOf1AccountHolderType']
    -> ShowS)
-> Show PostAccountsRequestBodyBankAccount'OneOf1AccountHolderType'
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PostAccountsRequestBodyBankAccount'OneOf1AccountHolderType']
-> ShowS
$cshowList :: [PostAccountsRequestBodyBankAccount'OneOf1AccountHolderType']
-> ShowS
show :: PostAccountsRequestBodyBankAccount'OneOf1AccountHolderType'
-> String
$cshow :: PostAccountsRequestBodyBankAccount'OneOf1AccountHolderType'
-> String
showsPrec :: Int
-> PostAccountsRequestBodyBankAccount'OneOf1AccountHolderType'
-> ShowS
$cshowsPrec :: Int
-> PostAccountsRequestBodyBankAccount'OneOf1AccountHolderType'
-> ShowS
GHC.Show.Show, PostAccountsRequestBodyBankAccount'OneOf1AccountHolderType'
-> PostAccountsRequestBodyBankAccount'OneOf1AccountHolderType'
-> Bool
(PostAccountsRequestBodyBankAccount'OneOf1AccountHolderType'
 -> PostAccountsRequestBodyBankAccount'OneOf1AccountHolderType'
 -> Bool)
-> (PostAccountsRequestBodyBankAccount'OneOf1AccountHolderType'
    -> PostAccountsRequestBodyBankAccount'OneOf1AccountHolderType'
    -> Bool)
-> Eq PostAccountsRequestBodyBankAccount'OneOf1AccountHolderType'
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostAccountsRequestBodyBankAccount'OneOf1AccountHolderType'
-> PostAccountsRequestBodyBankAccount'OneOf1AccountHolderType'
-> Bool
$c/= :: PostAccountsRequestBodyBankAccount'OneOf1AccountHolderType'
-> PostAccountsRequestBodyBankAccount'OneOf1AccountHolderType'
-> Bool
== :: PostAccountsRequestBodyBankAccount'OneOf1AccountHolderType'
-> PostAccountsRequestBodyBankAccount'OneOf1AccountHolderType'
-> Bool
$c== :: PostAccountsRequestBodyBankAccount'OneOf1AccountHolderType'
-> PostAccountsRequestBodyBankAccount'OneOf1AccountHolderType'
-> Bool
GHC.Classes.Eq)

instance Data.Aeson.Types.ToJSON.ToJSON PostAccountsRequestBodyBankAccount'OneOf1AccountHolderType' where
  toJSON :: PostAccountsRequestBodyBankAccount'OneOf1AccountHolderType'
-> Value
toJSON (PostAccountsRequestBodyBankAccount'OneOf1AccountHolderType'Other Value
val) = Value
val
  toJSON (PostAccountsRequestBodyBankAccount'OneOf1AccountHolderType'Typed Text
val) = Text -> Value
forall a. ToJSON a => a -> Value
Data.Aeson.Types.ToJSON.toJSON Text
val
  toJSON (PostAccountsRequestBodyBankAccount'OneOf1AccountHolderType'
PostAccountsRequestBodyBankAccount'OneOf1AccountHolderType'EnumCompany) = Value
"company"
  toJSON (PostAccountsRequestBodyBankAccount'OneOf1AccountHolderType'
PostAccountsRequestBodyBankAccount'OneOf1AccountHolderType'EnumIndividual) = Value
"individual"

instance Data.Aeson.Types.FromJSON.FromJSON PostAccountsRequestBodyBankAccount'OneOf1AccountHolderType' where
  parseJSON :: Value
-> Parser
     PostAccountsRequestBodyBankAccount'OneOf1AccountHolderType'
parseJSON Value
val =
    PostAccountsRequestBodyBankAccount'OneOf1AccountHolderType'
-> Parser
     PostAccountsRequestBodyBankAccount'OneOf1AccountHolderType'
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure
      ( if
            | Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"company" -> PostAccountsRequestBodyBankAccount'OneOf1AccountHolderType'
PostAccountsRequestBodyBankAccount'OneOf1AccountHolderType'EnumCompany
            | Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"individual" -> PostAccountsRequestBodyBankAccount'OneOf1AccountHolderType'
PostAccountsRequestBodyBankAccount'OneOf1AccountHolderType'EnumIndividual
            | Bool
GHC.Base.otherwise -> Value
-> PostAccountsRequestBodyBankAccount'OneOf1AccountHolderType'
PostAccountsRequestBodyBankAccount'OneOf1AccountHolderType'Other Value
val
      )

-- | Defines the enum schema located at @paths.\/v1\/accounts.POST.requestBody.content.application\/x-www-form-urlencoded.schema.properties.bank_account.anyOf.properties.object@ in the specification.
data PostAccountsRequestBodyBankAccount'OneOf1Object'
  = -- | This case is used if the value encountered during decoding does not match any of the provided cases in the specification.
    PostAccountsRequestBodyBankAccount'OneOf1Object'Other Data.Aeson.Types.Internal.Value
  | -- | This constructor can be used to send values to the server which are not present in the specification yet.
    PostAccountsRequestBodyBankAccount'OneOf1Object'Typed Data.Text.Internal.Text
  | -- | Represents the JSON value @"bank_account"@
    PostAccountsRequestBodyBankAccount'OneOf1Object'EnumBankAccount
  deriving (Int -> PostAccountsRequestBodyBankAccount'OneOf1Object' -> ShowS
[PostAccountsRequestBodyBankAccount'OneOf1Object'] -> ShowS
PostAccountsRequestBodyBankAccount'OneOf1Object' -> String
(Int -> PostAccountsRequestBodyBankAccount'OneOf1Object' -> ShowS)
-> (PostAccountsRequestBodyBankAccount'OneOf1Object' -> String)
-> ([PostAccountsRequestBodyBankAccount'OneOf1Object'] -> ShowS)
-> Show PostAccountsRequestBodyBankAccount'OneOf1Object'
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PostAccountsRequestBodyBankAccount'OneOf1Object'] -> ShowS
$cshowList :: [PostAccountsRequestBodyBankAccount'OneOf1Object'] -> ShowS
show :: PostAccountsRequestBodyBankAccount'OneOf1Object' -> String
$cshow :: PostAccountsRequestBodyBankAccount'OneOf1Object' -> String
showsPrec :: Int -> PostAccountsRequestBodyBankAccount'OneOf1Object' -> ShowS
$cshowsPrec :: Int -> PostAccountsRequestBodyBankAccount'OneOf1Object' -> ShowS
GHC.Show.Show, PostAccountsRequestBodyBankAccount'OneOf1Object'
-> PostAccountsRequestBodyBankAccount'OneOf1Object' -> Bool
(PostAccountsRequestBodyBankAccount'OneOf1Object'
 -> PostAccountsRequestBodyBankAccount'OneOf1Object' -> Bool)
-> (PostAccountsRequestBodyBankAccount'OneOf1Object'
    -> PostAccountsRequestBodyBankAccount'OneOf1Object' -> Bool)
-> Eq PostAccountsRequestBodyBankAccount'OneOf1Object'
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostAccountsRequestBodyBankAccount'OneOf1Object'
-> PostAccountsRequestBodyBankAccount'OneOf1Object' -> Bool
$c/= :: PostAccountsRequestBodyBankAccount'OneOf1Object'
-> PostAccountsRequestBodyBankAccount'OneOf1Object' -> Bool
== :: PostAccountsRequestBodyBankAccount'OneOf1Object'
-> PostAccountsRequestBodyBankAccount'OneOf1Object' -> Bool
$c== :: PostAccountsRequestBodyBankAccount'OneOf1Object'
-> PostAccountsRequestBodyBankAccount'OneOf1Object' -> Bool
GHC.Classes.Eq)

instance Data.Aeson.Types.ToJSON.ToJSON PostAccountsRequestBodyBankAccount'OneOf1Object' where
  toJSON :: PostAccountsRequestBodyBankAccount'OneOf1Object' -> Value
toJSON (PostAccountsRequestBodyBankAccount'OneOf1Object'Other Value
val) = Value
val
  toJSON (PostAccountsRequestBodyBankAccount'OneOf1Object'Typed Text
val) = Text -> Value
forall a. ToJSON a => a -> Value
Data.Aeson.Types.ToJSON.toJSON Text
val
  toJSON (PostAccountsRequestBodyBankAccount'OneOf1Object'
PostAccountsRequestBodyBankAccount'OneOf1Object'EnumBankAccount) = Value
"bank_account"

instance Data.Aeson.Types.FromJSON.FromJSON PostAccountsRequestBodyBankAccount'OneOf1Object' where
  parseJSON :: Value -> Parser PostAccountsRequestBodyBankAccount'OneOf1Object'
parseJSON Value
val =
    PostAccountsRequestBodyBankAccount'OneOf1Object'
-> Parser PostAccountsRequestBodyBankAccount'OneOf1Object'
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure
      ( if
            | Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"bank_account" -> PostAccountsRequestBodyBankAccount'OneOf1Object'
PostAccountsRequestBodyBankAccount'OneOf1Object'EnumBankAccount
            | Bool
GHC.Base.otherwise -> Value -> PostAccountsRequestBodyBankAccount'OneOf1Object'
PostAccountsRequestBodyBankAccount'OneOf1Object'Other Value
val
      )

-- | Defines the oneOf schema located at @paths.\/v1\/accounts.POST.requestBody.content.application\/x-www-form-urlencoded.schema.properties.bank_account.anyOf@ in the specification.
--
-- Either a token, like the ones returned by [Stripe.js](https:\/\/stripe.com\/docs\/stripe.js), or a dictionary containing a user\'s bank account details.
data PostAccountsRequestBodyBankAccount'Variants
  = PostAccountsRequestBodyBankAccount'PostAccountsRequestBodyBankAccount'OneOf1 PostAccountsRequestBodyBankAccount'OneOf1
  | PostAccountsRequestBodyBankAccount'Text Data.Text.Internal.Text
  deriving (Int -> PostAccountsRequestBodyBankAccount'Variants -> ShowS
[PostAccountsRequestBodyBankAccount'Variants] -> ShowS
PostAccountsRequestBodyBankAccount'Variants -> String
(Int -> PostAccountsRequestBodyBankAccount'Variants -> ShowS)
-> (PostAccountsRequestBodyBankAccount'Variants -> String)
-> ([PostAccountsRequestBodyBankAccount'Variants] -> ShowS)
-> Show PostAccountsRequestBodyBankAccount'Variants
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PostAccountsRequestBodyBankAccount'Variants] -> ShowS
$cshowList :: [PostAccountsRequestBodyBankAccount'Variants] -> ShowS
show :: PostAccountsRequestBodyBankAccount'Variants -> String
$cshow :: PostAccountsRequestBodyBankAccount'Variants -> String
showsPrec :: Int -> PostAccountsRequestBodyBankAccount'Variants -> ShowS
$cshowsPrec :: Int -> PostAccountsRequestBodyBankAccount'Variants -> ShowS
GHC.Show.Show, PostAccountsRequestBodyBankAccount'Variants
-> PostAccountsRequestBodyBankAccount'Variants -> Bool
(PostAccountsRequestBodyBankAccount'Variants
 -> PostAccountsRequestBodyBankAccount'Variants -> Bool)
-> (PostAccountsRequestBodyBankAccount'Variants
    -> PostAccountsRequestBodyBankAccount'Variants -> Bool)
-> Eq PostAccountsRequestBodyBankAccount'Variants
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostAccountsRequestBodyBankAccount'Variants
-> PostAccountsRequestBodyBankAccount'Variants -> Bool
$c/= :: PostAccountsRequestBodyBankAccount'Variants
-> PostAccountsRequestBodyBankAccount'Variants -> Bool
== :: PostAccountsRequestBodyBankAccount'Variants
-> PostAccountsRequestBodyBankAccount'Variants -> Bool
$c== :: PostAccountsRequestBodyBankAccount'Variants
-> PostAccountsRequestBodyBankAccount'Variants -> Bool
GHC.Classes.Eq)

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

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

-- | Defines the object schema located at @paths.\/v1\/accounts.POST.requestBody.content.application\/x-www-form-urlencoded.schema.properties.business_profile@ in the specification.
--
-- Business information about the account.
data PostAccountsRequestBodyBusinessProfile' = PostAccountsRequestBodyBusinessProfile'
  { -- | mcc
    --
    -- Constraints:
    --
    -- * Maximum length of 4
    PostAccountsRequestBodyBusinessProfile' -> Maybe Text
postAccountsRequestBodyBusinessProfile'Mcc :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | name
    --
    -- Constraints:
    --
    -- * Maximum length of 5000
    PostAccountsRequestBodyBusinessProfile' -> Maybe Text
postAccountsRequestBodyBusinessProfile'Name :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | product_description
    --
    -- Constraints:
    --
    -- * Maximum length of 40000
    PostAccountsRequestBodyBusinessProfile' -> Maybe Text
postAccountsRequestBodyBusinessProfile'ProductDescription :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | support_address
    PostAccountsRequestBodyBusinessProfile'
-> Maybe PostAccountsRequestBodyBusinessProfile'SupportAddress'
postAccountsRequestBodyBusinessProfile'SupportAddress :: (GHC.Maybe.Maybe PostAccountsRequestBodyBusinessProfile'SupportAddress'),
    -- | support_email
    PostAccountsRequestBodyBusinessProfile' -> Maybe Text
postAccountsRequestBodyBusinessProfile'SupportEmail :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | support_phone
    --
    -- Constraints:
    --
    -- * Maximum length of 5000
    PostAccountsRequestBodyBusinessProfile' -> Maybe Text
postAccountsRequestBodyBusinessProfile'SupportPhone :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | support_url
    PostAccountsRequestBodyBusinessProfile'
-> Maybe PostAccountsRequestBodyBusinessProfile'SupportUrl'Variants
postAccountsRequestBodyBusinessProfile'SupportUrl :: (GHC.Maybe.Maybe PostAccountsRequestBodyBusinessProfile'SupportUrl'Variants),
    -- | url
    --
    -- Constraints:
    --
    -- * Maximum length of 5000
    PostAccountsRequestBodyBusinessProfile' -> Maybe Text
postAccountsRequestBodyBusinessProfile'Url :: (GHC.Maybe.Maybe Data.Text.Internal.Text)
  }
  deriving
    ( Int -> PostAccountsRequestBodyBusinessProfile' -> ShowS
[PostAccountsRequestBodyBusinessProfile'] -> ShowS
PostAccountsRequestBodyBusinessProfile' -> String
(Int -> PostAccountsRequestBodyBusinessProfile' -> ShowS)
-> (PostAccountsRequestBodyBusinessProfile' -> String)
-> ([PostAccountsRequestBodyBusinessProfile'] -> ShowS)
-> Show PostAccountsRequestBodyBusinessProfile'
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PostAccountsRequestBodyBusinessProfile'] -> ShowS
$cshowList :: [PostAccountsRequestBodyBusinessProfile'] -> ShowS
show :: PostAccountsRequestBodyBusinessProfile' -> String
$cshow :: PostAccountsRequestBodyBusinessProfile' -> String
showsPrec :: Int -> PostAccountsRequestBodyBusinessProfile' -> ShowS
$cshowsPrec :: Int -> PostAccountsRequestBodyBusinessProfile' -> ShowS
GHC.Show.Show,
      PostAccountsRequestBodyBusinessProfile'
-> PostAccountsRequestBodyBusinessProfile' -> Bool
(PostAccountsRequestBodyBusinessProfile'
 -> PostAccountsRequestBodyBusinessProfile' -> Bool)
-> (PostAccountsRequestBodyBusinessProfile'
    -> PostAccountsRequestBodyBusinessProfile' -> Bool)
-> Eq PostAccountsRequestBodyBusinessProfile'
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostAccountsRequestBodyBusinessProfile'
-> PostAccountsRequestBodyBusinessProfile' -> Bool
$c/= :: PostAccountsRequestBodyBusinessProfile'
-> PostAccountsRequestBodyBusinessProfile' -> Bool
== :: PostAccountsRequestBodyBusinessProfile'
-> PostAccountsRequestBodyBusinessProfile' -> Bool
$c== :: PostAccountsRequestBodyBusinessProfile'
-> PostAccountsRequestBodyBusinessProfile' -> Bool
GHC.Classes.Eq
    )

instance Data.Aeson.Types.ToJSON.ToJSON PostAccountsRequestBodyBusinessProfile' where
  toJSON :: PostAccountsRequestBodyBusinessProfile' -> Value
toJSON PostAccountsRequestBodyBusinessProfile'
obj = [Pair] -> Value
Data.Aeson.Types.Internal.object (Text
"mcc" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyBusinessProfile' -> Maybe Text
postAccountsRequestBodyBusinessProfile'Mcc PostAccountsRequestBodyBusinessProfile'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"name" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyBusinessProfile' -> Maybe Text
postAccountsRequestBodyBusinessProfile'Name PostAccountsRequestBodyBusinessProfile'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"product_description" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyBusinessProfile' -> Maybe Text
postAccountsRequestBodyBusinessProfile'ProductDescription PostAccountsRequestBodyBusinessProfile'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"support_address" Text
-> Maybe PostAccountsRequestBodyBusinessProfile'SupportAddress'
-> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyBusinessProfile'
-> Maybe PostAccountsRequestBodyBusinessProfile'SupportAddress'
postAccountsRequestBodyBusinessProfile'SupportAddress PostAccountsRequestBodyBusinessProfile'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"support_email" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyBusinessProfile' -> Maybe Text
postAccountsRequestBodyBusinessProfile'SupportEmail PostAccountsRequestBodyBusinessProfile'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"support_phone" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyBusinessProfile' -> Maybe Text
postAccountsRequestBodyBusinessProfile'SupportPhone PostAccountsRequestBodyBusinessProfile'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"support_url" Text
-> Maybe PostAccountsRequestBodyBusinessProfile'SupportUrl'Variants
-> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyBusinessProfile'
-> Maybe PostAccountsRequestBodyBusinessProfile'SupportUrl'Variants
postAccountsRequestBodyBusinessProfile'SupportUrl PostAccountsRequestBodyBusinessProfile'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"url" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyBusinessProfile' -> Maybe Text
postAccountsRequestBodyBusinessProfile'Url PostAccountsRequestBodyBusinessProfile'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: [Pair]
forall a. Monoid a => a
GHC.Base.mempty)
  toEncoding :: PostAccountsRequestBodyBusinessProfile' -> Encoding
toEncoding PostAccountsRequestBodyBusinessProfile'
obj = Series -> Encoding
Data.Aeson.Encoding.Internal.pairs ((Text
"mcc" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyBusinessProfile' -> Maybe Text
postAccountsRequestBodyBusinessProfile'Mcc PostAccountsRequestBodyBusinessProfile'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"name" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyBusinessProfile' -> Maybe Text
postAccountsRequestBodyBusinessProfile'Name PostAccountsRequestBodyBusinessProfile'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"product_description" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyBusinessProfile' -> Maybe Text
postAccountsRequestBodyBusinessProfile'ProductDescription PostAccountsRequestBodyBusinessProfile'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"support_address" Text
-> Maybe PostAccountsRequestBodyBusinessProfile'SupportAddress'
-> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyBusinessProfile'
-> Maybe PostAccountsRequestBodyBusinessProfile'SupportAddress'
postAccountsRequestBodyBusinessProfile'SupportAddress PostAccountsRequestBodyBusinessProfile'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"support_email" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyBusinessProfile' -> Maybe Text
postAccountsRequestBodyBusinessProfile'SupportEmail PostAccountsRequestBodyBusinessProfile'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"support_phone" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyBusinessProfile' -> Maybe Text
postAccountsRequestBodyBusinessProfile'SupportPhone PostAccountsRequestBodyBusinessProfile'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"support_url" Text
-> Maybe PostAccountsRequestBodyBusinessProfile'SupportUrl'Variants
-> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyBusinessProfile'
-> Maybe PostAccountsRequestBodyBusinessProfile'SupportUrl'Variants
postAccountsRequestBodyBusinessProfile'SupportUrl PostAccountsRequestBodyBusinessProfile'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> (Text
"url" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyBusinessProfile' -> Maybe Text
postAccountsRequestBodyBusinessProfile'Url PostAccountsRequestBodyBusinessProfile'
obj))))))))

instance Data.Aeson.Types.FromJSON.FromJSON PostAccountsRequestBodyBusinessProfile' where
  parseJSON :: Value -> Parser PostAccountsRequestBodyBusinessProfile'
parseJSON = String
-> (Object -> Parser PostAccountsRequestBodyBusinessProfile')
-> Value
-> Parser PostAccountsRequestBodyBusinessProfile'
forall a. String -> (Object -> Parser a) -> Value -> Parser a
Data.Aeson.Types.FromJSON.withObject String
"PostAccountsRequestBodyBusinessProfile'" (\Object
obj -> ((((((((Maybe Text
 -> Maybe Text
 -> Maybe Text
 -> Maybe PostAccountsRequestBodyBusinessProfile'SupportAddress'
 -> Maybe Text
 -> Maybe Text
 -> Maybe PostAccountsRequestBodyBusinessProfile'SupportUrl'Variants
 -> Maybe Text
 -> PostAccountsRequestBodyBusinessProfile')
-> Parser
     (Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe PostAccountsRequestBodyBusinessProfile'SupportAddress'
      -> Maybe Text
      -> Maybe Text
      -> Maybe PostAccountsRequestBodyBusinessProfile'SupportUrl'Variants
      -> Maybe Text
      -> PostAccountsRequestBodyBusinessProfile')
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostAccountsRequestBodyBusinessProfile'SupportAddress'
-> Maybe Text
-> Maybe Text
-> Maybe PostAccountsRequestBodyBusinessProfile'SupportUrl'Variants
-> Maybe Text
-> PostAccountsRequestBodyBusinessProfile'
PostAccountsRequestBodyBusinessProfile' Parser
  (Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe PostAccountsRequestBodyBusinessProfile'SupportAddress'
   -> Maybe Text
   -> Maybe Text
   -> Maybe PostAccountsRequestBodyBusinessProfile'SupportUrl'Variants
   -> Maybe Text
   -> PostAccountsRequestBodyBusinessProfile')
-> Parser (Maybe Text)
-> Parser
     (Maybe Text
      -> Maybe Text
      -> Maybe PostAccountsRequestBodyBusinessProfile'SupportAddress'
      -> Maybe Text
      -> Maybe Text
      -> Maybe PostAccountsRequestBodyBusinessProfile'SupportUrl'Variants
      -> Maybe Text
      -> PostAccountsRequestBodyBusinessProfile')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"mcc")) Parser
  (Maybe Text
   -> Maybe Text
   -> Maybe PostAccountsRequestBodyBusinessProfile'SupportAddress'
   -> Maybe Text
   -> Maybe Text
   -> Maybe PostAccountsRequestBodyBusinessProfile'SupportUrl'Variants
   -> Maybe Text
   -> PostAccountsRequestBodyBusinessProfile')
-> Parser (Maybe Text)
-> Parser
     (Maybe Text
      -> Maybe PostAccountsRequestBodyBusinessProfile'SupportAddress'
      -> Maybe Text
      -> Maybe Text
      -> Maybe PostAccountsRequestBodyBusinessProfile'SupportUrl'Variants
      -> Maybe Text
      -> PostAccountsRequestBodyBusinessProfile')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"name")) Parser
  (Maybe Text
   -> Maybe PostAccountsRequestBodyBusinessProfile'SupportAddress'
   -> Maybe Text
   -> Maybe Text
   -> Maybe PostAccountsRequestBodyBusinessProfile'SupportUrl'Variants
   -> Maybe Text
   -> PostAccountsRequestBodyBusinessProfile')
-> Parser (Maybe Text)
-> Parser
     (Maybe PostAccountsRequestBodyBusinessProfile'SupportAddress'
      -> Maybe Text
      -> Maybe Text
      -> Maybe PostAccountsRequestBodyBusinessProfile'SupportUrl'Variants
      -> Maybe Text
      -> PostAccountsRequestBodyBusinessProfile')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"product_description")) Parser
  (Maybe PostAccountsRequestBodyBusinessProfile'SupportAddress'
   -> Maybe Text
   -> Maybe Text
   -> Maybe PostAccountsRequestBodyBusinessProfile'SupportUrl'Variants
   -> Maybe Text
   -> PostAccountsRequestBodyBusinessProfile')
-> Parser
     (Maybe PostAccountsRequestBodyBusinessProfile'SupportAddress')
-> Parser
     (Maybe Text
      -> Maybe Text
      -> Maybe PostAccountsRequestBodyBusinessProfile'SupportUrl'Variants
      -> Maybe Text
      -> PostAccountsRequestBodyBusinessProfile')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object
-> Text
-> Parser
     (Maybe PostAccountsRequestBodyBusinessProfile'SupportAddress')
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"support_address")) Parser
  (Maybe Text
   -> Maybe Text
   -> Maybe PostAccountsRequestBodyBusinessProfile'SupportUrl'Variants
   -> Maybe Text
   -> PostAccountsRequestBodyBusinessProfile')
-> Parser (Maybe Text)
-> Parser
     (Maybe Text
      -> Maybe PostAccountsRequestBodyBusinessProfile'SupportUrl'Variants
      -> Maybe Text
      -> PostAccountsRequestBodyBusinessProfile')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"support_email")) Parser
  (Maybe Text
   -> Maybe PostAccountsRequestBodyBusinessProfile'SupportUrl'Variants
   -> Maybe Text
   -> PostAccountsRequestBodyBusinessProfile')
-> Parser (Maybe Text)
-> Parser
     (Maybe PostAccountsRequestBodyBusinessProfile'SupportUrl'Variants
      -> Maybe Text -> PostAccountsRequestBodyBusinessProfile')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"support_phone")) Parser
  (Maybe PostAccountsRequestBodyBusinessProfile'SupportUrl'Variants
   -> Maybe Text -> PostAccountsRequestBodyBusinessProfile')
-> Parser
     (Maybe PostAccountsRequestBodyBusinessProfile'SupportUrl'Variants)
-> Parser (Maybe Text -> PostAccountsRequestBodyBusinessProfile')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object
-> Text
-> Parser
     (Maybe PostAccountsRequestBodyBusinessProfile'SupportUrl'Variants)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"support_url")) Parser (Maybe Text -> PostAccountsRequestBodyBusinessProfile')
-> Parser (Maybe Text)
-> Parser PostAccountsRequestBodyBusinessProfile'
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"url"))

-- | Create a new 'PostAccountsRequestBodyBusinessProfile'' with all required fields.
mkPostAccountsRequestBodyBusinessProfile' :: PostAccountsRequestBodyBusinessProfile'
mkPostAccountsRequestBodyBusinessProfile' :: PostAccountsRequestBodyBusinessProfile'
mkPostAccountsRequestBodyBusinessProfile' =
  PostAccountsRequestBodyBusinessProfile' :: Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostAccountsRequestBodyBusinessProfile'SupportAddress'
-> Maybe Text
-> Maybe Text
-> Maybe PostAccountsRequestBodyBusinessProfile'SupportUrl'Variants
-> Maybe Text
-> PostAccountsRequestBodyBusinessProfile'
PostAccountsRequestBodyBusinessProfile'
    { postAccountsRequestBodyBusinessProfile'Mcc :: Maybe Text
postAccountsRequestBodyBusinessProfile'Mcc = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsRequestBodyBusinessProfile'Name :: Maybe Text
postAccountsRequestBodyBusinessProfile'Name = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsRequestBodyBusinessProfile'ProductDescription :: Maybe Text
postAccountsRequestBodyBusinessProfile'ProductDescription = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsRequestBodyBusinessProfile'SupportAddress :: Maybe PostAccountsRequestBodyBusinessProfile'SupportAddress'
postAccountsRequestBodyBusinessProfile'SupportAddress = Maybe PostAccountsRequestBodyBusinessProfile'SupportAddress'
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsRequestBodyBusinessProfile'SupportEmail :: Maybe Text
postAccountsRequestBodyBusinessProfile'SupportEmail = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsRequestBodyBusinessProfile'SupportPhone :: Maybe Text
postAccountsRequestBodyBusinessProfile'SupportPhone = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsRequestBodyBusinessProfile'SupportUrl :: Maybe PostAccountsRequestBodyBusinessProfile'SupportUrl'Variants
postAccountsRequestBodyBusinessProfile'SupportUrl = Maybe PostAccountsRequestBodyBusinessProfile'SupportUrl'Variants
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsRequestBodyBusinessProfile'Url :: Maybe Text
postAccountsRequestBodyBusinessProfile'Url = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing
    }

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

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

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

-- | Defines the oneOf schema located at @paths.\/v1\/accounts.POST.requestBody.content.application\/x-www-form-urlencoded.schema.properties.business_profile.properties.support_url.anyOf@ in the specification.
data PostAccountsRequestBodyBusinessProfile'SupportUrl'Variants
  = -- | Represents the JSON value @""@
    PostAccountsRequestBodyBusinessProfile'SupportUrl'EmptyString
  | PostAccountsRequestBodyBusinessProfile'SupportUrl'Text Data.Text.Internal.Text
  deriving (Int
-> PostAccountsRequestBodyBusinessProfile'SupportUrl'Variants
-> ShowS
[PostAccountsRequestBodyBusinessProfile'SupportUrl'Variants]
-> ShowS
PostAccountsRequestBodyBusinessProfile'SupportUrl'Variants
-> String
(Int
 -> PostAccountsRequestBodyBusinessProfile'SupportUrl'Variants
 -> ShowS)
-> (PostAccountsRequestBodyBusinessProfile'SupportUrl'Variants
    -> String)
-> ([PostAccountsRequestBodyBusinessProfile'SupportUrl'Variants]
    -> ShowS)
-> Show PostAccountsRequestBodyBusinessProfile'SupportUrl'Variants
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PostAccountsRequestBodyBusinessProfile'SupportUrl'Variants]
-> ShowS
$cshowList :: [PostAccountsRequestBodyBusinessProfile'SupportUrl'Variants]
-> ShowS
show :: PostAccountsRequestBodyBusinessProfile'SupportUrl'Variants
-> String
$cshow :: PostAccountsRequestBodyBusinessProfile'SupportUrl'Variants
-> String
showsPrec :: Int
-> PostAccountsRequestBodyBusinessProfile'SupportUrl'Variants
-> ShowS
$cshowsPrec :: Int
-> PostAccountsRequestBodyBusinessProfile'SupportUrl'Variants
-> ShowS
GHC.Show.Show, PostAccountsRequestBodyBusinessProfile'SupportUrl'Variants
-> PostAccountsRequestBodyBusinessProfile'SupportUrl'Variants
-> Bool
(PostAccountsRequestBodyBusinessProfile'SupportUrl'Variants
 -> PostAccountsRequestBodyBusinessProfile'SupportUrl'Variants
 -> Bool)
-> (PostAccountsRequestBodyBusinessProfile'SupportUrl'Variants
    -> PostAccountsRequestBodyBusinessProfile'SupportUrl'Variants
    -> Bool)
-> Eq PostAccountsRequestBodyBusinessProfile'SupportUrl'Variants
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostAccountsRequestBodyBusinessProfile'SupportUrl'Variants
-> PostAccountsRequestBodyBusinessProfile'SupportUrl'Variants
-> Bool
$c/= :: PostAccountsRequestBodyBusinessProfile'SupportUrl'Variants
-> PostAccountsRequestBodyBusinessProfile'SupportUrl'Variants
-> Bool
== :: PostAccountsRequestBodyBusinessProfile'SupportUrl'Variants
-> PostAccountsRequestBodyBusinessProfile'SupportUrl'Variants
-> Bool
$c== :: PostAccountsRequestBodyBusinessProfile'SupportUrl'Variants
-> PostAccountsRequestBodyBusinessProfile'SupportUrl'Variants
-> Bool
GHC.Classes.Eq)

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

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

-- | Defines the enum schema located at @paths.\/v1\/accounts.POST.requestBody.content.application\/x-www-form-urlencoded.schema.properties.business_type@ in the specification.
--
-- The business type.
data PostAccountsRequestBodyBusinessType'
  = -- | This case is used if the value encountered during decoding does not match any of the provided cases in the specification.
    PostAccountsRequestBodyBusinessType'Other Data.Aeson.Types.Internal.Value
  | -- | This constructor can be used to send values to the server which are not present in the specification yet.
    PostAccountsRequestBodyBusinessType'Typed Data.Text.Internal.Text
  | -- | Represents the JSON value @"company"@
    PostAccountsRequestBodyBusinessType'EnumCompany
  | -- | Represents the JSON value @"government_entity"@
    PostAccountsRequestBodyBusinessType'EnumGovernmentEntity
  | -- | Represents the JSON value @"individual"@
    PostAccountsRequestBodyBusinessType'EnumIndividual
  | -- | Represents the JSON value @"non_profit"@
    PostAccountsRequestBodyBusinessType'EnumNonProfit
  deriving (Int -> PostAccountsRequestBodyBusinessType' -> ShowS
[PostAccountsRequestBodyBusinessType'] -> ShowS
PostAccountsRequestBodyBusinessType' -> String
(Int -> PostAccountsRequestBodyBusinessType' -> ShowS)
-> (PostAccountsRequestBodyBusinessType' -> String)
-> ([PostAccountsRequestBodyBusinessType'] -> ShowS)
-> Show PostAccountsRequestBodyBusinessType'
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PostAccountsRequestBodyBusinessType'] -> ShowS
$cshowList :: [PostAccountsRequestBodyBusinessType'] -> ShowS
show :: PostAccountsRequestBodyBusinessType' -> String
$cshow :: PostAccountsRequestBodyBusinessType' -> String
showsPrec :: Int -> PostAccountsRequestBodyBusinessType' -> ShowS
$cshowsPrec :: Int -> PostAccountsRequestBodyBusinessType' -> ShowS
GHC.Show.Show, PostAccountsRequestBodyBusinessType'
-> PostAccountsRequestBodyBusinessType' -> Bool
(PostAccountsRequestBodyBusinessType'
 -> PostAccountsRequestBodyBusinessType' -> Bool)
-> (PostAccountsRequestBodyBusinessType'
    -> PostAccountsRequestBodyBusinessType' -> Bool)
-> Eq PostAccountsRequestBodyBusinessType'
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostAccountsRequestBodyBusinessType'
-> PostAccountsRequestBodyBusinessType' -> Bool
$c/= :: PostAccountsRequestBodyBusinessType'
-> PostAccountsRequestBodyBusinessType' -> Bool
== :: PostAccountsRequestBodyBusinessType'
-> PostAccountsRequestBodyBusinessType' -> Bool
$c== :: PostAccountsRequestBodyBusinessType'
-> PostAccountsRequestBodyBusinessType' -> Bool
GHC.Classes.Eq)

instance Data.Aeson.Types.ToJSON.ToJSON PostAccountsRequestBodyBusinessType' where
  toJSON :: PostAccountsRequestBodyBusinessType' -> Value
toJSON (PostAccountsRequestBodyBusinessType'Other Value
val) = Value
val
  toJSON (PostAccountsRequestBodyBusinessType'Typed Text
val) = Text -> Value
forall a. ToJSON a => a -> Value
Data.Aeson.Types.ToJSON.toJSON Text
val
  toJSON (PostAccountsRequestBodyBusinessType'
PostAccountsRequestBodyBusinessType'EnumCompany) = Value
"company"
  toJSON (PostAccountsRequestBodyBusinessType'
PostAccountsRequestBodyBusinessType'EnumGovernmentEntity) = Value
"government_entity"
  toJSON (PostAccountsRequestBodyBusinessType'
PostAccountsRequestBodyBusinessType'EnumIndividual) = Value
"individual"
  toJSON (PostAccountsRequestBodyBusinessType'
PostAccountsRequestBodyBusinessType'EnumNonProfit) = Value
"non_profit"

instance Data.Aeson.Types.FromJSON.FromJSON PostAccountsRequestBodyBusinessType' where
  parseJSON :: Value -> Parser PostAccountsRequestBodyBusinessType'
parseJSON Value
val =
    PostAccountsRequestBodyBusinessType'
-> Parser PostAccountsRequestBodyBusinessType'
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure
      ( if
            | Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"company" -> PostAccountsRequestBodyBusinessType'
PostAccountsRequestBodyBusinessType'EnumCompany
            | Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"government_entity" -> PostAccountsRequestBodyBusinessType'
PostAccountsRequestBodyBusinessType'EnumGovernmentEntity
            | Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"individual" -> PostAccountsRequestBodyBusinessType'
PostAccountsRequestBodyBusinessType'EnumIndividual
            | Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"non_profit" -> PostAccountsRequestBodyBusinessType'
PostAccountsRequestBodyBusinessType'EnumNonProfit
            | Bool
GHC.Base.otherwise -> Value -> PostAccountsRequestBodyBusinessType'
PostAccountsRequestBodyBusinessType'Other Value
val
      )

-- | Defines the object schema located at @paths.\/v1\/accounts.POST.requestBody.content.application\/x-www-form-urlencoded.schema.properties.capabilities@ in the specification.
--
-- Each key of the dictionary represents a capability, and each capability maps to its settings (e.g. whether it has been requested or not). Each capability will be inactive until you have provided its specific requirements and Stripe has verified them. An account may have some of its requested capabilities be active and some be inactive.
data PostAccountsRequestBodyCapabilities' = PostAccountsRequestBodyCapabilities'
  { -- | acss_debit_payments
    PostAccountsRequestBodyCapabilities'
-> Maybe PostAccountsRequestBodyCapabilities'AcssDebitPayments'
postAccountsRequestBodyCapabilities'AcssDebitPayments :: (GHC.Maybe.Maybe PostAccountsRequestBodyCapabilities'AcssDebitPayments'),
    -- | afterpay_clearpay_payments
    PostAccountsRequestBodyCapabilities'
-> Maybe
     PostAccountsRequestBodyCapabilities'AfterpayClearpayPayments'
postAccountsRequestBodyCapabilities'AfterpayClearpayPayments :: (GHC.Maybe.Maybe PostAccountsRequestBodyCapabilities'AfterpayClearpayPayments'),
    -- | au_becs_debit_payments
    PostAccountsRequestBodyCapabilities'
-> Maybe PostAccountsRequestBodyCapabilities'AuBecsDebitPayments'
postAccountsRequestBodyCapabilities'AuBecsDebitPayments :: (GHC.Maybe.Maybe PostAccountsRequestBodyCapabilities'AuBecsDebitPayments'),
    -- | bacs_debit_payments
    PostAccountsRequestBodyCapabilities'
-> Maybe PostAccountsRequestBodyCapabilities'BacsDebitPayments'
postAccountsRequestBodyCapabilities'BacsDebitPayments :: (GHC.Maybe.Maybe PostAccountsRequestBodyCapabilities'BacsDebitPayments'),
    -- | bancontact_payments
    PostAccountsRequestBodyCapabilities'
-> Maybe PostAccountsRequestBodyCapabilities'BancontactPayments'
postAccountsRequestBodyCapabilities'BancontactPayments :: (GHC.Maybe.Maybe PostAccountsRequestBodyCapabilities'BancontactPayments'),
    -- | card_issuing
    PostAccountsRequestBodyCapabilities'
-> Maybe PostAccountsRequestBodyCapabilities'CardIssuing'
postAccountsRequestBodyCapabilities'CardIssuing :: (GHC.Maybe.Maybe PostAccountsRequestBodyCapabilities'CardIssuing'),
    -- | card_payments
    PostAccountsRequestBodyCapabilities'
-> Maybe PostAccountsRequestBodyCapabilities'CardPayments'
postAccountsRequestBodyCapabilities'CardPayments :: (GHC.Maybe.Maybe PostAccountsRequestBodyCapabilities'CardPayments'),
    -- | cartes_bancaires_payments
    PostAccountsRequestBodyCapabilities'
-> Maybe
     PostAccountsRequestBodyCapabilities'CartesBancairesPayments'
postAccountsRequestBodyCapabilities'CartesBancairesPayments :: (GHC.Maybe.Maybe PostAccountsRequestBodyCapabilities'CartesBancairesPayments'),
    -- | eps_payments
    PostAccountsRequestBodyCapabilities'
-> Maybe PostAccountsRequestBodyCapabilities'EpsPayments'
postAccountsRequestBodyCapabilities'EpsPayments :: (GHC.Maybe.Maybe PostAccountsRequestBodyCapabilities'EpsPayments'),
    -- | fpx_payments
    PostAccountsRequestBodyCapabilities'
-> Maybe PostAccountsRequestBodyCapabilities'FpxPayments'
postAccountsRequestBodyCapabilities'FpxPayments :: (GHC.Maybe.Maybe PostAccountsRequestBodyCapabilities'FpxPayments'),
    -- | giropay_payments
    PostAccountsRequestBodyCapabilities'
-> Maybe PostAccountsRequestBodyCapabilities'GiropayPayments'
postAccountsRequestBodyCapabilities'GiropayPayments :: (GHC.Maybe.Maybe PostAccountsRequestBodyCapabilities'GiropayPayments'),
    -- | grabpay_payments
    PostAccountsRequestBodyCapabilities'
-> Maybe PostAccountsRequestBodyCapabilities'GrabpayPayments'
postAccountsRequestBodyCapabilities'GrabpayPayments :: (GHC.Maybe.Maybe PostAccountsRequestBodyCapabilities'GrabpayPayments'),
    -- | ideal_payments
    PostAccountsRequestBodyCapabilities'
-> Maybe PostAccountsRequestBodyCapabilities'IdealPayments'
postAccountsRequestBodyCapabilities'IdealPayments :: (GHC.Maybe.Maybe PostAccountsRequestBodyCapabilities'IdealPayments'),
    -- | jcb_payments
    PostAccountsRequestBodyCapabilities'
-> Maybe PostAccountsRequestBodyCapabilities'JcbPayments'
postAccountsRequestBodyCapabilities'JcbPayments :: (GHC.Maybe.Maybe PostAccountsRequestBodyCapabilities'JcbPayments'),
    -- | legacy_payments
    PostAccountsRequestBodyCapabilities'
-> Maybe PostAccountsRequestBodyCapabilities'LegacyPayments'
postAccountsRequestBodyCapabilities'LegacyPayments :: (GHC.Maybe.Maybe PostAccountsRequestBodyCapabilities'LegacyPayments'),
    -- | oxxo_payments
    PostAccountsRequestBodyCapabilities'
-> Maybe PostAccountsRequestBodyCapabilities'OxxoPayments'
postAccountsRequestBodyCapabilities'OxxoPayments :: (GHC.Maybe.Maybe PostAccountsRequestBodyCapabilities'OxxoPayments'),
    -- | p24_payments
    PostAccountsRequestBodyCapabilities'
-> Maybe PostAccountsRequestBodyCapabilities'P24Payments'
postAccountsRequestBodyCapabilities'P24Payments :: (GHC.Maybe.Maybe PostAccountsRequestBodyCapabilities'P24Payments'),
    -- | sepa_debit_payments
    PostAccountsRequestBodyCapabilities'
-> Maybe PostAccountsRequestBodyCapabilities'SepaDebitPayments'
postAccountsRequestBodyCapabilities'SepaDebitPayments :: (GHC.Maybe.Maybe PostAccountsRequestBodyCapabilities'SepaDebitPayments'),
    -- | sofort_payments
    PostAccountsRequestBodyCapabilities'
-> Maybe PostAccountsRequestBodyCapabilities'SofortPayments'
postAccountsRequestBodyCapabilities'SofortPayments :: (GHC.Maybe.Maybe PostAccountsRequestBodyCapabilities'SofortPayments'),
    -- | tax_reporting_us_1099_k
    PostAccountsRequestBodyCapabilities'
-> Maybe PostAccountsRequestBodyCapabilities'TaxReportingUs_1099K'
postAccountsRequestBodyCapabilities'TaxReportingUs_1099K :: (GHC.Maybe.Maybe PostAccountsRequestBodyCapabilities'TaxReportingUs_1099K'),
    -- | tax_reporting_us_1099_misc
    PostAccountsRequestBodyCapabilities'
-> Maybe
     PostAccountsRequestBodyCapabilities'TaxReportingUs_1099Misc'
postAccountsRequestBodyCapabilities'TaxReportingUs_1099Misc :: (GHC.Maybe.Maybe PostAccountsRequestBodyCapabilities'TaxReportingUs_1099Misc'),
    -- | transfers
    PostAccountsRequestBodyCapabilities'
-> Maybe PostAccountsRequestBodyCapabilities'Transfers'
postAccountsRequestBodyCapabilities'Transfers :: (GHC.Maybe.Maybe PostAccountsRequestBodyCapabilities'Transfers')
  }
  deriving
    ( Int -> PostAccountsRequestBodyCapabilities' -> ShowS
[PostAccountsRequestBodyCapabilities'] -> ShowS
PostAccountsRequestBodyCapabilities' -> String
(Int -> PostAccountsRequestBodyCapabilities' -> ShowS)
-> (PostAccountsRequestBodyCapabilities' -> String)
-> ([PostAccountsRequestBodyCapabilities'] -> ShowS)
-> Show PostAccountsRequestBodyCapabilities'
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PostAccountsRequestBodyCapabilities'] -> ShowS
$cshowList :: [PostAccountsRequestBodyCapabilities'] -> ShowS
show :: PostAccountsRequestBodyCapabilities' -> String
$cshow :: PostAccountsRequestBodyCapabilities' -> String
showsPrec :: Int -> PostAccountsRequestBodyCapabilities' -> ShowS
$cshowsPrec :: Int -> PostAccountsRequestBodyCapabilities' -> ShowS
GHC.Show.Show,
      PostAccountsRequestBodyCapabilities'
-> PostAccountsRequestBodyCapabilities' -> Bool
(PostAccountsRequestBodyCapabilities'
 -> PostAccountsRequestBodyCapabilities' -> Bool)
-> (PostAccountsRequestBodyCapabilities'
    -> PostAccountsRequestBodyCapabilities' -> Bool)
-> Eq PostAccountsRequestBodyCapabilities'
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostAccountsRequestBodyCapabilities'
-> PostAccountsRequestBodyCapabilities' -> Bool
$c/= :: PostAccountsRequestBodyCapabilities'
-> PostAccountsRequestBodyCapabilities' -> Bool
== :: PostAccountsRequestBodyCapabilities'
-> PostAccountsRequestBodyCapabilities' -> Bool
$c== :: PostAccountsRequestBodyCapabilities'
-> PostAccountsRequestBodyCapabilities' -> Bool
GHC.Classes.Eq
    )

instance Data.Aeson.Types.ToJSON.ToJSON PostAccountsRequestBodyCapabilities' where
  toJSON :: PostAccountsRequestBodyCapabilities' -> Value
toJSON PostAccountsRequestBodyCapabilities'
obj = [Pair] -> Value
Data.Aeson.Types.Internal.object (Text
"acss_debit_payments" Text
-> Maybe PostAccountsRequestBodyCapabilities'AcssDebitPayments'
-> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyCapabilities'
-> Maybe PostAccountsRequestBodyCapabilities'AcssDebitPayments'
postAccountsRequestBodyCapabilities'AcssDebitPayments PostAccountsRequestBodyCapabilities'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"afterpay_clearpay_payments" Text
-> Maybe
     PostAccountsRequestBodyCapabilities'AfterpayClearpayPayments'
-> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyCapabilities'
-> Maybe
     PostAccountsRequestBodyCapabilities'AfterpayClearpayPayments'
postAccountsRequestBodyCapabilities'AfterpayClearpayPayments PostAccountsRequestBodyCapabilities'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"au_becs_debit_payments" Text
-> Maybe PostAccountsRequestBodyCapabilities'AuBecsDebitPayments'
-> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyCapabilities'
-> Maybe PostAccountsRequestBodyCapabilities'AuBecsDebitPayments'
postAccountsRequestBodyCapabilities'AuBecsDebitPayments PostAccountsRequestBodyCapabilities'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"bacs_debit_payments" Text
-> Maybe PostAccountsRequestBodyCapabilities'BacsDebitPayments'
-> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyCapabilities'
-> Maybe PostAccountsRequestBodyCapabilities'BacsDebitPayments'
postAccountsRequestBodyCapabilities'BacsDebitPayments PostAccountsRequestBodyCapabilities'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"bancontact_payments" Text
-> Maybe PostAccountsRequestBodyCapabilities'BancontactPayments'
-> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyCapabilities'
-> Maybe PostAccountsRequestBodyCapabilities'BancontactPayments'
postAccountsRequestBodyCapabilities'BancontactPayments PostAccountsRequestBodyCapabilities'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"card_issuing" Text
-> Maybe PostAccountsRequestBodyCapabilities'CardIssuing' -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyCapabilities'
-> Maybe PostAccountsRequestBodyCapabilities'CardIssuing'
postAccountsRequestBodyCapabilities'CardIssuing PostAccountsRequestBodyCapabilities'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"card_payments" Text
-> Maybe PostAccountsRequestBodyCapabilities'CardPayments' -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyCapabilities'
-> Maybe PostAccountsRequestBodyCapabilities'CardPayments'
postAccountsRequestBodyCapabilities'CardPayments PostAccountsRequestBodyCapabilities'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"cartes_bancaires_payments" Text
-> Maybe
     PostAccountsRequestBodyCapabilities'CartesBancairesPayments'
-> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyCapabilities'
-> Maybe
     PostAccountsRequestBodyCapabilities'CartesBancairesPayments'
postAccountsRequestBodyCapabilities'CartesBancairesPayments PostAccountsRequestBodyCapabilities'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"eps_payments" Text
-> Maybe PostAccountsRequestBodyCapabilities'EpsPayments' -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyCapabilities'
-> Maybe PostAccountsRequestBodyCapabilities'EpsPayments'
postAccountsRequestBodyCapabilities'EpsPayments PostAccountsRequestBodyCapabilities'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"fpx_payments" Text
-> Maybe PostAccountsRequestBodyCapabilities'FpxPayments' -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyCapabilities'
-> Maybe PostAccountsRequestBodyCapabilities'FpxPayments'
postAccountsRequestBodyCapabilities'FpxPayments PostAccountsRequestBodyCapabilities'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"giropay_payments" Text
-> Maybe PostAccountsRequestBodyCapabilities'GiropayPayments'
-> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyCapabilities'
-> Maybe PostAccountsRequestBodyCapabilities'GiropayPayments'
postAccountsRequestBodyCapabilities'GiropayPayments PostAccountsRequestBodyCapabilities'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"grabpay_payments" Text
-> Maybe PostAccountsRequestBodyCapabilities'GrabpayPayments'
-> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyCapabilities'
-> Maybe PostAccountsRequestBodyCapabilities'GrabpayPayments'
postAccountsRequestBodyCapabilities'GrabpayPayments PostAccountsRequestBodyCapabilities'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"ideal_payments" Text
-> Maybe PostAccountsRequestBodyCapabilities'IdealPayments' -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyCapabilities'
-> Maybe PostAccountsRequestBodyCapabilities'IdealPayments'
postAccountsRequestBodyCapabilities'IdealPayments PostAccountsRequestBodyCapabilities'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"jcb_payments" Text
-> Maybe PostAccountsRequestBodyCapabilities'JcbPayments' -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyCapabilities'
-> Maybe PostAccountsRequestBodyCapabilities'JcbPayments'
postAccountsRequestBodyCapabilities'JcbPayments PostAccountsRequestBodyCapabilities'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"legacy_payments" Text
-> Maybe PostAccountsRequestBodyCapabilities'LegacyPayments'
-> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyCapabilities'
-> Maybe PostAccountsRequestBodyCapabilities'LegacyPayments'
postAccountsRequestBodyCapabilities'LegacyPayments PostAccountsRequestBodyCapabilities'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"oxxo_payments" Text
-> Maybe PostAccountsRequestBodyCapabilities'OxxoPayments' -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyCapabilities'
-> Maybe PostAccountsRequestBodyCapabilities'OxxoPayments'
postAccountsRequestBodyCapabilities'OxxoPayments PostAccountsRequestBodyCapabilities'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"p24_payments" Text
-> Maybe PostAccountsRequestBodyCapabilities'P24Payments' -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyCapabilities'
-> Maybe PostAccountsRequestBodyCapabilities'P24Payments'
postAccountsRequestBodyCapabilities'P24Payments PostAccountsRequestBodyCapabilities'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"sepa_debit_payments" Text
-> Maybe PostAccountsRequestBodyCapabilities'SepaDebitPayments'
-> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyCapabilities'
-> Maybe PostAccountsRequestBodyCapabilities'SepaDebitPayments'
postAccountsRequestBodyCapabilities'SepaDebitPayments PostAccountsRequestBodyCapabilities'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"sofort_payments" Text
-> Maybe PostAccountsRequestBodyCapabilities'SofortPayments'
-> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyCapabilities'
-> Maybe PostAccountsRequestBodyCapabilities'SofortPayments'
postAccountsRequestBodyCapabilities'SofortPayments PostAccountsRequestBodyCapabilities'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"tax_reporting_us_1099_k" Text
-> Maybe PostAccountsRequestBodyCapabilities'TaxReportingUs_1099K'
-> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyCapabilities'
-> Maybe PostAccountsRequestBodyCapabilities'TaxReportingUs_1099K'
postAccountsRequestBodyCapabilities'TaxReportingUs_1099K PostAccountsRequestBodyCapabilities'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"tax_reporting_us_1099_misc" Text
-> Maybe
     PostAccountsRequestBodyCapabilities'TaxReportingUs_1099Misc'
-> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyCapabilities'
-> Maybe
     PostAccountsRequestBodyCapabilities'TaxReportingUs_1099Misc'
postAccountsRequestBodyCapabilities'TaxReportingUs_1099Misc PostAccountsRequestBodyCapabilities'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"transfers" Text
-> Maybe PostAccountsRequestBodyCapabilities'Transfers' -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyCapabilities'
-> Maybe PostAccountsRequestBodyCapabilities'Transfers'
postAccountsRequestBodyCapabilities'Transfers PostAccountsRequestBodyCapabilities'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: [Pair]
forall a. Monoid a => a
GHC.Base.mempty)
  toEncoding :: PostAccountsRequestBodyCapabilities' -> Encoding
toEncoding PostAccountsRequestBodyCapabilities'
obj = Series -> Encoding
Data.Aeson.Encoding.Internal.pairs ((Text
"acss_debit_payments" Text
-> Maybe PostAccountsRequestBodyCapabilities'AcssDebitPayments'
-> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyCapabilities'
-> Maybe PostAccountsRequestBodyCapabilities'AcssDebitPayments'
postAccountsRequestBodyCapabilities'AcssDebitPayments PostAccountsRequestBodyCapabilities'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"afterpay_clearpay_payments" Text
-> Maybe
     PostAccountsRequestBodyCapabilities'AfterpayClearpayPayments'
-> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyCapabilities'
-> Maybe
     PostAccountsRequestBodyCapabilities'AfterpayClearpayPayments'
postAccountsRequestBodyCapabilities'AfterpayClearpayPayments PostAccountsRequestBodyCapabilities'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"au_becs_debit_payments" Text
-> Maybe PostAccountsRequestBodyCapabilities'AuBecsDebitPayments'
-> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyCapabilities'
-> Maybe PostAccountsRequestBodyCapabilities'AuBecsDebitPayments'
postAccountsRequestBodyCapabilities'AuBecsDebitPayments PostAccountsRequestBodyCapabilities'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"bacs_debit_payments" Text
-> Maybe PostAccountsRequestBodyCapabilities'BacsDebitPayments'
-> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyCapabilities'
-> Maybe PostAccountsRequestBodyCapabilities'BacsDebitPayments'
postAccountsRequestBodyCapabilities'BacsDebitPayments PostAccountsRequestBodyCapabilities'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"bancontact_payments" Text
-> Maybe PostAccountsRequestBodyCapabilities'BancontactPayments'
-> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyCapabilities'
-> Maybe PostAccountsRequestBodyCapabilities'BancontactPayments'
postAccountsRequestBodyCapabilities'BancontactPayments PostAccountsRequestBodyCapabilities'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"card_issuing" Text
-> Maybe PostAccountsRequestBodyCapabilities'CardIssuing' -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyCapabilities'
-> Maybe PostAccountsRequestBodyCapabilities'CardIssuing'
postAccountsRequestBodyCapabilities'CardIssuing PostAccountsRequestBodyCapabilities'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"card_payments" Text
-> Maybe PostAccountsRequestBodyCapabilities'CardPayments'
-> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyCapabilities'
-> Maybe PostAccountsRequestBodyCapabilities'CardPayments'
postAccountsRequestBodyCapabilities'CardPayments PostAccountsRequestBodyCapabilities'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"cartes_bancaires_payments" Text
-> Maybe
     PostAccountsRequestBodyCapabilities'CartesBancairesPayments'
-> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyCapabilities'
-> Maybe
     PostAccountsRequestBodyCapabilities'CartesBancairesPayments'
postAccountsRequestBodyCapabilities'CartesBancairesPayments PostAccountsRequestBodyCapabilities'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"eps_payments" Text
-> Maybe PostAccountsRequestBodyCapabilities'EpsPayments' -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyCapabilities'
-> Maybe PostAccountsRequestBodyCapabilities'EpsPayments'
postAccountsRequestBodyCapabilities'EpsPayments PostAccountsRequestBodyCapabilities'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"fpx_payments" Text
-> Maybe PostAccountsRequestBodyCapabilities'FpxPayments' -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyCapabilities'
-> Maybe PostAccountsRequestBodyCapabilities'FpxPayments'
postAccountsRequestBodyCapabilities'FpxPayments PostAccountsRequestBodyCapabilities'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"giropay_payments" Text
-> Maybe PostAccountsRequestBodyCapabilities'GiropayPayments'
-> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyCapabilities'
-> Maybe PostAccountsRequestBodyCapabilities'GiropayPayments'
postAccountsRequestBodyCapabilities'GiropayPayments PostAccountsRequestBodyCapabilities'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"grabpay_payments" Text
-> Maybe PostAccountsRequestBodyCapabilities'GrabpayPayments'
-> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyCapabilities'
-> Maybe PostAccountsRequestBodyCapabilities'GrabpayPayments'
postAccountsRequestBodyCapabilities'GrabpayPayments PostAccountsRequestBodyCapabilities'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"ideal_payments" Text
-> Maybe PostAccountsRequestBodyCapabilities'IdealPayments'
-> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyCapabilities'
-> Maybe PostAccountsRequestBodyCapabilities'IdealPayments'
postAccountsRequestBodyCapabilities'IdealPayments PostAccountsRequestBodyCapabilities'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"jcb_payments" Text
-> Maybe PostAccountsRequestBodyCapabilities'JcbPayments' -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyCapabilities'
-> Maybe PostAccountsRequestBodyCapabilities'JcbPayments'
postAccountsRequestBodyCapabilities'JcbPayments PostAccountsRequestBodyCapabilities'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"legacy_payments" Text
-> Maybe PostAccountsRequestBodyCapabilities'LegacyPayments'
-> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyCapabilities'
-> Maybe PostAccountsRequestBodyCapabilities'LegacyPayments'
postAccountsRequestBodyCapabilities'LegacyPayments PostAccountsRequestBodyCapabilities'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"oxxo_payments" Text
-> Maybe PostAccountsRequestBodyCapabilities'OxxoPayments'
-> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyCapabilities'
-> Maybe PostAccountsRequestBodyCapabilities'OxxoPayments'
postAccountsRequestBodyCapabilities'OxxoPayments PostAccountsRequestBodyCapabilities'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"p24_payments" Text
-> Maybe PostAccountsRequestBodyCapabilities'P24Payments' -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyCapabilities'
-> Maybe PostAccountsRequestBodyCapabilities'P24Payments'
postAccountsRequestBodyCapabilities'P24Payments PostAccountsRequestBodyCapabilities'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"sepa_debit_payments" Text
-> Maybe PostAccountsRequestBodyCapabilities'SepaDebitPayments'
-> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyCapabilities'
-> Maybe PostAccountsRequestBodyCapabilities'SepaDebitPayments'
postAccountsRequestBodyCapabilities'SepaDebitPayments PostAccountsRequestBodyCapabilities'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"sofort_payments" Text
-> Maybe PostAccountsRequestBodyCapabilities'SofortPayments'
-> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyCapabilities'
-> Maybe PostAccountsRequestBodyCapabilities'SofortPayments'
postAccountsRequestBodyCapabilities'SofortPayments PostAccountsRequestBodyCapabilities'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"tax_reporting_us_1099_k" Text
-> Maybe PostAccountsRequestBodyCapabilities'TaxReportingUs_1099K'
-> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyCapabilities'
-> Maybe PostAccountsRequestBodyCapabilities'TaxReportingUs_1099K'
postAccountsRequestBodyCapabilities'TaxReportingUs_1099K PostAccountsRequestBodyCapabilities'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"tax_reporting_us_1099_misc" Text
-> Maybe
     PostAccountsRequestBodyCapabilities'TaxReportingUs_1099Misc'
-> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyCapabilities'
-> Maybe
     PostAccountsRequestBodyCapabilities'TaxReportingUs_1099Misc'
postAccountsRequestBodyCapabilities'TaxReportingUs_1099Misc PostAccountsRequestBodyCapabilities'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> (Text
"transfers" Text
-> Maybe PostAccountsRequestBodyCapabilities'Transfers' -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyCapabilities'
-> Maybe PostAccountsRequestBodyCapabilities'Transfers'
postAccountsRequestBodyCapabilities'Transfers PostAccountsRequestBodyCapabilities'
obj))))))))))))))))))))))

instance Data.Aeson.Types.FromJSON.FromJSON PostAccountsRequestBodyCapabilities' where
  parseJSON :: Value -> Parser PostAccountsRequestBodyCapabilities'
parseJSON = String
-> (Object -> Parser PostAccountsRequestBodyCapabilities')
-> Value
-> Parser PostAccountsRequestBodyCapabilities'
forall a. String -> (Object -> Parser a) -> Value -> Parser a
Data.Aeson.Types.FromJSON.withObject String
"PostAccountsRequestBodyCapabilities'" (\Object
obj -> ((((((((((((((((((((((Maybe PostAccountsRequestBodyCapabilities'AcssDebitPayments'
 -> Maybe
      PostAccountsRequestBodyCapabilities'AfterpayClearpayPayments'
 -> Maybe PostAccountsRequestBodyCapabilities'AuBecsDebitPayments'
 -> Maybe PostAccountsRequestBodyCapabilities'BacsDebitPayments'
 -> Maybe PostAccountsRequestBodyCapabilities'BancontactPayments'
 -> Maybe PostAccountsRequestBodyCapabilities'CardIssuing'
 -> Maybe PostAccountsRequestBodyCapabilities'CardPayments'
 -> Maybe
      PostAccountsRequestBodyCapabilities'CartesBancairesPayments'
 -> Maybe PostAccountsRequestBodyCapabilities'EpsPayments'
 -> Maybe PostAccountsRequestBodyCapabilities'FpxPayments'
 -> Maybe PostAccountsRequestBodyCapabilities'GiropayPayments'
 -> Maybe PostAccountsRequestBodyCapabilities'GrabpayPayments'
 -> Maybe PostAccountsRequestBodyCapabilities'IdealPayments'
 -> Maybe PostAccountsRequestBodyCapabilities'JcbPayments'
 -> Maybe PostAccountsRequestBodyCapabilities'LegacyPayments'
 -> Maybe PostAccountsRequestBodyCapabilities'OxxoPayments'
 -> Maybe PostAccountsRequestBodyCapabilities'P24Payments'
 -> Maybe PostAccountsRequestBodyCapabilities'SepaDebitPayments'
 -> Maybe PostAccountsRequestBodyCapabilities'SofortPayments'
 -> Maybe PostAccountsRequestBodyCapabilities'TaxReportingUs_1099K'
 -> Maybe
      PostAccountsRequestBodyCapabilities'TaxReportingUs_1099Misc'
 -> Maybe PostAccountsRequestBodyCapabilities'Transfers'
 -> PostAccountsRequestBodyCapabilities')
-> Parser
     (Maybe PostAccountsRequestBodyCapabilities'AcssDebitPayments'
      -> Maybe
           PostAccountsRequestBodyCapabilities'AfterpayClearpayPayments'
      -> Maybe PostAccountsRequestBodyCapabilities'AuBecsDebitPayments'
      -> Maybe PostAccountsRequestBodyCapabilities'BacsDebitPayments'
      -> Maybe PostAccountsRequestBodyCapabilities'BancontactPayments'
      -> Maybe PostAccountsRequestBodyCapabilities'CardIssuing'
      -> Maybe PostAccountsRequestBodyCapabilities'CardPayments'
      -> Maybe
           PostAccountsRequestBodyCapabilities'CartesBancairesPayments'
      -> Maybe PostAccountsRequestBodyCapabilities'EpsPayments'
      -> Maybe PostAccountsRequestBodyCapabilities'FpxPayments'
      -> Maybe PostAccountsRequestBodyCapabilities'GiropayPayments'
      -> Maybe PostAccountsRequestBodyCapabilities'GrabpayPayments'
      -> Maybe PostAccountsRequestBodyCapabilities'IdealPayments'
      -> Maybe PostAccountsRequestBodyCapabilities'JcbPayments'
      -> Maybe PostAccountsRequestBodyCapabilities'LegacyPayments'
      -> Maybe PostAccountsRequestBodyCapabilities'OxxoPayments'
      -> Maybe PostAccountsRequestBodyCapabilities'P24Payments'
      -> Maybe PostAccountsRequestBodyCapabilities'SepaDebitPayments'
      -> Maybe PostAccountsRequestBodyCapabilities'SofortPayments'
      -> Maybe PostAccountsRequestBodyCapabilities'TaxReportingUs_1099K'
      -> Maybe
           PostAccountsRequestBodyCapabilities'TaxReportingUs_1099Misc'
      -> Maybe PostAccountsRequestBodyCapabilities'Transfers'
      -> PostAccountsRequestBodyCapabilities')
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure Maybe PostAccountsRequestBodyCapabilities'AcssDebitPayments'
-> Maybe
     PostAccountsRequestBodyCapabilities'AfterpayClearpayPayments'
-> Maybe PostAccountsRequestBodyCapabilities'AuBecsDebitPayments'
-> Maybe PostAccountsRequestBodyCapabilities'BacsDebitPayments'
-> Maybe PostAccountsRequestBodyCapabilities'BancontactPayments'
-> Maybe PostAccountsRequestBodyCapabilities'CardIssuing'
-> Maybe PostAccountsRequestBodyCapabilities'CardPayments'
-> Maybe
     PostAccountsRequestBodyCapabilities'CartesBancairesPayments'
-> Maybe PostAccountsRequestBodyCapabilities'EpsPayments'
-> Maybe PostAccountsRequestBodyCapabilities'FpxPayments'
-> Maybe PostAccountsRequestBodyCapabilities'GiropayPayments'
-> Maybe PostAccountsRequestBodyCapabilities'GrabpayPayments'
-> Maybe PostAccountsRequestBodyCapabilities'IdealPayments'
-> Maybe PostAccountsRequestBodyCapabilities'JcbPayments'
-> Maybe PostAccountsRequestBodyCapabilities'LegacyPayments'
-> Maybe PostAccountsRequestBodyCapabilities'OxxoPayments'
-> Maybe PostAccountsRequestBodyCapabilities'P24Payments'
-> Maybe PostAccountsRequestBodyCapabilities'SepaDebitPayments'
-> Maybe PostAccountsRequestBodyCapabilities'SofortPayments'
-> Maybe PostAccountsRequestBodyCapabilities'TaxReportingUs_1099K'
-> Maybe
     PostAccountsRequestBodyCapabilities'TaxReportingUs_1099Misc'
-> Maybe PostAccountsRequestBodyCapabilities'Transfers'
-> PostAccountsRequestBodyCapabilities'
PostAccountsRequestBodyCapabilities' Parser
  (Maybe PostAccountsRequestBodyCapabilities'AcssDebitPayments'
   -> Maybe
        PostAccountsRequestBodyCapabilities'AfterpayClearpayPayments'
   -> Maybe PostAccountsRequestBodyCapabilities'AuBecsDebitPayments'
   -> Maybe PostAccountsRequestBodyCapabilities'BacsDebitPayments'
   -> Maybe PostAccountsRequestBodyCapabilities'BancontactPayments'
   -> Maybe PostAccountsRequestBodyCapabilities'CardIssuing'
   -> Maybe PostAccountsRequestBodyCapabilities'CardPayments'
   -> Maybe
        PostAccountsRequestBodyCapabilities'CartesBancairesPayments'
   -> Maybe PostAccountsRequestBodyCapabilities'EpsPayments'
   -> Maybe PostAccountsRequestBodyCapabilities'FpxPayments'
   -> Maybe PostAccountsRequestBodyCapabilities'GiropayPayments'
   -> Maybe PostAccountsRequestBodyCapabilities'GrabpayPayments'
   -> Maybe PostAccountsRequestBodyCapabilities'IdealPayments'
   -> Maybe PostAccountsRequestBodyCapabilities'JcbPayments'
   -> Maybe PostAccountsRequestBodyCapabilities'LegacyPayments'
   -> Maybe PostAccountsRequestBodyCapabilities'OxxoPayments'
   -> Maybe PostAccountsRequestBodyCapabilities'P24Payments'
   -> Maybe PostAccountsRequestBodyCapabilities'SepaDebitPayments'
   -> Maybe PostAccountsRequestBodyCapabilities'SofortPayments'
   -> Maybe PostAccountsRequestBodyCapabilities'TaxReportingUs_1099K'
   -> Maybe
        PostAccountsRequestBodyCapabilities'TaxReportingUs_1099Misc'
   -> Maybe PostAccountsRequestBodyCapabilities'Transfers'
   -> PostAccountsRequestBodyCapabilities')
-> Parser
     (Maybe PostAccountsRequestBodyCapabilities'AcssDebitPayments')
-> Parser
     (Maybe
        PostAccountsRequestBodyCapabilities'AfterpayClearpayPayments'
      -> Maybe PostAccountsRequestBodyCapabilities'AuBecsDebitPayments'
      -> Maybe PostAccountsRequestBodyCapabilities'BacsDebitPayments'
      -> Maybe PostAccountsRequestBodyCapabilities'BancontactPayments'
      -> Maybe PostAccountsRequestBodyCapabilities'CardIssuing'
      -> Maybe PostAccountsRequestBodyCapabilities'CardPayments'
      -> Maybe
           PostAccountsRequestBodyCapabilities'CartesBancairesPayments'
      -> Maybe PostAccountsRequestBodyCapabilities'EpsPayments'
      -> Maybe PostAccountsRequestBodyCapabilities'FpxPayments'
      -> Maybe PostAccountsRequestBodyCapabilities'GiropayPayments'
      -> Maybe PostAccountsRequestBodyCapabilities'GrabpayPayments'
      -> Maybe PostAccountsRequestBodyCapabilities'IdealPayments'
      -> Maybe PostAccountsRequestBodyCapabilities'JcbPayments'
      -> Maybe PostAccountsRequestBodyCapabilities'LegacyPayments'
      -> Maybe PostAccountsRequestBodyCapabilities'OxxoPayments'
      -> Maybe PostAccountsRequestBodyCapabilities'P24Payments'
      -> Maybe PostAccountsRequestBodyCapabilities'SepaDebitPayments'
      -> Maybe PostAccountsRequestBodyCapabilities'SofortPayments'
      -> Maybe PostAccountsRequestBodyCapabilities'TaxReportingUs_1099K'
      -> Maybe
           PostAccountsRequestBodyCapabilities'TaxReportingUs_1099Misc'
      -> Maybe PostAccountsRequestBodyCapabilities'Transfers'
      -> PostAccountsRequestBodyCapabilities')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object
-> Text
-> Parser
     (Maybe PostAccountsRequestBodyCapabilities'AcssDebitPayments')
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"acss_debit_payments")) Parser
  (Maybe
     PostAccountsRequestBodyCapabilities'AfterpayClearpayPayments'
   -> Maybe PostAccountsRequestBodyCapabilities'AuBecsDebitPayments'
   -> Maybe PostAccountsRequestBodyCapabilities'BacsDebitPayments'
   -> Maybe PostAccountsRequestBodyCapabilities'BancontactPayments'
   -> Maybe PostAccountsRequestBodyCapabilities'CardIssuing'
   -> Maybe PostAccountsRequestBodyCapabilities'CardPayments'
   -> Maybe
        PostAccountsRequestBodyCapabilities'CartesBancairesPayments'
   -> Maybe PostAccountsRequestBodyCapabilities'EpsPayments'
   -> Maybe PostAccountsRequestBodyCapabilities'FpxPayments'
   -> Maybe PostAccountsRequestBodyCapabilities'GiropayPayments'
   -> Maybe PostAccountsRequestBodyCapabilities'GrabpayPayments'
   -> Maybe PostAccountsRequestBodyCapabilities'IdealPayments'
   -> Maybe PostAccountsRequestBodyCapabilities'JcbPayments'
   -> Maybe PostAccountsRequestBodyCapabilities'LegacyPayments'
   -> Maybe PostAccountsRequestBodyCapabilities'OxxoPayments'
   -> Maybe PostAccountsRequestBodyCapabilities'P24Payments'
   -> Maybe PostAccountsRequestBodyCapabilities'SepaDebitPayments'
   -> Maybe PostAccountsRequestBodyCapabilities'SofortPayments'
   -> Maybe PostAccountsRequestBodyCapabilities'TaxReportingUs_1099K'
   -> Maybe
        PostAccountsRequestBodyCapabilities'TaxReportingUs_1099Misc'
   -> Maybe PostAccountsRequestBodyCapabilities'Transfers'
   -> PostAccountsRequestBodyCapabilities')
-> Parser
     (Maybe
        PostAccountsRequestBodyCapabilities'AfterpayClearpayPayments')
-> Parser
     (Maybe PostAccountsRequestBodyCapabilities'AuBecsDebitPayments'
      -> Maybe PostAccountsRequestBodyCapabilities'BacsDebitPayments'
      -> Maybe PostAccountsRequestBodyCapabilities'BancontactPayments'
      -> Maybe PostAccountsRequestBodyCapabilities'CardIssuing'
      -> Maybe PostAccountsRequestBodyCapabilities'CardPayments'
      -> Maybe
           PostAccountsRequestBodyCapabilities'CartesBancairesPayments'
      -> Maybe PostAccountsRequestBodyCapabilities'EpsPayments'
      -> Maybe PostAccountsRequestBodyCapabilities'FpxPayments'
      -> Maybe PostAccountsRequestBodyCapabilities'GiropayPayments'
      -> Maybe PostAccountsRequestBodyCapabilities'GrabpayPayments'
      -> Maybe PostAccountsRequestBodyCapabilities'IdealPayments'
      -> Maybe PostAccountsRequestBodyCapabilities'JcbPayments'
      -> Maybe PostAccountsRequestBodyCapabilities'LegacyPayments'
      -> Maybe PostAccountsRequestBodyCapabilities'OxxoPayments'
      -> Maybe PostAccountsRequestBodyCapabilities'P24Payments'
      -> Maybe PostAccountsRequestBodyCapabilities'SepaDebitPayments'
      -> Maybe PostAccountsRequestBodyCapabilities'SofortPayments'
      -> Maybe PostAccountsRequestBodyCapabilities'TaxReportingUs_1099K'
      -> Maybe
           PostAccountsRequestBodyCapabilities'TaxReportingUs_1099Misc'
      -> Maybe PostAccountsRequestBodyCapabilities'Transfers'
      -> PostAccountsRequestBodyCapabilities')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object
-> Text
-> Parser
     (Maybe
        PostAccountsRequestBodyCapabilities'AfterpayClearpayPayments')
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"afterpay_clearpay_payments")) Parser
  (Maybe PostAccountsRequestBodyCapabilities'AuBecsDebitPayments'
   -> Maybe PostAccountsRequestBodyCapabilities'BacsDebitPayments'
   -> Maybe PostAccountsRequestBodyCapabilities'BancontactPayments'
   -> Maybe PostAccountsRequestBodyCapabilities'CardIssuing'
   -> Maybe PostAccountsRequestBodyCapabilities'CardPayments'
   -> Maybe
        PostAccountsRequestBodyCapabilities'CartesBancairesPayments'
   -> Maybe PostAccountsRequestBodyCapabilities'EpsPayments'
   -> Maybe PostAccountsRequestBodyCapabilities'FpxPayments'
   -> Maybe PostAccountsRequestBodyCapabilities'GiropayPayments'
   -> Maybe PostAccountsRequestBodyCapabilities'GrabpayPayments'
   -> Maybe PostAccountsRequestBodyCapabilities'IdealPayments'
   -> Maybe PostAccountsRequestBodyCapabilities'JcbPayments'
   -> Maybe PostAccountsRequestBodyCapabilities'LegacyPayments'
   -> Maybe PostAccountsRequestBodyCapabilities'OxxoPayments'
   -> Maybe PostAccountsRequestBodyCapabilities'P24Payments'
   -> Maybe PostAccountsRequestBodyCapabilities'SepaDebitPayments'
   -> Maybe PostAccountsRequestBodyCapabilities'SofortPayments'
   -> Maybe PostAccountsRequestBodyCapabilities'TaxReportingUs_1099K'
   -> Maybe
        PostAccountsRequestBodyCapabilities'TaxReportingUs_1099Misc'
   -> Maybe PostAccountsRequestBodyCapabilities'Transfers'
   -> PostAccountsRequestBodyCapabilities')
-> Parser
     (Maybe PostAccountsRequestBodyCapabilities'AuBecsDebitPayments')
-> Parser
     (Maybe PostAccountsRequestBodyCapabilities'BacsDebitPayments'
      -> Maybe PostAccountsRequestBodyCapabilities'BancontactPayments'
      -> Maybe PostAccountsRequestBodyCapabilities'CardIssuing'
      -> Maybe PostAccountsRequestBodyCapabilities'CardPayments'
      -> Maybe
           PostAccountsRequestBodyCapabilities'CartesBancairesPayments'
      -> Maybe PostAccountsRequestBodyCapabilities'EpsPayments'
      -> Maybe PostAccountsRequestBodyCapabilities'FpxPayments'
      -> Maybe PostAccountsRequestBodyCapabilities'GiropayPayments'
      -> Maybe PostAccountsRequestBodyCapabilities'GrabpayPayments'
      -> Maybe PostAccountsRequestBodyCapabilities'IdealPayments'
      -> Maybe PostAccountsRequestBodyCapabilities'JcbPayments'
      -> Maybe PostAccountsRequestBodyCapabilities'LegacyPayments'
      -> Maybe PostAccountsRequestBodyCapabilities'OxxoPayments'
      -> Maybe PostAccountsRequestBodyCapabilities'P24Payments'
      -> Maybe PostAccountsRequestBodyCapabilities'SepaDebitPayments'
      -> Maybe PostAccountsRequestBodyCapabilities'SofortPayments'
      -> Maybe PostAccountsRequestBodyCapabilities'TaxReportingUs_1099K'
      -> Maybe
           PostAccountsRequestBodyCapabilities'TaxReportingUs_1099Misc'
      -> Maybe PostAccountsRequestBodyCapabilities'Transfers'
      -> PostAccountsRequestBodyCapabilities')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object
-> Text
-> Parser
     (Maybe PostAccountsRequestBodyCapabilities'AuBecsDebitPayments')
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"au_becs_debit_payments")) Parser
  (Maybe PostAccountsRequestBodyCapabilities'BacsDebitPayments'
   -> Maybe PostAccountsRequestBodyCapabilities'BancontactPayments'
   -> Maybe PostAccountsRequestBodyCapabilities'CardIssuing'
   -> Maybe PostAccountsRequestBodyCapabilities'CardPayments'
   -> Maybe
        PostAccountsRequestBodyCapabilities'CartesBancairesPayments'
   -> Maybe PostAccountsRequestBodyCapabilities'EpsPayments'
   -> Maybe PostAccountsRequestBodyCapabilities'FpxPayments'
   -> Maybe PostAccountsRequestBodyCapabilities'GiropayPayments'
   -> Maybe PostAccountsRequestBodyCapabilities'GrabpayPayments'
   -> Maybe PostAccountsRequestBodyCapabilities'IdealPayments'
   -> Maybe PostAccountsRequestBodyCapabilities'JcbPayments'
   -> Maybe PostAccountsRequestBodyCapabilities'LegacyPayments'
   -> Maybe PostAccountsRequestBodyCapabilities'OxxoPayments'
   -> Maybe PostAccountsRequestBodyCapabilities'P24Payments'
   -> Maybe PostAccountsRequestBodyCapabilities'SepaDebitPayments'
   -> Maybe PostAccountsRequestBodyCapabilities'SofortPayments'
   -> Maybe PostAccountsRequestBodyCapabilities'TaxReportingUs_1099K'
   -> Maybe
        PostAccountsRequestBodyCapabilities'TaxReportingUs_1099Misc'
   -> Maybe PostAccountsRequestBodyCapabilities'Transfers'
   -> PostAccountsRequestBodyCapabilities')
-> Parser
     (Maybe PostAccountsRequestBodyCapabilities'BacsDebitPayments')
-> Parser
     (Maybe PostAccountsRequestBodyCapabilities'BancontactPayments'
      -> Maybe PostAccountsRequestBodyCapabilities'CardIssuing'
      -> Maybe PostAccountsRequestBodyCapabilities'CardPayments'
      -> Maybe
           PostAccountsRequestBodyCapabilities'CartesBancairesPayments'
      -> Maybe PostAccountsRequestBodyCapabilities'EpsPayments'
      -> Maybe PostAccountsRequestBodyCapabilities'FpxPayments'
      -> Maybe PostAccountsRequestBodyCapabilities'GiropayPayments'
      -> Maybe PostAccountsRequestBodyCapabilities'GrabpayPayments'
      -> Maybe PostAccountsRequestBodyCapabilities'IdealPayments'
      -> Maybe PostAccountsRequestBodyCapabilities'JcbPayments'
      -> Maybe PostAccountsRequestBodyCapabilities'LegacyPayments'
      -> Maybe PostAccountsRequestBodyCapabilities'OxxoPayments'
      -> Maybe PostAccountsRequestBodyCapabilities'P24Payments'
      -> Maybe PostAccountsRequestBodyCapabilities'SepaDebitPayments'
      -> Maybe PostAccountsRequestBodyCapabilities'SofortPayments'
      -> Maybe PostAccountsRequestBodyCapabilities'TaxReportingUs_1099K'
      -> Maybe
           PostAccountsRequestBodyCapabilities'TaxReportingUs_1099Misc'
      -> Maybe PostAccountsRequestBodyCapabilities'Transfers'
      -> PostAccountsRequestBodyCapabilities')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object
-> Text
-> Parser
     (Maybe PostAccountsRequestBodyCapabilities'BacsDebitPayments')
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"bacs_debit_payments")) Parser
  (Maybe PostAccountsRequestBodyCapabilities'BancontactPayments'
   -> Maybe PostAccountsRequestBodyCapabilities'CardIssuing'
   -> Maybe PostAccountsRequestBodyCapabilities'CardPayments'
   -> Maybe
        PostAccountsRequestBodyCapabilities'CartesBancairesPayments'
   -> Maybe PostAccountsRequestBodyCapabilities'EpsPayments'
   -> Maybe PostAccountsRequestBodyCapabilities'FpxPayments'
   -> Maybe PostAccountsRequestBodyCapabilities'GiropayPayments'
   -> Maybe PostAccountsRequestBodyCapabilities'GrabpayPayments'
   -> Maybe PostAccountsRequestBodyCapabilities'IdealPayments'
   -> Maybe PostAccountsRequestBodyCapabilities'JcbPayments'
   -> Maybe PostAccountsRequestBodyCapabilities'LegacyPayments'
   -> Maybe PostAccountsRequestBodyCapabilities'OxxoPayments'
   -> Maybe PostAccountsRequestBodyCapabilities'P24Payments'
   -> Maybe PostAccountsRequestBodyCapabilities'SepaDebitPayments'
   -> Maybe PostAccountsRequestBodyCapabilities'SofortPayments'
   -> Maybe PostAccountsRequestBodyCapabilities'TaxReportingUs_1099K'
   -> Maybe
        PostAccountsRequestBodyCapabilities'TaxReportingUs_1099Misc'
   -> Maybe PostAccountsRequestBodyCapabilities'Transfers'
   -> PostAccountsRequestBodyCapabilities')
-> Parser
     (Maybe PostAccountsRequestBodyCapabilities'BancontactPayments')
-> Parser
     (Maybe PostAccountsRequestBodyCapabilities'CardIssuing'
      -> Maybe PostAccountsRequestBodyCapabilities'CardPayments'
      -> Maybe
           PostAccountsRequestBodyCapabilities'CartesBancairesPayments'
      -> Maybe PostAccountsRequestBodyCapabilities'EpsPayments'
      -> Maybe PostAccountsRequestBodyCapabilities'FpxPayments'
      -> Maybe PostAccountsRequestBodyCapabilities'GiropayPayments'
      -> Maybe PostAccountsRequestBodyCapabilities'GrabpayPayments'
      -> Maybe PostAccountsRequestBodyCapabilities'IdealPayments'
      -> Maybe PostAccountsRequestBodyCapabilities'JcbPayments'
      -> Maybe PostAccountsRequestBodyCapabilities'LegacyPayments'
      -> Maybe PostAccountsRequestBodyCapabilities'OxxoPayments'
      -> Maybe PostAccountsRequestBodyCapabilities'P24Payments'
      -> Maybe PostAccountsRequestBodyCapabilities'SepaDebitPayments'
      -> Maybe PostAccountsRequestBodyCapabilities'SofortPayments'
      -> Maybe PostAccountsRequestBodyCapabilities'TaxReportingUs_1099K'
      -> Maybe
           PostAccountsRequestBodyCapabilities'TaxReportingUs_1099Misc'
      -> Maybe PostAccountsRequestBodyCapabilities'Transfers'
      -> PostAccountsRequestBodyCapabilities')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object
-> Text
-> Parser
     (Maybe PostAccountsRequestBodyCapabilities'BancontactPayments')
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"bancontact_payments")) Parser
  (Maybe PostAccountsRequestBodyCapabilities'CardIssuing'
   -> Maybe PostAccountsRequestBodyCapabilities'CardPayments'
   -> Maybe
        PostAccountsRequestBodyCapabilities'CartesBancairesPayments'
   -> Maybe PostAccountsRequestBodyCapabilities'EpsPayments'
   -> Maybe PostAccountsRequestBodyCapabilities'FpxPayments'
   -> Maybe PostAccountsRequestBodyCapabilities'GiropayPayments'
   -> Maybe PostAccountsRequestBodyCapabilities'GrabpayPayments'
   -> Maybe PostAccountsRequestBodyCapabilities'IdealPayments'
   -> Maybe PostAccountsRequestBodyCapabilities'JcbPayments'
   -> Maybe PostAccountsRequestBodyCapabilities'LegacyPayments'
   -> Maybe PostAccountsRequestBodyCapabilities'OxxoPayments'
   -> Maybe PostAccountsRequestBodyCapabilities'P24Payments'
   -> Maybe PostAccountsRequestBodyCapabilities'SepaDebitPayments'
   -> Maybe PostAccountsRequestBodyCapabilities'SofortPayments'
   -> Maybe PostAccountsRequestBodyCapabilities'TaxReportingUs_1099K'
   -> Maybe
        PostAccountsRequestBodyCapabilities'TaxReportingUs_1099Misc'
   -> Maybe PostAccountsRequestBodyCapabilities'Transfers'
   -> PostAccountsRequestBodyCapabilities')
-> Parser (Maybe PostAccountsRequestBodyCapabilities'CardIssuing')
-> Parser
     (Maybe PostAccountsRequestBodyCapabilities'CardPayments'
      -> Maybe
           PostAccountsRequestBodyCapabilities'CartesBancairesPayments'
      -> Maybe PostAccountsRequestBodyCapabilities'EpsPayments'
      -> Maybe PostAccountsRequestBodyCapabilities'FpxPayments'
      -> Maybe PostAccountsRequestBodyCapabilities'GiropayPayments'
      -> Maybe PostAccountsRequestBodyCapabilities'GrabpayPayments'
      -> Maybe PostAccountsRequestBodyCapabilities'IdealPayments'
      -> Maybe PostAccountsRequestBodyCapabilities'JcbPayments'
      -> Maybe PostAccountsRequestBodyCapabilities'LegacyPayments'
      -> Maybe PostAccountsRequestBodyCapabilities'OxxoPayments'
      -> Maybe PostAccountsRequestBodyCapabilities'P24Payments'
      -> Maybe PostAccountsRequestBodyCapabilities'SepaDebitPayments'
      -> Maybe PostAccountsRequestBodyCapabilities'SofortPayments'
      -> Maybe PostAccountsRequestBodyCapabilities'TaxReportingUs_1099K'
      -> Maybe
           PostAccountsRequestBodyCapabilities'TaxReportingUs_1099Misc'
      -> Maybe PostAccountsRequestBodyCapabilities'Transfers'
      -> PostAccountsRequestBodyCapabilities')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object
-> Text
-> Parser (Maybe PostAccountsRequestBodyCapabilities'CardIssuing')
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"card_issuing")) Parser
  (Maybe PostAccountsRequestBodyCapabilities'CardPayments'
   -> Maybe
        PostAccountsRequestBodyCapabilities'CartesBancairesPayments'
   -> Maybe PostAccountsRequestBodyCapabilities'EpsPayments'
   -> Maybe PostAccountsRequestBodyCapabilities'FpxPayments'
   -> Maybe PostAccountsRequestBodyCapabilities'GiropayPayments'
   -> Maybe PostAccountsRequestBodyCapabilities'GrabpayPayments'
   -> Maybe PostAccountsRequestBodyCapabilities'IdealPayments'
   -> Maybe PostAccountsRequestBodyCapabilities'JcbPayments'
   -> Maybe PostAccountsRequestBodyCapabilities'LegacyPayments'
   -> Maybe PostAccountsRequestBodyCapabilities'OxxoPayments'
   -> Maybe PostAccountsRequestBodyCapabilities'P24Payments'
   -> Maybe PostAccountsRequestBodyCapabilities'SepaDebitPayments'
   -> Maybe PostAccountsRequestBodyCapabilities'SofortPayments'
   -> Maybe PostAccountsRequestBodyCapabilities'TaxReportingUs_1099K'
   -> Maybe
        PostAccountsRequestBodyCapabilities'TaxReportingUs_1099Misc'
   -> Maybe PostAccountsRequestBodyCapabilities'Transfers'
   -> PostAccountsRequestBodyCapabilities')
-> Parser (Maybe PostAccountsRequestBodyCapabilities'CardPayments')
-> Parser
     (Maybe PostAccountsRequestBodyCapabilities'CartesBancairesPayments'
      -> Maybe PostAccountsRequestBodyCapabilities'EpsPayments'
      -> Maybe PostAccountsRequestBodyCapabilities'FpxPayments'
      -> Maybe PostAccountsRequestBodyCapabilities'GiropayPayments'
      -> Maybe PostAccountsRequestBodyCapabilities'GrabpayPayments'
      -> Maybe PostAccountsRequestBodyCapabilities'IdealPayments'
      -> Maybe PostAccountsRequestBodyCapabilities'JcbPayments'
      -> Maybe PostAccountsRequestBodyCapabilities'LegacyPayments'
      -> Maybe PostAccountsRequestBodyCapabilities'OxxoPayments'
      -> Maybe PostAccountsRequestBodyCapabilities'P24Payments'
      -> Maybe PostAccountsRequestBodyCapabilities'SepaDebitPayments'
      -> Maybe PostAccountsRequestBodyCapabilities'SofortPayments'
      -> Maybe PostAccountsRequestBodyCapabilities'TaxReportingUs_1099K'
      -> Maybe
           PostAccountsRequestBodyCapabilities'TaxReportingUs_1099Misc'
      -> Maybe PostAccountsRequestBodyCapabilities'Transfers'
      -> PostAccountsRequestBodyCapabilities')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object
-> Text
-> Parser (Maybe PostAccountsRequestBodyCapabilities'CardPayments')
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"card_payments")) Parser
  (Maybe PostAccountsRequestBodyCapabilities'CartesBancairesPayments'
   -> Maybe PostAccountsRequestBodyCapabilities'EpsPayments'
   -> Maybe PostAccountsRequestBodyCapabilities'FpxPayments'
   -> Maybe PostAccountsRequestBodyCapabilities'GiropayPayments'
   -> Maybe PostAccountsRequestBodyCapabilities'GrabpayPayments'
   -> Maybe PostAccountsRequestBodyCapabilities'IdealPayments'
   -> Maybe PostAccountsRequestBodyCapabilities'JcbPayments'
   -> Maybe PostAccountsRequestBodyCapabilities'LegacyPayments'
   -> Maybe PostAccountsRequestBodyCapabilities'OxxoPayments'
   -> Maybe PostAccountsRequestBodyCapabilities'P24Payments'
   -> Maybe PostAccountsRequestBodyCapabilities'SepaDebitPayments'
   -> Maybe PostAccountsRequestBodyCapabilities'SofortPayments'
   -> Maybe PostAccountsRequestBodyCapabilities'TaxReportingUs_1099K'
   -> Maybe
        PostAccountsRequestBodyCapabilities'TaxReportingUs_1099Misc'
   -> Maybe PostAccountsRequestBodyCapabilities'Transfers'
   -> PostAccountsRequestBodyCapabilities')
-> Parser
     (Maybe
        PostAccountsRequestBodyCapabilities'CartesBancairesPayments')
-> Parser
     (Maybe PostAccountsRequestBodyCapabilities'EpsPayments'
      -> Maybe PostAccountsRequestBodyCapabilities'FpxPayments'
      -> Maybe PostAccountsRequestBodyCapabilities'GiropayPayments'
      -> Maybe PostAccountsRequestBodyCapabilities'GrabpayPayments'
      -> Maybe PostAccountsRequestBodyCapabilities'IdealPayments'
      -> Maybe PostAccountsRequestBodyCapabilities'JcbPayments'
      -> Maybe PostAccountsRequestBodyCapabilities'LegacyPayments'
      -> Maybe PostAccountsRequestBodyCapabilities'OxxoPayments'
      -> Maybe PostAccountsRequestBodyCapabilities'P24Payments'
      -> Maybe PostAccountsRequestBodyCapabilities'SepaDebitPayments'
      -> Maybe PostAccountsRequestBodyCapabilities'SofortPayments'
      -> Maybe PostAccountsRequestBodyCapabilities'TaxReportingUs_1099K'
      -> Maybe
           PostAccountsRequestBodyCapabilities'TaxReportingUs_1099Misc'
      -> Maybe PostAccountsRequestBodyCapabilities'Transfers'
      -> PostAccountsRequestBodyCapabilities')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object
-> Text
-> Parser
     (Maybe
        PostAccountsRequestBodyCapabilities'CartesBancairesPayments')
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"cartes_bancaires_payments")) Parser
  (Maybe PostAccountsRequestBodyCapabilities'EpsPayments'
   -> Maybe PostAccountsRequestBodyCapabilities'FpxPayments'
   -> Maybe PostAccountsRequestBodyCapabilities'GiropayPayments'
   -> Maybe PostAccountsRequestBodyCapabilities'GrabpayPayments'
   -> Maybe PostAccountsRequestBodyCapabilities'IdealPayments'
   -> Maybe PostAccountsRequestBodyCapabilities'JcbPayments'
   -> Maybe PostAccountsRequestBodyCapabilities'LegacyPayments'
   -> Maybe PostAccountsRequestBodyCapabilities'OxxoPayments'
   -> Maybe PostAccountsRequestBodyCapabilities'P24Payments'
   -> Maybe PostAccountsRequestBodyCapabilities'SepaDebitPayments'
   -> Maybe PostAccountsRequestBodyCapabilities'SofortPayments'
   -> Maybe PostAccountsRequestBodyCapabilities'TaxReportingUs_1099K'
   -> Maybe
        PostAccountsRequestBodyCapabilities'TaxReportingUs_1099Misc'
   -> Maybe PostAccountsRequestBodyCapabilities'Transfers'
   -> PostAccountsRequestBodyCapabilities')
-> Parser (Maybe PostAccountsRequestBodyCapabilities'EpsPayments')
-> Parser
     (Maybe PostAccountsRequestBodyCapabilities'FpxPayments'
      -> Maybe PostAccountsRequestBodyCapabilities'GiropayPayments'
      -> Maybe PostAccountsRequestBodyCapabilities'GrabpayPayments'
      -> Maybe PostAccountsRequestBodyCapabilities'IdealPayments'
      -> Maybe PostAccountsRequestBodyCapabilities'JcbPayments'
      -> Maybe PostAccountsRequestBodyCapabilities'LegacyPayments'
      -> Maybe PostAccountsRequestBodyCapabilities'OxxoPayments'
      -> Maybe PostAccountsRequestBodyCapabilities'P24Payments'
      -> Maybe PostAccountsRequestBodyCapabilities'SepaDebitPayments'
      -> Maybe PostAccountsRequestBodyCapabilities'SofortPayments'
      -> Maybe PostAccountsRequestBodyCapabilities'TaxReportingUs_1099K'
      -> Maybe
           PostAccountsRequestBodyCapabilities'TaxReportingUs_1099Misc'
      -> Maybe PostAccountsRequestBodyCapabilities'Transfers'
      -> PostAccountsRequestBodyCapabilities')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object
-> Text
-> Parser (Maybe PostAccountsRequestBodyCapabilities'EpsPayments')
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"eps_payments")) Parser
  (Maybe PostAccountsRequestBodyCapabilities'FpxPayments'
   -> Maybe PostAccountsRequestBodyCapabilities'GiropayPayments'
   -> Maybe PostAccountsRequestBodyCapabilities'GrabpayPayments'
   -> Maybe PostAccountsRequestBodyCapabilities'IdealPayments'
   -> Maybe PostAccountsRequestBodyCapabilities'JcbPayments'
   -> Maybe PostAccountsRequestBodyCapabilities'LegacyPayments'
   -> Maybe PostAccountsRequestBodyCapabilities'OxxoPayments'
   -> Maybe PostAccountsRequestBodyCapabilities'P24Payments'
   -> Maybe PostAccountsRequestBodyCapabilities'SepaDebitPayments'
   -> Maybe PostAccountsRequestBodyCapabilities'SofortPayments'
   -> Maybe PostAccountsRequestBodyCapabilities'TaxReportingUs_1099K'
   -> Maybe
        PostAccountsRequestBodyCapabilities'TaxReportingUs_1099Misc'
   -> Maybe PostAccountsRequestBodyCapabilities'Transfers'
   -> PostAccountsRequestBodyCapabilities')
-> Parser (Maybe PostAccountsRequestBodyCapabilities'FpxPayments')
-> Parser
     (Maybe PostAccountsRequestBodyCapabilities'GiropayPayments'
      -> Maybe PostAccountsRequestBodyCapabilities'GrabpayPayments'
      -> Maybe PostAccountsRequestBodyCapabilities'IdealPayments'
      -> Maybe PostAccountsRequestBodyCapabilities'JcbPayments'
      -> Maybe PostAccountsRequestBodyCapabilities'LegacyPayments'
      -> Maybe PostAccountsRequestBodyCapabilities'OxxoPayments'
      -> Maybe PostAccountsRequestBodyCapabilities'P24Payments'
      -> Maybe PostAccountsRequestBodyCapabilities'SepaDebitPayments'
      -> Maybe PostAccountsRequestBodyCapabilities'SofortPayments'
      -> Maybe PostAccountsRequestBodyCapabilities'TaxReportingUs_1099K'
      -> Maybe
           PostAccountsRequestBodyCapabilities'TaxReportingUs_1099Misc'
      -> Maybe PostAccountsRequestBodyCapabilities'Transfers'
      -> PostAccountsRequestBodyCapabilities')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object
-> Text
-> Parser (Maybe PostAccountsRequestBodyCapabilities'FpxPayments')
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"fpx_payments")) Parser
  (Maybe PostAccountsRequestBodyCapabilities'GiropayPayments'
   -> Maybe PostAccountsRequestBodyCapabilities'GrabpayPayments'
   -> Maybe PostAccountsRequestBodyCapabilities'IdealPayments'
   -> Maybe PostAccountsRequestBodyCapabilities'JcbPayments'
   -> Maybe PostAccountsRequestBodyCapabilities'LegacyPayments'
   -> Maybe PostAccountsRequestBodyCapabilities'OxxoPayments'
   -> Maybe PostAccountsRequestBodyCapabilities'P24Payments'
   -> Maybe PostAccountsRequestBodyCapabilities'SepaDebitPayments'
   -> Maybe PostAccountsRequestBodyCapabilities'SofortPayments'
   -> Maybe PostAccountsRequestBodyCapabilities'TaxReportingUs_1099K'
   -> Maybe
        PostAccountsRequestBodyCapabilities'TaxReportingUs_1099Misc'
   -> Maybe PostAccountsRequestBodyCapabilities'Transfers'
   -> PostAccountsRequestBodyCapabilities')
-> Parser
     (Maybe PostAccountsRequestBodyCapabilities'GiropayPayments')
-> Parser
     (Maybe PostAccountsRequestBodyCapabilities'GrabpayPayments'
      -> Maybe PostAccountsRequestBodyCapabilities'IdealPayments'
      -> Maybe PostAccountsRequestBodyCapabilities'JcbPayments'
      -> Maybe PostAccountsRequestBodyCapabilities'LegacyPayments'
      -> Maybe PostAccountsRequestBodyCapabilities'OxxoPayments'
      -> Maybe PostAccountsRequestBodyCapabilities'P24Payments'
      -> Maybe PostAccountsRequestBodyCapabilities'SepaDebitPayments'
      -> Maybe PostAccountsRequestBodyCapabilities'SofortPayments'
      -> Maybe PostAccountsRequestBodyCapabilities'TaxReportingUs_1099K'
      -> Maybe
           PostAccountsRequestBodyCapabilities'TaxReportingUs_1099Misc'
      -> Maybe PostAccountsRequestBodyCapabilities'Transfers'
      -> PostAccountsRequestBodyCapabilities')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object
-> Text
-> Parser
     (Maybe PostAccountsRequestBodyCapabilities'GiropayPayments')
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"giropay_payments")) Parser
  (Maybe PostAccountsRequestBodyCapabilities'GrabpayPayments'
   -> Maybe PostAccountsRequestBodyCapabilities'IdealPayments'
   -> Maybe PostAccountsRequestBodyCapabilities'JcbPayments'
   -> Maybe PostAccountsRequestBodyCapabilities'LegacyPayments'
   -> Maybe PostAccountsRequestBodyCapabilities'OxxoPayments'
   -> Maybe PostAccountsRequestBodyCapabilities'P24Payments'
   -> Maybe PostAccountsRequestBodyCapabilities'SepaDebitPayments'
   -> Maybe PostAccountsRequestBodyCapabilities'SofortPayments'
   -> Maybe PostAccountsRequestBodyCapabilities'TaxReportingUs_1099K'
   -> Maybe
        PostAccountsRequestBodyCapabilities'TaxReportingUs_1099Misc'
   -> Maybe PostAccountsRequestBodyCapabilities'Transfers'
   -> PostAccountsRequestBodyCapabilities')
-> Parser
     (Maybe PostAccountsRequestBodyCapabilities'GrabpayPayments')
-> Parser
     (Maybe PostAccountsRequestBodyCapabilities'IdealPayments'
      -> Maybe PostAccountsRequestBodyCapabilities'JcbPayments'
      -> Maybe PostAccountsRequestBodyCapabilities'LegacyPayments'
      -> Maybe PostAccountsRequestBodyCapabilities'OxxoPayments'
      -> Maybe PostAccountsRequestBodyCapabilities'P24Payments'
      -> Maybe PostAccountsRequestBodyCapabilities'SepaDebitPayments'
      -> Maybe PostAccountsRequestBodyCapabilities'SofortPayments'
      -> Maybe PostAccountsRequestBodyCapabilities'TaxReportingUs_1099K'
      -> Maybe
           PostAccountsRequestBodyCapabilities'TaxReportingUs_1099Misc'
      -> Maybe PostAccountsRequestBodyCapabilities'Transfers'
      -> PostAccountsRequestBodyCapabilities')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object
-> Text
-> Parser
     (Maybe PostAccountsRequestBodyCapabilities'GrabpayPayments')
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"grabpay_payments")) Parser
  (Maybe PostAccountsRequestBodyCapabilities'IdealPayments'
   -> Maybe PostAccountsRequestBodyCapabilities'JcbPayments'
   -> Maybe PostAccountsRequestBodyCapabilities'LegacyPayments'
   -> Maybe PostAccountsRequestBodyCapabilities'OxxoPayments'
   -> Maybe PostAccountsRequestBodyCapabilities'P24Payments'
   -> Maybe PostAccountsRequestBodyCapabilities'SepaDebitPayments'
   -> Maybe PostAccountsRequestBodyCapabilities'SofortPayments'
   -> Maybe PostAccountsRequestBodyCapabilities'TaxReportingUs_1099K'
   -> Maybe
        PostAccountsRequestBodyCapabilities'TaxReportingUs_1099Misc'
   -> Maybe PostAccountsRequestBodyCapabilities'Transfers'
   -> PostAccountsRequestBodyCapabilities')
-> Parser
     (Maybe PostAccountsRequestBodyCapabilities'IdealPayments')
-> Parser
     (Maybe PostAccountsRequestBodyCapabilities'JcbPayments'
      -> Maybe PostAccountsRequestBodyCapabilities'LegacyPayments'
      -> Maybe PostAccountsRequestBodyCapabilities'OxxoPayments'
      -> Maybe PostAccountsRequestBodyCapabilities'P24Payments'
      -> Maybe PostAccountsRequestBodyCapabilities'SepaDebitPayments'
      -> Maybe PostAccountsRequestBodyCapabilities'SofortPayments'
      -> Maybe PostAccountsRequestBodyCapabilities'TaxReportingUs_1099K'
      -> Maybe
           PostAccountsRequestBodyCapabilities'TaxReportingUs_1099Misc'
      -> Maybe PostAccountsRequestBodyCapabilities'Transfers'
      -> PostAccountsRequestBodyCapabilities')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object
-> Text
-> Parser
     (Maybe PostAccountsRequestBodyCapabilities'IdealPayments')
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"ideal_payments")) Parser
  (Maybe PostAccountsRequestBodyCapabilities'JcbPayments'
   -> Maybe PostAccountsRequestBodyCapabilities'LegacyPayments'
   -> Maybe PostAccountsRequestBodyCapabilities'OxxoPayments'
   -> Maybe PostAccountsRequestBodyCapabilities'P24Payments'
   -> Maybe PostAccountsRequestBodyCapabilities'SepaDebitPayments'
   -> Maybe PostAccountsRequestBodyCapabilities'SofortPayments'
   -> Maybe PostAccountsRequestBodyCapabilities'TaxReportingUs_1099K'
   -> Maybe
        PostAccountsRequestBodyCapabilities'TaxReportingUs_1099Misc'
   -> Maybe PostAccountsRequestBodyCapabilities'Transfers'
   -> PostAccountsRequestBodyCapabilities')
-> Parser (Maybe PostAccountsRequestBodyCapabilities'JcbPayments')
-> Parser
     (Maybe PostAccountsRequestBodyCapabilities'LegacyPayments'
      -> Maybe PostAccountsRequestBodyCapabilities'OxxoPayments'
      -> Maybe PostAccountsRequestBodyCapabilities'P24Payments'
      -> Maybe PostAccountsRequestBodyCapabilities'SepaDebitPayments'
      -> Maybe PostAccountsRequestBodyCapabilities'SofortPayments'
      -> Maybe PostAccountsRequestBodyCapabilities'TaxReportingUs_1099K'
      -> Maybe
           PostAccountsRequestBodyCapabilities'TaxReportingUs_1099Misc'
      -> Maybe PostAccountsRequestBodyCapabilities'Transfers'
      -> PostAccountsRequestBodyCapabilities')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object
-> Text
-> Parser (Maybe PostAccountsRequestBodyCapabilities'JcbPayments')
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"jcb_payments")) Parser
  (Maybe PostAccountsRequestBodyCapabilities'LegacyPayments'
   -> Maybe PostAccountsRequestBodyCapabilities'OxxoPayments'
   -> Maybe PostAccountsRequestBodyCapabilities'P24Payments'
   -> Maybe PostAccountsRequestBodyCapabilities'SepaDebitPayments'
   -> Maybe PostAccountsRequestBodyCapabilities'SofortPayments'
   -> Maybe PostAccountsRequestBodyCapabilities'TaxReportingUs_1099K'
   -> Maybe
        PostAccountsRequestBodyCapabilities'TaxReportingUs_1099Misc'
   -> Maybe PostAccountsRequestBodyCapabilities'Transfers'
   -> PostAccountsRequestBodyCapabilities')
-> Parser
     (Maybe PostAccountsRequestBodyCapabilities'LegacyPayments')
-> Parser
     (Maybe PostAccountsRequestBodyCapabilities'OxxoPayments'
      -> Maybe PostAccountsRequestBodyCapabilities'P24Payments'
      -> Maybe PostAccountsRequestBodyCapabilities'SepaDebitPayments'
      -> Maybe PostAccountsRequestBodyCapabilities'SofortPayments'
      -> Maybe PostAccountsRequestBodyCapabilities'TaxReportingUs_1099K'
      -> Maybe
           PostAccountsRequestBodyCapabilities'TaxReportingUs_1099Misc'
      -> Maybe PostAccountsRequestBodyCapabilities'Transfers'
      -> PostAccountsRequestBodyCapabilities')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object
-> Text
-> Parser
     (Maybe PostAccountsRequestBodyCapabilities'LegacyPayments')
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"legacy_payments")) Parser
  (Maybe PostAccountsRequestBodyCapabilities'OxxoPayments'
   -> Maybe PostAccountsRequestBodyCapabilities'P24Payments'
   -> Maybe PostAccountsRequestBodyCapabilities'SepaDebitPayments'
   -> Maybe PostAccountsRequestBodyCapabilities'SofortPayments'
   -> Maybe PostAccountsRequestBodyCapabilities'TaxReportingUs_1099K'
   -> Maybe
        PostAccountsRequestBodyCapabilities'TaxReportingUs_1099Misc'
   -> Maybe PostAccountsRequestBodyCapabilities'Transfers'
   -> PostAccountsRequestBodyCapabilities')
-> Parser (Maybe PostAccountsRequestBodyCapabilities'OxxoPayments')
-> Parser
     (Maybe PostAccountsRequestBodyCapabilities'P24Payments'
      -> Maybe PostAccountsRequestBodyCapabilities'SepaDebitPayments'
      -> Maybe PostAccountsRequestBodyCapabilities'SofortPayments'
      -> Maybe PostAccountsRequestBodyCapabilities'TaxReportingUs_1099K'
      -> Maybe
           PostAccountsRequestBodyCapabilities'TaxReportingUs_1099Misc'
      -> Maybe PostAccountsRequestBodyCapabilities'Transfers'
      -> PostAccountsRequestBodyCapabilities')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object
-> Text
-> Parser (Maybe PostAccountsRequestBodyCapabilities'OxxoPayments')
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"oxxo_payments")) Parser
  (Maybe PostAccountsRequestBodyCapabilities'P24Payments'
   -> Maybe PostAccountsRequestBodyCapabilities'SepaDebitPayments'
   -> Maybe PostAccountsRequestBodyCapabilities'SofortPayments'
   -> Maybe PostAccountsRequestBodyCapabilities'TaxReportingUs_1099K'
   -> Maybe
        PostAccountsRequestBodyCapabilities'TaxReportingUs_1099Misc'
   -> Maybe PostAccountsRequestBodyCapabilities'Transfers'
   -> PostAccountsRequestBodyCapabilities')
-> Parser (Maybe PostAccountsRequestBodyCapabilities'P24Payments')
-> Parser
     (Maybe PostAccountsRequestBodyCapabilities'SepaDebitPayments'
      -> Maybe PostAccountsRequestBodyCapabilities'SofortPayments'
      -> Maybe PostAccountsRequestBodyCapabilities'TaxReportingUs_1099K'
      -> Maybe
           PostAccountsRequestBodyCapabilities'TaxReportingUs_1099Misc'
      -> Maybe PostAccountsRequestBodyCapabilities'Transfers'
      -> PostAccountsRequestBodyCapabilities')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object
-> Text
-> Parser (Maybe PostAccountsRequestBodyCapabilities'P24Payments')
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"p24_payments")) Parser
  (Maybe PostAccountsRequestBodyCapabilities'SepaDebitPayments'
   -> Maybe PostAccountsRequestBodyCapabilities'SofortPayments'
   -> Maybe PostAccountsRequestBodyCapabilities'TaxReportingUs_1099K'
   -> Maybe
        PostAccountsRequestBodyCapabilities'TaxReportingUs_1099Misc'
   -> Maybe PostAccountsRequestBodyCapabilities'Transfers'
   -> PostAccountsRequestBodyCapabilities')
-> Parser
     (Maybe PostAccountsRequestBodyCapabilities'SepaDebitPayments')
-> Parser
     (Maybe PostAccountsRequestBodyCapabilities'SofortPayments'
      -> Maybe PostAccountsRequestBodyCapabilities'TaxReportingUs_1099K'
      -> Maybe
           PostAccountsRequestBodyCapabilities'TaxReportingUs_1099Misc'
      -> Maybe PostAccountsRequestBodyCapabilities'Transfers'
      -> PostAccountsRequestBodyCapabilities')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object
-> Text
-> Parser
     (Maybe PostAccountsRequestBodyCapabilities'SepaDebitPayments')
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"sepa_debit_payments")) Parser
  (Maybe PostAccountsRequestBodyCapabilities'SofortPayments'
   -> Maybe PostAccountsRequestBodyCapabilities'TaxReportingUs_1099K'
   -> Maybe
        PostAccountsRequestBodyCapabilities'TaxReportingUs_1099Misc'
   -> Maybe PostAccountsRequestBodyCapabilities'Transfers'
   -> PostAccountsRequestBodyCapabilities')
-> Parser
     (Maybe PostAccountsRequestBodyCapabilities'SofortPayments')
-> Parser
     (Maybe PostAccountsRequestBodyCapabilities'TaxReportingUs_1099K'
      -> Maybe
           PostAccountsRequestBodyCapabilities'TaxReportingUs_1099Misc'
      -> Maybe PostAccountsRequestBodyCapabilities'Transfers'
      -> PostAccountsRequestBodyCapabilities')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object
-> Text
-> Parser
     (Maybe PostAccountsRequestBodyCapabilities'SofortPayments')
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"sofort_payments")) Parser
  (Maybe PostAccountsRequestBodyCapabilities'TaxReportingUs_1099K'
   -> Maybe
        PostAccountsRequestBodyCapabilities'TaxReportingUs_1099Misc'
   -> Maybe PostAccountsRequestBodyCapabilities'Transfers'
   -> PostAccountsRequestBodyCapabilities')
-> Parser
     (Maybe PostAccountsRequestBodyCapabilities'TaxReportingUs_1099K')
-> Parser
     (Maybe PostAccountsRequestBodyCapabilities'TaxReportingUs_1099Misc'
      -> Maybe PostAccountsRequestBodyCapabilities'Transfers'
      -> PostAccountsRequestBodyCapabilities')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object
-> Text
-> Parser
     (Maybe PostAccountsRequestBodyCapabilities'TaxReportingUs_1099K')
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"tax_reporting_us_1099_k")) Parser
  (Maybe PostAccountsRequestBodyCapabilities'TaxReportingUs_1099Misc'
   -> Maybe PostAccountsRequestBodyCapabilities'Transfers'
   -> PostAccountsRequestBodyCapabilities')
-> Parser
     (Maybe
        PostAccountsRequestBodyCapabilities'TaxReportingUs_1099Misc')
-> Parser
     (Maybe PostAccountsRequestBodyCapabilities'Transfers'
      -> PostAccountsRequestBodyCapabilities')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object
-> Text
-> Parser
     (Maybe
        PostAccountsRequestBodyCapabilities'TaxReportingUs_1099Misc')
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"tax_reporting_us_1099_misc")) Parser
  (Maybe PostAccountsRequestBodyCapabilities'Transfers'
   -> PostAccountsRequestBodyCapabilities')
-> Parser (Maybe PostAccountsRequestBodyCapabilities'Transfers')
-> Parser PostAccountsRequestBodyCapabilities'
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object
-> Text
-> Parser (Maybe PostAccountsRequestBodyCapabilities'Transfers')
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"transfers"))

-- | Create a new 'PostAccountsRequestBodyCapabilities'' with all required fields.
mkPostAccountsRequestBodyCapabilities' :: PostAccountsRequestBodyCapabilities'
mkPostAccountsRequestBodyCapabilities' :: PostAccountsRequestBodyCapabilities'
mkPostAccountsRequestBodyCapabilities' =
  PostAccountsRequestBodyCapabilities' :: Maybe PostAccountsRequestBodyCapabilities'AcssDebitPayments'
-> Maybe
     PostAccountsRequestBodyCapabilities'AfterpayClearpayPayments'
-> Maybe PostAccountsRequestBodyCapabilities'AuBecsDebitPayments'
-> Maybe PostAccountsRequestBodyCapabilities'BacsDebitPayments'
-> Maybe PostAccountsRequestBodyCapabilities'BancontactPayments'
-> Maybe PostAccountsRequestBodyCapabilities'CardIssuing'
-> Maybe PostAccountsRequestBodyCapabilities'CardPayments'
-> Maybe
     PostAccountsRequestBodyCapabilities'CartesBancairesPayments'
-> Maybe PostAccountsRequestBodyCapabilities'EpsPayments'
-> Maybe PostAccountsRequestBodyCapabilities'FpxPayments'
-> Maybe PostAccountsRequestBodyCapabilities'GiropayPayments'
-> Maybe PostAccountsRequestBodyCapabilities'GrabpayPayments'
-> Maybe PostAccountsRequestBodyCapabilities'IdealPayments'
-> Maybe PostAccountsRequestBodyCapabilities'JcbPayments'
-> Maybe PostAccountsRequestBodyCapabilities'LegacyPayments'
-> Maybe PostAccountsRequestBodyCapabilities'OxxoPayments'
-> Maybe PostAccountsRequestBodyCapabilities'P24Payments'
-> Maybe PostAccountsRequestBodyCapabilities'SepaDebitPayments'
-> Maybe PostAccountsRequestBodyCapabilities'SofortPayments'
-> Maybe PostAccountsRequestBodyCapabilities'TaxReportingUs_1099K'
-> Maybe
     PostAccountsRequestBodyCapabilities'TaxReportingUs_1099Misc'
-> Maybe PostAccountsRequestBodyCapabilities'Transfers'
-> PostAccountsRequestBodyCapabilities'
PostAccountsRequestBodyCapabilities'
    { postAccountsRequestBodyCapabilities'AcssDebitPayments :: Maybe PostAccountsRequestBodyCapabilities'AcssDebitPayments'
postAccountsRequestBodyCapabilities'AcssDebitPayments = Maybe PostAccountsRequestBodyCapabilities'AcssDebitPayments'
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsRequestBodyCapabilities'AfterpayClearpayPayments :: Maybe PostAccountsRequestBodyCapabilities'AfterpayClearpayPayments'
postAccountsRequestBodyCapabilities'AfterpayClearpayPayments = Maybe PostAccountsRequestBodyCapabilities'AfterpayClearpayPayments'
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsRequestBodyCapabilities'AuBecsDebitPayments :: Maybe PostAccountsRequestBodyCapabilities'AuBecsDebitPayments'
postAccountsRequestBodyCapabilities'AuBecsDebitPayments = Maybe PostAccountsRequestBodyCapabilities'AuBecsDebitPayments'
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsRequestBodyCapabilities'BacsDebitPayments :: Maybe PostAccountsRequestBodyCapabilities'BacsDebitPayments'
postAccountsRequestBodyCapabilities'BacsDebitPayments = Maybe PostAccountsRequestBodyCapabilities'BacsDebitPayments'
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsRequestBodyCapabilities'BancontactPayments :: Maybe PostAccountsRequestBodyCapabilities'BancontactPayments'
postAccountsRequestBodyCapabilities'BancontactPayments = Maybe PostAccountsRequestBodyCapabilities'BancontactPayments'
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsRequestBodyCapabilities'CardIssuing :: Maybe PostAccountsRequestBodyCapabilities'CardIssuing'
postAccountsRequestBodyCapabilities'CardIssuing = Maybe PostAccountsRequestBodyCapabilities'CardIssuing'
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsRequestBodyCapabilities'CardPayments :: Maybe PostAccountsRequestBodyCapabilities'CardPayments'
postAccountsRequestBodyCapabilities'CardPayments = Maybe PostAccountsRequestBodyCapabilities'CardPayments'
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsRequestBodyCapabilities'CartesBancairesPayments :: Maybe PostAccountsRequestBodyCapabilities'CartesBancairesPayments'
postAccountsRequestBodyCapabilities'CartesBancairesPayments = Maybe PostAccountsRequestBodyCapabilities'CartesBancairesPayments'
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsRequestBodyCapabilities'EpsPayments :: Maybe PostAccountsRequestBodyCapabilities'EpsPayments'
postAccountsRequestBodyCapabilities'EpsPayments = Maybe PostAccountsRequestBodyCapabilities'EpsPayments'
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsRequestBodyCapabilities'FpxPayments :: Maybe PostAccountsRequestBodyCapabilities'FpxPayments'
postAccountsRequestBodyCapabilities'FpxPayments = Maybe PostAccountsRequestBodyCapabilities'FpxPayments'
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsRequestBodyCapabilities'GiropayPayments :: Maybe PostAccountsRequestBodyCapabilities'GiropayPayments'
postAccountsRequestBodyCapabilities'GiropayPayments = Maybe PostAccountsRequestBodyCapabilities'GiropayPayments'
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsRequestBodyCapabilities'GrabpayPayments :: Maybe PostAccountsRequestBodyCapabilities'GrabpayPayments'
postAccountsRequestBodyCapabilities'GrabpayPayments = Maybe PostAccountsRequestBodyCapabilities'GrabpayPayments'
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsRequestBodyCapabilities'IdealPayments :: Maybe PostAccountsRequestBodyCapabilities'IdealPayments'
postAccountsRequestBodyCapabilities'IdealPayments = Maybe PostAccountsRequestBodyCapabilities'IdealPayments'
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsRequestBodyCapabilities'JcbPayments :: Maybe PostAccountsRequestBodyCapabilities'JcbPayments'
postAccountsRequestBodyCapabilities'JcbPayments = Maybe PostAccountsRequestBodyCapabilities'JcbPayments'
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsRequestBodyCapabilities'LegacyPayments :: Maybe PostAccountsRequestBodyCapabilities'LegacyPayments'
postAccountsRequestBodyCapabilities'LegacyPayments = Maybe PostAccountsRequestBodyCapabilities'LegacyPayments'
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsRequestBodyCapabilities'OxxoPayments :: Maybe PostAccountsRequestBodyCapabilities'OxxoPayments'
postAccountsRequestBodyCapabilities'OxxoPayments = Maybe PostAccountsRequestBodyCapabilities'OxxoPayments'
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsRequestBodyCapabilities'P24Payments :: Maybe PostAccountsRequestBodyCapabilities'P24Payments'
postAccountsRequestBodyCapabilities'P24Payments = Maybe PostAccountsRequestBodyCapabilities'P24Payments'
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsRequestBodyCapabilities'SepaDebitPayments :: Maybe PostAccountsRequestBodyCapabilities'SepaDebitPayments'
postAccountsRequestBodyCapabilities'SepaDebitPayments = Maybe PostAccountsRequestBodyCapabilities'SepaDebitPayments'
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsRequestBodyCapabilities'SofortPayments :: Maybe PostAccountsRequestBodyCapabilities'SofortPayments'
postAccountsRequestBodyCapabilities'SofortPayments = Maybe PostAccountsRequestBodyCapabilities'SofortPayments'
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsRequestBodyCapabilities'TaxReportingUs_1099K :: Maybe PostAccountsRequestBodyCapabilities'TaxReportingUs_1099K'
postAccountsRequestBodyCapabilities'TaxReportingUs_1099K = Maybe PostAccountsRequestBodyCapabilities'TaxReportingUs_1099K'
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsRequestBodyCapabilities'TaxReportingUs_1099Misc :: Maybe PostAccountsRequestBodyCapabilities'TaxReportingUs_1099Misc'
postAccountsRequestBodyCapabilities'TaxReportingUs_1099Misc = Maybe PostAccountsRequestBodyCapabilities'TaxReportingUs_1099Misc'
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsRequestBodyCapabilities'Transfers :: Maybe PostAccountsRequestBodyCapabilities'Transfers'
postAccountsRequestBodyCapabilities'Transfers = Maybe PostAccountsRequestBodyCapabilities'Transfers'
forall a. Maybe a
GHC.Maybe.Nothing
    }

-- | Defines the object schema located at @paths.\/v1\/accounts.POST.requestBody.content.application\/x-www-form-urlencoded.schema.properties.capabilities.properties.acss_debit_payments@ in the specification.
data PostAccountsRequestBodyCapabilities'AcssDebitPayments' = PostAccountsRequestBodyCapabilities'AcssDebitPayments'
  { -- | requested
    PostAccountsRequestBodyCapabilities'AcssDebitPayments'
-> Maybe Bool
postAccountsRequestBodyCapabilities'AcssDebitPayments'Requested :: (GHC.Maybe.Maybe GHC.Types.Bool)
  }
  deriving
    ( Int
-> PostAccountsRequestBodyCapabilities'AcssDebitPayments' -> ShowS
[PostAccountsRequestBodyCapabilities'AcssDebitPayments'] -> ShowS
PostAccountsRequestBodyCapabilities'AcssDebitPayments' -> String
(Int
 -> PostAccountsRequestBodyCapabilities'AcssDebitPayments' -> ShowS)
-> (PostAccountsRequestBodyCapabilities'AcssDebitPayments'
    -> String)
-> ([PostAccountsRequestBodyCapabilities'AcssDebitPayments']
    -> ShowS)
-> Show PostAccountsRequestBodyCapabilities'AcssDebitPayments'
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PostAccountsRequestBodyCapabilities'AcssDebitPayments'] -> ShowS
$cshowList :: [PostAccountsRequestBodyCapabilities'AcssDebitPayments'] -> ShowS
show :: PostAccountsRequestBodyCapabilities'AcssDebitPayments' -> String
$cshow :: PostAccountsRequestBodyCapabilities'AcssDebitPayments' -> String
showsPrec :: Int
-> PostAccountsRequestBodyCapabilities'AcssDebitPayments' -> ShowS
$cshowsPrec :: Int
-> PostAccountsRequestBodyCapabilities'AcssDebitPayments' -> ShowS
GHC.Show.Show,
      PostAccountsRequestBodyCapabilities'AcssDebitPayments'
-> PostAccountsRequestBodyCapabilities'AcssDebitPayments' -> Bool
(PostAccountsRequestBodyCapabilities'AcssDebitPayments'
 -> PostAccountsRequestBodyCapabilities'AcssDebitPayments' -> Bool)
-> (PostAccountsRequestBodyCapabilities'AcssDebitPayments'
    -> PostAccountsRequestBodyCapabilities'AcssDebitPayments' -> Bool)
-> Eq PostAccountsRequestBodyCapabilities'AcssDebitPayments'
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostAccountsRequestBodyCapabilities'AcssDebitPayments'
-> PostAccountsRequestBodyCapabilities'AcssDebitPayments' -> Bool
$c/= :: PostAccountsRequestBodyCapabilities'AcssDebitPayments'
-> PostAccountsRequestBodyCapabilities'AcssDebitPayments' -> Bool
== :: PostAccountsRequestBodyCapabilities'AcssDebitPayments'
-> PostAccountsRequestBodyCapabilities'AcssDebitPayments' -> Bool
$c== :: PostAccountsRequestBodyCapabilities'AcssDebitPayments'
-> PostAccountsRequestBodyCapabilities'AcssDebitPayments' -> Bool
GHC.Classes.Eq
    )

instance Data.Aeson.Types.ToJSON.ToJSON PostAccountsRequestBodyCapabilities'AcssDebitPayments' where
  toJSON :: PostAccountsRequestBodyCapabilities'AcssDebitPayments' -> Value
toJSON PostAccountsRequestBodyCapabilities'AcssDebitPayments'
obj = [Pair] -> Value
Data.Aeson.Types.Internal.object (Text
"requested" Text -> Maybe Bool -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyCapabilities'AcssDebitPayments'
-> Maybe Bool
postAccountsRequestBodyCapabilities'AcssDebitPayments'Requested PostAccountsRequestBodyCapabilities'AcssDebitPayments'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: [Pair]
forall a. Monoid a => a
GHC.Base.mempty)
  toEncoding :: PostAccountsRequestBodyCapabilities'AcssDebitPayments' -> Encoding
toEncoding PostAccountsRequestBodyCapabilities'AcssDebitPayments'
obj = Series -> Encoding
Data.Aeson.Encoding.Internal.pairs (Text
"requested" Text -> Maybe Bool -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyCapabilities'AcssDebitPayments'
-> Maybe Bool
postAccountsRequestBodyCapabilities'AcssDebitPayments'Requested PostAccountsRequestBodyCapabilities'AcssDebitPayments'
obj)

instance Data.Aeson.Types.FromJSON.FromJSON PostAccountsRequestBodyCapabilities'AcssDebitPayments' where
  parseJSON :: Value
-> Parser PostAccountsRequestBodyCapabilities'AcssDebitPayments'
parseJSON = String
-> (Object
    -> Parser PostAccountsRequestBodyCapabilities'AcssDebitPayments')
-> Value
-> Parser PostAccountsRequestBodyCapabilities'AcssDebitPayments'
forall a. String -> (Object -> Parser a) -> Value -> Parser a
Data.Aeson.Types.FromJSON.withObject String
"PostAccountsRequestBodyCapabilities'AcssDebitPayments'" (\Object
obj -> (Maybe Bool
 -> PostAccountsRequestBodyCapabilities'AcssDebitPayments')
-> Parser
     (Maybe Bool
      -> PostAccountsRequestBodyCapabilities'AcssDebitPayments')
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure Maybe Bool
-> PostAccountsRequestBodyCapabilities'AcssDebitPayments'
PostAccountsRequestBodyCapabilities'AcssDebitPayments' Parser
  (Maybe Bool
   -> PostAccountsRequestBodyCapabilities'AcssDebitPayments')
-> Parser (Maybe Bool)
-> Parser PostAccountsRequestBodyCapabilities'AcssDebitPayments'
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
"requested"))

-- | Create a new 'PostAccountsRequestBodyCapabilities'AcssDebitPayments'' with all required fields.
mkPostAccountsRequestBodyCapabilities'AcssDebitPayments' :: PostAccountsRequestBodyCapabilities'AcssDebitPayments'
mkPostAccountsRequestBodyCapabilities'AcssDebitPayments' :: PostAccountsRequestBodyCapabilities'AcssDebitPayments'
mkPostAccountsRequestBodyCapabilities'AcssDebitPayments' = PostAccountsRequestBodyCapabilities'AcssDebitPayments' :: Maybe Bool
-> PostAccountsRequestBodyCapabilities'AcssDebitPayments'
PostAccountsRequestBodyCapabilities'AcssDebitPayments' {postAccountsRequestBodyCapabilities'AcssDebitPayments'Requested :: Maybe Bool
postAccountsRequestBodyCapabilities'AcssDebitPayments'Requested = Maybe Bool
forall a. Maybe a
GHC.Maybe.Nothing}

-- | Defines the object schema located at @paths.\/v1\/accounts.POST.requestBody.content.application\/x-www-form-urlencoded.schema.properties.capabilities.properties.afterpay_clearpay_payments@ in the specification.
data PostAccountsRequestBodyCapabilities'AfterpayClearpayPayments' = PostAccountsRequestBodyCapabilities'AfterpayClearpayPayments'
  { -- | requested
    PostAccountsRequestBodyCapabilities'AfterpayClearpayPayments'
-> Maybe Bool
postAccountsRequestBodyCapabilities'AfterpayClearpayPayments'Requested :: (GHC.Maybe.Maybe GHC.Types.Bool)
  }
  deriving
    ( Int
-> PostAccountsRequestBodyCapabilities'AfterpayClearpayPayments'
-> ShowS
[PostAccountsRequestBodyCapabilities'AfterpayClearpayPayments']
-> ShowS
PostAccountsRequestBodyCapabilities'AfterpayClearpayPayments'
-> String
(Int
 -> PostAccountsRequestBodyCapabilities'AfterpayClearpayPayments'
 -> ShowS)
-> (PostAccountsRequestBodyCapabilities'AfterpayClearpayPayments'
    -> String)
-> ([PostAccountsRequestBodyCapabilities'AfterpayClearpayPayments']
    -> ShowS)
-> Show
     PostAccountsRequestBodyCapabilities'AfterpayClearpayPayments'
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PostAccountsRequestBodyCapabilities'AfterpayClearpayPayments']
-> ShowS
$cshowList :: [PostAccountsRequestBodyCapabilities'AfterpayClearpayPayments']
-> ShowS
show :: PostAccountsRequestBodyCapabilities'AfterpayClearpayPayments'
-> String
$cshow :: PostAccountsRequestBodyCapabilities'AfterpayClearpayPayments'
-> String
showsPrec :: Int
-> PostAccountsRequestBodyCapabilities'AfterpayClearpayPayments'
-> ShowS
$cshowsPrec :: Int
-> PostAccountsRequestBodyCapabilities'AfterpayClearpayPayments'
-> ShowS
GHC.Show.Show,
      PostAccountsRequestBodyCapabilities'AfterpayClearpayPayments'
-> PostAccountsRequestBodyCapabilities'AfterpayClearpayPayments'
-> Bool
(PostAccountsRequestBodyCapabilities'AfterpayClearpayPayments'
 -> PostAccountsRequestBodyCapabilities'AfterpayClearpayPayments'
 -> Bool)
-> (PostAccountsRequestBodyCapabilities'AfterpayClearpayPayments'
    -> PostAccountsRequestBodyCapabilities'AfterpayClearpayPayments'
    -> Bool)
-> Eq PostAccountsRequestBodyCapabilities'AfterpayClearpayPayments'
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostAccountsRequestBodyCapabilities'AfterpayClearpayPayments'
-> PostAccountsRequestBodyCapabilities'AfterpayClearpayPayments'
-> Bool
$c/= :: PostAccountsRequestBodyCapabilities'AfterpayClearpayPayments'
-> PostAccountsRequestBodyCapabilities'AfterpayClearpayPayments'
-> Bool
== :: PostAccountsRequestBodyCapabilities'AfterpayClearpayPayments'
-> PostAccountsRequestBodyCapabilities'AfterpayClearpayPayments'
-> Bool
$c== :: PostAccountsRequestBodyCapabilities'AfterpayClearpayPayments'
-> PostAccountsRequestBodyCapabilities'AfterpayClearpayPayments'
-> Bool
GHC.Classes.Eq
    )

instance Data.Aeson.Types.ToJSON.ToJSON PostAccountsRequestBodyCapabilities'AfterpayClearpayPayments' where
  toJSON :: PostAccountsRequestBodyCapabilities'AfterpayClearpayPayments'
-> Value
toJSON PostAccountsRequestBodyCapabilities'AfterpayClearpayPayments'
obj = [Pair] -> Value
Data.Aeson.Types.Internal.object (Text
"requested" Text -> Maybe Bool -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyCapabilities'AfterpayClearpayPayments'
-> Maybe Bool
postAccountsRequestBodyCapabilities'AfterpayClearpayPayments'Requested PostAccountsRequestBodyCapabilities'AfterpayClearpayPayments'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: [Pair]
forall a. Monoid a => a
GHC.Base.mempty)
  toEncoding :: PostAccountsRequestBodyCapabilities'AfterpayClearpayPayments'
-> Encoding
toEncoding PostAccountsRequestBodyCapabilities'AfterpayClearpayPayments'
obj = Series -> Encoding
Data.Aeson.Encoding.Internal.pairs (Text
"requested" Text -> Maybe Bool -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyCapabilities'AfterpayClearpayPayments'
-> Maybe Bool
postAccountsRequestBodyCapabilities'AfterpayClearpayPayments'Requested PostAccountsRequestBodyCapabilities'AfterpayClearpayPayments'
obj)

instance Data.Aeson.Types.FromJSON.FromJSON PostAccountsRequestBodyCapabilities'AfterpayClearpayPayments' where
  parseJSON :: Value
-> Parser
     PostAccountsRequestBodyCapabilities'AfterpayClearpayPayments'
parseJSON = String
-> (Object
    -> Parser
         PostAccountsRequestBodyCapabilities'AfterpayClearpayPayments')
-> Value
-> Parser
     PostAccountsRequestBodyCapabilities'AfterpayClearpayPayments'
forall a. String -> (Object -> Parser a) -> Value -> Parser a
Data.Aeson.Types.FromJSON.withObject String
"PostAccountsRequestBodyCapabilities'AfterpayClearpayPayments'" (\Object
obj -> (Maybe Bool
 -> PostAccountsRequestBodyCapabilities'AfterpayClearpayPayments')
-> Parser
     (Maybe Bool
      -> PostAccountsRequestBodyCapabilities'AfterpayClearpayPayments')
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure Maybe Bool
-> PostAccountsRequestBodyCapabilities'AfterpayClearpayPayments'
PostAccountsRequestBodyCapabilities'AfterpayClearpayPayments' Parser
  (Maybe Bool
   -> PostAccountsRequestBodyCapabilities'AfterpayClearpayPayments')
-> Parser (Maybe Bool)
-> Parser
     PostAccountsRequestBodyCapabilities'AfterpayClearpayPayments'
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
"requested"))

-- | Create a new 'PostAccountsRequestBodyCapabilities'AfterpayClearpayPayments'' with all required fields.
mkPostAccountsRequestBodyCapabilities'AfterpayClearpayPayments' :: PostAccountsRequestBodyCapabilities'AfterpayClearpayPayments'
mkPostAccountsRequestBodyCapabilities'AfterpayClearpayPayments' :: PostAccountsRequestBodyCapabilities'AfterpayClearpayPayments'
mkPostAccountsRequestBodyCapabilities'AfterpayClearpayPayments' = PostAccountsRequestBodyCapabilities'AfterpayClearpayPayments' :: Maybe Bool
-> PostAccountsRequestBodyCapabilities'AfterpayClearpayPayments'
PostAccountsRequestBodyCapabilities'AfterpayClearpayPayments' {postAccountsRequestBodyCapabilities'AfterpayClearpayPayments'Requested :: Maybe Bool
postAccountsRequestBodyCapabilities'AfterpayClearpayPayments'Requested = Maybe Bool
forall a. Maybe a
GHC.Maybe.Nothing}

-- | Defines the object schema located at @paths.\/v1\/accounts.POST.requestBody.content.application\/x-www-form-urlencoded.schema.properties.capabilities.properties.au_becs_debit_payments@ in the specification.
data PostAccountsRequestBodyCapabilities'AuBecsDebitPayments' = PostAccountsRequestBodyCapabilities'AuBecsDebitPayments'
  { -- | requested
    PostAccountsRequestBodyCapabilities'AuBecsDebitPayments'
-> Maybe Bool
postAccountsRequestBodyCapabilities'AuBecsDebitPayments'Requested :: (GHC.Maybe.Maybe GHC.Types.Bool)
  }
  deriving
    ( Int
-> PostAccountsRequestBodyCapabilities'AuBecsDebitPayments'
-> ShowS
[PostAccountsRequestBodyCapabilities'AuBecsDebitPayments'] -> ShowS
PostAccountsRequestBodyCapabilities'AuBecsDebitPayments' -> String
(Int
 -> PostAccountsRequestBodyCapabilities'AuBecsDebitPayments'
 -> ShowS)
-> (PostAccountsRequestBodyCapabilities'AuBecsDebitPayments'
    -> String)
-> ([PostAccountsRequestBodyCapabilities'AuBecsDebitPayments']
    -> ShowS)
-> Show PostAccountsRequestBodyCapabilities'AuBecsDebitPayments'
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PostAccountsRequestBodyCapabilities'AuBecsDebitPayments'] -> ShowS
$cshowList :: [PostAccountsRequestBodyCapabilities'AuBecsDebitPayments'] -> ShowS
show :: PostAccountsRequestBodyCapabilities'AuBecsDebitPayments' -> String
$cshow :: PostAccountsRequestBodyCapabilities'AuBecsDebitPayments' -> String
showsPrec :: Int
-> PostAccountsRequestBodyCapabilities'AuBecsDebitPayments'
-> ShowS
$cshowsPrec :: Int
-> PostAccountsRequestBodyCapabilities'AuBecsDebitPayments'
-> ShowS
GHC.Show.Show,
      PostAccountsRequestBodyCapabilities'AuBecsDebitPayments'
-> PostAccountsRequestBodyCapabilities'AuBecsDebitPayments' -> Bool
(PostAccountsRequestBodyCapabilities'AuBecsDebitPayments'
 -> PostAccountsRequestBodyCapabilities'AuBecsDebitPayments'
 -> Bool)
-> (PostAccountsRequestBodyCapabilities'AuBecsDebitPayments'
    -> PostAccountsRequestBodyCapabilities'AuBecsDebitPayments'
    -> Bool)
-> Eq PostAccountsRequestBodyCapabilities'AuBecsDebitPayments'
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostAccountsRequestBodyCapabilities'AuBecsDebitPayments'
-> PostAccountsRequestBodyCapabilities'AuBecsDebitPayments' -> Bool
$c/= :: PostAccountsRequestBodyCapabilities'AuBecsDebitPayments'
-> PostAccountsRequestBodyCapabilities'AuBecsDebitPayments' -> Bool
== :: PostAccountsRequestBodyCapabilities'AuBecsDebitPayments'
-> PostAccountsRequestBodyCapabilities'AuBecsDebitPayments' -> Bool
$c== :: PostAccountsRequestBodyCapabilities'AuBecsDebitPayments'
-> PostAccountsRequestBodyCapabilities'AuBecsDebitPayments' -> Bool
GHC.Classes.Eq
    )

instance Data.Aeson.Types.ToJSON.ToJSON PostAccountsRequestBodyCapabilities'AuBecsDebitPayments' where
  toJSON :: PostAccountsRequestBodyCapabilities'AuBecsDebitPayments' -> Value
toJSON PostAccountsRequestBodyCapabilities'AuBecsDebitPayments'
obj = [Pair] -> Value
Data.Aeson.Types.Internal.object (Text
"requested" Text -> Maybe Bool -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyCapabilities'AuBecsDebitPayments'
-> Maybe Bool
postAccountsRequestBodyCapabilities'AuBecsDebitPayments'Requested PostAccountsRequestBodyCapabilities'AuBecsDebitPayments'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: [Pair]
forall a. Monoid a => a
GHC.Base.mempty)
  toEncoding :: PostAccountsRequestBodyCapabilities'AuBecsDebitPayments'
-> Encoding
toEncoding PostAccountsRequestBodyCapabilities'AuBecsDebitPayments'
obj = Series -> Encoding
Data.Aeson.Encoding.Internal.pairs (Text
"requested" Text -> Maybe Bool -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyCapabilities'AuBecsDebitPayments'
-> Maybe Bool
postAccountsRequestBodyCapabilities'AuBecsDebitPayments'Requested PostAccountsRequestBodyCapabilities'AuBecsDebitPayments'
obj)

instance Data.Aeson.Types.FromJSON.FromJSON PostAccountsRequestBodyCapabilities'AuBecsDebitPayments' where
  parseJSON :: Value
-> Parser PostAccountsRequestBodyCapabilities'AuBecsDebitPayments'
parseJSON = String
-> (Object
    -> Parser PostAccountsRequestBodyCapabilities'AuBecsDebitPayments')
-> Value
-> Parser PostAccountsRequestBodyCapabilities'AuBecsDebitPayments'
forall a. String -> (Object -> Parser a) -> Value -> Parser a
Data.Aeson.Types.FromJSON.withObject String
"PostAccountsRequestBodyCapabilities'AuBecsDebitPayments'" (\Object
obj -> (Maybe Bool
 -> PostAccountsRequestBodyCapabilities'AuBecsDebitPayments')
-> Parser
     (Maybe Bool
      -> PostAccountsRequestBodyCapabilities'AuBecsDebitPayments')
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure Maybe Bool
-> PostAccountsRequestBodyCapabilities'AuBecsDebitPayments'
PostAccountsRequestBodyCapabilities'AuBecsDebitPayments' Parser
  (Maybe Bool
   -> PostAccountsRequestBodyCapabilities'AuBecsDebitPayments')
-> Parser (Maybe Bool)
-> Parser PostAccountsRequestBodyCapabilities'AuBecsDebitPayments'
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
"requested"))

-- | Create a new 'PostAccountsRequestBodyCapabilities'AuBecsDebitPayments'' with all required fields.
mkPostAccountsRequestBodyCapabilities'AuBecsDebitPayments' :: PostAccountsRequestBodyCapabilities'AuBecsDebitPayments'
mkPostAccountsRequestBodyCapabilities'AuBecsDebitPayments' :: PostAccountsRequestBodyCapabilities'AuBecsDebitPayments'
mkPostAccountsRequestBodyCapabilities'AuBecsDebitPayments' = PostAccountsRequestBodyCapabilities'AuBecsDebitPayments' :: Maybe Bool
-> PostAccountsRequestBodyCapabilities'AuBecsDebitPayments'
PostAccountsRequestBodyCapabilities'AuBecsDebitPayments' {postAccountsRequestBodyCapabilities'AuBecsDebitPayments'Requested :: Maybe Bool
postAccountsRequestBodyCapabilities'AuBecsDebitPayments'Requested = Maybe Bool
forall a. Maybe a
GHC.Maybe.Nothing}

-- | Defines the object schema located at @paths.\/v1\/accounts.POST.requestBody.content.application\/x-www-form-urlencoded.schema.properties.capabilities.properties.bacs_debit_payments@ in the specification.
data PostAccountsRequestBodyCapabilities'BacsDebitPayments' = PostAccountsRequestBodyCapabilities'BacsDebitPayments'
  { -- | requested
    PostAccountsRequestBodyCapabilities'BacsDebitPayments'
-> Maybe Bool
postAccountsRequestBodyCapabilities'BacsDebitPayments'Requested :: (GHC.Maybe.Maybe GHC.Types.Bool)
  }
  deriving
    ( Int
-> PostAccountsRequestBodyCapabilities'BacsDebitPayments' -> ShowS
[PostAccountsRequestBodyCapabilities'BacsDebitPayments'] -> ShowS
PostAccountsRequestBodyCapabilities'BacsDebitPayments' -> String
(Int
 -> PostAccountsRequestBodyCapabilities'BacsDebitPayments' -> ShowS)
-> (PostAccountsRequestBodyCapabilities'BacsDebitPayments'
    -> String)
-> ([PostAccountsRequestBodyCapabilities'BacsDebitPayments']
    -> ShowS)
-> Show PostAccountsRequestBodyCapabilities'BacsDebitPayments'
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PostAccountsRequestBodyCapabilities'BacsDebitPayments'] -> ShowS
$cshowList :: [PostAccountsRequestBodyCapabilities'BacsDebitPayments'] -> ShowS
show :: PostAccountsRequestBodyCapabilities'BacsDebitPayments' -> String
$cshow :: PostAccountsRequestBodyCapabilities'BacsDebitPayments' -> String
showsPrec :: Int
-> PostAccountsRequestBodyCapabilities'BacsDebitPayments' -> ShowS
$cshowsPrec :: Int
-> PostAccountsRequestBodyCapabilities'BacsDebitPayments' -> ShowS
GHC.Show.Show,
      PostAccountsRequestBodyCapabilities'BacsDebitPayments'
-> PostAccountsRequestBodyCapabilities'BacsDebitPayments' -> Bool
(PostAccountsRequestBodyCapabilities'BacsDebitPayments'
 -> PostAccountsRequestBodyCapabilities'BacsDebitPayments' -> Bool)
-> (PostAccountsRequestBodyCapabilities'BacsDebitPayments'
    -> PostAccountsRequestBodyCapabilities'BacsDebitPayments' -> Bool)
-> Eq PostAccountsRequestBodyCapabilities'BacsDebitPayments'
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostAccountsRequestBodyCapabilities'BacsDebitPayments'
-> PostAccountsRequestBodyCapabilities'BacsDebitPayments' -> Bool
$c/= :: PostAccountsRequestBodyCapabilities'BacsDebitPayments'
-> PostAccountsRequestBodyCapabilities'BacsDebitPayments' -> Bool
== :: PostAccountsRequestBodyCapabilities'BacsDebitPayments'
-> PostAccountsRequestBodyCapabilities'BacsDebitPayments' -> Bool
$c== :: PostAccountsRequestBodyCapabilities'BacsDebitPayments'
-> PostAccountsRequestBodyCapabilities'BacsDebitPayments' -> Bool
GHC.Classes.Eq
    )

instance Data.Aeson.Types.ToJSON.ToJSON PostAccountsRequestBodyCapabilities'BacsDebitPayments' where
  toJSON :: PostAccountsRequestBodyCapabilities'BacsDebitPayments' -> Value
toJSON PostAccountsRequestBodyCapabilities'BacsDebitPayments'
obj = [Pair] -> Value
Data.Aeson.Types.Internal.object (Text
"requested" Text -> Maybe Bool -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyCapabilities'BacsDebitPayments'
-> Maybe Bool
postAccountsRequestBodyCapabilities'BacsDebitPayments'Requested PostAccountsRequestBodyCapabilities'BacsDebitPayments'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: [Pair]
forall a. Monoid a => a
GHC.Base.mempty)
  toEncoding :: PostAccountsRequestBodyCapabilities'BacsDebitPayments' -> Encoding
toEncoding PostAccountsRequestBodyCapabilities'BacsDebitPayments'
obj = Series -> Encoding
Data.Aeson.Encoding.Internal.pairs (Text
"requested" Text -> Maybe Bool -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyCapabilities'BacsDebitPayments'
-> Maybe Bool
postAccountsRequestBodyCapabilities'BacsDebitPayments'Requested PostAccountsRequestBodyCapabilities'BacsDebitPayments'
obj)

instance Data.Aeson.Types.FromJSON.FromJSON PostAccountsRequestBodyCapabilities'BacsDebitPayments' where
  parseJSON :: Value
-> Parser PostAccountsRequestBodyCapabilities'BacsDebitPayments'
parseJSON = String
-> (Object
    -> Parser PostAccountsRequestBodyCapabilities'BacsDebitPayments')
-> Value
-> Parser PostAccountsRequestBodyCapabilities'BacsDebitPayments'
forall a. String -> (Object -> Parser a) -> Value -> Parser a
Data.Aeson.Types.FromJSON.withObject String
"PostAccountsRequestBodyCapabilities'BacsDebitPayments'" (\Object
obj -> (Maybe Bool
 -> PostAccountsRequestBodyCapabilities'BacsDebitPayments')
-> Parser
     (Maybe Bool
      -> PostAccountsRequestBodyCapabilities'BacsDebitPayments')
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure Maybe Bool
-> PostAccountsRequestBodyCapabilities'BacsDebitPayments'
PostAccountsRequestBodyCapabilities'BacsDebitPayments' Parser
  (Maybe Bool
   -> PostAccountsRequestBodyCapabilities'BacsDebitPayments')
-> Parser (Maybe Bool)
-> Parser PostAccountsRequestBodyCapabilities'BacsDebitPayments'
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
"requested"))

-- | Create a new 'PostAccountsRequestBodyCapabilities'BacsDebitPayments'' with all required fields.
mkPostAccountsRequestBodyCapabilities'BacsDebitPayments' :: PostAccountsRequestBodyCapabilities'BacsDebitPayments'
mkPostAccountsRequestBodyCapabilities'BacsDebitPayments' :: PostAccountsRequestBodyCapabilities'BacsDebitPayments'
mkPostAccountsRequestBodyCapabilities'BacsDebitPayments' = PostAccountsRequestBodyCapabilities'BacsDebitPayments' :: Maybe Bool
-> PostAccountsRequestBodyCapabilities'BacsDebitPayments'
PostAccountsRequestBodyCapabilities'BacsDebitPayments' {postAccountsRequestBodyCapabilities'BacsDebitPayments'Requested :: Maybe Bool
postAccountsRequestBodyCapabilities'BacsDebitPayments'Requested = Maybe Bool
forall a. Maybe a
GHC.Maybe.Nothing}

-- | Defines the object schema located at @paths.\/v1\/accounts.POST.requestBody.content.application\/x-www-form-urlencoded.schema.properties.capabilities.properties.bancontact_payments@ in the specification.
data PostAccountsRequestBodyCapabilities'BancontactPayments' = PostAccountsRequestBodyCapabilities'BancontactPayments'
  { -- | requested
    PostAccountsRequestBodyCapabilities'BancontactPayments'
-> Maybe Bool
postAccountsRequestBodyCapabilities'BancontactPayments'Requested :: (GHC.Maybe.Maybe GHC.Types.Bool)
  }
  deriving
    ( Int
-> PostAccountsRequestBodyCapabilities'BancontactPayments' -> ShowS
[PostAccountsRequestBodyCapabilities'BancontactPayments'] -> ShowS
PostAccountsRequestBodyCapabilities'BancontactPayments' -> String
(Int
 -> PostAccountsRequestBodyCapabilities'BancontactPayments'
 -> ShowS)
-> (PostAccountsRequestBodyCapabilities'BancontactPayments'
    -> String)
-> ([PostAccountsRequestBodyCapabilities'BancontactPayments']
    -> ShowS)
-> Show PostAccountsRequestBodyCapabilities'BancontactPayments'
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PostAccountsRequestBodyCapabilities'BancontactPayments'] -> ShowS
$cshowList :: [PostAccountsRequestBodyCapabilities'BancontactPayments'] -> ShowS
show :: PostAccountsRequestBodyCapabilities'BancontactPayments' -> String
$cshow :: PostAccountsRequestBodyCapabilities'BancontactPayments' -> String
showsPrec :: Int
-> PostAccountsRequestBodyCapabilities'BancontactPayments' -> ShowS
$cshowsPrec :: Int
-> PostAccountsRequestBodyCapabilities'BancontactPayments' -> ShowS
GHC.Show.Show,
      PostAccountsRequestBodyCapabilities'BancontactPayments'
-> PostAccountsRequestBodyCapabilities'BancontactPayments' -> Bool
(PostAccountsRequestBodyCapabilities'BancontactPayments'
 -> PostAccountsRequestBodyCapabilities'BancontactPayments' -> Bool)
-> (PostAccountsRequestBodyCapabilities'BancontactPayments'
    -> PostAccountsRequestBodyCapabilities'BancontactPayments' -> Bool)
-> Eq PostAccountsRequestBodyCapabilities'BancontactPayments'
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostAccountsRequestBodyCapabilities'BancontactPayments'
-> PostAccountsRequestBodyCapabilities'BancontactPayments' -> Bool
$c/= :: PostAccountsRequestBodyCapabilities'BancontactPayments'
-> PostAccountsRequestBodyCapabilities'BancontactPayments' -> Bool
== :: PostAccountsRequestBodyCapabilities'BancontactPayments'
-> PostAccountsRequestBodyCapabilities'BancontactPayments' -> Bool
$c== :: PostAccountsRequestBodyCapabilities'BancontactPayments'
-> PostAccountsRequestBodyCapabilities'BancontactPayments' -> Bool
GHC.Classes.Eq
    )

instance Data.Aeson.Types.ToJSON.ToJSON PostAccountsRequestBodyCapabilities'BancontactPayments' where
  toJSON :: PostAccountsRequestBodyCapabilities'BancontactPayments' -> Value
toJSON PostAccountsRequestBodyCapabilities'BancontactPayments'
obj = [Pair] -> Value
Data.Aeson.Types.Internal.object (Text
"requested" Text -> Maybe Bool -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyCapabilities'BancontactPayments'
-> Maybe Bool
postAccountsRequestBodyCapabilities'BancontactPayments'Requested PostAccountsRequestBodyCapabilities'BancontactPayments'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: [Pair]
forall a. Monoid a => a
GHC.Base.mempty)
  toEncoding :: PostAccountsRequestBodyCapabilities'BancontactPayments' -> Encoding
toEncoding PostAccountsRequestBodyCapabilities'BancontactPayments'
obj = Series -> Encoding
Data.Aeson.Encoding.Internal.pairs (Text
"requested" Text -> Maybe Bool -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyCapabilities'BancontactPayments'
-> Maybe Bool
postAccountsRequestBodyCapabilities'BancontactPayments'Requested PostAccountsRequestBodyCapabilities'BancontactPayments'
obj)

instance Data.Aeson.Types.FromJSON.FromJSON PostAccountsRequestBodyCapabilities'BancontactPayments' where
  parseJSON :: Value
-> Parser PostAccountsRequestBodyCapabilities'BancontactPayments'
parseJSON = String
-> (Object
    -> Parser PostAccountsRequestBodyCapabilities'BancontactPayments')
-> Value
-> Parser PostAccountsRequestBodyCapabilities'BancontactPayments'
forall a. String -> (Object -> Parser a) -> Value -> Parser a
Data.Aeson.Types.FromJSON.withObject String
"PostAccountsRequestBodyCapabilities'BancontactPayments'" (\Object
obj -> (Maybe Bool
 -> PostAccountsRequestBodyCapabilities'BancontactPayments')
-> Parser
     (Maybe Bool
      -> PostAccountsRequestBodyCapabilities'BancontactPayments')
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure Maybe Bool
-> PostAccountsRequestBodyCapabilities'BancontactPayments'
PostAccountsRequestBodyCapabilities'BancontactPayments' Parser
  (Maybe Bool
   -> PostAccountsRequestBodyCapabilities'BancontactPayments')
-> Parser (Maybe Bool)
-> Parser PostAccountsRequestBodyCapabilities'BancontactPayments'
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
"requested"))

-- | Create a new 'PostAccountsRequestBodyCapabilities'BancontactPayments'' with all required fields.
mkPostAccountsRequestBodyCapabilities'BancontactPayments' :: PostAccountsRequestBodyCapabilities'BancontactPayments'
mkPostAccountsRequestBodyCapabilities'BancontactPayments' :: PostAccountsRequestBodyCapabilities'BancontactPayments'
mkPostAccountsRequestBodyCapabilities'BancontactPayments' = PostAccountsRequestBodyCapabilities'BancontactPayments' :: Maybe Bool
-> PostAccountsRequestBodyCapabilities'BancontactPayments'
PostAccountsRequestBodyCapabilities'BancontactPayments' {postAccountsRequestBodyCapabilities'BancontactPayments'Requested :: Maybe Bool
postAccountsRequestBodyCapabilities'BancontactPayments'Requested = Maybe Bool
forall a. Maybe a
GHC.Maybe.Nothing}

-- | Defines the object schema located at @paths.\/v1\/accounts.POST.requestBody.content.application\/x-www-form-urlencoded.schema.properties.capabilities.properties.card_issuing@ in the specification.
data PostAccountsRequestBodyCapabilities'CardIssuing' = PostAccountsRequestBodyCapabilities'CardIssuing'
  { -- | requested
    PostAccountsRequestBodyCapabilities'CardIssuing' -> Maybe Bool
postAccountsRequestBodyCapabilities'CardIssuing'Requested :: (GHC.Maybe.Maybe GHC.Types.Bool)
  }
  deriving
    ( Int -> PostAccountsRequestBodyCapabilities'CardIssuing' -> ShowS
[PostAccountsRequestBodyCapabilities'CardIssuing'] -> ShowS
PostAccountsRequestBodyCapabilities'CardIssuing' -> String
(Int -> PostAccountsRequestBodyCapabilities'CardIssuing' -> ShowS)
-> (PostAccountsRequestBodyCapabilities'CardIssuing' -> String)
-> ([PostAccountsRequestBodyCapabilities'CardIssuing'] -> ShowS)
-> Show PostAccountsRequestBodyCapabilities'CardIssuing'
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PostAccountsRequestBodyCapabilities'CardIssuing'] -> ShowS
$cshowList :: [PostAccountsRequestBodyCapabilities'CardIssuing'] -> ShowS
show :: PostAccountsRequestBodyCapabilities'CardIssuing' -> String
$cshow :: PostAccountsRequestBodyCapabilities'CardIssuing' -> String
showsPrec :: Int -> PostAccountsRequestBodyCapabilities'CardIssuing' -> ShowS
$cshowsPrec :: Int -> PostAccountsRequestBodyCapabilities'CardIssuing' -> ShowS
GHC.Show.Show,
      PostAccountsRequestBodyCapabilities'CardIssuing'
-> PostAccountsRequestBodyCapabilities'CardIssuing' -> Bool
(PostAccountsRequestBodyCapabilities'CardIssuing'
 -> PostAccountsRequestBodyCapabilities'CardIssuing' -> Bool)
-> (PostAccountsRequestBodyCapabilities'CardIssuing'
    -> PostAccountsRequestBodyCapabilities'CardIssuing' -> Bool)
-> Eq PostAccountsRequestBodyCapabilities'CardIssuing'
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostAccountsRequestBodyCapabilities'CardIssuing'
-> PostAccountsRequestBodyCapabilities'CardIssuing' -> Bool
$c/= :: PostAccountsRequestBodyCapabilities'CardIssuing'
-> PostAccountsRequestBodyCapabilities'CardIssuing' -> Bool
== :: PostAccountsRequestBodyCapabilities'CardIssuing'
-> PostAccountsRequestBodyCapabilities'CardIssuing' -> Bool
$c== :: PostAccountsRequestBodyCapabilities'CardIssuing'
-> PostAccountsRequestBodyCapabilities'CardIssuing' -> Bool
GHC.Classes.Eq
    )

instance Data.Aeson.Types.ToJSON.ToJSON PostAccountsRequestBodyCapabilities'CardIssuing' where
  toJSON :: PostAccountsRequestBodyCapabilities'CardIssuing' -> Value
toJSON PostAccountsRequestBodyCapabilities'CardIssuing'
obj = [Pair] -> Value
Data.Aeson.Types.Internal.object (Text
"requested" Text -> Maybe Bool -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyCapabilities'CardIssuing' -> Maybe Bool
postAccountsRequestBodyCapabilities'CardIssuing'Requested PostAccountsRequestBodyCapabilities'CardIssuing'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: [Pair]
forall a. Monoid a => a
GHC.Base.mempty)
  toEncoding :: PostAccountsRequestBodyCapabilities'CardIssuing' -> Encoding
toEncoding PostAccountsRequestBodyCapabilities'CardIssuing'
obj = Series -> Encoding
Data.Aeson.Encoding.Internal.pairs (Text
"requested" Text -> Maybe Bool -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyCapabilities'CardIssuing' -> Maybe Bool
postAccountsRequestBodyCapabilities'CardIssuing'Requested PostAccountsRequestBodyCapabilities'CardIssuing'
obj)

instance Data.Aeson.Types.FromJSON.FromJSON PostAccountsRequestBodyCapabilities'CardIssuing' where
  parseJSON :: Value -> Parser PostAccountsRequestBodyCapabilities'CardIssuing'
parseJSON = String
-> (Object
    -> Parser PostAccountsRequestBodyCapabilities'CardIssuing')
-> Value
-> Parser PostAccountsRequestBodyCapabilities'CardIssuing'
forall a. String -> (Object -> Parser a) -> Value -> Parser a
Data.Aeson.Types.FromJSON.withObject String
"PostAccountsRequestBodyCapabilities'CardIssuing'" (\Object
obj -> (Maybe Bool -> PostAccountsRequestBodyCapabilities'CardIssuing')
-> Parser
     (Maybe Bool -> PostAccountsRequestBodyCapabilities'CardIssuing')
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure Maybe Bool -> PostAccountsRequestBodyCapabilities'CardIssuing'
PostAccountsRequestBodyCapabilities'CardIssuing' Parser
  (Maybe Bool -> PostAccountsRequestBodyCapabilities'CardIssuing')
-> Parser (Maybe Bool)
-> Parser PostAccountsRequestBodyCapabilities'CardIssuing'
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
"requested"))

-- | Create a new 'PostAccountsRequestBodyCapabilities'CardIssuing'' with all required fields.
mkPostAccountsRequestBodyCapabilities'CardIssuing' :: PostAccountsRequestBodyCapabilities'CardIssuing'
mkPostAccountsRequestBodyCapabilities'CardIssuing' :: PostAccountsRequestBodyCapabilities'CardIssuing'
mkPostAccountsRequestBodyCapabilities'CardIssuing' = PostAccountsRequestBodyCapabilities'CardIssuing' :: Maybe Bool -> PostAccountsRequestBodyCapabilities'CardIssuing'
PostAccountsRequestBodyCapabilities'CardIssuing' {postAccountsRequestBodyCapabilities'CardIssuing'Requested :: Maybe Bool
postAccountsRequestBodyCapabilities'CardIssuing'Requested = Maybe Bool
forall a. Maybe a
GHC.Maybe.Nothing}

-- | Defines the object schema located at @paths.\/v1\/accounts.POST.requestBody.content.application\/x-www-form-urlencoded.schema.properties.capabilities.properties.card_payments@ in the specification.
data PostAccountsRequestBodyCapabilities'CardPayments' = PostAccountsRequestBodyCapabilities'CardPayments'
  { -- | requested
    PostAccountsRequestBodyCapabilities'CardPayments' -> Maybe Bool
postAccountsRequestBodyCapabilities'CardPayments'Requested :: (GHC.Maybe.Maybe GHC.Types.Bool)
  }
  deriving
    ( Int -> PostAccountsRequestBodyCapabilities'CardPayments' -> ShowS
[PostAccountsRequestBodyCapabilities'CardPayments'] -> ShowS
PostAccountsRequestBodyCapabilities'CardPayments' -> String
(Int -> PostAccountsRequestBodyCapabilities'CardPayments' -> ShowS)
-> (PostAccountsRequestBodyCapabilities'CardPayments' -> String)
-> ([PostAccountsRequestBodyCapabilities'CardPayments'] -> ShowS)
-> Show PostAccountsRequestBodyCapabilities'CardPayments'
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PostAccountsRequestBodyCapabilities'CardPayments'] -> ShowS
$cshowList :: [PostAccountsRequestBodyCapabilities'CardPayments'] -> ShowS
show :: PostAccountsRequestBodyCapabilities'CardPayments' -> String
$cshow :: PostAccountsRequestBodyCapabilities'CardPayments' -> String
showsPrec :: Int -> PostAccountsRequestBodyCapabilities'CardPayments' -> ShowS
$cshowsPrec :: Int -> PostAccountsRequestBodyCapabilities'CardPayments' -> ShowS
GHC.Show.Show,
      PostAccountsRequestBodyCapabilities'CardPayments'
-> PostAccountsRequestBodyCapabilities'CardPayments' -> Bool
(PostAccountsRequestBodyCapabilities'CardPayments'
 -> PostAccountsRequestBodyCapabilities'CardPayments' -> Bool)
-> (PostAccountsRequestBodyCapabilities'CardPayments'
    -> PostAccountsRequestBodyCapabilities'CardPayments' -> Bool)
-> Eq PostAccountsRequestBodyCapabilities'CardPayments'
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostAccountsRequestBodyCapabilities'CardPayments'
-> PostAccountsRequestBodyCapabilities'CardPayments' -> Bool
$c/= :: PostAccountsRequestBodyCapabilities'CardPayments'
-> PostAccountsRequestBodyCapabilities'CardPayments' -> Bool
== :: PostAccountsRequestBodyCapabilities'CardPayments'
-> PostAccountsRequestBodyCapabilities'CardPayments' -> Bool
$c== :: PostAccountsRequestBodyCapabilities'CardPayments'
-> PostAccountsRequestBodyCapabilities'CardPayments' -> Bool
GHC.Classes.Eq
    )

instance Data.Aeson.Types.ToJSON.ToJSON PostAccountsRequestBodyCapabilities'CardPayments' where
  toJSON :: PostAccountsRequestBodyCapabilities'CardPayments' -> Value
toJSON PostAccountsRequestBodyCapabilities'CardPayments'
obj = [Pair] -> Value
Data.Aeson.Types.Internal.object (Text
"requested" Text -> Maybe Bool -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyCapabilities'CardPayments' -> Maybe Bool
postAccountsRequestBodyCapabilities'CardPayments'Requested PostAccountsRequestBodyCapabilities'CardPayments'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: [Pair]
forall a. Monoid a => a
GHC.Base.mempty)
  toEncoding :: PostAccountsRequestBodyCapabilities'CardPayments' -> Encoding
toEncoding PostAccountsRequestBodyCapabilities'CardPayments'
obj = Series -> Encoding
Data.Aeson.Encoding.Internal.pairs (Text
"requested" Text -> Maybe Bool -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyCapabilities'CardPayments' -> Maybe Bool
postAccountsRequestBodyCapabilities'CardPayments'Requested PostAccountsRequestBodyCapabilities'CardPayments'
obj)

instance Data.Aeson.Types.FromJSON.FromJSON PostAccountsRequestBodyCapabilities'CardPayments' where
  parseJSON :: Value -> Parser PostAccountsRequestBodyCapabilities'CardPayments'
parseJSON = String
-> (Object
    -> Parser PostAccountsRequestBodyCapabilities'CardPayments')
-> Value
-> Parser PostAccountsRequestBodyCapabilities'CardPayments'
forall a. String -> (Object -> Parser a) -> Value -> Parser a
Data.Aeson.Types.FromJSON.withObject String
"PostAccountsRequestBodyCapabilities'CardPayments'" (\Object
obj -> (Maybe Bool -> PostAccountsRequestBodyCapabilities'CardPayments')
-> Parser
     (Maybe Bool -> PostAccountsRequestBodyCapabilities'CardPayments')
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure Maybe Bool -> PostAccountsRequestBodyCapabilities'CardPayments'
PostAccountsRequestBodyCapabilities'CardPayments' Parser
  (Maybe Bool -> PostAccountsRequestBodyCapabilities'CardPayments')
-> Parser (Maybe Bool)
-> Parser PostAccountsRequestBodyCapabilities'CardPayments'
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
"requested"))

-- | Create a new 'PostAccountsRequestBodyCapabilities'CardPayments'' with all required fields.
mkPostAccountsRequestBodyCapabilities'CardPayments' :: PostAccountsRequestBodyCapabilities'CardPayments'
mkPostAccountsRequestBodyCapabilities'CardPayments' :: PostAccountsRequestBodyCapabilities'CardPayments'
mkPostAccountsRequestBodyCapabilities'CardPayments' = PostAccountsRequestBodyCapabilities'CardPayments' :: Maybe Bool -> PostAccountsRequestBodyCapabilities'CardPayments'
PostAccountsRequestBodyCapabilities'CardPayments' {postAccountsRequestBodyCapabilities'CardPayments'Requested :: Maybe Bool
postAccountsRequestBodyCapabilities'CardPayments'Requested = Maybe Bool
forall a. Maybe a
GHC.Maybe.Nothing}

-- | Defines the object schema located at @paths.\/v1\/accounts.POST.requestBody.content.application\/x-www-form-urlencoded.schema.properties.capabilities.properties.cartes_bancaires_payments@ in the specification.
data PostAccountsRequestBodyCapabilities'CartesBancairesPayments' = PostAccountsRequestBodyCapabilities'CartesBancairesPayments'
  { -- | requested
    PostAccountsRequestBodyCapabilities'CartesBancairesPayments'
-> Maybe Bool
postAccountsRequestBodyCapabilities'CartesBancairesPayments'Requested :: (GHC.Maybe.Maybe GHC.Types.Bool)
  }
  deriving
    ( Int
-> PostAccountsRequestBodyCapabilities'CartesBancairesPayments'
-> ShowS
[PostAccountsRequestBodyCapabilities'CartesBancairesPayments']
-> ShowS
PostAccountsRequestBodyCapabilities'CartesBancairesPayments'
-> String
(Int
 -> PostAccountsRequestBodyCapabilities'CartesBancairesPayments'
 -> ShowS)
-> (PostAccountsRequestBodyCapabilities'CartesBancairesPayments'
    -> String)
-> ([PostAccountsRequestBodyCapabilities'CartesBancairesPayments']
    -> ShowS)
-> Show
     PostAccountsRequestBodyCapabilities'CartesBancairesPayments'
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PostAccountsRequestBodyCapabilities'CartesBancairesPayments']
-> ShowS
$cshowList :: [PostAccountsRequestBodyCapabilities'CartesBancairesPayments']
-> ShowS
show :: PostAccountsRequestBodyCapabilities'CartesBancairesPayments'
-> String
$cshow :: PostAccountsRequestBodyCapabilities'CartesBancairesPayments'
-> String
showsPrec :: Int
-> PostAccountsRequestBodyCapabilities'CartesBancairesPayments'
-> ShowS
$cshowsPrec :: Int
-> PostAccountsRequestBodyCapabilities'CartesBancairesPayments'
-> ShowS
GHC.Show.Show,
      PostAccountsRequestBodyCapabilities'CartesBancairesPayments'
-> PostAccountsRequestBodyCapabilities'CartesBancairesPayments'
-> Bool
(PostAccountsRequestBodyCapabilities'CartesBancairesPayments'
 -> PostAccountsRequestBodyCapabilities'CartesBancairesPayments'
 -> Bool)
-> (PostAccountsRequestBodyCapabilities'CartesBancairesPayments'
    -> PostAccountsRequestBodyCapabilities'CartesBancairesPayments'
    -> Bool)
-> Eq PostAccountsRequestBodyCapabilities'CartesBancairesPayments'
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostAccountsRequestBodyCapabilities'CartesBancairesPayments'
-> PostAccountsRequestBodyCapabilities'CartesBancairesPayments'
-> Bool
$c/= :: PostAccountsRequestBodyCapabilities'CartesBancairesPayments'
-> PostAccountsRequestBodyCapabilities'CartesBancairesPayments'
-> Bool
== :: PostAccountsRequestBodyCapabilities'CartesBancairesPayments'
-> PostAccountsRequestBodyCapabilities'CartesBancairesPayments'
-> Bool
$c== :: PostAccountsRequestBodyCapabilities'CartesBancairesPayments'
-> PostAccountsRequestBodyCapabilities'CartesBancairesPayments'
-> Bool
GHC.Classes.Eq
    )

instance Data.Aeson.Types.ToJSON.ToJSON PostAccountsRequestBodyCapabilities'CartesBancairesPayments' where
  toJSON :: PostAccountsRequestBodyCapabilities'CartesBancairesPayments'
-> Value
toJSON PostAccountsRequestBodyCapabilities'CartesBancairesPayments'
obj = [Pair] -> Value
Data.Aeson.Types.Internal.object (Text
"requested" Text -> Maybe Bool -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyCapabilities'CartesBancairesPayments'
-> Maybe Bool
postAccountsRequestBodyCapabilities'CartesBancairesPayments'Requested PostAccountsRequestBodyCapabilities'CartesBancairesPayments'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: [Pair]
forall a. Monoid a => a
GHC.Base.mempty)
  toEncoding :: PostAccountsRequestBodyCapabilities'CartesBancairesPayments'
-> Encoding
toEncoding PostAccountsRequestBodyCapabilities'CartesBancairesPayments'
obj = Series -> Encoding
Data.Aeson.Encoding.Internal.pairs (Text
"requested" Text -> Maybe Bool -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyCapabilities'CartesBancairesPayments'
-> Maybe Bool
postAccountsRequestBodyCapabilities'CartesBancairesPayments'Requested PostAccountsRequestBodyCapabilities'CartesBancairesPayments'
obj)

instance Data.Aeson.Types.FromJSON.FromJSON PostAccountsRequestBodyCapabilities'CartesBancairesPayments' where
  parseJSON :: Value
-> Parser
     PostAccountsRequestBodyCapabilities'CartesBancairesPayments'
parseJSON = String
-> (Object
    -> Parser
         PostAccountsRequestBodyCapabilities'CartesBancairesPayments')
-> Value
-> Parser
     PostAccountsRequestBodyCapabilities'CartesBancairesPayments'
forall a. String -> (Object -> Parser a) -> Value -> Parser a
Data.Aeson.Types.FromJSON.withObject String
"PostAccountsRequestBodyCapabilities'CartesBancairesPayments'" (\Object
obj -> (Maybe Bool
 -> PostAccountsRequestBodyCapabilities'CartesBancairesPayments')
-> Parser
     (Maybe Bool
      -> PostAccountsRequestBodyCapabilities'CartesBancairesPayments')
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure Maybe Bool
-> PostAccountsRequestBodyCapabilities'CartesBancairesPayments'
PostAccountsRequestBodyCapabilities'CartesBancairesPayments' Parser
  (Maybe Bool
   -> PostAccountsRequestBodyCapabilities'CartesBancairesPayments')
-> Parser (Maybe Bool)
-> Parser
     PostAccountsRequestBodyCapabilities'CartesBancairesPayments'
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
"requested"))

-- | Create a new 'PostAccountsRequestBodyCapabilities'CartesBancairesPayments'' with all required fields.
mkPostAccountsRequestBodyCapabilities'CartesBancairesPayments' :: PostAccountsRequestBodyCapabilities'CartesBancairesPayments'
mkPostAccountsRequestBodyCapabilities'CartesBancairesPayments' :: PostAccountsRequestBodyCapabilities'CartesBancairesPayments'
mkPostAccountsRequestBodyCapabilities'CartesBancairesPayments' = PostAccountsRequestBodyCapabilities'CartesBancairesPayments' :: Maybe Bool
-> PostAccountsRequestBodyCapabilities'CartesBancairesPayments'
PostAccountsRequestBodyCapabilities'CartesBancairesPayments' {postAccountsRequestBodyCapabilities'CartesBancairesPayments'Requested :: Maybe Bool
postAccountsRequestBodyCapabilities'CartesBancairesPayments'Requested = Maybe Bool
forall a. Maybe a
GHC.Maybe.Nothing}

-- | Defines the object schema located at @paths.\/v1\/accounts.POST.requestBody.content.application\/x-www-form-urlencoded.schema.properties.capabilities.properties.eps_payments@ in the specification.
data PostAccountsRequestBodyCapabilities'EpsPayments' = PostAccountsRequestBodyCapabilities'EpsPayments'
  { -- | requested
    PostAccountsRequestBodyCapabilities'EpsPayments' -> Maybe Bool
postAccountsRequestBodyCapabilities'EpsPayments'Requested :: (GHC.Maybe.Maybe GHC.Types.Bool)
  }
  deriving
    ( Int -> PostAccountsRequestBodyCapabilities'EpsPayments' -> ShowS
[PostAccountsRequestBodyCapabilities'EpsPayments'] -> ShowS
PostAccountsRequestBodyCapabilities'EpsPayments' -> String
(Int -> PostAccountsRequestBodyCapabilities'EpsPayments' -> ShowS)
-> (PostAccountsRequestBodyCapabilities'EpsPayments' -> String)
-> ([PostAccountsRequestBodyCapabilities'EpsPayments'] -> ShowS)
-> Show PostAccountsRequestBodyCapabilities'EpsPayments'
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PostAccountsRequestBodyCapabilities'EpsPayments'] -> ShowS
$cshowList :: [PostAccountsRequestBodyCapabilities'EpsPayments'] -> ShowS
show :: PostAccountsRequestBodyCapabilities'EpsPayments' -> String
$cshow :: PostAccountsRequestBodyCapabilities'EpsPayments' -> String
showsPrec :: Int -> PostAccountsRequestBodyCapabilities'EpsPayments' -> ShowS
$cshowsPrec :: Int -> PostAccountsRequestBodyCapabilities'EpsPayments' -> ShowS
GHC.Show.Show,
      PostAccountsRequestBodyCapabilities'EpsPayments'
-> PostAccountsRequestBodyCapabilities'EpsPayments' -> Bool
(PostAccountsRequestBodyCapabilities'EpsPayments'
 -> PostAccountsRequestBodyCapabilities'EpsPayments' -> Bool)
-> (PostAccountsRequestBodyCapabilities'EpsPayments'
    -> PostAccountsRequestBodyCapabilities'EpsPayments' -> Bool)
-> Eq PostAccountsRequestBodyCapabilities'EpsPayments'
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostAccountsRequestBodyCapabilities'EpsPayments'
-> PostAccountsRequestBodyCapabilities'EpsPayments' -> Bool
$c/= :: PostAccountsRequestBodyCapabilities'EpsPayments'
-> PostAccountsRequestBodyCapabilities'EpsPayments' -> Bool
== :: PostAccountsRequestBodyCapabilities'EpsPayments'
-> PostAccountsRequestBodyCapabilities'EpsPayments' -> Bool
$c== :: PostAccountsRequestBodyCapabilities'EpsPayments'
-> PostAccountsRequestBodyCapabilities'EpsPayments' -> Bool
GHC.Classes.Eq
    )

instance Data.Aeson.Types.ToJSON.ToJSON PostAccountsRequestBodyCapabilities'EpsPayments' where
  toJSON :: PostAccountsRequestBodyCapabilities'EpsPayments' -> Value
toJSON PostAccountsRequestBodyCapabilities'EpsPayments'
obj = [Pair] -> Value
Data.Aeson.Types.Internal.object (Text
"requested" Text -> Maybe Bool -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyCapabilities'EpsPayments' -> Maybe Bool
postAccountsRequestBodyCapabilities'EpsPayments'Requested PostAccountsRequestBodyCapabilities'EpsPayments'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: [Pair]
forall a. Monoid a => a
GHC.Base.mempty)
  toEncoding :: PostAccountsRequestBodyCapabilities'EpsPayments' -> Encoding
toEncoding PostAccountsRequestBodyCapabilities'EpsPayments'
obj = Series -> Encoding
Data.Aeson.Encoding.Internal.pairs (Text
"requested" Text -> Maybe Bool -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyCapabilities'EpsPayments' -> Maybe Bool
postAccountsRequestBodyCapabilities'EpsPayments'Requested PostAccountsRequestBodyCapabilities'EpsPayments'
obj)

instance Data.Aeson.Types.FromJSON.FromJSON PostAccountsRequestBodyCapabilities'EpsPayments' where
  parseJSON :: Value -> Parser PostAccountsRequestBodyCapabilities'EpsPayments'
parseJSON = String
-> (Object
    -> Parser PostAccountsRequestBodyCapabilities'EpsPayments')
-> Value
-> Parser PostAccountsRequestBodyCapabilities'EpsPayments'
forall a. String -> (Object -> Parser a) -> Value -> Parser a
Data.Aeson.Types.FromJSON.withObject String
"PostAccountsRequestBodyCapabilities'EpsPayments'" (\Object
obj -> (Maybe Bool -> PostAccountsRequestBodyCapabilities'EpsPayments')
-> Parser
     (Maybe Bool -> PostAccountsRequestBodyCapabilities'EpsPayments')
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure Maybe Bool -> PostAccountsRequestBodyCapabilities'EpsPayments'
PostAccountsRequestBodyCapabilities'EpsPayments' Parser
  (Maybe Bool -> PostAccountsRequestBodyCapabilities'EpsPayments')
-> Parser (Maybe Bool)
-> Parser PostAccountsRequestBodyCapabilities'EpsPayments'
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
"requested"))

-- | Create a new 'PostAccountsRequestBodyCapabilities'EpsPayments'' with all required fields.
mkPostAccountsRequestBodyCapabilities'EpsPayments' :: PostAccountsRequestBodyCapabilities'EpsPayments'
mkPostAccountsRequestBodyCapabilities'EpsPayments' :: PostAccountsRequestBodyCapabilities'EpsPayments'
mkPostAccountsRequestBodyCapabilities'EpsPayments' = PostAccountsRequestBodyCapabilities'EpsPayments' :: Maybe Bool -> PostAccountsRequestBodyCapabilities'EpsPayments'
PostAccountsRequestBodyCapabilities'EpsPayments' {postAccountsRequestBodyCapabilities'EpsPayments'Requested :: Maybe Bool
postAccountsRequestBodyCapabilities'EpsPayments'Requested = Maybe Bool
forall a. Maybe a
GHC.Maybe.Nothing}

-- | Defines the object schema located at @paths.\/v1\/accounts.POST.requestBody.content.application\/x-www-form-urlencoded.schema.properties.capabilities.properties.fpx_payments@ in the specification.
data PostAccountsRequestBodyCapabilities'FpxPayments' = PostAccountsRequestBodyCapabilities'FpxPayments'
  { -- | requested
    PostAccountsRequestBodyCapabilities'FpxPayments' -> Maybe Bool
postAccountsRequestBodyCapabilities'FpxPayments'Requested :: (GHC.Maybe.Maybe GHC.Types.Bool)
  }
  deriving
    ( Int -> PostAccountsRequestBodyCapabilities'FpxPayments' -> ShowS
[PostAccountsRequestBodyCapabilities'FpxPayments'] -> ShowS
PostAccountsRequestBodyCapabilities'FpxPayments' -> String
(Int -> PostAccountsRequestBodyCapabilities'FpxPayments' -> ShowS)
-> (PostAccountsRequestBodyCapabilities'FpxPayments' -> String)
-> ([PostAccountsRequestBodyCapabilities'FpxPayments'] -> ShowS)
-> Show PostAccountsRequestBodyCapabilities'FpxPayments'
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PostAccountsRequestBodyCapabilities'FpxPayments'] -> ShowS
$cshowList :: [PostAccountsRequestBodyCapabilities'FpxPayments'] -> ShowS
show :: PostAccountsRequestBodyCapabilities'FpxPayments' -> String
$cshow :: PostAccountsRequestBodyCapabilities'FpxPayments' -> String
showsPrec :: Int -> PostAccountsRequestBodyCapabilities'FpxPayments' -> ShowS
$cshowsPrec :: Int -> PostAccountsRequestBodyCapabilities'FpxPayments' -> ShowS
GHC.Show.Show,
      PostAccountsRequestBodyCapabilities'FpxPayments'
-> PostAccountsRequestBodyCapabilities'FpxPayments' -> Bool
(PostAccountsRequestBodyCapabilities'FpxPayments'
 -> PostAccountsRequestBodyCapabilities'FpxPayments' -> Bool)
-> (PostAccountsRequestBodyCapabilities'FpxPayments'
    -> PostAccountsRequestBodyCapabilities'FpxPayments' -> Bool)
-> Eq PostAccountsRequestBodyCapabilities'FpxPayments'
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostAccountsRequestBodyCapabilities'FpxPayments'
-> PostAccountsRequestBodyCapabilities'FpxPayments' -> Bool
$c/= :: PostAccountsRequestBodyCapabilities'FpxPayments'
-> PostAccountsRequestBodyCapabilities'FpxPayments' -> Bool
== :: PostAccountsRequestBodyCapabilities'FpxPayments'
-> PostAccountsRequestBodyCapabilities'FpxPayments' -> Bool
$c== :: PostAccountsRequestBodyCapabilities'FpxPayments'
-> PostAccountsRequestBodyCapabilities'FpxPayments' -> Bool
GHC.Classes.Eq
    )

instance Data.Aeson.Types.ToJSON.ToJSON PostAccountsRequestBodyCapabilities'FpxPayments' where
  toJSON :: PostAccountsRequestBodyCapabilities'FpxPayments' -> Value
toJSON PostAccountsRequestBodyCapabilities'FpxPayments'
obj = [Pair] -> Value
Data.Aeson.Types.Internal.object (Text
"requested" Text -> Maybe Bool -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyCapabilities'FpxPayments' -> Maybe Bool
postAccountsRequestBodyCapabilities'FpxPayments'Requested PostAccountsRequestBodyCapabilities'FpxPayments'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: [Pair]
forall a. Monoid a => a
GHC.Base.mempty)
  toEncoding :: PostAccountsRequestBodyCapabilities'FpxPayments' -> Encoding
toEncoding PostAccountsRequestBodyCapabilities'FpxPayments'
obj = Series -> Encoding
Data.Aeson.Encoding.Internal.pairs (Text
"requested" Text -> Maybe Bool -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyCapabilities'FpxPayments' -> Maybe Bool
postAccountsRequestBodyCapabilities'FpxPayments'Requested PostAccountsRequestBodyCapabilities'FpxPayments'
obj)

instance Data.Aeson.Types.FromJSON.FromJSON PostAccountsRequestBodyCapabilities'FpxPayments' where
  parseJSON :: Value -> Parser PostAccountsRequestBodyCapabilities'FpxPayments'
parseJSON = String
-> (Object
    -> Parser PostAccountsRequestBodyCapabilities'FpxPayments')
-> Value
-> Parser PostAccountsRequestBodyCapabilities'FpxPayments'
forall a. String -> (Object -> Parser a) -> Value -> Parser a
Data.Aeson.Types.FromJSON.withObject String
"PostAccountsRequestBodyCapabilities'FpxPayments'" (\Object
obj -> (Maybe Bool -> PostAccountsRequestBodyCapabilities'FpxPayments')
-> Parser
     (Maybe Bool -> PostAccountsRequestBodyCapabilities'FpxPayments')
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure Maybe Bool -> PostAccountsRequestBodyCapabilities'FpxPayments'
PostAccountsRequestBodyCapabilities'FpxPayments' Parser
  (Maybe Bool -> PostAccountsRequestBodyCapabilities'FpxPayments')
-> Parser (Maybe Bool)
-> Parser PostAccountsRequestBodyCapabilities'FpxPayments'
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
"requested"))

-- | Create a new 'PostAccountsRequestBodyCapabilities'FpxPayments'' with all required fields.
mkPostAccountsRequestBodyCapabilities'FpxPayments' :: PostAccountsRequestBodyCapabilities'FpxPayments'
mkPostAccountsRequestBodyCapabilities'FpxPayments' :: PostAccountsRequestBodyCapabilities'FpxPayments'
mkPostAccountsRequestBodyCapabilities'FpxPayments' = PostAccountsRequestBodyCapabilities'FpxPayments' :: Maybe Bool -> PostAccountsRequestBodyCapabilities'FpxPayments'
PostAccountsRequestBodyCapabilities'FpxPayments' {postAccountsRequestBodyCapabilities'FpxPayments'Requested :: Maybe Bool
postAccountsRequestBodyCapabilities'FpxPayments'Requested = Maybe Bool
forall a. Maybe a
GHC.Maybe.Nothing}

-- | Defines the object schema located at @paths.\/v1\/accounts.POST.requestBody.content.application\/x-www-form-urlencoded.schema.properties.capabilities.properties.giropay_payments@ in the specification.
data PostAccountsRequestBodyCapabilities'GiropayPayments' = PostAccountsRequestBodyCapabilities'GiropayPayments'
  { -- | requested
    PostAccountsRequestBodyCapabilities'GiropayPayments' -> Maybe Bool
postAccountsRequestBodyCapabilities'GiropayPayments'Requested :: (GHC.Maybe.Maybe GHC.Types.Bool)
  }
  deriving
    ( Int
-> PostAccountsRequestBodyCapabilities'GiropayPayments' -> ShowS
[PostAccountsRequestBodyCapabilities'GiropayPayments'] -> ShowS
PostAccountsRequestBodyCapabilities'GiropayPayments' -> String
(Int
 -> PostAccountsRequestBodyCapabilities'GiropayPayments' -> ShowS)
-> (PostAccountsRequestBodyCapabilities'GiropayPayments' -> String)
-> ([PostAccountsRequestBodyCapabilities'GiropayPayments']
    -> ShowS)
-> Show PostAccountsRequestBodyCapabilities'GiropayPayments'
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PostAccountsRequestBodyCapabilities'GiropayPayments'] -> ShowS
$cshowList :: [PostAccountsRequestBodyCapabilities'GiropayPayments'] -> ShowS
show :: PostAccountsRequestBodyCapabilities'GiropayPayments' -> String
$cshow :: PostAccountsRequestBodyCapabilities'GiropayPayments' -> String
showsPrec :: Int
-> PostAccountsRequestBodyCapabilities'GiropayPayments' -> ShowS
$cshowsPrec :: Int
-> PostAccountsRequestBodyCapabilities'GiropayPayments' -> ShowS
GHC.Show.Show,
      PostAccountsRequestBodyCapabilities'GiropayPayments'
-> PostAccountsRequestBodyCapabilities'GiropayPayments' -> Bool
(PostAccountsRequestBodyCapabilities'GiropayPayments'
 -> PostAccountsRequestBodyCapabilities'GiropayPayments' -> Bool)
-> (PostAccountsRequestBodyCapabilities'GiropayPayments'
    -> PostAccountsRequestBodyCapabilities'GiropayPayments' -> Bool)
-> Eq PostAccountsRequestBodyCapabilities'GiropayPayments'
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostAccountsRequestBodyCapabilities'GiropayPayments'
-> PostAccountsRequestBodyCapabilities'GiropayPayments' -> Bool
$c/= :: PostAccountsRequestBodyCapabilities'GiropayPayments'
-> PostAccountsRequestBodyCapabilities'GiropayPayments' -> Bool
== :: PostAccountsRequestBodyCapabilities'GiropayPayments'
-> PostAccountsRequestBodyCapabilities'GiropayPayments' -> Bool
$c== :: PostAccountsRequestBodyCapabilities'GiropayPayments'
-> PostAccountsRequestBodyCapabilities'GiropayPayments' -> Bool
GHC.Classes.Eq
    )

instance Data.Aeson.Types.ToJSON.ToJSON PostAccountsRequestBodyCapabilities'GiropayPayments' where
  toJSON :: PostAccountsRequestBodyCapabilities'GiropayPayments' -> Value
toJSON PostAccountsRequestBodyCapabilities'GiropayPayments'
obj = [Pair] -> Value
Data.Aeson.Types.Internal.object (Text
"requested" Text -> Maybe Bool -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyCapabilities'GiropayPayments' -> Maybe Bool
postAccountsRequestBodyCapabilities'GiropayPayments'Requested PostAccountsRequestBodyCapabilities'GiropayPayments'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: [Pair]
forall a. Monoid a => a
GHC.Base.mempty)
  toEncoding :: PostAccountsRequestBodyCapabilities'GiropayPayments' -> Encoding
toEncoding PostAccountsRequestBodyCapabilities'GiropayPayments'
obj = Series -> Encoding
Data.Aeson.Encoding.Internal.pairs (Text
"requested" Text -> Maybe Bool -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyCapabilities'GiropayPayments' -> Maybe Bool
postAccountsRequestBodyCapabilities'GiropayPayments'Requested PostAccountsRequestBodyCapabilities'GiropayPayments'
obj)

instance Data.Aeson.Types.FromJSON.FromJSON PostAccountsRequestBodyCapabilities'GiropayPayments' where
  parseJSON :: Value
-> Parser PostAccountsRequestBodyCapabilities'GiropayPayments'
parseJSON = String
-> (Object
    -> Parser PostAccountsRequestBodyCapabilities'GiropayPayments')
-> Value
-> Parser PostAccountsRequestBodyCapabilities'GiropayPayments'
forall a. String -> (Object -> Parser a) -> Value -> Parser a
Data.Aeson.Types.FromJSON.withObject String
"PostAccountsRequestBodyCapabilities'GiropayPayments'" (\Object
obj -> (Maybe Bool
 -> PostAccountsRequestBodyCapabilities'GiropayPayments')
-> Parser
     (Maybe Bool
      -> PostAccountsRequestBodyCapabilities'GiropayPayments')
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure Maybe Bool -> PostAccountsRequestBodyCapabilities'GiropayPayments'
PostAccountsRequestBodyCapabilities'GiropayPayments' Parser
  (Maybe Bool
   -> PostAccountsRequestBodyCapabilities'GiropayPayments')
-> Parser (Maybe Bool)
-> Parser PostAccountsRequestBodyCapabilities'GiropayPayments'
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
"requested"))

-- | Create a new 'PostAccountsRequestBodyCapabilities'GiropayPayments'' with all required fields.
mkPostAccountsRequestBodyCapabilities'GiropayPayments' :: PostAccountsRequestBodyCapabilities'GiropayPayments'
mkPostAccountsRequestBodyCapabilities'GiropayPayments' :: PostAccountsRequestBodyCapabilities'GiropayPayments'
mkPostAccountsRequestBodyCapabilities'GiropayPayments' = PostAccountsRequestBodyCapabilities'GiropayPayments' :: Maybe Bool -> PostAccountsRequestBodyCapabilities'GiropayPayments'
PostAccountsRequestBodyCapabilities'GiropayPayments' {postAccountsRequestBodyCapabilities'GiropayPayments'Requested :: Maybe Bool
postAccountsRequestBodyCapabilities'GiropayPayments'Requested = Maybe Bool
forall a. Maybe a
GHC.Maybe.Nothing}

-- | Defines the object schema located at @paths.\/v1\/accounts.POST.requestBody.content.application\/x-www-form-urlencoded.schema.properties.capabilities.properties.grabpay_payments@ in the specification.
data PostAccountsRequestBodyCapabilities'GrabpayPayments' = PostAccountsRequestBodyCapabilities'GrabpayPayments'
  { -- | requested
    PostAccountsRequestBodyCapabilities'GrabpayPayments' -> Maybe Bool
postAccountsRequestBodyCapabilities'GrabpayPayments'Requested :: (GHC.Maybe.Maybe GHC.Types.Bool)
  }
  deriving
    ( Int
-> PostAccountsRequestBodyCapabilities'GrabpayPayments' -> ShowS
[PostAccountsRequestBodyCapabilities'GrabpayPayments'] -> ShowS
PostAccountsRequestBodyCapabilities'GrabpayPayments' -> String
(Int
 -> PostAccountsRequestBodyCapabilities'GrabpayPayments' -> ShowS)
-> (PostAccountsRequestBodyCapabilities'GrabpayPayments' -> String)
-> ([PostAccountsRequestBodyCapabilities'GrabpayPayments']
    -> ShowS)
-> Show PostAccountsRequestBodyCapabilities'GrabpayPayments'
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PostAccountsRequestBodyCapabilities'GrabpayPayments'] -> ShowS
$cshowList :: [PostAccountsRequestBodyCapabilities'GrabpayPayments'] -> ShowS
show :: PostAccountsRequestBodyCapabilities'GrabpayPayments' -> String
$cshow :: PostAccountsRequestBodyCapabilities'GrabpayPayments' -> String
showsPrec :: Int
-> PostAccountsRequestBodyCapabilities'GrabpayPayments' -> ShowS
$cshowsPrec :: Int
-> PostAccountsRequestBodyCapabilities'GrabpayPayments' -> ShowS
GHC.Show.Show,
      PostAccountsRequestBodyCapabilities'GrabpayPayments'
-> PostAccountsRequestBodyCapabilities'GrabpayPayments' -> Bool
(PostAccountsRequestBodyCapabilities'GrabpayPayments'
 -> PostAccountsRequestBodyCapabilities'GrabpayPayments' -> Bool)
-> (PostAccountsRequestBodyCapabilities'GrabpayPayments'
    -> PostAccountsRequestBodyCapabilities'GrabpayPayments' -> Bool)
-> Eq PostAccountsRequestBodyCapabilities'GrabpayPayments'
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostAccountsRequestBodyCapabilities'GrabpayPayments'
-> PostAccountsRequestBodyCapabilities'GrabpayPayments' -> Bool
$c/= :: PostAccountsRequestBodyCapabilities'GrabpayPayments'
-> PostAccountsRequestBodyCapabilities'GrabpayPayments' -> Bool
== :: PostAccountsRequestBodyCapabilities'GrabpayPayments'
-> PostAccountsRequestBodyCapabilities'GrabpayPayments' -> Bool
$c== :: PostAccountsRequestBodyCapabilities'GrabpayPayments'
-> PostAccountsRequestBodyCapabilities'GrabpayPayments' -> Bool
GHC.Classes.Eq
    )

instance Data.Aeson.Types.ToJSON.ToJSON PostAccountsRequestBodyCapabilities'GrabpayPayments' where
  toJSON :: PostAccountsRequestBodyCapabilities'GrabpayPayments' -> Value
toJSON PostAccountsRequestBodyCapabilities'GrabpayPayments'
obj = [Pair] -> Value
Data.Aeson.Types.Internal.object (Text
"requested" Text -> Maybe Bool -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyCapabilities'GrabpayPayments' -> Maybe Bool
postAccountsRequestBodyCapabilities'GrabpayPayments'Requested PostAccountsRequestBodyCapabilities'GrabpayPayments'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: [Pair]
forall a. Monoid a => a
GHC.Base.mempty)
  toEncoding :: PostAccountsRequestBodyCapabilities'GrabpayPayments' -> Encoding
toEncoding PostAccountsRequestBodyCapabilities'GrabpayPayments'
obj = Series -> Encoding
Data.Aeson.Encoding.Internal.pairs (Text
"requested" Text -> Maybe Bool -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyCapabilities'GrabpayPayments' -> Maybe Bool
postAccountsRequestBodyCapabilities'GrabpayPayments'Requested PostAccountsRequestBodyCapabilities'GrabpayPayments'
obj)

instance Data.Aeson.Types.FromJSON.FromJSON PostAccountsRequestBodyCapabilities'GrabpayPayments' where
  parseJSON :: Value
-> Parser PostAccountsRequestBodyCapabilities'GrabpayPayments'
parseJSON = String
-> (Object
    -> Parser PostAccountsRequestBodyCapabilities'GrabpayPayments')
-> Value
-> Parser PostAccountsRequestBodyCapabilities'GrabpayPayments'
forall a. String -> (Object -> Parser a) -> Value -> Parser a
Data.Aeson.Types.FromJSON.withObject String
"PostAccountsRequestBodyCapabilities'GrabpayPayments'" (\Object
obj -> (Maybe Bool
 -> PostAccountsRequestBodyCapabilities'GrabpayPayments')
-> Parser
     (Maybe Bool
      -> PostAccountsRequestBodyCapabilities'GrabpayPayments')
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure Maybe Bool -> PostAccountsRequestBodyCapabilities'GrabpayPayments'
PostAccountsRequestBodyCapabilities'GrabpayPayments' Parser
  (Maybe Bool
   -> PostAccountsRequestBodyCapabilities'GrabpayPayments')
-> Parser (Maybe Bool)
-> Parser PostAccountsRequestBodyCapabilities'GrabpayPayments'
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
"requested"))

-- | Create a new 'PostAccountsRequestBodyCapabilities'GrabpayPayments'' with all required fields.
mkPostAccountsRequestBodyCapabilities'GrabpayPayments' :: PostAccountsRequestBodyCapabilities'GrabpayPayments'
mkPostAccountsRequestBodyCapabilities'GrabpayPayments' :: PostAccountsRequestBodyCapabilities'GrabpayPayments'
mkPostAccountsRequestBodyCapabilities'GrabpayPayments' = PostAccountsRequestBodyCapabilities'GrabpayPayments' :: Maybe Bool -> PostAccountsRequestBodyCapabilities'GrabpayPayments'
PostAccountsRequestBodyCapabilities'GrabpayPayments' {postAccountsRequestBodyCapabilities'GrabpayPayments'Requested :: Maybe Bool
postAccountsRequestBodyCapabilities'GrabpayPayments'Requested = Maybe Bool
forall a. Maybe a
GHC.Maybe.Nothing}

-- | Defines the object schema located at @paths.\/v1\/accounts.POST.requestBody.content.application\/x-www-form-urlencoded.schema.properties.capabilities.properties.ideal_payments@ in the specification.
data PostAccountsRequestBodyCapabilities'IdealPayments' = PostAccountsRequestBodyCapabilities'IdealPayments'
  { -- | requested
    PostAccountsRequestBodyCapabilities'IdealPayments' -> Maybe Bool
postAccountsRequestBodyCapabilities'IdealPayments'Requested :: (GHC.Maybe.Maybe GHC.Types.Bool)
  }
  deriving
    ( Int -> PostAccountsRequestBodyCapabilities'IdealPayments' -> ShowS
[PostAccountsRequestBodyCapabilities'IdealPayments'] -> ShowS
PostAccountsRequestBodyCapabilities'IdealPayments' -> String
(Int
 -> PostAccountsRequestBodyCapabilities'IdealPayments' -> ShowS)
-> (PostAccountsRequestBodyCapabilities'IdealPayments' -> String)
-> ([PostAccountsRequestBodyCapabilities'IdealPayments'] -> ShowS)
-> Show PostAccountsRequestBodyCapabilities'IdealPayments'
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PostAccountsRequestBodyCapabilities'IdealPayments'] -> ShowS
$cshowList :: [PostAccountsRequestBodyCapabilities'IdealPayments'] -> ShowS
show :: PostAccountsRequestBodyCapabilities'IdealPayments' -> String
$cshow :: PostAccountsRequestBodyCapabilities'IdealPayments' -> String
showsPrec :: Int -> PostAccountsRequestBodyCapabilities'IdealPayments' -> ShowS
$cshowsPrec :: Int -> PostAccountsRequestBodyCapabilities'IdealPayments' -> ShowS
GHC.Show.Show,
      PostAccountsRequestBodyCapabilities'IdealPayments'
-> PostAccountsRequestBodyCapabilities'IdealPayments' -> Bool
(PostAccountsRequestBodyCapabilities'IdealPayments'
 -> PostAccountsRequestBodyCapabilities'IdealPayments' -> Bool)
-> (PostAccountsRequestBodyCapabilities'IdealPayments'
    -> PostAccountsRequestBodyCapabilities'IdealPayments' -> Bool)
-> Eq PostAccountsRequestBodyCapabilities'IdealPayments'
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostAccountsRequestBodyCapabilities'IdealPayments'
-> PostAccountsRequestBodyCapabilities'IdealPayments' -> Bool
$c/= :: PostAccountsRequestBodyCapabilities'IdealPayments'
-> PostAccountsRequestBodyCapabilities'IdealPayments' -> Bool
== :: PostAccountsRequestBodyCapabilities'IdealPayments'
-> PostAccountsRequestBodyCapabilities'IdealPayments' -> Bool
$c== :: PostAccountsRequestBodyCapabilities'IdealPayments'
-> PostAccountsRequestBodyCapabilities'IdealPayments' -> Bool
GHC.Classes.Eq
    )

instance Data.Aeson.Types.ToJSON.ToJSON PostAccountsRequestBodyCapabilities'IdealPayments' where
  toJSON :: PostAccountsRequestBodyCapabilities'IdealPayments' -> Value
toJSON PostAccountsRequestBodyCapabilities'IdealPayments'
obj = [Pair] -> Value
Data.Aeson.Types.Internal.object (Text
"requested" Text -> Maybe Bool -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyCapabilities'IdealPayments' -> Maybe Bool
postAccountsRequestBodyCapabilities'IdealPayments'Requested PostAccountsRequestBodyCapabilities'IdealPayments'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: [Pair]
forall a. Monoid a => a
GHC.Base.mempty)
  toEncoding :: PostAccountsRequestBodyCapabilities'IdealPayments' -> Encoding
toEncoding PostAccountsRequestBodyCapabilities'IdealPayments'
obj = Series -> Encoding
Data.Aeson.Encoding.Internal.pairs (Text
"requested" Text -> Maybe Bool -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyCapabilities'IdealPayments' -> Maybe Bool
postAccountsRequestBodyCapabilities'IdealPayments'Requested PostAccountsRequestBodyCapabilities'IdealPayments'
obj)

instance Data.Aeson.Types.FromJSON.FromJSON PostAccountsRequestBodyCapabilities'IdealPayments' where
  parseJSON :: Value -> Parser PostAccountsRequestBodyCapabilities'IdealPayments'
parseJSON = String
-> (Object
    -> Parser PostAccountsRequestBodyCapabilities'IdealPayments')
-> Value
-> Parser PostAccountsRequestBodyCapabilities'IdealPayments'
forall a. String -> (Object -> Parser a) -> Value -> Parser a
Data.Aeson.Types.FromJSON.withObject String
"PostAccountsRequestBodyCapabilities'IdealPayments'" (\Object
obj -> (Maybe Bool -> PostAccountsRequestBodyCapabilities'IdealPayments')
-> Parser
     (Maybe Bool -> PostAccountsRequestBodyCapabilities'IdealPayments')
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure Maybe Bool -> PostAccountsRequestBodyCapabilities'IdealPayments'
PostAccountsRequestBodyCapabilities'IdealPayments' Parser
  (Maybe Bool -> PostAccountsRequestBodyCapabilities'IdealPayments')
-> Parser (Maybe Bool)
-> Parser PostAccountsRequestBodyCapabilities'IdealPayments'
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
"requested"))

-- | Create a new 'PostAccountsRequestBodyCapabilities'IdealPayments'' with all required fields.
mkPostAccountsRequestBodyCapabilities'IdealPayments' :: PostAccountsRequestBodyCapabilities'IdealPayments'
mkPostAccountsRequestBodyCapabilities'IdealPayments' :: PostAccountsRequestBodyCapabilities'IdealPayments'
mkPostAccountsRequestBodyCapabilities'IdealPayments' = PostAccountsRequestBodyCapabilities'IdealPayments' :: Maybe Bool -> PostAccountsRequestBodyCapabilities'IdealPayments'
PostAccountsRequestBodyCapabilities'IdealPayments' {postAccountsRequestBodyCapabilities'IdealPayments'Requested :: Maybe Bool
postAccountsRequestBodyCapabilities'IdealPayments'Requested = Maybe Bool
forall a. Maybe a
GHC.Maybe.Nothing}

-- | Defines the object schema located at @paths.\/v1\/accounts.POST.requestBody.content.application\/x-www-form-urlencoded.schema.properties.capabilities.properties.jcb_payments@ in the specification.
data PostAccountsRequestBodyCapabilities'JcbPayments' = PostAccountsRequestBodyCapabilities'JcbPayments'
  { -- | requested
    PostAccountsRequestBodyCapabilities'JcbPayments' -> Maybe Bool
postAccountsRequestBodyCapabilities'JcbPayments'Requested :: (GHC.Maybe.Maybe GHC.Types.Bool)
  }
  deriving
    ( Int -> PostAccountsRequestBodyCapabilities'JcbPayments' -> ShowS
[PostAccountsRequestBodyCapabilities'JcbPayments'] -> ShowS
PostAccountsRequestBodyCapabilities'JcbPayments' -> String
(Int -> PostAccountsRequestBodyCapabilities'JcbPayments' -> ShowS)
-> (PostAccountsRequestBodyCapabilities'JcbPayments' -> String)
-> ([PostAccountsRequestBodyCapabilities'JcbPayments'] -> ShowS)
-> Show PostAccountsRequestBodyCapabilities'JcbPayments'
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PostAccountsRequestBodyCapabilities'JcbPayments'] -> ShowS
$cshowList :: [PostAccountsRequestBodyCapabilities'JcbPayments'] -> ShowS
show :: PostAccountsRequestBodyCapabilities'JcbPayments' -> String
$cshow :: PostAccountsRequestBodyCapabilities'JcbPayments' -> String
showsPrec :: Int -> PostAccountsRequestBodyCapabilities'JcbPayments' -> ShowS
$cshowsPrec :: Int -> PostAccountsRequestBodyCapabilities'JcbPayments' -> ShowS
GHC.Show.Show,
      PostAccountsRequestBodyCapabilities'JcbPayments'
-> PostAccountsRequestBodyCapabilities'JcbPayments' -> Bool
(PostAccountsRequestBodyCapabilities'JcbPayments'
 -> PostAccountsRequestBodyCapabilities'JcbPayments' -> Bool)
-> (PostAccountsRequestBodyCapabilities'JcbPayments'
    -> PostAccountsRequestBodyCapabilities'JcbPayments' -> Bool)
-> Eq PostAccountsRequestBodyCapabilities'JcbPayments'
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostAccountsRequestBodyCapabilities'JcbPayments'
-> PostAccountsRequestBodyCapabilities'JcbPayments' -> Bool
$c/= :: PostAccountsRequestBodyCapabilities'JcbPayments'
-> PostAccountsRequestBodyCapabilities'JcbPayments' -> Bool
== :: PostAccountsRequestBodyCapabilities'JcbPayments'
-> PostAccountsRequestBodyCapabilities'JcbPayments' -> Bool
$c== :: PostAccountsRequestBodyCapabilities'JcbPayments'
-> PostAccountsRequestBodyCapabilities'JcbPayments' -> Bool
GHC.Classes.Eq
    )

instance Data.Aeson.Types.ToJSON.ToJSON PostAccountsRequestBodyCapabilities'JcbPayments' where
  toJSON :: PostAccountsRequestBodyCapabilities'JcbPayments' -> Value
toJSON PostAccountsRequestBodyCapabilities'JcbPayments'
obj = [Pair] -> Value
Data.Aeson.Types.Internal.object (Text
"requested" Text -> Maybe Bool -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyCapabilities'JcbPayments' -> Maybe Bool
postAccountsRequestBodyCapabilities'JcbPayments'Requested PostAccountsRequestBodyCapabilities'JcbPayments'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: [Pair]
forall a. Monoid a => a
GHC.Base.mempty)
  toEncoding :: PostAccountsRequestBodyCapabilities'JcbPayments' -> Encoding
toEncoding PostAccountsRequestBodyCapabilities'JcbPayments'
obj = Series -> Encoding
Data.Aeson.Encoding.Internal.pairs (Text
"requested" Text -> Maybe Bool -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyCapabilities'JcbPayments' -> Maybe Bool
postAccountsRequestBodyCapabilities'JcbPayments'Requested PostAccountsRequestBodyCapabilities'JcbPayments'
obj)

instance Data.Aeson.Types.FromJSON.FromJSON PostAccountsRequestBodyCapabilities'JcbPayments' where
  parseJSON :: Value -> Parser PostAccountsRequestBodyCapabilities'JcbPayments'
parseJSON = String
-> (Object
    -> Parser PostAccountsRequestBodyCapabilities'JcbPayments')
-> Value
-> Parser PostAccountsRequestBodyCapabilities'JcbPayments'
forall a. String -> (Object -> Parser a) -> Value -> Parser a
Data.Aeson.Types.FromJSON.withObject String
"PostAccountsRequestBodyCapabilities'JcbPayments'" (\Object
obj -> (Maybe Bool -> PostAccountsRequestBodyCapabilities'JcbPayments')
-> Parser
     (Maybe Bool -> PostAccountsRequestBodyCapabilities'JcbPayments')
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure Maybe Bool -> PostAccountsRequestBodyCapabilities'JcbPayments'
PostAccountsRequestBodyCapabilities'JcbPayments' Parser
  (Maybe Bool -> PostAccountsRequestBodyCapabilities'JcbPayments')
-> Parser (Maybe Bool)
-> Parser PostAccountsRequestBodyCapabilities'JcbPayments'
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
"requested"))

-- | Create a new 'PostAccountsRequestBodyCapabilities'JcbPayments'' with all required fields.
mkPostAccountsRequestBodyCapabilities'JcbPayments' :: PostAccountsRequestBodyCapabilities'JcbPayments'
mkPostAccountsRequestBodyCapabilities'JcbPayments' :: PostAccountsRequestBodyCapabilities'JcbPayments'
mkPostAccountsRequestBodyCapabilities'JcbPayments' = PostAccountsRequestBodyCapabilities'JcbPayments' :: Maybe Bool -> PostAccountsRequestBodyCapabilities'JcbPayments'
PostAccountsRequestBodyCapabilities'JcbPayments' {postAccountsRequestBodyCapabilities'JcbPayments'Requested :: Maybe Bool
postAccountsRequestBodyCapabilities'JcbPayments'Requested = Maybe Bool
forall a. Maybe a
GHC.Maybe.Nothing}

-- | Defines the object schema located at @paths.\/v1\/accounts.POST.requestBody.content.application\/x-www-form-urlencoded.schema.properties.capabilities.properties.legacy_payments@ in the specification.
data PostAccountsRequestBodyCapabilities'LegacyPayments' = PostAccountsRequestBodyCapabilities'LegacyPayments'
  { -- | requested
    PostAccountsRequestBodyCapabilities'LegacyPayments' -> Maybe Bool
postAccountsRequestBodyCapabilities'LegacyPayments'Requested :: (GHC.Maybe.Maybe GHC.Types.Bool)
  }
  deriving
    ( Int -> PostAccountsRequestBodyCapabilities'LegacyPayments' -> ShowS
[PostAccountsRequestBodyCapabilities'LegacyPayments'] -> ShowS
PostAccountsRequestBodyCapabilities'LegacyPayments' -> String
(Int
 -> PostAccountsRequestBodyCapabilities'LegacyPayments' -> ShowS)
-> (PostAccountsRequestBodyCapabilities'LegacyPayments' -> String)
-> ([PostAccountsRequestBodyCapabilities'LegacyPayments'] -> ShowS)
-> Show PostAccountsRequestBodyCapabilities'LegacyPayments'
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PostAccountsRequestBodyCapabilities'LegacyPayments'] -> ShowS
$cshowList :: [PostAccountsRequestBodyCapabilities'LegacyPayments'] -> ShowS
show :: PostAccountsRequestBodyCapabilities'LegacyPayments' -> String
$cshow :: PostAccountsRequestBodyCapabilities'LegacyPayments' -> String
showsPrec :: Int -> PostAccountsRequestBodyCapabilities'LegacyPayments' -> ShowS
$cshowsPrec :: Int -> PostAccountsRequestBodyCapabilities'LegacyPayments' -> ShowS
GHC.Show.Show,
      PostAccountsRequestBodyCapabilities'LegacyPayments'
-> PostAccountsRequestBodyCapabilities'LegacyPayments' -> Bool
(PostAccountsRequestBodyCapabilities'LegacyPayments'
 -> PostAccountsRequestBodyCapabilities'LegacyPayments' -> Bool)
-> (PostAccountsRequestBodyCapabilities'LegacyPayments'
    -> PostAccountsRequestBodyCapabilities'LegacyPayments' -> Bool)
-> Eq PostAccountsRequestBodyCapabilities'LegacyPayments'
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostAccountsRequestBodyCapabilities'LegacyPayments'
-> PostAccountsRequestBodyCapabilities'LegacyPayments' -> Bool
$c/= :: PostAccountsRequestBodyCapabilities'LegacyPayments'
-> PostAccountsRequestBodyCapabilities'LegacyPayments' -> Bool
== :: PostAccountsRequestBodyCapabilities'LegacyPayments'
-> PostAccountsRequestBodyCapabilities'LegacyPayments' -> Bool
$c== :: PostAccountsRequestBodyCapabilities'LegacyPayments'
-> PostAccountsRequestBodyCapabilities'LegacyPayments' -> Bool
GHC.Classes.Eq
    )

instance Data.Aeson.Types.ToJSON.ToJSON PostAccountsRequestBodyCapabilities'LegacyPayments' where
  toJSON :: PostAccountsRequestBodyCapabilities'LegacyPayments' -> Value
toJSON PostAccountsRequestBodyCapabilities'LegacyPayments'
obj = [Pair] -> Value
Data.Aeson.Types.Internal.object (Text
"requested" Text -> Maybe Bool -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyCapabilities'LegacyPayments' -> Maybe Bool
postAccountsRequestBodyCapabilities'LegacyPayments'Requested PostAccountsRequestBodyCapabilities'LegacyPayments'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: [Pair]
forall a. Monoid a => a
GHC.Base.mempty)
  toEncoding :: PostAccountsRequestBodyCapabilities'LegacyPayments' -> Encoding
toEncoding PostAccountsRequestBodyCapabilities'LegacyPayments'
obj = Series -> Encoding
Data.Aeson.Encoding.Internal.pairs (Text
"requested" Text -> Maybe Bool -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyCapabilities'LegacyPayments' -> Maybe Bool
postAccountsRequestBodyCapabilities'LegacyPayments'Requested PostAccountsRequestBodyCapabilities'LegacyPayments'
obj)

instance Data.Aeson.Types.FromJSON.FromJSON PostAccountsRequestBodyCapabilities'LegacyPayments' where
  parseJSON :: Value -> Parser PostAccountsRequestBodyCapabilities'LegacyPayments'
parseJSON = String
-> (Object
    -> Parser PostAccountsRequestBodyCapabilities'LegacyPayments')
-> Value
-> Parser PostAccountsRequestBodyCapabilities'LegacyPayments'
forall a. String -> (Object -> Parser a) -> Value -> Parser a
Data.Aeson.Types.FromJSON.withObject String
"PostAccountsRequestBodyCapabilities'LegacyPayments'" (\Object
obj -> (Maybe Bool -> PostAccountsRequestBodyCapabilities'LegacyPayments')
-> Parser
     (Maybe Bool -> PostAccountsRequestBodyCapabilities'LegacyPayments')
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure Maybe Bool -> PostAccountsRequestBodyCapabilities'LegacyPayments'
PostAccountsRequestBodyCapabilities'LegacyPayments' Parser
  (Maybe Bool -> PostAccountsRequestBodyCapabilities'LegacyPayments')
-> Parser (Maybe Bool)
-> Parser PostAccountsRequestBodyCapabilities'LegacyPayments'
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
"requested"))

-- | Create a new 'PostAccountsRequestBodyCapabilities'LegacyPayments'' with all required fields.
mkPostAccountsRequestBodyCapabilities'LegacyPayments' :: PostAccountsRequestBodyCapabilities'LegacyPayments'
mkPostAccountsRequestBodyCapabilities'LegacyPayments' :: PostAccountsRequestBodyCapabilities'LegacyPayments'
mkPostAccountsRequestBodyCapabilities'LegacyPayments' = PostAccountsRequestBodyCapabilities'LegacyPayments' :: Maybe Bool -> PostAccountsRequestBodyCapabilities'LegacyPayments'
PostAccountsRequestBodyCapabilities'LegacyPayments' {postAccountsRequestBodyCapabilities'LegacyPayments'Requested :: Maybe Bool
postAccountsRequestBodyCapabilities'LegacyPayments'Requested = Maybe Bool
forall a. Maybe a
GHC.Maybe.Nothing}

-- | Defines the object schema located at @paths.\/v1\/accounts.POST.requestBody.content.application\/x-www-form-urlencoded.schema.properties.capabilities.properties.oxxo_payments@ in the specification.
data PostAccountsRequestBodyCapabilities'OxxoPayments' = PostAccountsRequestBodyCapabilities'OxxoPayments'
  { -- | requested
    PostAccountsRequestBodyCapabilities'OxxoPayments' -> Maybe Bool
postAccountsRequestBodyCapabilities'OxxoPayments'Requested :: (GHC.Maybe.Maybe GHC.Types.Bool)
  }
  deriving
    ( Int -> PostAccountsRequestBodyCapabilities'OxxoPayments' -> ShowS
[PostAccountsRequestBodyCapabilities'OxxoPayments'] -> ShowS
PostAccountsRequestBodyCapabilities'OxxoPayments' -> String
(Int -> PostAccountsRequestBodyCapabilities'OxxoPayments' -> ShowS)
-> (PostAccountsRequestBodyCapabilities'OxxoPayments' -> String)
-> ([PostAccountsRequestBodyCapabilities'OxxoPayments'] -> ShowS)
-> Show PostAccountsRequestBodyCapabilities'OxxoPayments'
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PostAccountsRequestBodyCapabilities'OxxoPayments'] -> ShowS
$cshowList :: [PostAccountsRequestBodyCapabilities'OxxoPayments'] -> ShowS
show :: PostAccountsRequestBodyCapabilities'OxxoPayments' -> String
$cshow :: PostAccountsRequestBodyCapabilities'OxxoPayments' -> String
showsPrec :: Int -> PostAccountsRequestBodyCapabilities'OxxoPayments' -> ShowS
$cshowsPrec :: Int -> PostAccountsRequestBodyCapabilities'OxxoPayments' -> ShowS
GHC.Show.Show,
      PostAccountsRequestBodyCapabilities'OxxoPayments'
-> PostAccountsRequestBodyCapabilities'OxxoPayments' -> Bool
(PostAccountsRequestBodyCapabilities'OxxoPayments'
 -> PostAccountsRequestBodyCapabilities'OxxoPayments' -> Bool)
-> (PostAccountsRequestBodyCapabilities'OxxoPayments'
    -> PostAccountsRequestBodyCapabilities'OxxoPayments' -> Bool)
-> Eq PostAccountsRequestBodyCapabilities'OxxoPayments'
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostAccountsRequestBodyCapabilities'OxxoPayments'
-> PostAccountsRequestBodyCapabilities'OxxoPayments' -> Bool
$c/= :: PostAccountsRequestBodyCapabilities'OxxoPayments'
-> PostAccountsRequestBodyCapabilities'OxxoPayments' -> Bool
== :: PostAccountsRequestBodyCapabilities'OxxoPayments'
-> PostAccountsRequestBodyCapabilities'OxxoPayments' -> Bool
$c== :: PostAccountsRequestBodyCapabilities'OxxoPayments'
-> PostAccountsRequestBodyCapabilities'OxxoPayments' -> Bool
GHC.Classes.Eq
    )

instance Data.Aeson.Types.ToJSON.ToJSON PostAccountsRequestBodyCapabilities'OxxoPayments' where
  toJSON :: PostAccountsRequestBodyCapabilities'OxxoPayments' -> Value
toJSON PostAccountsRequestBodyCapabilities'OxxoPayments'
obj = [Pair] -> Value
Data.Aeson.Types.Internal.object (Text
"requested" Text -> Maybe Bool -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyCapabilities'OxxoPayments' -> Maybe Bool
postAccountsRequestBodyCapabilities'OxxoPayments'Requested PostAccountsRequestBodyCapabilities'OxxoPayments'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: [Pair]
forall a. Monoid a => a
GHC.Base.mempty)
  toEncoding :: PostAccountsRequestBodyCapabilities'OxxoPayments' -> Encoding
toEncoding PostAccountsRequestBodyCapabilities'OxxoPayments'
obj = Series -> Encoding
Data.Aeson.Encoding.Internal.pairs (Text
"requested" Text -> Maybe Bool -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyCapabilities'OxxoPayments' -> Maybe Bool
postAccountsRequestBodyCapabilities'OxxoPayments'Requested PostAccountsRequestBodyCapabilities'OxxoPayments'
obj)

instance Data.Aeson.Types.FromJSON.FromJSON PostAccountsRequestBodyCapabilities'OxxoPayments' where
  parseJSON :: Value -> Parser PostAccountsRequestBodyCapabilities'OxxoPayments'
parseJSON = String
-> (Object
    -> Parser PostAccountsRequestBodyCapabilities'OxxoPayments')
-> Value
-> Parser PostAccountsRequestBodyCapabilities'OxxoPayments'
forall a. String -> (Object -> Parser a) -> Value -> Parser a
Data.Aeson.Types.FromJSON.withObject String
"PostAccountsRequestBodyCapabilities'OxxoPayments'" (\Object
obj -> (Maybe Bool -> PostAccountsRequestBodyCapabilities'OxxoPayments')
-> Parser
     (Maybe Bool -> PostAccountsRequestBodyCapabilities'OxxoPayments')
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure Maybe Bool -> PostAccountsRequestBodyCapabilities'OxxoPayments'
PostAccountsRequestBodyCapabilities'OxxoPayments' Parser
  (Maybe Bool -> PostAccountsRequestBodyCapabilities'OxxoPayments')
-> Parser (Maybe Bool)
-> Parser PostAccountsRequestBodyCapabilities'OxxoPayments'
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
"requested"))

-- | Create a new 'PostAccountsRequestBodyCapabilities'OxxoPayments'' with all required fields.
mkPostAccountsRequestBodyCapabilities'OxxoPayments' :: PostAccountsRequestBodyCapabilities'OxxoPayments'
mkPostAccountsRequestBodyCapabilities'OxxoPayments' :: PostAccountsRequestBodyCapabilities'OxxoPayments'
mkPostAccountsRequestBodyCapabilities'OxxoPayments' = PostAccountsRequestBodyCapabilities'OxxoPayments' :: Maybe Bool -> PostAccountsRequestBodyCapabilities'OxxoPayments'
PostAccountsRequestBodyCapabilities'OxxoPayments' {postAccountsRequestBodyCapabilities'OxxoPayments'Requested :: Maybe Bool
postAccountsRequestBodyCapabilities'OxxoPayments'Requested = Maybe Bool
forall a. Maybe a
GHC.Maybe.Nothing}

-- | Defines the object schema located at @paths.\/v1\/accounts.POST.requestBody.content.application\/x-www-form-urlencoded.schema.properties.capabilities.properties.p24_payments@ in the specification.
data PostAccountsRequestBodyCapabilities'P24Payments' = PostAccountsRequestBodyCapabilities'P24Payments'
  { -- | requested
    PostAccountsRequestBodyCapabilities'P24Payments' -> Maybe Bool
postAccountsRequestBodyCapabilities'P24Payments'Requested :: (GHC.Maybe.Maybe GHC.Types.Bool)
  }
  deriving
    ( Int -> PostAccountsRequestBodyCapabilities'P24Payments' -> ShowS
[PostAccountsRequestBodyCapabilities'P24Payments'] -> ShowS
PostAccountsRequestBodyCapabilities'P24Payments' -> String
(Int -> PostAccountsRequestBodyCapabilities'P24Payments' -> ShowS)
-> (PostAccountsRequestBodyCapabilities'P24Payments' -> String)
-> ([PostAccountsRequestBodyCapabilities'P24Payments'] -> ShowS)
-> Show PostAccountsRequestBodyCapabilities'P24Payments'
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PostAccountsRequestBodyCapabilities'P24Payments'] -> ShowS
$cshowList :: [PostAccountsRequestBodyCapabilities'P24Payments'] -> ShowS
show :: PostAccountsRequestBodyCapabilities'P24Payments' -> String
$cshow :: PostAccountsRequestBodyCapabilities'P24Payments' -> String
showsPrec :: Int -> PostAccountsRequestBodyCapabilities'P24Payments' -> ShowS
$cshowsPrec :: Int -> PostAccountsRequestBodyCapabilities'P24Payments' -> ShowS
GHC.Show.Show,
      PostAccountsRequestBodyCapabilities'P24Payments'
-> PostAccountsRequestBodyCapabilities'P24Payments' -> Bool
(PostAccountsRequestBodyCapabilities'P24Payments'
 -> PostAccountsRequestBodyCapabilities'P24Payments' -> Bool)
-> (PostAccountsRequestBodyCapabilities'P24Payments'
    -> PostAccountsRequestBodyCapabilities'P24Payments' -> Bool)
-> Eq PostAccountsRequestBodyCapabilities'P24Payments'
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostAccountsRequestBodyCapabilities'P24Payments'
-> PostAccountsRequestBodyCapabilities'P24Payments' -> Bool
$c/= :: PostAccountsRequestBodyCapabilities'P24Payments'
-> PostAccountsRequestBodyCapabilities'P24Payments' -> Bool
== :: PostAccountsRequestBodyCapabilities'P24Payments'
-> PostAccountsRequestBodyCapabilities'P24Payments' -> Bool
$c== :: PostAccountsRequestBodyCapabilities'P24Payments'
-> PostAccountsRequestBodyCapabilities'P24Payments' -> Bool
GHC.Classes.Eq
    )

instance Data.Aeson.Types.ToJSON.ToJSON PostAccountsRequestBodyCapabilities'P24Payments' where
  toJSON :: PostAccountsRequestBodyCapabilities'P24Payments' -> Value
toJSON PostAccountsRequestBodyCapabilities'P24Payments'
obj = [Pair] -> Value
Data.Aeson.Types.Internal.object (Text
"requested" Text -> Maybe Bool -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyCapabilities'P24Payments' -> Maybe Bool
postAccountsRequestBodyCapabilities'P24Payments'Requested PostAccountsRequestBodyCapabilities'P24Payments'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: [Pair]
forall a. Monoid a => a
GHC.Base.mempty)
  toEncoding :: PostAccountsRequestBodyCapabilities'P24Payments' -> Encoding
toEncoding PostAccountsRequestBodyCapabilities'P24Payments'
obj = Series -> Encoding
Data.Aeson.Encoding.Internal.pairs (Text
"requested" Text -> Maybe Bool -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyCapabilities'P24Payments' -> Maybe Bool
postAccountsRequestBodyCapabilities'P24Payments'Requested PostAccountsRequestBodyCapabilities'P24Payments'
obj)

instance Data.Aeson.Types.FromJSON.FromJSON PostAccountsRequestBodyCapabilities'P24Payments' where
  parseJSON :: Value -> Parser PostAccountsRequestBodyCapabilities'P24Payments'
parseJSON = String
-> (Object
    -> Parser PostAccountsRequestBodyCapabilities'P24Payments')
-> Value
-> Parser PostAccountsRequestBodyCapabilities'P24Payments'
forall a. String -> (Object -> Parser a) -> Value -> Parser a
Data.Aeson.Types.FromJSON.withObject String
"PostAccountsRequestBodyCapabilities'P24Payments'" (\Object
obj -> (Maybe Bool -> PostAccountsRequestBodyCapabilities'P24Payments')
-> Parser
     (Maybe Bool -> PostAccountsRequestBodyCapabilities'P24Payments')
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure Maybe Bool -> PostAccountsRequestBodyCapabilities'P24Payments'
PostAccountsRequestBodyCapabilities'P24Payments' Parser
  (Maybe Bool -> PostAccountsRequestBodyCapabilities'P24Payments')
-> Parser (Maybe Bool)
-> Parser PostAccountsRequestBodyCapabilities'P24Payments'
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
"requested"))

-- | Create a new 'PostAccountsRequestBodyCapabilities'P24Payments'' with all required fields.
mkPostAccountsRequestBodyCapabilities'P24Payments' :: PostAccountsRequestBodyCapabilities'P24Payments'
mkPostAccountsRequestBodyCapabilities'P24Payments' :: PostAccountsRequestBodyCapabilities'P24Payments'
mkPostAccountsRequestBodyCapabilities'P24Payments' = PostAccountsRequestBodyCapabilities'P24Payments' :: Maybe Bool -> PostAccountsRequestBodyCapabilities'P24Payments'
PostAccountsRequestBodyCapabilities'P24Payments' {postAccountsRequestBodyCapabilities'P24Payments'Requested :: Maybe Bool
postAccountsRequestBodyCapabilities'P24Payments'Requested = Maybe Bool
forall a. Maybe a
GHC.Maybe.Nothing}

-- | Defines the object schema located at @paths.\/v1\/accounts.POST.requestBody.content.application\/x-www-form-urlencoded.schema.properties.capabilities.properties.sepa_debit_payments@ in the specification.
data PostAccountsRequestBodyCapabilities'SepaDebitPayments' = PostAccountsRequestBodyCapabilities'SepaDebitPayments'
  { -- | requested
    PostAccountsRequestBodyCapabilities'SepaDebitPayments'
-> Maybe Bool
postAccountsRequestBodyCapabilities'SepaDebitPayments'Requested :: (GHC.Maybe.Maybe GHC.Types.Bool)
  }
  deriving
    ( Int
-> PostAccountsRequestBodyCapabilities'SepaDebitPayments' -> ShowS
[PostAccountsRequestBodyCapabilities'SepaDebitPayments'] -> ShowS
PostAccountsRequestBodyCapabilities'SepaDebitPayments' -> String
(Int
 -> PostAccountsRequestBodyCapabilities'SepaDebitPayments' -> ShowS)
-> (PostAccountsRequestBodyCapabilities'SepaDebitPayments'
    -> String)
-> ([PostAccountsRequestBodyCapabilities'SepaDebitPayments']
    -> ShowS)
-> Show PostAccountsRequestBodyCapabilities'SepaDebitPayments'
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PostAccountsRequestBodyCapabilities'SepaDebitPayments'] -> ShowS
$cshowList :: [PostAccountsRequestBodyCapabilities'SepaDebitPayments'] -> ShowS
show :: PostAccountsRequestBodyCapabilities'SepaDebitPayments' -> String
$cshow :: PostAccountsRequestBodyCapabilities'SepaDebitPayments' -> String
showsPrec :: Int
-> PostAccountsRequestBodyCapabilities'SepaDebitPayments' -> ShowS
$cshowsPrec :: Int
-> PostAccountsRequestBodyCapabilities'SepaDebitPayments' -> ShowS
GHC.Show.Show,
      PostAccountsRequestBodyCapabilities'SepaDebitPayments'
-> PostAccountsRequestBodyCapabilities'SepaDebitPayments' -> Bool
(PostAccountsRequestBodyCapabilities'SepaDebitPayments'
 -> PostAccountsRequestBodyCapabilities'SepaDebitPayments' -> Bool)
-> (PostAccountsRequestBodyCapabilities'SepaDebitPayments'
    -> PostAccountsRequestBodyCapabilities'SepaDebitPayments' -> Bool)
-> Eq PostAccountsRequestBodyCapabilities'SepaDebitPayments'
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostAccountsRequestBodyCapabilities'SepaDebitPayments'
-> PostAccountsRequestBodyCapabilities'SepaDebitPayments' -> Bool
$c/= :: PostAccountsRequestBodyCapabilities'SepaDebitPayments'
-> PostAccountsRequestBodyCapabilities'SepaDebitPayments' -> Bool
== :: PostAccountsRequestBodyCapabilities'SepaDebitPayments'
-> PostAccountsRequestBodyCapabilities'SepaDebitPayments' -> Bool
$c== :: PostAccountsRequestBodyCapabilities'SepaDebitPayments'
-> PostAccountsRequestBodyCapabilities'SepaDebitPayments' -> Bool
GHC.Classes.Eq
    )

instance Data.Aeson.Types.ToJSON.ToJSON PostAccountsRequestBodyCapabilities'SepaDebitPayments' where
  toJSON :: PostAccountsRequestBodyCapabilities'SepaDebitPayments' -> Value
toJSON PostAccountsRequestBodyCapabilities'SepaDebitPayments'
obj = [Pair] -> Value
Data.Aeson.Types.Internal.object (Text
"requested" Text -> Maybe Bool -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyCapabilities'SepaDebitPayments'
-> Maybe Bool
postAccountsRequestBodyCapabilities'SepaDebitPayments'Requested PostAccountsRequestBodyCapabilities'SepaDebitPayments'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: [Pair]
forall a. Monoid a => a
GHC.Base.mempty)
  toEncoding :: PostAccountsRequestBodyCapabilities'SepaDebitPayments' -> Encoding
toEncoding PostAccountsRequestBodyCapabilities'SepaDebitPayments'
obj = Series -> Encoding
Data.Aeson.Encoding.Internal.pairs (Text
"requested" Text -> Maybe Bool -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyCapabilities'SepaDebitPayments'
-> Maybe Bool
postAccountsRequestBodyCapabilities'SepaDebitPayments'Requested PostAccountsRequestBodyCapabilities'SepaDebitPayments'
obj)

instance Data.Aeson.Types.FromJSON.FromJSON PostAccountsRequestBodyCapabilities'SepaDebitPayments' where
  parseJSON :: Value
-> Parser PostAccountsRequestBodyCapabilities'SepaDebitPayments'
parseJSON = String
-> (Object
    -> Parser PostAccountsRequestBodyCapabilities'SepaDebitPayments')
-> Value
-> Parser PostAccountsRequestBodyCapabilities'SepaDebitPayments'
forall a. String -> (Object -> Parser a) -> Value -> Parser a
Data.Aeson.Types.FromJSON.withObject String
"PostAccountsRequestBodyCapabilities'SepaDebitPayments'" (\Object
obj -> (Maybe Bool
 -> PostAccountsRequestBodyCapabilities'SepaDebitPayments')
-> Parser
     (Maybe Bool
      -> PostAccountsRequestBodyCapabilities'SepaDebitPayments')
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure Maybe Bool
-> PostAccountsRequestBodyCapabilities'SepaDebitPayments'
PostAccountsRequestBodyCapabilities'SepaDebitPayments' Parser
  (Maybe Bool
   -> PostAccountsRequestBodyCapabilities'SepaDebitPayments')
-> Parser (Maybe Bool)
-> Parser PostAccountsRequestBodyCapabilities'SepaDebitPayments'
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
"requested"))

-- | Create a new 'PostAccountsRequestBodyCapabilities'SepaDebitPayments'' with all required fields.
mkPostAccountsRequestBodyCapabilities'SepaDebitPayments' :: PostAccountsRequestBodyCapabilities'SepaDebitPayments'
mkPostAccountsRequestBodyCapabilities'SepaDebitPayments' :: PostAccountsRequestBodyCapabilities'SepaDebitPayments'
mkPostAccountsRequestBodyCapabilities'SepaDebitPayments' = PostAccountsRequestBodyCapabilities'SepaDebitPayments' :: Maybe Bool
-> PostAccountsRequestBodyCapabilities'SepaDebitPayments'
PostAccountsRequestBodyCapabilities'SepaDebitPayments' {postAccountsRequestBodyCapabilities'SepaDebitPayments'Requested :: Maybe Bool
postAccountsRequestBodyCapabilities'SepaDebitPayments'Requested = Maybe Bool
forall a. Maybe a
GHC.Maybe.Nothing}

-- | Defines the object schema located at @paths.\/v1\/accounts.POST.requestBody.content.application\/x-www-form-urlencoded.schema.properties.capabilities.properties.sofort_payments@ in the specification.
data PostAccountsRequestBodyCapabilities'SofortPayments' = PostAccountsRequestBodyCapabilities'SofortPayments'
  { -- | requested
    PostAccountsRequestBodyCapabilities'SofortPayments' -> Maybe Bool
postAccountsRequestBodyCapabilities'SofortPayments'Requested :: (GHC.Maybe.Maybe GHC.Types.Bool)
  }
  deriving
    ( Int -> PostAccountsRequestBodyCapabilities'SofortPayments' -> ShowS
[PostAccountsRequestBodyCapabilities'SofortPayments'] -> ShowS
PostAccountsRequestBodyCapabilities'SofortPayments' -> String
(Int
 -> PostAccountsRequestBodyCapabilities'SofortPayments' -> ShowS)
-> (PostAccountsRequestBodyCapabilities'SofortPayments' -> String)
-> ([PostAccountsRequestBodyCapabilities'SofortPayments'] -> ShowS)
-> Show PostAccountsRequestBodyCapabilities'SofortPayments'
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PostAccountsRequestBodyCapabilities'SofortPayments'] -> ShowS
$cshowList :: [PostAccountsRequestBodyCapabilities'SofortPayments'] -> ShowS
show :: PostAccountsRequestBodyCapabilities'SofortPayments' -> String
$cshow :: PostAccountsRequestBodyCapabilities'SofortPayments' -> String
showsPrec :: Int -> PostAccountsRequestBodyCapabilities'SofortPayments' -> ShowS
$cshowsPrec :: Int -> PostAccountsRequestBodyCapabilities'SofortPayments' -> ShowS
GHC.Show.Show,
      PostAccountsRequestBodyCapabilities'SofortPayments'
-> PostAccountsRequestBodyCapabilities'SofortPayments' -> Bool
(PostAccountsRequestBodyCapabilities'SofortPayments'
 -> PostAccountsRequestBodyCapabilities'SofortPayments' -> Bool)
-> (PostAccountsRequestBodyCapabilities'SofortPayments'
    -> PostAccountsRequestBodyCapabilities'SofortPayments' -> Bool)
-> Eq PostAccountsRequestBodyCapabilities'SofortPayments'
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostAccountsRequestBodyCapabilities'SofortPayments'
-> PostAccountsRequestBodyCapabilities'SofortPayments' -> Bool
$c/= :: PostAccountsRequestBodyCapabilities'SofortPayments'
-> PostAccountsRequestBodyCapabilities'SofortPayments' -> Bool
== :: PostAccountsRequestBodyCapabilities'SofortPayments'
-> PostAccountsRequestBodyCapabilities'SofortPayments' -> Bool
$c== :: PostAccountsRequestBodyCapabilities'SofortPayments'
-> PostAccountsRequestBodyCapabilities'SofortPayments' -> Bool
GHC.Classes.Eq
    )

instance Data.Aeson.Types.ToJSON.ToJSON PostAccountsRequestBodyCapabilities'SofortPayments' where
  toJSON :: PostAccountsRequestBodyCapabilities'SofortPayments' -> Value
toJSON PostAccountsRequestBodyCapabilities'SofortPayments'
obj = [Pair] -> Value
Data.Aeson.Types.Internal.object (Text
"requested" Text -> Maybe Bool -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyCapabilities'SofortPayments' -> Maybe Bool
postAccountsRequestBodyCapabilities'SofortPayments'Requested PostAccountsRequestBodyCapabilities'SofortPayments'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: [Pair]
forall a. Monoid a => a
GHC.Base.mempty)
  toEncoding :: PostAccountsRequestBodyCapabilities'SofortPayments' -> Encoding
toEncoding PostAccountsRequestBodyCapabilities'SofortPayments'
obj = Series -> Encoding
Data.Aeson.Encoding.Internal.pairs (Text
"requested" Text -> Maybe Bool -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyCapabilities'SofortPayments' -> Maybe Bool
postAccountsRequestBodyCapabilities'SofortPayments'Requested PostAccountsRequestBodyCapabilities'SofortPayments'
obj)

instance Data.Aeson.Types.FromJSON.FromJSON PostAccountsRequestBodyCapabilities'SofortPayments' where
  parseJSON :: Value -> Parser PostAccountsRequestBodyCapabilities'SofortPayments'
parseJSON = String
-> (Object
    -> Parser PostAccountsRequestBodyCapabilities'SofortPayments')
-> Value
-> Parser PostAccountsRequestBodyCapabilities'SofortPayments'
forall a. String -> (Object -> Parser a) -> Value -> Parser a
Data.Aeson.Types.FromJSON.withObject String
"PostAccountsRequestBodyCapabilities'SofortPayments'" (\Object
obj -> (Maybe Bool -> PostAccountsRequestBodyCapabilities'SofortPayments')
-> Parser
     (Maybe Bool -> PostAccountsRequestBodyCapabilities'SofortPayments')
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure Maybe Bool -> PostAccountsRequestBodyCapabilities'SofortPayments'
PostAccountsRequestBodyCapabilities'SofortPayments' Parser
  (Maybe Bool -> PostAccountsRequestBodyCapabilities'SofortPayments')
-> Parser (Maybe Bool)
-> Parser PostAccountsRequestBodyCapabilities'SofortPayments'
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
"requested"))

-- | Create a new 'PostAccountsRequestBodyCapabilities'SofortPayments'' with all required fields.
mkPostAccountsRequestBodyCapabilities'SofortPayments' :: PostAccountsRequestBodyCapabilities'SofortPayments'
mkPostAccountsRequestBodyCapabilities'SofortPayments' :: PostAccountsRequestBodyCapabilities'SofortPayments'
mkPostAccountsRequestBodyCapabilities'SofortPayments' = PostAccountsRequestBodyCapabilities'SofortPayments' :: Maybe Bool -> PostAccountsRequestBodyCapabilities'SofortPayments'
PostAccountsRequestBodyCapabilities'SofortPayments' {postAccountsRequestBodyCapabilities'SofortPayments'Requested :: Maybe Bool
postAccountsRequestBodyCapabilities'SofortPayments'Requested = Maybe Bool
forall a. Maybe a
GHC.Maybe.Nothing}

-- | Defines the object schema located at @paths.\/v1\/accounts.POST.requestBody.content.application\/x-www-form-urlencoded.schema.properties.capabilities.properties.tax_reporting_us_1099_k@ in the specification.
data PostAccountsRequestBodyCapabilities'TaxReportingUs_1099K' = PostAccountsRequestBodyCapabilities'TaxReportingUs_1099K'
  { -- | requested
    PostAccountsRequestBodyCapabilities'TaxReportingUs_1099K'
-> Maybe Bool
postAccountsRequestBodyCapabilities'TaxReportingUs_1099K'Requested :: (GHC.Maybe.Maybe GHC.Types.Bool)
  }
  deriving
    ( Int
-> PostAccountsRequestBodyCapabilities'TaxReportingUs_1099K'
-> ShowS
[PostAccountsRequestBodyCapabilities'TaxReportingUs_1099K']
-> ShowS
PostAccountsRequestBodyCapabilities'TaxReportingUs_1099K' -> String
(Int
 -> PostAccountsRequestBodyCapabilities'TaxReportingUs_1099K'
 -> ShowS)
-> (PostAccountsRequestBodyCapabilities'TaxReportingUs_1099K'
    -> String)
-> ([PostAccountsRequestBodyCapabilities'TaxReportingUs_1099K']
    -> ShowS)
-> Show PostAccountsRequestBodyCapabilities'TaxReportingUs_1099K'
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PostAccountsRequestBodyCapabilities'TaxReportingUs_1099K']
-> ShowS
$cshowList :: [PostAccountsRequestBodyCapabilities'TaxReportingUs_1099K']
-> ShowS
show :: PostAccountsRequestBodyCapabilities'TaxReportingUs_1099K' -> String
$cshow :: PostAccountsRequestBodyCapabilities'TaxReportingUs_1099K' -> String
showsPrec :: Int
-> PostAccountsRequestBodyCapabilities'TaxReportingUs_1099K'
-> ShowS
$cshowsPrec :: Int
-> PostAccountsRequestBodyCapabilities'TaxReportingUs_1099K'
-> ShowS
GHC.Show.Show,
      PostAccountsRequestBodyCapabilities'TaxReportingUs_1099K'
-> PostAccountsRequestBodyCapabilities'TaxReportingUs_1099K'
-> Bool
(PostAccountsRequestBodyCapabilities'TaxReportingUs_1099K'
 -> PostAccountsRequestBodyCapabilities'TaxReportingUs_1099K'
 -> Bool)
-> (PostAccountsRequestBodyCapabilities'TaxReportingUs_1099K'
    -> PostAccountsRequestBodyCapabilities'TaxReportingUs_1099K'
    -> Bool)
-> Eq PostAccountsRequestBodyCapabilities'TaxReportingUs_1099K'
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostAccountsRequestBodyCapabilities'TaxReportingUs_1099K'
-> PostAccountsRequestBodyCapabilities'TaxReportingUs_1099K'
-> Bool
$c/= :: PostAccountsRequestBodyCapabilities'TaxReportingUs_1099K'
-> PostAccountsRequestBodyCapabilities'TaxReportingUs_1099K'
-> Bool
== :: PostAccountsRequestBodyCapabilities'TaxReportingUs_1099K'
-> PostAccountsRequestBodyCapabilities'TaxReportingUs_1099K'
-> Bool
$c== :: PostAccountsRequestBodyCapabilities'TaxReportingUs_1099K'
-> PostAccountsRequestBodyCapabilities'TaxReportingUs_1099K'
-> Bool
GHC.Classes.Eq
    )

instance Data.Aeson.Types.ToJSON.ToJSON PostAccountsRequestBodyCapabilities'TaxReportingUs_1099K' where
  toJSON :: PostAccountsRequestBodyCapabilities'TaxReportingUs_1099K' -> Value
toJSON PostAccountsRequestBodyCapabilities'TaxReportingUs_1099K'
obj = [Pair] -> Value
Data.Aeson.Types.Internal.object (Text
"requested" Text -> Maybe Bool -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyCapabilities'TaxReportingUs_1099K'
-> Maybe Bool
postAccountsRequestBodyCapabilities'TaxReportingUs_1099K'Requested PostAccountsRequestBodyCapabilities'TaxReportingUs_1099K'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: [Pair]
forall a. Monoid a => a
GHC.Base.mempty)
  toEncoding :: PostAccountsRequestBodyCapabilities'TaxReportingUs_1099K'
-> Encoding
toEncoding PostAccountsRequestBodyCapabilities'TaxReportingUs_1099K'
obj = Series -> Encoding
Data.Aeson.Encoding.Internal.pairs (Text
"requested" Text -> Maybe Bool -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyCapabilities'TaxReportingUs_1099K'
-> Maybe Bool
postAccountsRequestBodyCapabilities'TaxReportingUs_1099K'Requested PostAccountsRequestBodyCapabilities'TaxReportingUs_1099K'
obj)

instance Data.Aeson.Types.FromJSON.FromJSON PostAccountsRequestBodyCapabilities'TaxReportingUs_1099K' where
  parseJSON :: Value
-> Parser PostAccountsRequestBodyCapabilities'TaxReportingUs_1099K'
parseJSON = String
-> (Object
    -> Parser
         PostAccountsRequestBodyCapabilities'TaxReportingUs_1099K')
-> Value
-> Parser PostAccountsRequestBodyCapabilities'TaxReportingUs_1099K'
forall a. String -> (Object -> Parser a) -> Value -> Parser a
Data.Aeson.Types.FromJSON.withObject String
"PostAccountsRequestBodyCapabilities'TaxReportingUs_1099K'" (\Object
obj -> (Maybe Bool
 -> PostAccountsRequestBodyCapabilities'TaxReportingUs_1099K')
-> Parser
     (Maybe Bool
      -> PostAccountsRequestBodyCapabilities'TaxReportingUs_1099K')
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure Maybe Bool
-> PostAccountsRequestBodyCapabilities'TaxReportingUs_1099K'
PostAccountsRequestBodyCapabilities'TaxReportingUs_1099K' Parser
  (Maybe Bool
   -> PostAccountsRequestBodyCapabilities'TaxReportingUs_1099K')
-> Parser (Maybe Bool)
-> Parser PostAccountsRequestBodyCapabilities'TaxReportingUs_1099K'
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
"requested"))

-- | Create a new 'PostAccountsRequestBodyCapabilities'TaxReportingUs_1099K'' with all required fields.
mkPostAccountsRequestBodyCapabilities'TaxReportingUs_1099K' :: PostAccountsRequestBodyCapabilities'TaxReportingUs_1099K'
mkPostAccountsRequestBodyCapabilities'TaxReportingUs_1099K' :: PostAccountsRequestBodyCapabilities'TaxReportingUs_1099K'
mkPostAccountsRequestBodyCapabilities'TaxReportingUs_1099K' = PostAccountsRequestBodyCapabilities'TaxReportingUs_1099K' :: Maybe Bool
-> PostAccountsRequestBodyCapabilities'TaxReportingUs_1099K'
PostAccountsRequestBodyCapabilities'TaxReportingUs_1099K' {postAccountsRequestBodyCapabilities'TaxReportingUs_1099K'Requested :: Maybe Bool
postAccountsRequestBodyCapabilities'TaxReportingUs_1099K'Requested = Maybe Bool
forall a. Maybe a
GHC.Maybe.Nothing}

-- | Defines the object schema located at @paths.\/v1\/accounts.POST.requestBody.content.application\/x-www-form-urlencoded.schema.properties.capabilities.properties.tax_reporting_us_1099_misc@ in the specification.
data PostAccountsRequestBodyCapabilities'TaxReportingUs_1099Misc' = PostAccountsRequestBodyCapabilities'TaxReportingUs_1099Misc'
  { -- | requested
    PostAccountsRequestBodyCapabilities'TaxReportingUs_1099Misc'
-> Maybe Bool
postAccountsRequestBodyCapabilities'TaxReportingUs_1099Misc'Requested :: (GHC.Maybe.Maybe GHC.Types.Bool)
  }
  deriving
    ( Int
-> PostAccountsRequestBodyCapabilities'TaxReportingUs_1099Misc'
-> ShowS
[PostAccountsRequestBodyCapabilities'TaxReportingUs_1099Misc']
-> ShowS
PostAccountsRequestBodyCapabilities'TaxReportingUs_1099Misc'
-> String
(Int
 -> PostAccountsRequestBodyCapabilities'TaxReportingUs_1099Misc'
 -> ShowS)
-> (PostAccountsRequestBodyCapabilities'TaxReportingUs_1099Misc'
    -> String)
-> ([PostAccountsRequestBodyCapabilities'TaxReportingUs_1099Misc']
    -> ShowS)
-> Show
     PostAccountsRequestBodyCapabilities'TaxReportingUs_1099Misc'
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PostAccountsRequestBodyCapabilities'TaxReportingUs_1099Misc']
-> ShowS
$cshowList :: [PostAccountsRequestBodyCapabilities'TaxReportingUs_1099Misc']
-> ShowS
show :: PostAccountsRequestBodyCapabilities'TaxReportingUs_1099Misc'
-> String
$cshow :: PostAccountsRequestBodyCapabilities'TaxReportingUs_1099Misc'
-> String
showsPrec :: Int
-> PostAccountsRequestBodyCapabilities'TaxReportingUs_1099Misc'
-> ShowS
$cshowsPrec :: Int
-> PostAccountsRequestBodyCapabilities'TaxReportingUs_1099Misc'
-> ShowS
GHC.Show.Show,
      PostAccountsRequestBodyCapabilities'TaxReportingUs_1099Misc'
-> PostAccountsRequestBodyCapabilities'TaxReportingUs_1099Misc'
-> Bool
(PostAccountsRequestBodyCapabilities'TaxReportingUs_1099Misc'
 -> PostAccountsRequestBodyCapabilities'TaxReportingUs_1099Misc'
 -> Bool)
-> (PostAccountsRequestBodyCapabilities'TaxReportingUs_1099Misc'
    -> PostAccountsRequestBodyCapabilities'TaxReportingUs_1099Misc'
    -> Bool)
-> Eq PostAccountsRequestBodyCapabilities'TaxReportingUs_1099Misc'
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostAccountsRequestBodyCapabilities'TaxReportingUs_1099Misc'
-> PostAccountsRequestBodyCapabilities'TaxReportingUs_1099Misc'
-> Bool
$c/= :: PostAccountsRequestBodyCapabilities'TaxReportingUs_1099Misc'
-> PostAccountsRequestBodyCapabilities'TaxReportingUs_1099Misc'
-> Bool
== :: PostAccountsRequestBodyCapabilities'TaxReportingUs_1099Misc'
-> PostAccountsRequestBodyCapabilities'TaxReportingUs_1099Misc'
-> Bool
$c== :: PostAccountsRequestBodyCapabilities'TaxReportingUs_1099Misc'
-> PostAccountsRequestBodyCapabilities'TaxReportingUs_1099Misc'
-> Bool
GHC.Classes.Eq
    )

instance Data.Aeson.Types.ToJSON.ToJSON PostAccountsRequestBodyCapabilities'TaxReportingUs_1099Misc' where
  toJSON :: PostAccountsRequestBodyCapabilities'TaxReportingUs_1099Misc'
-> Value
toJSON PostAccountsRequestBodyCapabilities'TaxReportingUs_1099Misc'
obj = [Pair] -> Value
Data.Aeson.Types.Internal.object (Text
"requested" Text -> Maybe Bool -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyCapabilities'TaxReportingUs_1099Misc'
-> Maybe Bool
postAccountsRequestBodyCapabilities'TaxReportingUs_1099Misc'Requested PostAccountsRequestBodyCapabilities'TaxReportingUs_1099Misc'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: [Pair]
forall a. Monoid a => a
GHC.Base.mempty)
  toEncoding :: PostAccountsRequestBodyCapabilities'TaxReportingUs_1099Misc'
-> Encoding
toEncoding PostAccountsRequestBodyCapabilities'TaxReportingUs_1099Misc'
obj = Series -> Encoding
Data.Aeson.Encoding.Internal.pairs (Text
"requested" Text -> Maybe Bool -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyCapabilities'TaxReportingUs_1099Misc'
-> Maybe Bool
postAccountsRequestBodyCapabilities'TaxReportingUs_1099Misc'Requested PostAccountsRequestBodyCapabilities'TaxReportingUs_1099Misc'
obj)

instance Data.Aeson.Types.FromJSON.FromJSON PostAccountsRequestBodyCapabilities'TaxReportingUs_1099Misc' where
  parseJSON :: Value
-> Parser
     PostAccountsRequestBodyCapabilities'TaxReportingUs_1099Misc'
parseJSON = String
-> (Object
    -> Parser
         PostAccountsRequestBodyCapabilities'TaxReportingUs_1099Misc')
-> Value
-> Parser
     PostAccountsRequestBodyCapabilities'TaxReportingUs_1099Misc'
forall a. String -> (Object -> Parser a) -> Value -> Parser a
Data.Aeson.Types.FromJSON.withObject String
"PostAccountsRequestBodyCapabilities'TaxReportingUs_1099Misc'" (\Object
obj -> (Maybe Bool
 -> PostAccountsRequestBodyCapabilities'TaxReportingUs_1099Misc')
-> Parser
     (Maybe Bool
      -> PostAccountsRequestBodyCapabilities'TaxReportingUs_1099Misc')
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure Maybe Bool
-> PostAccountsRequestBodyCapabilities'TaxReportingUs_1099Misc'
PostAccountsRequestBodyCapabilities'TaxReportingUs_1099Misc' Parser
  (Maybe Bool
   -> PostAccountsRequestBodyCapabilities'TaxReportingUs_1099Misc')
-> Parser (Maybe Bool)
-> Parser
     PostAccountsRequestBodyCapabilities'TaxReportingUs_1099Misc'
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
"requested"))

-- | Create a new 'PostAccountsRequestBodyCapabilities'TaxReportingUs_1099Misc'' with all required fields.
mkPostAccountsRequestBodyCapabilities'TaxReportingUs_1099Misc' :: PostAccountsRequestBodyCapabilities'TaxReportingUs_1099Misc'
mkPostAccountsRequestBodyCapabilities'TaxReportingUs_1099Misc' :: PostAccountsRequestBodyCapabilities'TaxReportingUs_1099Misc'
mkPostAccountsRequestBodyCapabilities'TaxReportingUs_1099Misc' = PostAccountsRequestBodyCapabilities'TaxReportingUs_1099Misc' :: Maybe Bool
-> PostAccountsRequestBodyCapabilities'TaxReportingUs_1099Misc'
PostAccountsRequestBodyCapabilities'TaxReportingUs_1099Misc' {postAccountsRequestBodyCapabilities'TaxReportingUs_1099Misc'Requested :: Maybe Bool
postAccountsRequestBodyCapabilities'TaxReportingUs_1099Misc'Requested = Maybe Bool
forall a. Maybe a
GHC.Maybe.Nothing}

-- | Defines the object schema located at @paths.\/v1\/accounts.POST.requestBody.content.application\/x-www-form-urlencoded.schema.properties.capabilities.properties.transfers@ in the specification.
data PostAccountsRequestBodyCapabilities'Transfers' = PostAccountsRequestBodyCapabilities'Transfers'
  { -- | requested
    PostAccountsRequestBodyCapabilities'Transfers' -> Maybe Bool
postAccountsRequestBodyCapabilities'Transfers'Requested :: (GHC.Maybe.Maybe GHC.Types.Bool)
  }
  deriving
    ( Int -> PostAccountsRequestBodyCapabilities'Transfers' -> ShowS
[PostAccountsRequestBodyCapabilities'Transfers'] -> ShowS
PostAccountsRequestBodyCapabilities'Transfers' -> String
(Int -> PostAccountsRequestBodyCapabilities'Transfers' -> ShowS)
-> (PostAccountsRequestBodyCapabilities'Transfers' -> String)
-> ([PostAccountsRequestBodyCapabilities'Transfers'] -> ShowS)
-> Show PostAccountsRequestBodyCapabilities'Transfers'
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PostAccountsRequestBodyCapabilities'Transfers'] -> ShowS
$cshowList :: [PostAccountsRequestBodyCapabilities'Transfers'] -> ShowS
show :: PostAccountsRequestBodyCapabilities'Transfers' -> String
$cshow :: PostAccountsRequestBodyCapabilities'Transfers' -> String
showsPrec :: Int -> PostAccountsRequestBodyCapabilities'Transfers' -> ShowS
$cshowsPrec :: Int -> PostAccountsRequestBodyCapabilities'Transfers' -> ShowS
GHC.Show.Show,
      PostAccountsRequestBodyCapabilities'Transfers'
-> PostAccountsRequestBodyCapabilities'Transfers' -> Bool
(PostAccountsRequestBodyCapabilities'Transfers'
 -> PostAccountsRequestBodyCapabilities'Transfers' -> Bool)
-> (PostAccountsRequestBodyCapabilities'Transfers'
    -> PostAccountsRequestBodyCapabilities'Transfers' -> Bool)
-> Eq PostAccountsRequestBodyCapabilities'Transfers'
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostAccountsRequestBodyCapabilities'Transfers'
-> PostAccountsRequestBodyCapabilities'Transfers' -> Bool
$c/= :: PostAccountsRequestBodyCapabilities'Transfers'
-> PostAccountsRequestBodyCapabilities'Transfers' -> Bool
== :: PostAccountsRequestBodyCapabilities'Transfers'
-> PostAccountsRequestBodyCapabilities'Transfers' -> Bool
$c== :: PostAccountsRequestBodyCapabilities'Transfers'
-> PostAccountsRequestBodyCapabilities'Transfers' -> Bool
GHC.Classes.Eq
    )

instance Data.Aeson.Types.ToJSON.ToJSON PostAccountsRequestBodyCapabilities'Transfers' where
  toJSON :: PostAccountsRequestBodyCapabilities'Transfers' -> Value
toJSON PostAccountsRequestBodyCapabilities'Transfers'
obj = [Pair] -> Value
Data.Aeson.Types.Internal.object (Text
"requested" Text -> Maybe Bool -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyCapabilities'Transfers' -> Maybe Bool
postAccountsRequestBodyCapabilities'Transfers'Requested PostAccountsRequestBodyCapabilities'Transfers'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: [Pair]
forall a. Monoid a => a
GHC.Base.mempty)
  toEncoding :: PostAccountsRequestBodyCapabilities'Transfers' -> Encoding
toEncoding PostAccountsRequestBodyCapabilities'Transfers'
obj = Series -> Encoding
Data.Aeson.Encoding.Internal.pairs (Text
"requested" Text -> Maybe Bool -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyCapabilities'Transfers' -> Maybe Bool
postAccountsRequestBodyCapabilities'Transfers'Requested PostAccountsRequestBodyCapabilities'Transfers'
obj)

instance Data.Aeson.Types.FromJSON.FromJSON PostAccountsRequestBodyCapabilities'Transfers' where
  parseJSON :: Value -> Parser PostAccountsRequestBodyCapabilities'Transfers'
parseJSON = String
-> (Object
    -> Parser PostAccountsRequestBodyCapabilities'Transfers')
-> Value
-> Parser PostAccountsRequestBodyCapabilities'Transfers'
forall a. String -> (Object -> Parser a) -> Value -> Parser a
Data.Aeson.Types.FromJSON.withObject String
"PostAccountsRequestBodyCapabilities'Transfers'" (\Object
obj -> (Maybe Bool -> PostAccountsRequestBodyCapabilities'Transfers')
-> Parser
     (Maybe Bool -> PostAccountsRequestBodyCapabilities'Transfers')
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure Maybe Bool -> PostAccountsRequestBodyCapabilities'Transfers'
PostAccountsRequestBodyCapabilities'Transfers' Parser
  (Maybe Bool -> PostAccountsRequestBodyCapabilities'Transfers')
-> Parser (Maybe Bool)
-> Parser PostAccountsRequestBodyCapabilities'Transfers'
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
"requested"))

-- | Create a new 'PostAccountsRequestBodyCapabilities'Transfers'' with all required fields.
mkPostAccountsRequestBodyCapabilities'Transfers' :: PostAccountsRequestBodyCapabilities'Transfers'
mkPostAccountsRequestBodyCapabilities'Transfers' :: PostAccountsRequestBodyCapabilities'Transfers'
mkPostAccountsRequestBodyCapabilities'Transfers' = PostAccountsRequestBodyCapabilities'Transfers' :: Maybe Bool -> PostAccountsRequestBodyCapabilities'Transfers'
PostAccountsRequestBodyCapabilities'Transfers' {postAccountsRequestBodyCapabilities'Transfers'Requested :: Maybe Bool
postAccountsRequestBodyCapabilities'Transfers'Requested = Maybe Bool
forall a. Maybe a
GHC.Maybe.Nothing}

-- | Defines the object schema located at @paths.\/v1\/accounts.POST.requestBody.content.application\/x-www-form-urlencoded.schema.properties.company@ in the specification.
--
-- Information about the company or business. This field is available for any \`business_type\`.
data PostAccountsRequestBodyCompany' = PostAccountsRequestBodyCompany'
  { -- | address
    PostAccountsRequestBodyCompany'
-> Maybe PostAccountsRequestBodyCompany'Address'
postAccountsRequestBodyCompany'Address :: (GHC.Maybe.Maybe PostAccountsRequestBodyCompany'Address'),
    -- | address_kana
    PostAccountsRequestBodyCompany'
-> Maybe PostAccountsRequestBodyCompany'AddressKana'
postAccountsRequestBodyCompany'AddressKana :: (GHC.Maybe.Maybe PostAccountsRequestBodyCompany'AddressKana'),
    -- | address_kanji
    PostAccountsRequestBodyCompany'
-> Maybe PostAccountsRequestBodyCompany'AddressKanji'
postAccountsRequestBodyCompany'AddressKanji :: (GHC.Maybe.Maybe PostAccountsRequestBodyCompany'AddressKanji'),
    -- | directors_provided
    PostAccountsRequestBodyCompany' -> Maybe Bool
postAccountsRequestBodyCompany'DirectorsProvided :: (GHC.Maybe.Maybe GHC.Types.Bool),
    -- | executives_provided
    PostAccountsRequestBodyCompany' -> Maybe Bool
postAccountsRequestBodyCompany'ExecutivesProvided :: (GHC.Maybe.Maybe GHC.Types.Bool),
    -- | name
    --
    -- Constraints:
    --
    -- * Maximum length of 100
    PostAccountsRequestBodyCompany' -> Maybe Text
postAccountsRequestBodyCompany'Name :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | name_kana
    --
    -- Constraints:
    --
    -- * Maximum length of 100
    PostAccountsRequestBodyCompany' -> Maybe Text
postAccountsRequestBodyCompany'NameKana :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | name_kanji
    --
    -- Constraints:
    --
    -- * Maximum length of 100
    PostAccountsRequestBodyCompany' -> Maybe Text
postAccountsRequestBodyCompany'NameKanji :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | owners_provided
    PostAccountsRequestBodyCompany' -> Maybe Bool
postAccountsRequestBodyCompany'OwnersProvided :: (GHC.Maybe.Maybe GHC.Types.Bool),
    -- | phone
    --
    -- Constraints:
    --
    -- * Maximum length of 5000
    PostAccountsRequestBodyCompany' -> Maybe Text
postAccountsRequestBodyCompany'Phone :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | registration_number
    --
    -- Constraints:
    --
    -- * Maximum length of 5000
    PostAccountsRequestBodyCompany' -> Maybe Text
postAccountsRequestBodyCompany'RegistrationNumber :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | structure
    PostAccountsRequestBodyCompany'
-> Maybe PostAccountsRequestBodyCompany'Structure'
postAccountsRequestBodyCompany'Structure :: (GHC.Maybe.Maybe PostAccountsRequestBodyCompany'Structure'),
    -- | tax_id
    --
    -- Constraints:
    --
    -- * Maximum length of 5000
    PostAccountsRequestBodyCompany' -> Maybe Text
postAccountsRequestBodyCompany'TaxId :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | tax_id_registrar
    --
    -- Constraints:
    --
    -- * Maximum length of 5000
    PostAccountsRequestBodyCompany' -> Maybe Text
postAccountsRequestBodyCompany'TaxIdRegistrar :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | vat_id
    --
    -- Constraints:
    --
    -- * Maximum length of 5000
    PostAccountsRequestBodyCompany' -> Maybe Text
postAccountsRequestBodyCompany'VatId :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | verification
    PostAccountsRequestBodyCompany'
-> Maybe PostAccountsRequestBodyCompany'Verification'
postAccountsRequestBodyCompany'Verification :: (GHC.Maybe.Maybe PostAccountsRequestBodyCompany'Verification')
  }
  deriving
    ( Int -> PostAccountsRequestBodyCompany' -> ShowS
[PostAccountsRequestBodyCompany'] -> ShowS
PostAccountsRequestBodyCompany' -> String
(Int -> PostAccountsRequestBodyCompany' -> ShowS)
-> (PostAccountsRequestBodyCompany' -> String)
-> ([PostAccountsRequestBodyCompany'] -> ShowS)
-> Show PostAccountsRequestBodyCompany'
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PostAccountsRequestBodyCompany'] -> ShowS
$cshowList :: [PostAccountsRequestBodyCompany'] -> ShowS
show :: PostAccountsRequestBodyCompany' -> String
$cshow :: PostAccountsRequestBodyCompany' -> String
showsPrec :: Int -> PostAccountsRequestBodyCompany' -> ShowS
$cshowsPrec :: Int -> PostAccountsRequestBodyCompany' -> ShowS
GHC.Show.Show,
      PostAccountsRequestBodyCompany'
-> PostAccountsRequestBodyCompany' -> Bool
(PostAccountsRequestBodyCompany'
 -> PostAccountsRequestBodyCompany' -> Bool)
-> (PostAccountsRequestBodyCompany'
    -> PostAccountsRequestBodyCompany' -> Bool)
-> Eq PostAccountsRequestBodyCompany'
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostAccountsRequestBodyCompany'
-> PostAccountsRequestBodyCompany' -> Bool
$c/= :: PostAccountsRequestBodyCompany'
-> PostAccountsRequestBodyCompany' -> Bool
== :: PostAccountsRequestBodyCompany'
-> PostAccountsRequestBodyCompany' -> Bool
$c== :: PostAccountsRequestBodyCompany'
-> PostAccountsRequestBodyCompany' -> Bool
GHC.Classes.Eq
    )

instance Data.Aeson.Types.ToJSON.ToJSON PostAccountsRequestBodyCompany' where
  toJSON :: PostAccountsRequestBodyCompany' -> Value
toJSON PostAccountsRequestBodyCompany'
obj = [Pair] -> Value
Data.Aeson.Types.Internal.object (Text
"address" Text -> Maybe PostAccountsRequestBodyCompany'Address' -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyCompany'
-> Maybe PostAccountsRequestBodyCompany'Address'
postAccountsRequestBodyCompany'Address PostAccountsRequestBodyCompany'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"address_kana" Text -> Maybe PostAccountsRequestBodyCompany'AddressKana' -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyCompany'
-> Maybe PostAccountsRequestBodyCompany'AddressKana'
postAccountsRequestBodyCompany'AddressKana PostAccountsRequestBodyCompany'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"address_kanji" Text -> Maybe PostAccountsRequestBodyCompany'AddressKanji' -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyCompany'
-> Maybe PostAccountsRequestBodyCompany'AddressKanji'
postAccountsRequestBodyCompany'AddressKanji PostAccountsRequestBodyCompany'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"directors_provided" Text -> Maybe Bool -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyCompany' -> Maybe Bool
postAccountsRequestBodyCompany'DirectorsProvided PostAccountsRequestBodyCompany'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"executives_provided" Text -> Maybe Bool -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyCompany' -> Maybe Bool
postAccountsRequestBodyCompany'ExecutivesProvided PostAccountsRequestBodyCompany'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"name" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyCompany' -> Maybe Text
postAccountsRequestBodyCompany'Name PostAccountsRequestBodyCompany'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"name_kana" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyCompany' -> Maybe Text
postAccountsRequestBodyCompany'NameKana PostAccountsRequestBodyCompany'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"name_kanji" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyCompany' -> Maybe Text
postAccountsRequestBodyCompany'NameKanji PostAccountsRequestBodyCompany'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"owners_provided" Text -> Maybe Bool -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyCompany' -> Maybe Bool
postAccountsRequestBodyCompany'OwnersProvided PostAccountsRequestBodyCompany'
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..= PostAccountsRequestBodyCompany' -> Maybe Text
postAccountsRequestBodyCompany'Phone PostAccountsRequestBodyCompany'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"registration_number" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyCompany' -> Maybe Text
postAccountsRequestBodyCompany'RegistrationNumber PostAccountsRequestBodyCompany'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"structure" Text -> Maybe PostAccountsRequestBodyCompany'Structure' -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyCompany'
-> Maybe PostAccountsRequestBodyCompany'Structure'
postAccountsRequestBodyCompany'Structure PostAccountsRequestBodyCompany'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"tax_id" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyCompany' -> Maybe Text
postAccountsRequestBodyCompany'TaxId PostAccountsRequestBodyCompany'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"tax_id_registrar" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyCompany' -> Maybe Text
postAccountsRequestBodyCompany'TaxIdRegistrar PostAccountsRequestBodyCompany'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"vat_id" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyCompany' -> Maybe Text
postAccountsRequestBodyCompany'VatId PostAccountsRequestBodyCompany'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"verification" Text -> Maybe PostAccountsRequestBodyCompany'Verification' -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyCompany'
-> Maybe PostAccountsRequestBodyCompany'Verification'
postAccountsRequestBodyCompany'Verification PostAccountsRequestBodyCompany'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: [Pair]
forall a. Monoid a => a
GHC.Base.mempty)
  toEncoding :: PostAccountsRequestBodyCompany' -> Encoding
toEncoding PostAccountsRequestBodyCompany'
obj = Series -> Encoding
Data.Aeson.Encoding.Internal.pairs ((Text
"address" Text -> Maybe PostAccountsRequestBodyCompany'Address' -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyCompany'
-> Maybe PostAccountsRequestBodyCompany'Address'
postAccountsRequestBodyCompany'Address PostAccountsRequestBodyCompany'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"address_kana" Text -> Maybe PostAccountsRequestBodyCompany'AddressKana' -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyCompany'
-> Maybe PostAccountsRequestBodyCompany'AddressKana'
postAccountsRequestBodyCompany'AddressKana PostAccountsRequestBodyCompany'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"address_kanji" Text
-> Maybe PostAccountsRequestBodyCompany'AddressKanji' -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyCompany'
-> Maybe PostAccountsRequestBodyCompany'AddressKanji'
postAccountsRequestBodyCompany'AddressKanji PostAccountsRequestBodyCompany'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"directors_provided" Text -> Maybe Bool -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyCompany' -> Maybe Bool
postAccountsRequestBodyCompany'DirectorsProvided PostAccountsRequestBodyCompany'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"executives_provided" Text -> Maybe Bool -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyCompany' -> Maybe Bool
postAccountsRequestBodyCompany'ExecutivesProvided PostAccountsRequestBodyCompany'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"name" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyCompany' -> Maybe Text
postAccountsRequestBodyCompany'Name PostAccountsRequestBodyCompany'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"name_kana" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyCompany' -> Maybe Text
postAccountsRequestBodyCompany'NameKana PostAccountsRequestBodyCompany'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"name_kanji" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyCompany' -> Maybe Text
postAccountsRequestBodyCompany'NameKanji PostAccountsRequestBodyCompany'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"owners_provided" Text -> Maybe Bool -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyCompany' -> Maybe Bool
postAccountsRequestBodyCompany'OwnersProvided PostAccountsRequestBodyCompany'
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..= PostAccountsRequestBodyCompany' -> Maybe Text
postAccountsRequestBodyCompany'Phone PostAccountsRequestBodyCompany'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"registration_number" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyCompany' -> Maybe Text
postAccountsRequestBodyCompany'RegistrationNumber PostAccountsRequestBodyCompany'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"structure" Text -> Maybe PostAccountsRequestBodyCompany'Structure' -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyCompany'
-> Maybe PostAccountsRequestBodyCompany'Structure'
postAccountsRequestBodyCompany'Structure PostAccountsRequestBodyCompany'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"tax_id" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyCompany' -> Maybe Text
postAccountsRequestBodyCompany'TaxId PostAccountsRequestBodyCompany'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"tax_id_registrar" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyCompany' -> Maybe Text
postAccountsRequestBodyCompany'TaxIdRegistrar PostAccountsRequestBodyCompany'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"vat_id" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyCompany' -> Maybe Text
postAccountsRequestBodyCompany'VatId PostAccountsRequestBodyCompany'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> (Text
"verification" Text
-> Maybe PostAccountsRequestBodyCompany'Verification' -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyCompany'
-> Maybe PostAccountsRequestBodyCompany'Verification'
postAccountsRequestBodyCompany'Verification PostAccountsRequestBodyCompany'
obj))))))))))))))))

instance Data.Aeson.Types.FromJSON.FromJSON PostAccountsRequestBodyCompany' where
  parseJSON :: Value -> Parser PostAccountsRequestBodyCompany'
parseJSON = String
-> (Object -> Parser PostAccountsRequestBodyCompany')
-> Value
-> Parser PostAccountsRequestBodyCompany'
forall a. String -> (Object -> Parser a) -> Value -> Parser a
Data.Aeson.Types.FromJSON.withObject String
"PostAccountsRequestBodyCompany'" (\Object
obj -> ((((((((((((((((Maybe PostAccountsRequestBodyCompany'Address'
 -> Maybe PostAccountsRequestBodyCompany'AddressKana'
 -> Maybe PostAccountsRequestBodyCompany'AddressKanji'
 -> Maybe Bool
 -> Maybe Bool
 -> Maybe Text
 -> Maybe Text
 -> Maybe Text
 -> Maybe Bool
 -> Maybe Text
 -> Maybe Text
 -> Maybe PostAccountsRequestBodyCompany'Structure'
 -> Maybe Text
 -> Maybe Text
 -> Maybe Text
 -> Maybe PostAccountsRequestBodyCompany'Verification'
 -> PostAccountsRequestBodyCompany')
-> Parser
     (Maybe PostAccountsRequestBodyCompany'Address'
      -> Maybe PostAccountsRequestBodyCompany'AddressKana'
      -> Maybe PostAccountsRequestBodyCompany'AddressKanji'
      -> Maybe Bool
      -> Maybe Bool
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Bool
      -> Maybe Text
      -> Maybe Text
      -> Maybe PostAccountsRequestBodyCompany'Structure'
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe PostAccountsRequestBodyCompany'Verification'
      -> PostAccountsRequestBodyCompany')
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure Maybe PostAccountsRequestBodyCompany'Address'
-> Maybe PostAccountsRequestBodyCompany'AddressKana'
-> Maybe PostAccountsRequestBodyCompany'AddressKanji'
-> Maybe Bool
-> Maybe Bool
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Bool
-> Maybe Text
-> Maybe Text
-> Maybe PostAccountsRequestBodyCompany'Structure'
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostAccountsRequestBodyCompany'Verification'
-> PostAccountsRequestBodyCompany'
PostAccountsRequestBodyCompany' Parser
  (Maybe PostAccountsRequestBodyCompany'Address'
   -> Maybe PostAccountsRequestBodyCompany'AddressKana'
   -> Maybe PostAccountsRequestBodyCompany'AddressKanji'
   -> Maybe Bool
   -> Maybe Bool
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Bool
   -> Maybe Text
   -> Maybe Text
   -> Maybe PostAccountsRequestBodyCompany'Structure'
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe PostAccountsRequestBodyCompany'Verification'
   -> PostAccountsRequestBodyCompany')
-> Parser (Maybe PostAccountsRequestBodyCompany'Address')
-> Parser
     (Maybe PostAccountsRequestBodyCompany'AddressKana'
      -> Maybe PostAccountsRequestBodyCompany'AddressKanji'
      -> Maybe Bool
      -> Maybe Bool
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Bool
      -> Maybe Text
      -> Maybe Text
      -> Maybe PostAccountsRequestBodyCompany'Structure'
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe PostAccountsRequestBodyCompany'Verification'
      -> PostAccountsRequestBodyCompany')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object
-> Text -> Parser (Maybe PostAccountsRequestBodyCompany'Address')
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"address")) Parser
  (Maybe PostAccountsRequestBodyCompany'AddressKana'
   -> Maybe PostAccountsRequestBodyCompany'AddressKanji'
   -> Maybe Bool
   -> Maybe Bool
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Bool
   -> Maybe Text
   -> Maybe Text
   -> Maybe PostAccountsRequestBodyCompany'Structure'
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe PostAccountsRequestBodyCompany'Verification'
   -> PostAccountsRequestBodyCompany')
-> Parser (Maybe PostAccountsRequestBodyCompany'AddressKana')
-> Parser
     (Maybe PostAccountsRequestBodyCompany'AddressKanji'
      -> Maybe Bool
      -> Maybe Bool
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Bool
      -> Maybe Text
      -> Maybe Text
      -> Maybe PostAccountsRequestBodyCompany'Structure'
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe PostAccountsRequestBodyCompany'Verification'
      -> PostAccountsRequestBodyCompany')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object
-> Text
-> Parser (Maybe PostAccountsRequestBodyCompany'AddressKana')
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"address_kana")) Parser
  (Maybe PostAccountsRequestBodyCompany'AddressKanji'
   -> Maybe Bool
   -> Maybe Bool
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Bool
   -> Maybe Text
   -> Maybe Text
   -> Maybe PostAccountsRequestBodyCompany'Structure'
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe PostAccountsRequestBodyCompany'Verification'
   -> PostAccountsRequestBodyCompany')
-> Parser (Maybe PostAccountsRequestBodyCompany'AddressKanji')
-> Parser
     (Maybe Bool
      -> Maybe Bool
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Bool
      -> Maybe Text
      -> Maybe Text
      -> Maybe PostAccountsRequestBodyCompany'Structure'
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe PostAccountsRequestBodyCompany'Verification'
      -> PostAccountsRequestBodyCompany')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object
-> Text
-> Parser (Maybe PostAccountsRequestBodyCompany'AddressKanji')
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"address_kanji")) Parser
  (Maybe Bool
   -> Maybe Bool
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Bool
   -> Maybe Text
   -> Maybe Text
   -> Maybe PostAccountsRequestBodyCompany'Structure'
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe PostAccountsRequestBodyCompany'Verification'
   -> PostAccountsRequestBodyCompany')
-> Parser (Maybe Bool)
-> Parser
     (Maybe Bool
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Bool
      -> Maybe Text
      -> Maybe Text
      -> Maybe PostAccountsRequestBodyCompany'Structure'
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe PostAccountsRequestBodyCompany'Verification'
      -> PostAccountsRequestBodyCompany')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Bool)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"directors_provided")) Parser
  (Maybe Bool
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Bool
   -> Maybe Text
   -> Maybe Text
   -> Maybe PostAccountsRequestBodyCompany'Structure'
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe PostAccountsRequestBodyCompany'Verification'
   -> PostAccountsRequestBodyCompany')
-> Parser (Maybe Bool)
-> Parser
     (Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Bool
      -> Maybe Text
      -> Maybe Text
      -> Maybe PostAccountsRequestBodyCompany'Structure'
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe PostAccountsRequestBodyCompany'Verification'
      -> PostAccountsRequestBodyCompany')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Bool)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"executives_provided")) Parser
  (Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Bool
   -> Maybe Text
   -> Maybe Text
   -> Maybe PostAccountsRequestBodyCompany'Structure'
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe PostAccountsRequestBodyCompany'Verification'
   -> PostAccountsRequestBodyCompany')
-> Parser (Maybe Text)
-> Parser
     (Maybe Text
      -> Maybe Text
      -> Maybe Bool
      -> Maybe Text
      -> Maybe Text
      -> Maybe PostAccountsRequestBodyCompany'Structure'
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe PostAccountsRequestBodyCompany'Verification'
      -> PostAccountsRequestBodyCompany')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"name")) Parser
  (Maybe Text
   -> Maybe Text
   -> Maybe Bool
   -> Maybe Text
   -> Maybe Text
   -> Maybe PostAccountsRequestBodyCompany'Structure'
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe PostAccountsRequestBodyCompany'Verification'
   -> PostAccountsRequestBodyCompany')
-> Parser (Maybe Text)
-> Parser
     (Maybe Text
      -> Maybe Bool
      -> Maybe Text
      -> Maybe Text
      -> Maybe PostAccountsRequestBodyCompany'Structure'
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe PostAccountsRequestBodyCompany'Verification'
      -> PostAccountsRequestBodyCompany')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"name_kana")) Parser
  (Maybe Text
   -> Maybe Bool
   -> Maybe Text
   -> Maybe Text
   -> Maybe PostAccountsRequestBodyCompany'Structure'
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe PostAccountsRequestBodyCompany'Verification'
   -> PostAccountsRequestBodyCompany')
-> Parser (Maybe Text)
-> Parser
     (Maybe Bool
      -> Maybe Text
      -> Maybe Text
      -> Maybe PostAccountsRequestBodyCompany'Structure'
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe PostAccountsRequestBodyCompany'Verification'
      -> PostAccountsRequestBodyCompany')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"name_kanji")) Parser
  (Maybe Bool
   -> Maybe Text
   -> Maybe Text
   -> Maybe PostAccountsRequestBodyCompany'Structure'
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe PostAccountsRequestBodyCompany'Verification'
   -> PostAccountsRequestBodyCompany')
-> Parser (Maybe Bool)
-> Parser
     (Maybe Text
      -> Maybe Text
      -> Maybe PostAccountsRequestBodyCompany'Structure'
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe PostAccountsRequestBodyCompany'Verification'
      -> PostAccountsRequestBodyCompany')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Bool)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"owners_provided")) Parser
  (Maybe Text
   -> Maybe Text
   -> Maybe PostAccountsRequestBodyCompany'Structure'
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe PostAccountsRequestBodyCompany'Verification'
   -> PostAccountsRequestBodyCompany')
-> Parser (Maybe Text)
-> Parser
     (Maybe Text
      -> Maybe PostAccountsRequestBodyCompany'Structure'
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe PostAccountsRequestBodyCompany'Verification'
      -> PostAccountsRequestBodyCompany')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f 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 PostAccountsRequestBodyCompany'Structure'
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe PostAccountsRequestBodyCompany'Verification'
   -> PostAccountsRequestBodyCompany')
-> Parser (Maybe Text)
-> Parser
     (Maybe PostAccountsRequestBodyCompany'Structure'
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe PostAccountsRequestBodyCompany'Verification'
      -> PostAccountsRequestBodyCompany')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"registration_number")) Parser
  (Maybe PostAccountsRequestBodyCompany'Structure'
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe PostAccountsRequestBodyCompany'Verification'
   -> PostAccountsRequestBodyCompany')
-> Parser (Maybe PostAccountsRequestBodyCompany'Structure')
-> Parser
     (Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe PostAccountsRequestBodyCompany'Verification'
      -> PostAccountsRequestBodyCompany')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object
-> Text -> Parser (Maybe PostAccountsRequestBodyCompany'Structure')
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"structure")) Parser
  (Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe PostAccountsRequestBodyCompany'Verification'
   -> PostAccountsRequestBodyCompany')
-> Parser (Maybe Text)
-> Parser
     (Maybe Text
      -> Maybe Text
      -> Maybe PostAccountsRequestBodyCompany'Verification'
      -> PostAccountsRequestBodyCompany')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"tax_id")) Parser
  (Maybe Text
   -> Maybe Text
   -> Maybe PostAccountsRequestBodyCompany'Verification'
   -> PostAccountsRequestBodyCompany')
-> Parser (Maybe Text)
-> Parser
     (Maybe Text
      -> Maybe PostAccountsRequestBodyCompany'Verification'
      -> PostAccountsRequestBodyCompany')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"tax_id_registrar")) Parser
  (Maybe Text
   -> Maybe PostAccountsRequestBodyCompany'Verification'
   -> PostAccountsRequestBodyCompany')
-> Parser (Maybe Text)
-> Parser
     (Maybe PostAccountsRequestBodyCompany'Verification'
      -> PostAccountsRequestBodyCompany')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"vat_id")) Parser
  (Maybe PostAccountsRequestBodyCompany'Verification'
   -> PostAccountsRequestBodyCompany')
-> Parser (Maybe PostAccountsRequestBodyCompany'Verification')
-> Parser PostAccountsRequestBodyCompany'
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object
-> Text
-> Parser (Maybe PostAccountsRequestBodyCompany'Verification')
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"verification"))

-- | Create a new 'PostAccountsRequestBodyCompany'' with all required fields.
mkPostAccountsRequestBodyCompany' :: PostAccountsRequestBodyCompany'
mkPostAccountsRequestBodyCompany' :: PostAccountsRequestBodyCompany'
mkPostAccountsRequestBodyCompany' =
  PostAccountsRequestBodyCompany' :: Maybe PostAccountsRequestBodyCompany'Address'
-> Maybe PostAccountsRequestBodyCompany'AddressKana'
-> Maybe PostAccountsRequestBodyCompany'AddressKanji'
-> Maybe Bool
-> Maybe Bool
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Bool
-> Maybe Text
-> Maybe Text
-> Maybe PostAccountsRequestBodyCompany'Structure'
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostAccountsRequestBodyCompany'Verification'
-> PostAccountsRequestBodyCompany'
PostAccountsRequestBodyCompany'
    { postAccountsRequestBodyCompany'Address :: Maybe PostAccountsRequestBodyCompany'Address'
postAccountsRequestBodyCompany'Address = Maybe PostAccountsRequestBodyCompany'Address'
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsRequestBodyCompany'AddressKana :: Maybe PostAccountsRequestBodyCompany'AddressKana'
postAccountsRequestBodyCompany'AddressKana = Maybe PostAccountsRequestBodyCompany'AddressKana'
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsRequestBodyCompany'AddressKanji :: Maybe PostAccountsRequestBodyCompany'AddressKanji'
postAccountsRequestBodyCompany'AddressKanji = Maybe PostAccountsRequestBodyCompany'AddressKanji'
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsRequestBodyCompany'DirectorsProvided :: Maybe Bool
postAccountsRequestBodyCompany'DirectorsProvided = Maybe Bool
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsRequestBodyCompany'ExecutivesProvided :: Maybe Bool
postAccountsRequestBodyCompany'ExecutivesProvided = Maybe Bool
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsRequestBodyCompany'Name :: Maybe Text
postAccountsRequestBodyCompany'Name = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsRequestBodyCompany'NameKana :: Maybe Text
postAccountsRequestBodyCompany'NameKana = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsRequestBodyCompany'NameKanji :: Maybe Text
postAccountsRequestBodyCompany'NameKanji = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsRequestBodyCompany'OwnersProvided :: Maybe Bool
postAccountsRequestBodyCompany'OwnersProvided = Maybe Bool
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsRequestBodyCompany'Phone :: Maybe Text
postAccountsRequestBodyCompany'Phone = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsRequestBodyCompany'RegistrationNumber :: Maybe Text
postAccountsRequestBodyCompany'RegistrationNumber = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsRequestBodyCompany'Structure :: Maybe PostAccountsRequestBodyCompany'Structure'
postAccountsRequestBodyCompany'Structure = Maybe PostAccountsRequestBodyCompany'Structure'
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsRequestBodyCompany'TaxId :: Maybe Text
postAccountsRequestBodyCompany'TaxId = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsRequestBodyCompany'TaxIdRegistrar :: Maybe Text
postAccountsRequestBodyCompany'TaxIdRegistrar = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsRequestBodyCompany'VatId :: Maybe Text
postAccountsRequestBodyCompany'VatId = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsRequestBodyCompany'Verification :: Maybe PostAccountsRequestBodyCompany'Verification'
postAccountsRequestBodyCompany'Verification = Maybe PostAccountsRequestBodyCompany'Verification'
forall a. Maybe a
GHC.Maybe.Nothing
    }

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

instance Data.Aeson.Types.ToJSON.ToJSON PostAccountsRequestBodyCompany'Address' where
  toJSON :: PostAccountsRequestBodyCompany'Address' -> Value
toJSON PostAccountsRequestBodyCompany'Address'
obj = [Pair] -> Value
Data.Aeson.Types.Internal.object (Text
"city" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyCompany'Address' -> Maybe Text
postAccountsRequestBodyCompany'Address'City PostAccountsRequestBodyCompany'Address'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"country" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyCompany'Address' -> Maybe Text
postAccountsRequestBodyCompany'Address'Country PostAccountsRequestBodyCompany'Address'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"line1" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyCompany'Address' -> Maybe Text
postAccountsRequestBodyCompany'Address'Line1 PostAccountsRequestBodyCompany'Address'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"line2" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyCompany'Address' -> Maybe Text
postAccountsRequestBodyCompany'Address'Line2 PostAccountsRequestBodyCompany'Address'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"postal_code" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyCompany'Address' -> Maybe Text
postAccountsRequestBodyCompany'Address'PostalCode PostAccountsRequestBodyCompany'Address'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"state" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyCompany'Address' -> Maybe Text
postAccountsRequestBodyCompany'Address'State PostAccountsRequestBodyCompany'Address'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: [Pair]
forall a. Monoid a => a
GHC.Base.mempty)
  toEncoding :: PostAccountsRequestBodyCompany'Address' -> Encoding
toEncoding PostAccountsRequestBodyCompany'Address'
obj = Series -> Encoding
Data.Aeson.Encoding.Internal.pairs ((Text
"city" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyCompany'Address' -> Maybe Text
postAccountsRequestBodyCompany'Address'City PostAccountsRequestBodyCompany'Address'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"country" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyCompany'Address' -> Maybe Text
postAccountsRequestBodyCompany'Address'Country PostAccountsRequestBodyCompany'Address'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"line1" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyCompany'Address' -> Maybe Text
postAccountsRequestBodyCompany'Address'Line1 PostAccountsRequestBodyCompany'Address'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"line2" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyCompany'Address' -> Maybe Text
postAccountsRequestBodyCompany'Address'Line2 PostAccountsRequestBodyCompany'Address'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"postal_code" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyCompany'Address' -> Maybe Text
postAccountsRequestBodyCompany'Address'PostalCode PostAccountsRequestBodyCompany'Address'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> (Text
"state" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyCompany'Address' -> Maybe Text
postAccountsRequestBodyCompany'Address'State PostAccountsRequestBodyCompany'Address'
obj))))))

instance Data.Aeson.Types.FromJSON.FromJSON PostAccountsRequestBodyCompany'Address' where
  parseJSON :: Value -> Parser PostAccountsRequestBodyCompany'Address'
parseJSON = String
-> (Object -> Parser PostAccountsRequestBodyCompany'Address')
-> Value
-> Parser PostAccountsRequestBodyCompany'Address'
forall a. String -> (Object -> Parser a) -> Value -> Parser a
Data.Aeson.Types.FromJSON.withObject String
"PostAccountsRequestBodyCompany'Address'" (\Object
obj -> ((((((Maybe Text
 -> Maybe Text
 -> Maybe Text
 -> Maybe Text
 -> Maybe Text
 -> Maybe Text
 -> PostAccountsRequestBodyCompany'Address')
-> Parser
     (Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> PostAccountsRequestBodyCompany'Address')
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> PostAccountsRequestBodyCompany'Address'
PostAccountsRequestBodyCompany'Address' Parser
  (Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> PostAccountsRequestBodyCompany'Address')
-> Parser (Maybe Text)
-> Parser
     (Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> PostAccountsRequestBodyCompany'Address')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"city")) Parser
  (Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> PostAccountsRequestBodyCompany'Address')
-> Parser (Maybe Text)
-> Parser
     (Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> PostAccountsRequestBodyCompany'Address')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"country")) Parser
  (Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> PostAccountsRequestBodyCompany'Address')
-> Parser (Maybe Text)
-> Parser
     (Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> PostAccountsRequestBodyCompany'Address')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"line1")) Parser
  (Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> PostAccountsRequestBodyCompany'Address')
-> Parser (Maybe Text)
-> Parser
     (Maybe Text
      -> Maybe Text -> PostAccountsRequestBodyCompany'Address')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"line2")) Parser
  (Maybe Text
   -> Maybe Text -> PostAccountsRequestBodyCompany'Address')
-> Parser (Maybe Text)
-> Parser (Maybe Text -> PostAccountsRequestBodyCompany'Address')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"postal_code")) Parser (Maybe Text -> PostAccountsRequestBodyCompany'Address')
-> Parser (Maybe Text)
-> Parser PostAccountsRequestBodyCompany'Address'
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"state"))

-- | Create a new 'PostAccountsRequestBodyCompany'Address'' with all required fields.
mkPostAccountsRequestBodyCompany'Address' :: PostAccountsRequestBodyCompany'Address'
mkPostAccountsRequestBodyCompany'Address' :: PostAccountsRequestBodyCompany'Address'
mkPostAccountsRequestBodyCompany'Address' =
  PostAccountsRequestBodyCompany'Address' :: Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> PostAccountsRequestBodyCompany'Address'
PostAccountsRequestBodyCompany'Address'
    { postAccountsRequestBodyCompany'Address'City :: Maybe Text
postAccountsRequestBodyCompany'Address'City = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsRequestBodyCompany'Address'Country :: Maybe Text
postAccountsRequestBodyCompany'Address'Country = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsRequestBodyCompany'Address'Line1 :: Maybe Text
postAccountsRequestBodyCompany'Address'Line1 = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsRequestBodyCompany'Address'Line2 :: Maybe Text
postAccountsRequestBodyCompany'Address'Line2 = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsRequestBodyCompany'Address'PostalCode :: Maybe Text
postAccountsRequestBodyCompany'Address'PostalCode = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsRequestBodyCompany'Address'State :: Maybe Text
postAccountsRequestBodyCompany'Address'State = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing
    }

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

instance Data.Aeson.Types.ToJSON.ToJSON PostAccountsRequestBodyCompany'AddressKana' where
  toJSON :: PostAccountsRequestBodyCompany'AddressKana' -> Value
toJSON PostAccountsRequestBodyCompany'AddressKana'
obj = [Pair] -> Value
Data.Aeson.Types.Internal.object (Text
"city" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyCompany'AddressKana' -> Maybe Text
postAccountsRequestBodyCompany'AddressKana'City PostAccountsRequestBodyCompany'AddressKana'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"country" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyCompany'AddressKana' -> Maybe Text
postAccountsRequestBodyCompany'AddressKana'Country PostAccountsRequestBodyCompany'AddressKana'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"line1" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyCompany'AddressKana' -> Maybe Text
postAccountsRequestBodyCompany'AddressKana'Line1 PostAccountsRequestBodyCompany'AddressKana'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"line2" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyCompany'AddressKana' -> Maybe Text
postAccountsRequestBodyCompany'AddressKana'Line2 PostAccountsRequestBodyCompany'AddressKana'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"postal_code" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyCompany'AddressKana' -> Maybe Text
postAccountsRequestBodyCompany'AddressKana'PostalCode PostAccountsRequestBodyCompany'AddressKana'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"state" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyCompany'AddressKana' -> Maybe Text
postAccountsRequestBodyCompany'AddressKana'State PostAccountsRequestBodyCompany'AddressKana'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"town" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyCompany'AddressKana' -> Maybe Text
postAccountsRequestBodyCompany'AddressKana'Town PostAccountsRequestBodyCompany'AddressKana'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: [Pair]
forall a. Monoid a => a
GHC.Base.mempty)
  toEncoding :: PostAccountsRequestBodyCompany'AddressKana' -> Encoding
toEncoding PostAccountsRequestBodyCompany'AddressKana'
obj = Series -> Encoding
Data.Aeson.Encoding.Internal.pairs ((Text
"city" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyCompany'AddressKana' -> Maybe Text
postAccountsRequestBodyCompany'AddressKana'City PostAccountsRequestBodyCompany'AddressKana'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"country" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyCompany'AddressKana' -> Maybe Text
postAccountsRequestBodyCompany'AddressKana'Country PostAccountsRequestBodyCompany'AddressKana'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"line1" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyCompany'AddressKana' -> Maybe Text
postAccountsRequestBodyCompany'AddressKana'Line1 PostAccountsRequestBodyCompany'AddressKana'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"line2" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyCompany'AddressKana' -> Maybe Text
postAccountsRequestBodyCompany'AddressKana'Line2 PostAccountsRequestBodyCompany'AddressKana'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"postal_code" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyCompany'AddressKana' -> Maybe Text
postAccountsRequestBodyCompany'AddressKana'PostalCode PostAccountsRequestBodyCompany'AddressKana'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"state" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyCompany'AddressKana' -> Maybe Text
postAccountsRequestBodyCompany'AddressKana'State PostAccountsRequestBodyCompany'AddressKana'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> (Text
"town" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyCompany'AddressKana' -> Maybe Text
postAccountsRequestBodyCompany'AddressKana'Town PostAccountsRequestBodyCompany'AddressKana'
obj)))))))

instance Data.Aeson.Types.FromJSON.FromJSON PostAccountsRequestBodyCompany'AddressKana' where
  parseJSON :: Value -> Parser PostAccountsRequestBodyCompany'AddressKana'
parseJSON = String
-> (Object -> Parser PostAccountsRequestBodyCompany'AddressKana')
-> Value
-> Parser PostAccountsRequestBodyCompany'AddressKana'
forall a. String -> (Object -> Parser a) -> Value -> Parser a
Data.Aeson.Types.FromJSON.withObject String
"PostAccountsRequestBodyCompany'AddressKana'" (\Object
obj -> (((((((Maybe Text
 -> Maybe Text
 -> Maybe Text
 -> Maybe Text
 -> Maybe Text
 -> Maybe Text
 -> Maybe Text
 -> PostAccountsRequestBodyCompany'AddressKana')
-> Parser
     (Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> PostAccountsRequestBodyCompany'AddressKana')
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> PostAccountsRequestBodyCompany'AddressKana'
PostAccountsRequestBodyCompany'AddressKana' Parser
  (Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> PostAccountsRequestBodyCompany'AddressKana')
-> Parser (Maybe Text)
-> Parser
     (Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> PostAccountsRequestBodyCompany'AddressKana')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"city")) Parser
  (Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> PostAccountsRequestBodyCompany'AddressKana')
-> Parser (Maybe Text)
-> Parser
     (Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> PostAccountsRequestBodyCompany'AddressKana')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"country")) Parser
  (Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> PostAccountsRequestBodyCompany'AddressKana')
-> Parser (Maybe Text)
-> Parser
     (Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> PostAccountsRequestBodyCompany'AddressKana')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"line1")) Parser
  (Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> PostAccountsRequestBodyCompany'AddressKana')
-> Parser (Maybe Text)
-> Parser
     (Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> PostAccountsRequestBodyCompany'AddressKana')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"line2")) Parser
  (Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> PostAccountsRequestBodyCompany'AddressKana')
-> Parser (Maybe Text)
-> Parser
     (Maybe Text
      -> Maybe Text -> PostAccountsRequestBodyCompany'AddressKana')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"postal_code")) Parser
  (Maybe Text
   -> Maybe Text -> PostAccountsRequestBodyCompany'AddressKana')
-> Parser (Maybe Text)
-> Parser
     (Maybe Text -> PostAccountsRequestBodyCompany'AddressKana')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"state")) Parser (Maybe Text -> PostAccountsRequestBodyCompany'AddressKana')
-> Parser (Maybe Text)
-> Parser PostAccountsRequestBodyCompany'AddressKana'
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"town"))

-- | Create a new 'PostAccountsRequestBodyCompany'AddressKana'' with all required fields.
mkPostAccountsRequestBodyCompany'AddressKana' :: PostAccountsRequestBodyCompany'AddressKana'
mkPostAccountsRequestBodyCompany'AddressKana' :: PostAccountsRequestBodyCompany'AddressKana'
mkPostAccountsRequestBodyCompany'AddressKana' =
  PostAccountsRequestBodyCompany'AddressKana' :: Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> PostAccountsRequestBodyCompany'AddressKana'
PostAccountsRequestBodyCompany'AddressKana'
    { postAccountsRequestBodyCompany'AddressKana'City :: Maybe Text
postAccountsRequestBodyCompany'AddressKana'City = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsRequestBodyCompany'AddressKana'Country :: Maybe Text
postAccountsRequestBodyCompany'AddressKana'Country = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsRequestBodyCompany'AddressKana'Line1 :: Maybe Text
postAccountsRequestBodyCompany'AddressKana'Line1 = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsRequestBodyCompany'AddressKana'Line2 :: Maybe Text
postAccountsRequestBodyCompany'AddressKana'Line2 = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsRequestBodyCompany'AddressKana'PostalCode :: Maybe Text
postAccountsRequestBodyCompany'AddressKana'PostalCode = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsRequestBodyCompany'AddressKana'State :: Maybe Text
postAccountsRequestBodyCompany'AddressKana'State = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsRequestBodyCompany'AddressKana'Town :: Maybe Text
postAccountsRequestBodyCompany'AddressKana'Town = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing
    }

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

instance Data.Aeson.Types.ToJSON.ToJSON PostAccountsRequestBodyCompany'AddressKanji' where
  toJSON :: PostAccountsRequestBodyCompany'AddressKanji' -> Value
toJSON PostAccountsRequestBodyCompany'AddressKanji'
obj = [Pair] -> Value
Data.Aeson.Types.Internal.object (Text
"city" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyCompany'AddressKanji' -> Maybe Text
postAccountsRequestBodyCompany'AddressKanji'City PostAccountsRequestBodyCompany'AddressKanji'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"country" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyCompany'AddressKanji' -> Maybe Text
postAccountsRequestBodyCompany'AddressKanji'Country PostAccountsRequestBodyCompany'AddressKanji'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"line1" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyCompany'AddressKanji' -> Maybe Text
postAccountsRequestBodyCompany'AddressKanji'Line1 PostAccountsRequestBodyCompany'AddressKanji'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"line2" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyCompany'AddressKanji' -> Maybe Text
postAccountsRequestBodyCompany'AddressKanji'Line2 PostAccountsRequestBodyCompany'AddressKanji'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"postal_code" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyCompany'AddressKanji' -> Maybe Text
postAccountsRequestBodyCompany'AddressKanji'PostalCode PostAccountsRequestBodyCompany'AddressKanji'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"state" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyCompany'AddressKanji' -> Maybe Text
postAccountsRequestBodyCompany'AddressKanji'State PostAccountsRequestBodyCompany'AddressKanji'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"town" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyCompany'AddressKanji' -> Maybe Text
postAccountsRequestBodyCompany'AddressKanji'Town PostAccountsRequestBodyCompany'AddressKanji'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: [Pair]
forall a. Monoid a => a
GHC.Base.mempty)
  toEncoding :: PostAccountsRequestBodyCompany'AddressKanji' -> Encoding
toEncoding PostAccountsRequestBodyCompany'AddressKanji'
obj = Series -> Encoding
Data.Aeson.Encoding.Internal.pairs ((Text
"city" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyCompany'AddressKanji' -> Maybe Text
postAccountsRequestBodyCompany'AddressKanji'City PostAccountsRequestBodyCompany'AddressKanji'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"country" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyCompany'AddressKanji' -> Maybe Text
postAccountsRequestBodyCompany'AddressKanji'Country PostAccountsRequestBodyCompany'AddressKanji'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"line1" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyCompany'AddressKanji' -> Maybe Text
postAccountsRequestBodyCompany'AddressKanji'Line1 PostAccountsRequestBodyCompany'AddressKanji'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"line2" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyCompany'AddressKanji' -> Maybe Text
postAccountsRequestBodyCompany'AddressKanji'Line2 PostAccountsRequestBodyCompany'AddressKanji'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"postal_code" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyCompany'AddressKanji' -> Maybe Text
postAccountsRequestBodyCompany'AddressKanji'PostalCode PostAccountsRequestBodyCompany'AddressKanji'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"state" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyCompany'AddressKanji' -> Maybe Text
postAccountsRequestBodyCompany'AddressKanji'State PostAccountsRequestBodyCompany'AddressKanji'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> (Text
"town" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyCompany'AddressKanji' -> Maybe Text
postAccountsRequestBodyCompany'AddressKanji'Town PostAccountsRequestBodyCompany'AddressKanji'
obj)))))))

instance Data.Aeson.Types.FromJSON.FromJSON PostAccountsRequestBodyCompany'AddressKanji' where
  parseJSON :: Value -> Parser PostAccountsRequestBodyCompany'AddressKanji'
parseJSON = String
-> (Object -> Parser PostAccountsRequestBodyCompany'AddressKanji')
-> Value
-> Parser PostAccountsRequestBodyCompany'AddressKanji'
forall a. String -> (Object -> Parser a) -> Value -> Parser a
Data.Aeson.Types.FromJSON.withObject String
"PostAccountsRequestBodyCompany'AddressKanji'" (\Object
obj -> (((((((Maybe Text
 -> Maybe Text
 -> Maybe Text
 -> Maybe Text
 -> Maybe Text
 -> Maybe Text
 -> Maybe Text
 -> PostAccountsRequestBodyCompany'AddressKanji')
-> Parser
     (Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> PostAccountsRequestBodyCompany'AddressKanji')
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> PostAccountsRequestBodyCompany'AddressKanji'
PostAccountsRequestBodyCompany'AddressKanji' Parser
  (Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> PostAccountsRequestBodyCompany'AddressKanji')
-> Parser (Maybe Text)
-> Parser
     (Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> PostAccountsRequestBodyCompany'AddressKanji')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"city")) Parser
  (Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> PostAccountsRequestBodyCompany'AddressKanji')
-> Parser (Maybe Text)
-> Parser
     (Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> PostAccountsRequestBodyCompany'AddressKanji')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"country")) Parser
  (Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> PostAccountsRequestBodyCompany'AddressKanji')
-> Parser (Maybe Text)
-> Parser
     (Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> PostAccountsRequestBodyCompany'AddressKanji')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"line1")) Parser
  (Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> PostAccountsRequestBodyCompany'AddressKanji')
-> Parser (Maybe Text)
-> Parser
     (Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> PostAccountsRequestBodyCompany'AddressKanji')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"line2")) Parser
  (Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> PostAccountsRequestBodyCompany'AddressKanji')
-> Parser (Maybe Text)
-> Parser
     (Maybe Text
      -> Maybe Text -> PostAccountsRequestBodyCompany'AddressKanji')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"postal_code")) Parser
  (Maybe Text
   -> Maybe Text -> PostAccountsRequestBodyCompany'AddressKanji')
-> Parser (Maybe Text)
-> Parser
     (Maybe Text -> PostAccountsRequestBodyCompany'AddressKanji')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"state")) Parser (Maybe Text -> PostAccountsRequestBodyCompany'AddressKanji')
-> Parser (Maybe Text)
-> Parser PostAccountsRequestBodyCompany'AddressKanji'
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"town"))

-- | Create a new 'PostAccountsRequestBodyCompany'AddressKanji'' with all required fields.
mkPostAccountsRequestBodyCompany'AddressKanji' :: PostAccountsRequestBodyCompany'AddressKanji'
mkPostAccountsRequestBodyCompany'AddressKanji' :: PostAccountsRequestBodyCompany'AddressKanji'
mkPostAccountsRequestBodyCompany'AddressKanji' =
  PostAccountsRequestBodyCompany'AddressKanji' :: Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> PostAccountsRequestBodyCompany'AddressKanji'
PostAccountsRequestBodyCompany'AddressKanji'
    { postAccountsRequestBodyCompany'AddressKanji'City :: Maybe Text
postAccountsRequestBodyCompany'AddressKanji'City = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsRequestBodyCompany'AddressKanji'Country :: Maybe Text
postAccountsRequestBodyCompany'AddressKanji'Country = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsRequestBodyCompany'AddressKanji'Line1 :: Maybe Text
postAccountsRequestBodyCompany'AddressKanji'Line1 = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsRequestBodyCompany'AddressKanji'Line2 :: Maybe Text
postAccountsRequestBodyCompany'AddressKanji'Line2 = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsRequestBodyCompany'AddressKanji'PostalCode :: Maybe Text
postAccountsRequestBodyCompany'AddressKanji'PostalCode = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsRequestBodyCompany'AddressKanji'State :: Maybe Text
postAccountsRequestBodyCompany'AddressKanji'State = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsRequestBodyCompany'AddressKanji'Town :: Maybe Text
postAccountsRequestBodyCompany'AddressKanji'Town = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing
    }

-- | Defines the enum schema located at @paths.\/v1\/accounts.POST.requestBody.content.application\/x-www-form-urlencoded.schema.properties.company.properties.structure@ in the specification.
data PostAccountsRequestBodyCompany'Structure'
  = -- | This case is used if the value encountered during decoding does not match any of the provided cases in the specification.
    PostAccountsRequestBodyCompany'Structure'Other Data.Aeson.Types.Internal.Value
  | -- | This constructor can be used to send values to the server which are not present in the specification yet.
    PostAccountsRequestBodyCompany'Structure'Typed Data.Text.Internal.Text
  | -- | Represents the JSON value @""@
    PostAccountsRequestBodyCompany'Structure'EnumEmptyString
  | -- | Represents the JSON value @"free_zone_establishment"@
    PostAccountsRequestBodyCompany'Structure'EnumFreeZoneEstablishment
  | -- | Represents the JSON value @"free_zone_llc"@
    PostAccountsRequestBodyCompany'Structure'EnumFreeZoneLlc
  | -- | Represents the JSON value @"government_instrumentality"@
    PostAccountsRequestBodyCompany'Structure'EnumGovernmentInstrumentality
  | -- | Represents the JSON value @"governmental_unit"@
    PostAccountsRequestBodyCompany'Structure'EnumGovernmentalUnit
  | -- | Represents the JSON value @"incorporated_non_profit"@
    PostAccountsRequestBodyCompany'Structure'EnumIncorporatedNonProfit
  | -- | Represents the JSON value @"limited_liability_partnership"@
    PostAccountsRequestBodyCompany'Structure'EnumLimitedLiabilityPartnership
  | -- | Represents the JSON value @"llc"@
    PostAccountsRequestBodyCompany'Structure'EnumLlc
  | -- | Represents the JSON value @"multi_member_llc"@
    PostAccountsRequestBodyCompany'Structure'EnumMultiMemberLlc
  | -- | Represents the JSON value @"private_company"@
    PostAccountsRequestBodyCompany'Structure'EnumPrivateCompany
  | -- | Represents the JSON value @"private_corporation"@
    PostAccountsRequestBodyCompany'Structure'EnumPrivateCorporation
  | -- | Represents the JSON value @"private_partnership"@
    PostAccountsRequestBodyCompany'Structure'EnumPrivatePartnership
  | -- | Represents the JSON value @"public_company"@
    PostAccountsRequestBodyCompany'Structure'EnumPublicCompany
  | -- | Represents the JSON value @"public_corporation"@
    PostAccountsRequestBodyCompany'Structure'EnumPublicCorporation
  | -- | Represents the JSON value @"public_partnership"@
    PostAccountsRequestBodyCompany'Structure'EnumPublicPartnership
  | -- | Represents the JSON value @"single_member_llc"@
    PostAccountsRequestBodyCompany'Structure'EnumSingleMemberLlc
  | -- | Represents the JSON value @"sole_establishment"@
    PostAccountsRequestBodyCompany'Structure'EnumSoleEstablishment
  | -- | Represents the JSON value @"sole_proprietorship"@
    PostAccountsRequestBodyCompany'Structure'EnumSoleProprietorship
  | -- | Represents the JSON value @"tax_exempt_government_instrumentality"@
    PostAccountsRequestBodyCompany'Structure'EnumTaxExemptGovernmentInstrumentality
  | -- | Represents the JSON value @"unincorporated_association"@
    PostAccountsRequestBodyCompany'Structure'EnumUnincorporatedAssociation
  | -- | Represents the JSON value @"unincorporated_non_profit"@
    PostAccountsRequestBodyCompany'Structure'EnumUnincorporatedNonProfit
  deriving (Int -> PostAccountsRequestBodyCompany'Structure' -> ShowS
[PostAccountsRequestBodyCompany'Structure'] -> ShowS
PostAccountsRequestBodyCompany'Structure' -> String
(Int -> PostAccountsRequestBodyCompany'Structure' -> ShowS)
-> (PostAccountsRequestBodyCompany'Structure' -> String)
-> ([PostAccountsRequestBodyCompany'Structure'] -> ShowS)
-> Show PostAccountsRequestBodyCompany'Structure'
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PostAccountsRequestBodyCompany'Structure'] -> ShowS
$cshowList :: [PostAccountsRequestBodyCompany'Structure'] -> ShowS
show :: PostAccountsRequestBodyCompany'Structure' -> String
$cshow :: PostAccountsRequestBodyCompany'Structure' -> String
showsPrec :: Int -> PostAccountsRequestBodyCompany'Structure' -> ShowS
$cshowsPrec :: Int -> PostAccountsRequestBodyCompany'Structure' -> ShowS
GHC.Show.Show, PostAccountsRequestBodyCompany'Structure'
-> PostAccountsRequestBodyCompany'Structure' -> Bool
(PostAccountsRequestBodyCompany'Structure'
 -> PostAccountsRequestBodyCompany'Structure' -> Bool)
-> (PostAccountsRequestBodyCompany'Structure'
    -> PostAccountsRequestBodyCompany'Structure' -> Bool)
-> Eq PostAccountsRequestBodyCompany'Structure'
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostAccountsRequestBodyCompany'Structure'
-> PostAccountsRequestBodyCompany'Structure' -> Bool
$c/= :: PostAccountsRequestBodyCompany'Structure'
-> PostAccountsRequestBodyCompany'Structure' -> Bool
== :: PostAccountsRequestBodyCompany'Structure'
-> PostAccountsRequestBodyCompany'Structure' -> Bool
$c== :: PostAccountsRequestBodyCompany'Structure'
-> PostAccountsRequestBodyCompany'Structure' -> Bool
GHC.Classes.Eq)

instance Data.Aeson.Types.ToJSON.ToJSON PostAccountsRequestBodyCompany'Structure' where
  toJSON :: PostAccountsRequestBodyCompany'Structure' -> Value
toJSON (PostAccountsRequestBodyCompany'Structure'Other Value
val) = Value
val
  toJSON (PostAccountsRequestBodyCompany'Structure'Typed Text
val) = Text -> Value
forall a. ToJSON a => a -> Value
Data.Aeson.Types.ToJSON.toJSON Text
val
  toJSON (PostAccountsRequestBodyCompany'Structure'
PostAccountsRequestBodyCompany'Structure'EnumEmptyString) = Value
""
  toJSON (PostAccountsRequestBodyCompany'Structure'
PostAccountsRequestBodyCompany'Structure'EnumFreeZoneEstablishment) = Value
"free_zone_establishment"
  toJSON (PostAccountsRequestBodyCompany'Structure'
PostAccountsRequestBodyCompany'Structure'EnumFreeZoneLlc) = Value
"free_zone_llc"
  toJSON (PostAccountsRequestBodyCompany'Structure'
PostAccountsRequestBodyCompany'Structure'EnumGovernmentInstrumentality) = Value
"government_instrumentality"
  toJSON (PostAccountsRequestBodyCompany'Structure'
PostAccountsRequestBodyCompany'Structure'EnumGovernmentalUnit) = Value
"governmental_unit"
  toJSON (PostAccountsRequestBodyCompany'Structure'
PostAccountsRequestBodyCompany'Structure'EnumIncorporatedNonProfit) = Value
"incorporated_non_profit"
  toJSON (PostAccountsRequestBodyCompany'Structure'
PostAccountsRequestBodyCompany'Structure'EnumLimitedLiabilityPartnership) = Value
"limited_liability_partnership"
  toJSON (PostAccountsRequestBodyCompany'Structure'
PostAccountsRequestBodyCompany'Structure'EnumLlc) = Value
"llc"
  toJSON (PostAccountsRequestBodyCompany'Structure'
PostAccountsRequestBodyCompany'Structure'EnumMultiMemberLlc) = Value
"multi_member_llc"
  toJSON (PostAccountsRequestBodyCompany'Structure'
PostAccountsRequestBodyCompany'Structure'EnumPrivateCompany) = Value
"private_company"
  toJSON (PostAccountsRequestBodyCompany'Structure'
PostAccountsRequestBodyCompany'Structure'EnumPrivateCorporation) = Value
"private_corporation"
  toJSON (PostAccountsRequestBodyCompany'Structure'
PostAccountsRequestBodyCompany'Structure'EnumPrivatePartnership) = Value
"private_partnership"
  toJSON (PostAccountsRequestBodyCompany'Structure'
PostAccountsRequestBodyCompany'Structure'EnumPublicCompany) = Value
"public_company"
  toJSON (PostAccountsRequestBodyCompany'Structure'
PostAccountsRequestBodyCompany'Structure'EnumPublicCorporation) = Value
"public_corporation"
  toJSON (PostAccountsRequestBodyCompany'Structure'
PostAccountsRequestBodyCompany'Structure'EnumPublicPartnership) = Value
"public_partnership"
  toJSON (PostAccountsRequestBodyCompany'Structure'
PostAccountsRequestBodyCompany'Structure'EnumSingleMemberLlc) = Value
"single_member_llc"
  toJSON (PostAccountsRequestBodyCompany'Structure'
PostAccountsRequestBodyCompany'Structure'EnumSoleEstablishment) = Value
"sole_establishment"
  toJSON (PostAccountsRequestBodyCompany'Structure'
PostAccountsRequestBodyCompany'Structure'EnumSoleProprietorship) = Value
"sole_proprietorship"
  toJSON (PostAccountsRequestBodyCompany'Structure'
PostAccountsRequestBodyCompany'Structure'EnumTaxExemptGovernmentInstrumentality) = Value
"tax_exempt_government_instrumentality"
  toJSON (PostAccountsRequestBodyCompany'Structure'
PostAccountsRequestBodyCompany'Structure'EnumUnincorporatedAssociation) = Value
"unincorporated_association"
  toJSON (PostAccountsRequestBodyCompany'Structure'
PostAccountsRequestBodyCompany'Structure'EnumUnincorporatedNonProfit) = Value
"unincorporated_non_profit"

instance Data.Aeson.Types.FromJSON.FromJSON PostAccountsRequestBodyCompany'Structure' where
  parseJSON :: Value -> Parser PostAccountsRequestBodyCompany'Structure'
parseJSON Value
val =
    PostAccountsRequestBodyCompany'Structure'
-> Parser PostAccountsRequestBodyCompany'Structure'
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure
      ( if
            | Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"" -> PostAccountsRequestBodyCompany'Structure'
PostAccountsRequestBodyCompany'Structure'EnumEmptyString
            | Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"free_zone_establishment" -> PostAccountsRequestBodyCompany'Structure'
PostAccountsRequestBodyCompany'Structure'EnumFreeZoneEstablishment
            | Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"free_zone_llc" -> PostAccountsRequestBodyCompany'Structure'
PostAccountsRequestBodyCompany'Structure'EnumFreeZoneLlc
            | Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"government_instrumentality" -> PostAccountsRequestBodyCompany'Structure'
PostAccountsRequestBodyCompany'Structure'EnumGovernmentInstrumentality
            | Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"governmental_unit" -> PostAccountsRequestBodyCompany'Structure'
PostAccountsRequestBodyCompany'Structure'EnumGovernmentalUnit
            | Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"incorporated_non_profit" -> PostAccountsRequestBodyCompany'Structure'
PostAccountsRequestBodyCompany'Structure'EnumIncorporatedNonProfit
            | Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"limited_liability_partnership" -> PostAccountsRequestBodyCompany'Structure'
PostAccountsRequestBodyCompany'Structure'EnumLimitedLiabilityPartnership
            | Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"llc" -> PostAccountsRequestBodyCompany'Structure'
PostAccountsRequestBodyCompany'Structure'EnumLlc
            | Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"multi_member_llc" -> PostAccountsRequestBodyCompany'Structure'
PostAccountsRequestBodyCompany'Structure'EnumMultiMemberLlc
            | Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"private_company" -> PostAccountsRequestBodyCompany'Structure'
PostAccountsRequestBodyCompany'Structure'EnumPrivateCompany
            | Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"private_corporation" -> PostAccountsRequestBodyCompany'Structure'
PostAccountsRequestBodyCompany'Structure'EnumPrivateCorporation
            | Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"private_partnership" -> PostAccountsRequestBodyCompany'Structure'
PostAccountsRequestBodyCompany'Structure'EnumPrivatePartnership
            | Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"public_company" -> PostAccountsRequestBodyCompany'Structure'
PostAccountsRequestBodyCompany'Structure'EnumPublicCompany
            | Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"public_corporation" -> PostAccountsRequestBodyCompany'Structure'
PostAccountsRequestBodyCompany'Structure'EnumPublicCorporation
            | Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"public_partnership" -> PostAccountsRequestBodyCompany'Structure'
PostAccountsRequestBodyCompany'Structure'EnumPublicPartnership
            | Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"single_member_llc" -> PostAccountsRequestBodyCompany'Structure'
PostAccountsRequestBodyCompany'Structure'EnumSingleMemberLlc
            | Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"sole_establishment" -> PostAccountsRequestBodyCompany'Structure'
PostAccountsRequestBodyCompany'Structure'EnumSoleEstablishment
            | Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"sole_proprietorship" -> PostAccountsRequestBodyCompany'Structure'
PostAccountsRequestBodyCompany'Structure'EnumSoleProprietorship
            | Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"tax_exempt_government_instrumentality" -> PostAccountsRequestBodyCompany'Structure'
PostAccountsRequestBodyCompany'Structure'EnumTaxExemptGovernmentInstrumentality
            | Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"unincorporated_association" -> PostAccountsRequestBodyCompany'Structure'
PostAccountsRequestBodyCompany'Structure'EnumUnincorporatedAssociation
            | Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"unincorporated_non_profit" -> PostAccountsRequestBodyCompany'Structure'
PostAccountsRequestBodyCompany'Structure'EnumUnincorporatedNonProfit
            | Bool
GHC.Base.otherwise -> Value -> PostAccountsRequestBodyCompany'Structure'
PostAccountsRequestBodyCompany'Structure'Other Value
val
      )

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

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

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

-- | Create a new 'PostAccountsRequestBodyCompany'Verification'' with all required fields.
mkPostAccountsRequestBodyCompany'Verification' :: PostAccountsRequestBodyCompany'Verification'
mkPostAccountsRequestBodyCompany'Verification' :: PostAccountsRequestBodyCompany'Verification'
mkPostAccountsRequestBodyCompany'Verification' = PostAccountsRequestBodyCompany'Verification' :: Maybe PostAccountsRequestBodyCompany'Verification'Document'
-> PostAccountsRequestBodyCompany'Verification'
PostAccountsRequestBodyCompany'Verification' {postAccountsRequestBodyCompany'Verification'Document :: Maybe PostAccountsRequestBodyCompany'Verification'Document'
postAccountsRequestBodyCompany'Verification'Document = Maybe PostAccountsRequestBodyCompany'Verification'Document'
forall a. Maybe a
GHC.Maybe.Nothing}

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

instance Data.Aeson.Types.ToJSON.ToJSON PostAccountsRequestBodyCompany'Verification'Document' where
  toJSON :: PostAccountsRequestBodyCompany'Verification'Document' -> Value
toJSON PostAccountsRequestBodyCompany'Verification'Document'
obj = [Pair] -> Value
Data.Aeson.Types.Internal.object (Text
"back" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyCompany'Verification'Document' -> Maybe Text
postAccountsRequestBodyCompany'Verification'Document'Back PostAccountsRequestBodyCompany'Verification'Document'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"front" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyCompany'Verification'Document' -> Maybe Text
postAccountsRequestBodyCompany'Verification'Document'Front PostAccountsRequestBodyCompany'Verification'Document'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: [Pair]
forall a. Monoid a => a
GHC.Base.mempty)
  toEncoding :: PostAccountsRequestBodyCompany'Verification'Document' -> Encoding
toEncoding PostAccountsRequestBodyCompany'Verification'Document'
obj = Series -> Encoding
Data.Aeson.Encoding.Internal.pairs ((Text
"back" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyCompany'Verification'Document' -> Maybe Text
postAccountsRequestBodyCompany'Verification'Document'Back PostAccountsRequestBodyCompany'Verification'Document'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> (Text
"front" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyCompany'Verification'Document' -> Maybe Text
postAccountsRequestBodyCompany'Verification'Document'Front PostAccountsRequestBodyCompany'Verification'Document'
obj))

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

-- | Create a new 'PostAccountsRequestBodyCompany'Verification'Document'' with all required fields.
mkPostAccountsRequestBodyCompany'Verification'Document' :: PostAccountsRequestBodyCompany'Verification'Document'
mkPostAccountsRequestBodyCompany'Verification'Document' :: PostAccountsRequestBodyCompany'Verification'Document'
mkPostAccountsRequestBodyCompany'Verification'Document' =
  PostAccountsRequestBodyCompany'Verification'Document' :: Maybe Text
-> Maybe Text
-> PostAccountsRequestBodyCompany'Verification'Document'
PostAccountsRequestBodyCompany'Verification'Document'
    { postAccountsRequestBodyCompany'Verification'Document'Back :: Maybe Text
postAccountsRequestBodyCompany'Verification'Document'Back = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsRequestBodyCompany'Verification'Document'Front :: Maybe Text
postAccountsRequestBodyCompany'Verification'Document'Front = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing
    }

-- | Defines the object schema located at @paths.\/v1\/accounts.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 PostAccountsRequestBodyDocuments' = PostAccountsRequestBodyDocuments'
  { -- | bank_account_ownership_verification
    PostAccountsRequestBodyDocuments'
-> Maybe
     PostAccountsRequestBodyDocuments'BankAccountOwnershipVerification'
postAccountsRequestBodyDocuments'BankAccountOwnershipVerification :: (GHC.Maybe.Maybe PostAccountsRequestBodyDocuments'BankAccountOwnershipVerification'),
    -- | company_license
    PostAccountsRequestBodyDocuments'
-> Maybe PostAccountsRequestBodyDocuments'CompanyLicense'
postAccountsRequestBodyDocuments'CompanyLicense :: (GHC.Maybe.Maybe PostAccountsRequestBodyDocuments'CompanyLicense'),
    -- | company_memorandum_of_association
    PostAccountsRequestBodyDocuments'
-> Maybe
     PostAccountsRequestBodyDocuments'CompanyMemorandumOfAssociation'
postAccountsRequestBodyDocuments'CompanyMemorandumOfAssociation :: (GHC.Maybe.Maybe PostAccountsRequestBodyDocuments'CompanyMemorandumOfAssociation'),
    -- | company_ministerial_decree
    PostAccountsRequestBodyDocuments'
-> Maybe PostAccountsRequestBodyDocuments'CompanyMinisterialDecree'
postAccountsRequestBodyDocuments'CompanyMinisterialDecree :: (GHC.Maybe.Maybe PostAccountsRequestBodyDocuments'CompanyMinisterialDecree'),
    -- | company_registration_verification
    PostAccountsRequestBodyDocuments'
-> Maybe
     PostAccountsRequestBodyDocuments'CompanyRegistrationVerification'
postAccountsRequestBodyDocuments'CompanyRegistrationVerification :: (GHC.Maybe.Maybe PostAccountsRequestBodyDocuments'CompanyRegistrationVerification'),
    -- | company_tax_id_verification
    PostAccountsRequestBodyDocuments'
-> Maybe PostAccountsRequestBodyDocuments'CompanyTaxIdVerification'
postAccountsRequestBodyDocuments'CompanyTaxIdVerification :: (GHC.Maybe.Maybe PostAccountsRequestBodyDocuments'CompanyTaxIdVerification')
  }
  deriving
    ( Int -> PostAccountsRequestBodyDocuments' -> ShowS
[PostAccountsRequestBodyDocuments'] -> ShowS
PostAccountsRequestBodyDocuments' -> String
(Int -> PostAccountsRequestBodyDocuments' -> ShowS)
-> (PostAccountsRequestBodyDocuments' -> String)
-> ([PostAccountsRequestBodyDocuments'] -> ShowS)
-> Show PostAccountsRequestBodyDocuments'
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PostAccountsRequestBodyDocuments'] -> ShowS
$cshowList :: [PostAccountsRequestBodyDocuments'] -> ShowS
show :: PostAccountsRequestBodyDocuments' -> String
$cshow :: PostAccountsRequestBodyDocuments' -> String
showsPrec :: Int -> PostAccountsRequestBodyDocuments' -> ShowS
$cshowsPrec :: Int -> PostAccountsRequestBodyDocuments' -> ShowS
GHC.Show.Show,
      PostAccountsRequestBodyDocuments'
-> PostAccountsRequestBodyDocuments' -> Bool
(PostAccountsRequestBodyDocuments'
 -> PostAccountsRequestBodyDocuments' -> Bool)
-> (PostAccountsRequestBodyDocuments'
    -> PostAccountsRequestBodyDocuments' -> Bool)
-> Eq PostAccountsRequestBodyDocuments'
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostAccountsRequestBodyDocuments'
-> PostAccountsRequestBodyDocuments' -> Bool
$c/= :: PostAccountsRequestBodyDocuments'
-> PostAccountsRequestBodyDocuments' -> Bool
== :: PostAccountsRequestBodyDocuments'
-> PostAccountsRequestBodyDocuments' -> Bool
$c== :: PostAccountsRequestBodyDocuments'
-> PostAccountsRequestBodyDocuments' -> Bool
GHC.Classes.Eq
    )

instance Data.Aeson.Types.ToJSON.ToJSON PostAccountsRequestBodyDocuments' where
  toJSON :: PostAccountsRequestBodyDocuments' -> Value
toJSON PostAccountsRequestBodyDocuments'
obj = [Pair] -> Value
Data.Aeson.Types.Internal.object (Text
"bank_account_ownership_verification" Text
-> Maybe
     PostAccountsRequestBodyDocuments'BankAccountOwnershipVerification'
-> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyDocuments'
-> Maybe
     PostAccountsRequestBodyDocuments'BankAccountOwnershipVerification'
postAccountsRequestBodyDocuments'BankAccountOwnershipVerification PostAccountsRequestBodyDocuments'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"company_license" Text
-> Maybe PostAccountsRequestBodyDocuments'CompanyLicense' -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyDocuments'
-> Maybe PostAccountsRequestBodyDocuments'CompanyLicense'
postAccountsRequestBodyDocuments'CompanyLicense PostAccountsRequestBodyDocuments'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"company_memorandum_of_association" Text
-> Maybe
     PostAccountsRequestBodyDocuments'CompanyMemorandumOfAssociation'
-> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyDocuments'
-> Maybe
     PostAccountsRequestBodyDocuments'CompanyMemorandumOfAssociation'
postAccountsRequestBodyDocuments'CompanyMemorandumOfAssociation PostAccountsRequestBodyDocuments'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"company_ministerial_decree" Text
-> Maybe PostAccountsRequestBodyDocuments'CompanyMinisterialDecree'
-> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyDocuments'
-> Maybe PostAccountsRequestBodyDocuments'CompanyMinisterialDecree'
postAccountsRequestBodyDocuments'CompanyMinisterialDecree PostAccountsRequestBodyDocuments'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"company_registration_verification" Text
-> Maybe
     PostAccountsRequestBodyDocuments'CompanyRegistrationVerification'
-> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyDocuments'
-> Maybe
     PostAccountsRequestBodyDocuments'CompanyRegistrationVerification'
postAccountsRequestBodyDocuments'CompanyRegistrationVerification PostAccountsRequestBodyDocuments'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"company_tax_id_verification" Text
-> Maybe PostAccountsRequestBodyDocuments'CompanyTaxIdVerification'
-> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyDocuments'
-> Maybe PostAccountsRequestBodyDocuments'CompanyTaxIdVerification'
postAccountsRequestBodyDocuments'CompanyTaxIdVerification PostAccountsRequestBodyDocuments'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: [Pair]
forall a. Monoid a => a
GHC.Base.mempty)
  toEncoding :: PostAccountsRequestBodyDocuments' -> Encoding
toEncoding PostAccountsRequestBodyDocuments'
obj = Series -> Encoding
Data.Aeson.Encoding.Internal.pairs ((Text
"bank_account_ownership_verification" Text
-> Maybe
     PostAccountsRequestBodyDocuments'BankAccountOwnershipVerification'
-> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyDocuments'
-> Maybe
     PostAccountsRequestBodyDocuments'BankAccountOwnershipVerification'
postAccountsRequestBodyDocuments'BankAccountOwnershipVerification PostAccountsRequestBodyDocuments'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"company_license" Text
-> Maybe PostAccountsRequestBodyDocuments'CompanyLicense' -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyDocuments'
-> Maybe PostAccountsRequestBodyDocuments'CompanyLicense'
postAccountsRequestBodyDocuments'CompanyLicense PostAccountsRequestBodyDocuments'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"company_memorandum_of_association" Text
-> Maybe
     PostAccountsRequestBodyDocuments'CompanyMemorandumOfAssociation'
-> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyDocuments'
-> Maybe
     PostAccountsRequestBodyDocuments'CompanyMemorandumOfAssociation'
postAccountsRequestBodyDocuments'CompanyMemorandumOfAssociation PostAccountsRequestBodyDocuments'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"company_ministerial_decree" Text
-> Maybe PostAccountsRequestBodyDocuments'CompanyMinisterialDecree'
-> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyDocuments'
-> Maybe PostAccountsRequestBodyDocuments'CompanyMinisterialDecree'
postAccountsRequestBodyDocuments'CompanyMinisterialDecree PostAccountsRequestBodyDocuments'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"company_registration_verification" Text
-> Maybe
     PostAccountsRequestBodyDocuments'CompanyRegistrationVerification'
-> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyDocuments'
-> Maybe
     PostAccountsRequestBodyDocuments'CompanyRegistrationVerification'
postAccountsRequestBodyDocuments'CompanyRegistrationVerification PostAccountsRequestBodyDocuments'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> (Text
"company_tax_id_verification" Text
-> Maybe PostAccountsRequestBodyDocuments'CompanyTaxIdVerification'
-> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyDocuments'
-> Maybe PostAccountsRequestBodyDocuments'CompanyTaxIdVerification'
postAccountsRequestBodyDocuments'CompanyTaxIdVerification PostAccountsRequestBodyDocuments'
obj))))))

instance Data.Aeson.Types.FromJSON.FromJSON PostAccountsRequestBodyDocuments' where
  parseJSON :: Value -> Parser PostAccountsRequestBodyDocuments'
parseJSON = String
-> (Object -> Parser PostAccountsRequestBodyDocuments')
-> Value
-> Parser PostAccountsRequestBodyDocuments'
forall a. String -> (Object -> Parser a) -> Value -> Parser a
Data.Aeson.Types.FromJSON.withObject String
"PostAccountsRequestBodyDocuments'" (\Object
obj -> ((((((Maybe
   PostAccountsRequestBodyDocuments'BankAccountOwnershipVerification'
 -> Maybe PostAccountsRequestBodyDocuments'CompanyLicense'
 -> Maybe
      PostAccountsRequestBodyDocuments'CompanyMemorandumOfAssociation'
 -> Maybe PostAccountsRequestBodyDocuments'CompanyMinisterialDecree'
 -> Maybe
      PostAccountsRequestBodyDocuments'CompanyRegistrationVerification'
 -> Maybe PostAccountsRequestBodyDocuments'CompanyTaxIdVerification'
 -> PostAccountsRequestBodyDocuments')
-> Parser
     (Maybe
        PostAccountsRequestBodyDocuments'BankAccountOwnershipVerification'
      -> Maybe PostAccountsRequestBodyDocuments'CompanyLicense'
      -> Maybe
           PostAccountsRequestBodyDocuments'CompanyMemorandumOfAssociation'
      -> Maybe PostAccountsRequestBodyDocuments'CompanyMinisterialDecree'
      -> Maybe
           PostAccountsRequestBodyDocuments'CompanyRegistrationVerification'
      -> Maybe PostAccountsRequestBodyDocuments'CompanyTaxIdVerification'
      -> PostAccountsRequestBodyDocuments')
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure Maybe
  PostAccountsRequestBodyDocuments'BankAccountOwnershipVerification'
-> Maybe PostAccountsRequestBodyDocuments'CompanyLicense'
-> Maybe
     PostAccountsRequestBodyDocuments'CompanyMemorandumOfAssociation'
-> Maybe PostAccountsRequestBodyDocuments'CompanyMinisterialDecree'
-> Maybe
     PostAccountsRequestBodyDocuments'CompanyRegistrationVerification'
-> Maybe PostAccountsRequestBodyDocuments'CompanyTaxIdVerification'
-> PostAccountsRequestBodyDocuments'
PostAccountsRequestBodyDocuments' Parser
  (Maybe
     PostAccountsRequestBodyDocuments'BankAccountOwnershipVerification'
   -> Maybe PostAccountsRequestBodyDocuments'CompanyLicense'
   -> Maybe
        PostAccountsRequestBodyDocuments'CompanyMemorandumOfAssociation'
   -> Maybe PostAccountsRequestBodyDocuments'CompanyMinisterialDecree'
   -> Maybe
        PostAccountsRequestBodyDocuments'CompanyRegistrationVerification'
   -> Maybe PostAccountsRequestBodyDocuments'CompanyTaxIdVerification'
   -> PostAccountsRequestBodyDocuments')
-> Parser
     (Maybe
        PostAccountsRequestBodyDocuments'BankAccountOwnershipVerification')
-> Parser
     (Maybe PostAccountsRequestBodyDocuments'CompanyLicense'
      -> Maybe
           PostAccountsRequestBodyDocuments'CompanyMemorandumOfAssociation'
      -> Maybe PostAccountsRequestBodyDocuments'CompanyMinisterialDecree'
      -> Maybe
           PostAccountsRequestBodyDocuments'CompanyRegistrationVerification'
      -> Maybe PostAccountsRequestBodyDocuments'CompanyTaxIdVerification'
      -> PostAccountsRequestBodyDocuments')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object
-> Text
-> Parser
     (Maybe
        PostAccountsRequestBodyDocuments'BankAccountOwnershipVerification')
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"bank_account_ownership_verification")) Parser
  (Maybe PostAccountsRequestBodyDocuments'CompanyLicense'
   -> Maybe
        PostAccountsRequestBodyDocuments'CompanyMemorandumOfAssociation'
   -> Maybe PostAccountsRequestBodyDocuments'CompanyMinisterialDecree'
   -> Maybe
        PostAccountsRequestBodyDocuments'CompanyRegistrationVerification'
   -> Maybe PostAccountsRequestBodyDocuments'CompanyTaxIdVerification'
   -> PostAccountsRequestBodyDocuments')
-> Parser (Maybe PostAccountsRequestBodyDocuments'CompanyLicense')
-> Parser
     (Maybe
        PostAccountsRequestBodyDocuments'CompanyMemorandumOfAssociation'
      -> Maybe PostAccountsRequestBodyDocuments'CompanyMinisterialDecree'
      -> Maybe
           PostAccountsRequestBodyDocuments'CompanyRegistrationVerification'
      -> Maybe PostAccountsRequestBodyDocuments'CompanyTaxIdVerification'
      -> PostAccountsRequestBodyDocuments')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object
-> Text
-> Parser (Maybe PostAccountsRequestBodyDocuments'CompanyLicense')
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"company_license")) Parser
  (Maybe
     PostAccountsRequestBodyDocuments'CompanyMemorandumOfAssociation'
   -> Maybe PostAccountsRequestBodyDocuments'CompanyMinisterialDecree'
   -> Maybe
        PostAccountsRequestBodyDocuments'CompanyRegistrationVerification'
   -> Maybe PostAccountsRequestBodyDocuments'CompanyTaxIdVerification'
   -> PostAccountsRequestBodyDocuments')
-> Parser
     (Maybe
        PostAccountsRequestBodyDocuments'CompanyMemorandumOfAssociation')
-> Parser
     (Maybe PostAccountsRequestBodyDocuments'CompanyMinisterialDecree'
      -> Maybe
           PostAccountsRequestBodyDocuments'CompanyRegistrationVerification'
      -> Maybe PostAccountsRequestBodyDocuments'CompanyTaxIdVerification'
      -> PostAccountsRequestBodyDocuments')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object
-> Text
-> Parser
     (Maybe
        PostAccountsRequestBodyDocuments'CompanyMemorandumOfAssociation')
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"company_memorandum_of_association")) Parser
  (Maybe PostAccountsRequestBodyDocuments'CompanyMinisterialDecree'
   -> Maybe
        PostAccountsRequestBodyDocuments'CompanyRegistrationVerification'
   -> Maybe PostAccountsRequestBodyDocuments'CompanyTaxIdVerification'
   -> PostAccountsRequestBodyDocuments')
-> Parser
     (Maybe PostAccountsRequestBodyDocuments'CompanyMinisterialDecree')
-> Parser
     (Maybe
        PostAccountsRequestBodyDocuments'CompanyRegistrationVerification'
      -> Maybe PostAccountsRequestBodyDocuments'CompanyTaxIdVerification'
      -> PostAccountsRequestBodyDocuments')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object
-> Text
-> Parser
     (Maybe PostAccountsRequestBodyDocuments'CompanyMinisterialDecree')
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"company_ministerial_decree")) Parser
  (Maybe
     PostAccountsRequestBodyDocuments'CompanyRegistrationVerification'
   -> Maybe PostAccountsRequestBodyDocuments'CompanyTaxIdVerification'
   -> PostAccountsRequestBodyDocuments')
-> Parser
     (Maybe
        PostAccountsRequestBodyDocuments'CompanyRegistrationVerification')
-> Parser
     (Maybe PostAccountsRequestBodyDocuments'CompanyTaxIdVerification'
      -> PostAccountsRequestBodyDocuments')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object
-> Text
-> Parser
     (Maybe
        PostAccountsRequestBodyDocuments'CompanyRegistrationVerification')
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"company_registration_verification")) Parser
  (Maybe PostAccountsRequestBodyDocuments'CompanyTaxIdVerification'
   -> PostAccountsRequestBodyDocuments')
-> Parser
     (Maybe PostAccountsRequestBodyDocuments'CompanyTaxIdVerification')
-> Parser PostAccountsRequestBodyDocuments'
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object
-> Text
-> Parser
     (Maybe PostAccountsRequestBodyDocuments'CompanyTaxIdVerification')
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"company_tax_id_verification"))

-- | Create a new 'PostAccountsRequestBodyDocuments'' with all required fields.
mkPostAccountsRequestBodyDocuments' :: PostAccountsRequestBodyDocuments'
mkPostAccountsRequestBodyDocuments' :: PostAccountsRequestBodyDocuments'
mkPostAccountsRequestBodyDocuments' =
  PostAccountsRequestBodyDocuments' :: Maybe
  PostAccountsRequestBodyDocuments'BankAccountOwnershipVerification'
-> Maybe PostAccountsRequestBodyDocuments'CompanyLicense'
-> Maybe
     PostAccountsRequestBodyDocuments'CompanyMemorandumOfAssociation'
-> Maybe PostAccountsRequestBodyDocuments'CompanyMinisterialDecree'
-> Maybe
     PostAccountsRequestBodyDocuments'CompanyRegistrationVerification'
-> Maybe PostAccountsRequestBodyDocuments'CompanyTaxIdVerification'
-> PostAccountsRequestBodyDocuments'
PostAccountsRequestBodyDocuments'
    { postAccountsRequestBodyDocuments'BankAccountOwnershipVerification :: Maybe
  PostAccountsRequestBodyDocuments'BankAccountOwnershipVerification'
postAccountsRequestBodyDocuments'BankAccountOwnershipVerification = Maybe
  PostAccountsRequestBodyDocuments'BankAccountOwnershipVerification'
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsRequestBodyDocuments'CompanyLicense :: Maybe PostAccountsRequestBodyDocuments'CompanyLicense'
postAccountsRequestBodyDocuments'CompanyLicense = Maybe PostAccountsRequestBodyDocuments'CompanyLicense'
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsRequestBodyDocuments'CompanyMemorandumOfAssociation :: Maybe
  PostAccountsRequestBodyDocuments'CompanyMemorandumOfAssociation'
postAccountsRequestBodyDocuments'CompanyMemorandumOfAssociation = Maybe
  PostAccountsRequestBodyDocuments'CompanyMemorandumOfAssociation'
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsRequestBodyDocuments'CompanyMinisterialDecree :: Maybe PostAccountsRequestBodyDocuments'CompanyMinisterialDecree'
postAccountsRequestBodyDocuments'CompanyMinisterialDecree = Maybe PostAccountsRequestBodyDocuments'CompanyMinisterialDecree'
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsRequestBodyDocuments'CompanyRegistrationVerification :: Maybe
  PostAccountsRequestBodyDocuments'CompanyRegistrationVerification'
postAccountsRequestBodyDocuments'CompanyRegistrationVerification = Maybe
  PostAccountsRequestBodyDocuments'CompanyRegistrationVerification'
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsRequestBodyDocuments'CompanyTaxIdVerification :: Maybe PostAccountsRequestBodyDocuments'CompanyTaxIdVerification'
postAccountsRequestBodyDocuments'CompanyTaxIdVerification = Maybe PostAccountsRequestBodyDocuments'CompanyTaxIdVerification'
forall a. Maybe a
GHC.Maybe.Nothing
    }

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

-- | Defines the object schema located at @paths.\/v1\/accounts.POST.requestBody.content.application\/x-www-form-urlencoded.schema.properties.individual@ in the specification.
--
-- Information about the person represented by the account. This field is null unless \`business_type\` is set to \`individual\`.
data PostAccountsRequestBodyIndividual' = PostAccountsRequestBodyIndividual'
  { -- | address
    PostAccountsRequestBodyIndividual'
-> Maybe PostAccountsRequestBodyIndividual'Address'
postAccountsRequestBodyIndividual'Address :: (GHC.Maybe.Maybe PostAccountsRequestBodyIndividual'Address'),
    -- | address_kana
    PostAccountsRequestBodyIndividual'
-> Maybe PostAccountsRequestBodyIndividual'AddressKana'
postAccountsRequestBodyIndividual'AddressKana :: (GHC.Maybe.Maybe PostAccountsRequestBodyIndividual'AddressKana'),
    -- | address_kanji
    PostAccountsRequestBodyIndividual'
-> Maybe PostAccountsRequestBodyIndividual'AddressKanji'
postAccountsRequestBodyIndividual'AddressKanji :: (GHC.Maybe.Maybe PostAccountsRequestBodyIndividual'AddressKanji'),
    -- | dob
    PostAccountsRequestBodyIndividual'
-> Maybe PostAccountsRequestBodyIndividual'Dob'Variants
postAccountsRequestBodyIndividual'Dob :: (GHC.Maybe.Maybe PostAccountsRequestBodyIndividual'Dob'Variants),
    -- | email
    PostAccountsRequestBodyIndividual' -> Maybe Text
postAccountsRequestBodyIndividual'Email :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | first_name
    --
    -- Constraints:
    --
    -- * Maximum length of 100
    PostAccountsRequestBodyIndividual' -> Maybe Text
postAccountsRequestBodyIndividual'FirstName :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | first_name_kana
    --
    -- Constraints:
    --
    -- * Maximum length of 5000
    PostAccountsRequestBodyIndividual' -> Maybe Text
postAccountsRequestBodyIndividual'FirstNameKana :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | first_name_kanji
    --
    -- Constraints:
    --
    -- * Maximum length of 5000
    PostAccountsRequestBodyIndividual' -> Maybe Text
postAccountsRequestBodyIndividual'FirstNameKanji :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | gender
    PostAccountsRequestBodyIndividual' -> Maybe Text
postAccountsRequestBodyIndividual'Gender :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | id_number
    --
    -- Constraints:
    --
    -- * Maximum length of 5000
    PostAccountsRequestBodyIndividual' -> Maybe Text
postAccountsRequestBodyIndividual'IdNumber :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | last_name
    --
    -- Constraints:
    --
    -- * Maximum length of 100
    PostAccountsRequestBodyIndividual' -> Maybe Text
postAccountsRequestBodyIndividual'LastName :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | last_name_kana
    --
    -- Constraints:
    --
    -- * Maximum length of 5000
    PostAccountsRequestBodyIndividual' -> Maybe Text
postAccountsRequestBodyIndividual'LastNameKana :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | last_name_kanji
    --
    -- Constraints:
    --
    -- * Maximum length of 5000
    PostAccountsRequestBodyIndividual' -> Maybe Text
postAccountsRequestBodyIndividual'LastNameKanji :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | maiden_name
    --
    -- Constraints:
    --
    -- * Maximum length of 5000
    PostAccountsRequestBodyIndividual' -> Maybe Text
postAccountsRequestBodyIndividual'MaidenName :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | metadata
    PostAccountsRequestBodyIndividual'
-> Maybe PostAccountsRequestBodyIndividual'Metadata'Variants
postAccountsRequestBodyIndividual'Metadata :: (GHC.Maybe.Maybe PostAccountsRequestBodyIndividual'Metadata'Variants),
    -- | phone
    PostAccountsRequestBodyIndividual' -> Maybe Text
postAccountsRequestBodyIndividual'Phone :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | political_exposure
    PostAccountsRequestBodyIndividual'
-> Maybe PostAccountsRequestBodyIndividual'PoliticalExposure'
postAccountsRequestBodyIndividual'PoliticalExposure :: (GHC.Maybe.Maybe PostAccountsRequestBodyIndividual'PoliticalExposure'),
    -- | ssn_last_4
    --
    -- Constraints:
    --
    -- * Maximum length of 5000
    PostAccountsRequestBodyIndividual' -> Maybe Text
postAccountsRequestBodyIndividual'SsnLast_4 :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | verification
    PostAccountsRequestBodyIndividual'
-> Maybe PostAccountsRequestBodyIndividual'Verification'
postAccountsRequestBodyIndividual'Verification :: (GHC.Maybe.Maybe PostAccountsRequestBodyIndividual'Verification')
  }
  deriving
    ( Int -> PostAccountsRequestBodyIndividual' -> ShowS
[PostAccountsRequestBodyIndividual'] -> ShowS
PostAccountsRequestBodyIndividual' -> String
(Int -> PostAccountsRequestBodyIndividual' -> ShowS)
-> (PostAccountsRequestBodyIndividual' -> String)
-> ([PostAccountsRequestBodyIndividual'] -> ShowS)
-> Show PostAccountsRequestBodyIndividual'
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PostAccountsRequestBodyIndividual'] -> ShowS
$cshowList :: [PostAccountsRequestBodyIndividual'] -> ShowS
show :: PostAccountsRequestBodyIndividual' -> String
$cshow :: PostAccountsRequestBodyIndividual' -> String
showsPrec :: Int -> PostAccountsRequestBodyIndividual' -> ShowS
$cshowsPrec :: Int -> PostAccountsRequestBodyIndividual' -> ShowS
GHC.Show.Show,
      PostAccountsRequestBodyIndividual'
-> PostAccountsRequestBodyIndividual' -> Bool
(PostAccountsRequestBodyIndividual'
 -> PostAccountsRequestBodyIndividual' -> Bool)
-> (PostAccountsRequestBodyIndividual'
    -> PostAccountsRequestBodyIndividual' -> Bool)
-> Eq PostAccountsRequestBodyIndividual'
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostAccountsRequestBodyIndividual'
-> PostAccountsRequestBodyIndividual' -> Bool
$c/= :: PostAccountsRequestBodyIndividual'
-> PostAccountsRequestBodyIndividual' -> Bool
== :: PostAccountsRequestBodyIndividual'
-> PostAccountsRequestBodyIndividual' -> Bool
$c== :: PostAccountsRequestBodyIndividual'
-> PostAccountsRequestBodyIndividual' -> Bool
GHC.Classes.Eq
    )

instance Data.Aeson.Types.ToJSON.ToJSON PostAccountsRequestBodyIndividual' where
  toJSON :: PostAccountsRequestBodyIndividual' -> Value
toJSON PostAccountsRequestBodyIndividual'
obj = [Pair] -> Value
Data.Aeson.Types.Internal.object (Text
"address" Text -> Maybe PostAccountsRequestBodyIndividual'Address' -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyIndividual'
-> Maybe PostAccountsRequestBodyIndividual'Address'
postAccountsRequestBodyIndividual'Address PostAccountsRequestBodyIndividual'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"address_kana" Text
-> Maybe PostAccountsRequestBodyIndividual'AddressKana' -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyIndividual'
-> Maybe PostAccountsRequestBodyIndividual'AddressKana'
postAccountsRequestBodyIndividual'AddressKana PostAccountsRequestBodyIndividual'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"address_kanji" Text
-> Maybe PostAccountsRequestBodyIndividual'AddressKanji' -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyIndividual'
-> Maybe PostAccountsRequestBodyIndividual'AddressKanji'
postAccountsRequestBodyIndividual'AddressKanji PostAccountsRequestBodyIndividual'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"dob" Text
-> Maybe PostAccountsRequestBodyIndividual'Dob'Variants -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyIndividual'
-> Maybe PostAccountsRequestBodyIndividual'Dob'Variants
postAccountsRequestBodyIndividual'Dob PostAccountsRequestBodyIndividual'
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..= PostAccountsRequestBodyIndividual' -> Maybe Text
postAccountsRequestBodyIndividual'Email PostAccountsRequestBodyIndividual'
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..= PostAccountsRequestBodyIndividual' -> Maybe Text
postAccountsRequestBodyIndividual'FirstName PostAccountsRequestBodyIndividual'
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..= PostAccountsRequestBodyIndividual' -> Maybe Text
postAccountsRequestBodyIndividual'FirstNameKana PostAccountsRequestBodyIndividual'
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..= PostAccountsRequestBodyIndividual' -> Maybe Text
postAccountsRequestBodyIndividual'FirstNameKanji PostAccountsRequestBodyIndividual'
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..= PostAccountsRequestBodyIndividual' -> Maybe Text
postAccountsRequestBodyIndividual'Gender PostAccountsRequestBodyIndividual'
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..= PostAccountsRequestBodyIndividual' -> Maybe Text
postAccountsRequestBodyIndividual'IdNumber PostAccountsRequestBodyIndividual'
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..= PostAccountsRequestBodyIndividual' -> Maybe Text
postAccountsRequestBodyIndividual'LastName PostAccountsRequestBodyIndividual'
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..= PostAccountsRequestBodyIndividual' -> Maybe Text
postAccountsRequestBodyIndividual'LastNameKana PostAccountsRequestBodyIndividual'
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..= PostAccountsRequestBodyIndividual' -> Maybe Text
postAccountsRequestBodyIndividual'LastNameKanji PostAccountsRequestBodyIndividual'
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..= PostAccountsRequestBodyIndividual' -> Maybe Text
postAccountsRequestBodyIndividual'MaidenName PostAccountsRequestBodyIndividual'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"metadata" Text
-> Maybe PostAccountsRequestBodyIndividual'Metadata'Variants
-> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyIndividual'
-> Maybe PostAccountsRequestBodyIndividual'Metadata'Variants
postAccountsRequestBodyIndividual'Metadata PostAccountsRequestBodyIndividual'
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..= PostAccountsRequestBodyIndividual' -> Maybe Text
postAccountsRequestBodyIndividual'Phone PostAccountsRequestBodyIndividual'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"political_exposure" Text
-> Maybe PostAccountsRequestBodyIndividual'PoliticalExposure'
-> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyIndividual'
-> Maybe PostAccountsRequestBodyIndividual'PoliticalExposure'
postAccountsRequestBodyIndividual'PoliticalExposure PostAccountsRequestBodyIndividual'
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..= PostAccountsRequestBodyIndividual' -> Maybe Text
postAccountsRequestBodyIndividual'SsnLast_4 PostAccountsRequestBodyIndividual'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"verification" Text
-> Maybe PostAccountsRequestBodyIndividual'Verification' -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyIndividual'
-> Maybe PostAccountsRequestBodyIndividual'Verification'
postAccountsRequestBodyIndividual'Verification PostAccountsRequestBodyIndividual'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: [Pair]
forall a. Monoid a => a
GHC.Base.mempty)
  toEncoding :: PostAccountsRequestBodyIndividual' -> Encoding
toEncoding PostAccountsRequestBodyIndividual'
obj = Series -> Encoding
Data.Aeson.Encoding.Internal.pairs ((Text
"address" Text -> Maybe PostAccountsRequestBodyIndividual'Address' -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyIndividual'
-> Maybe PostAccountsRequestBodyIndividual'Address'
postAccountsRequestBodyIndividual'Address PostAccountsRequestBodyIndividual'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"address_kana" Text
-> Maybe PostAccountsRequestBodyIndividual'AddressKana' -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyIndividual'
-> Maybe PostAccountsRequestBodyIndividual'AddressKana'
postAccountsRequestBodyIndividual'AddressKana PostAccountsRequestBodyIndividual'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"address_kanji" Text
-> Maybe PostAccountsRequestBodyIndividual'AddressKanji' -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyIndividual'
-> Maybe PostAccountsRequestBodyIndividual'AddressKanji'
postAccountsRequestBodyIndividual'AddressKanji PostAccountsRequestBodyIndividual'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"dob" Text
-> Maybe PostAccountsRequestBodyIndividual'Dob'Variants -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyIndividual'
-> Maybe PostAccountsRequestBodyIndividual'Dob'Variants
postAccountsRequestBodyIndividual'Dob PostAccountsRequestBodyIndividual'
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..= PostAccountsRequestBodyIndividual' -> Maybe Text
postAccountsRequestBodyIndividual'Email PostAccountsRequestBodyIndividual'
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..= PostAccountsRequestBodyIndividual' -> Maybe Text
postAccountsRequestBodyIndividual'FirstName PostAccountsRequestBodyIndividual'
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..= PostAccountsRequestBodyIndividual' -> Maybe Text
postAccountsRequestBodyIndividual'FirstNameKana PostAccountsRequestBodyIndividual'
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..= PostAccountsRequestBodyIndividual' -> Maybe Text
postAccountsRequestBodyIndividual'FirstNameKanji PostAccountsRequestBodyIndividual'
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..= PostAccountsRequestBodyIndividual' -> Maybe Text
postAccountsRequestBodyIndividual'Gender PostAccountsRequestBodyIndividual'
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..= PostAccountsRequestBodyIndividual' -> Maybe Text
postAccountsRequestBodyIndividual'IdNumber PostAccountsRequestBodyIndividual'
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..= PostAccountsRequestBodyIndividual' -> Maybe Text
postAccountsRequestBodyIndividual'LastName PostAccountsRequestBodyIndividual'
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..= PostAccountsRequestBodyIndividual' -> Maybe Text
postAccountsRequestBodyIndividual'LastNameKana PostAccountsRequestBodyIndividual'
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..= PostAccountsRequestBodyIndividual' -> Maybe Text
postAccountsRequestBodyIndividual'LastNameKanji PostAccountsRequestBodyIndividual'
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..= PostAccountsRequestBodyIndividual' -> Maybe Text
postAccountsRequestBodyIndividual'MaidenName PostAccountsRequestBodyIndividual'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"metadata" Text
-> Maybe PostAccountsRequestBodyIndividual'Metadata'Variants
-> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyIndividual'
-> Maybe PostAccountsRequestBodyIndividual'Metadata'Variants
postAccountsRequestBodyIndividual'Metadata PostAccountsRequestBodyIndividual'
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..= PostAccountsRequestBodyIndividual' -> Maybe Text
postAccountsRequestBodyIndividual'Phone PostAccountsRequestBodyIndividual'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"political_exposure" Text
-> Maybe PostAccountsRequestBodyIndividual'PoliticalExposure'
-> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyIndividual'
-> Maybe PostAccountsRequestBodyIndividual'PoliticalExposure'
postAccountsRequestBodyIndividual'PoliticalExposure PostAccountsRequestBodyIndividual'
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..= PostAccountsRequestBodyIndividual' -> Maybe Text
postAccountsRequestBodyIndividual'SsnLast_4 PostAccountsRequestBodyIndividual'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> (Text
"verification" Text
-> Maybe PostAccountsRequestBodyIndividual'Verification' -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyIndividual'
-> Maybe PostAccountsRequestBodyIndividual'Verification'
postAccountsRequestBodyIndividual'Verification PostAccountsRequestBodyIndividual'
obj)))))))))))))))))))

instance Data.Aeson.Types.FromJSON.FromJSON PostAccountsRequestBodyIndividual' where
  parseJSON :: Value -> Parser PostAccountsRequestBodyIndividual'
parseJSON = String
-> (Object -> Parser PostAccountsRequestBodyIndividual')
-> Value
-> Parser PostAccountsRequestBodyIndividual'
forall a. String -> (Object -> Parser a) -> Value -> Parser a
Data.Aeson.Types.FromJSON.withObject String
"PostAccountsRequestBodyIndividual'" (\Object
obj -> (((((((((((((((((((Maybe PostAccountsRequestBodyIndividual'Address'
 -> Maybe PostAccountsRequestBodyIndividual'AddressKana'
 -> Maybe PostAccountsRequestBodyIndividual'AddressKanji'
 -> Maybe PostAccountsRequestBodyIndividual'Dob'Variants
 -> Maybe Text
 -> Maybe Text
 -> Maybe Text
 -> Maybe Text
 -> Maybe Text
 -> Maybe Text
 -> Maybe Text
 -> Maybe Text
 -> Maybe Text
 -> Maybe Text
 -> Maybe PostAccountsRequestBodyIndividual'Metadata'Variants
 -> Maybe Text
 -> Maybe PostAccountsRequestBodyIndividual'PoliticalExposure'
 -> Maybe Text
 -> Maybe PostAccountsRequestBodyIndividual'Verification'
 -> PostAccountsRequestBodyIndividual')
-> Parser
     (Maybe PostAccountsRequestBodyIndividual'Address'
      -> Maybe PostAccountsRequestBodyIndividual'AddressKana'
      -> Maybe PostAccountsRequestBodyIndividual'AddressKanji'
      -> Maybe PostAccountsRequestBodyIndividual'Dob'Variants
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe PostAccountsRequestBodyIndividual'Metadata'Variants
      -> Maybe Text
      -> Maybe PostAccountsRequestBodyIndividual'PoliticalExposure'
      -> Maybe Text
      -> Maybe PostAccountsRequestBodyIndividual'Verification'
      -> PostAccountsRequestBodyIndividual')
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure Maybe PostAccountsRequestBodyIndividual'Address'
-> Maybe PostAccountsRequestBodyIndividual'AddressKana'
-> Maybe PostAccountsRequestBodyIndividual'AddressKanji'
-> Maybe PostAccountsRequestBodyIndividual'Dob'Variants
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostAccountsRequestBodyIndividual'Metadata'Variants
-> Maybe Text
-> Maybe PostAccountsRequestBodyIndividual'PoliticalExposure'
-> Maybe Text
-> Maybe PostAccountsRequestBodyIndividual'Verification'
-> PostAccountsRequestBodyIndividual'
PostAccountsRequestBodyIndividual' Parser
  (Maybe PostAccountsRequestBodyIndividual'Address'
   -> Maybe PostAccountsRequestBodyIndividual'AddressKana'
   -> Maybe PostAccountsRequestBodyIndividual'AddressKanji'
   -> Maybe PostAccountsRequestBodyIndividual'Dob'Variants
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe PostAccountsRequestBodyIndividual'Metadata'Variants
   -> Maybe Text
   -> Maybe PostAccountsRequestBodyIndividual'PoliticalExposure'
   -> Maybe Text
   -> Maybe PostAccountsRequestBodyIndividual'Verification'
   -> PostAccountsRequestBodyIndividual')
-> Parser (Maybe PostAccountsRequestBodyIndividual'Address')
-> Parser
     (Maybe PostAccountsRequestBodyIndividual'AddressKana'
      -> Maybe PostAccountsRequestBodyIndividual'AddressKanji'
      -> Maybe PostAccountsRequestBodyIndividual'Dob'Variants
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe PostAccountsRequestBodyIndividual'Metadata'Variants
      -> Maybe Text
      -> Maybe PostAccountsRequestBodyIndividual'PoliticalExposure'
      -> Maybe Text
      -> Maybe PostAccountsRequestBodyIndividual'Verification'
      -> PostAccountsRequestBodyIndividual')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object
-> Text
-> Parser (Maybe PostAccountsRequestBodyIndividual'Address')
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"address")) Parser
  (Maybe PostAccountsRequestBodyIndividual'AddressKana'
   -> Maybe PostAccountsRequestBodyIndividual'AddressKanji'
   -> Maybe PostAccountsRequestBodyIndividual'Dob'Variants
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe PostAccountsRequestBodyIndividual'Metadata'Variants
   -> Maybe Text
   -> Maybe PostAccountsRequestBodyIndividual'PoliticalExposure'
   -> Maybe Text
   -> Maybe PostAccountsRequestBodyIndividual'Verification'
   -> PostAccountsRequestBodyIndividual')
-> Parser (Maybe PostAccountsRequestBodyIndividual'AddressKana')
-> Parser
     (Maybe PostAccountsRequestBodyIndividual'AddressKanji'
      -> Maybe PostAccountsRequestBodyIndividual'Dob'Variants
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe PostAccountsRequestBodyIndividual'Metadata'Variants
      -> Maybe Text
      -> Maybe PostAccountsRequestBodyIndividual'PoliticalExposure'
      -> Maybe Text
      -> Maybe PostAccountsRequestBodyIndividual'Verification'
      -> PostAccountsRequestBodyIndividual')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object
-> Text
-> Parser (Maybe PostAccountsRequestBodyIndividual'AddressKana')
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"address_kana")) Parser
  (Maybe PostAccountsRequestBodyIndividual'AddressKanji'
   -> Maybe PostAccountsRequestBodyIndividual'Dob'Variants
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe PostAccountsRequestBodyIndividual'Metadata'Variants
   -> Maybe Text
   -> Maybe PostAccountsRequestBodyIndividual'PoliticalExposure'
   -> Maybe Text
   -> Maybe PostAccountsRequestBodyIndividual'Verification'
   -> PostAccountsRequestBodyIndividual')
-> Parser (Maybe PostAccountsRequestBodyIndividual'AddressKanji')
-> Parser
     (Maybe PostAccountsRequestBodyIndividual'Dob'Variants
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe PostAccountsRequestBodyIndividual'Metadata'Variants
      -> Maybe Text
      -> Maybe PostAccountsRequestBodyIndividual'PoliticalExposure'
      -> Maybe Text
      -> Maybe PostAccountsRequestBodyIndividual'Verification'
      -> PostAccountsRequestBodyIndividual')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object
-> Text
-> Parser (Maybe PostAccountsRequestBodyIndividual'AddressKanji')
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"address_kanji")) Parser
  (Maybe PostAccountsRequestBodyIndividual'Dob'Variants
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe PostAccountsRequestBodyIndividual'Metadata'Variants
   -> Maybe Text
   -> Maybe PostAccountsRequestBodyIndividual'PoliticalExposure'
   -> Maybe Text
   -> Maybe PostAccountsRequestBodyIndividual'Verification'
   -> PostAccountsRequestBodyIndividual')
-> Parser (Maybe PostAccountsRequestBodyIndividual'Dob'Variants)
-> Parser
     (Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe PostAccountsRequestBodyIndividual'Metadata'Variants
      -> Maybe Text
      -> Maybe PostAccountsRequestBodyIndividual'PoliticalExposure'
      -> Maybe Text
      -> Maybe PostAccountsRequestBodyIndividual'Verification'
      -> PostAccountsRequestBodyIndividual')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object
-> Text
-> Parser (Maybe PostAccountsRequestBodyIndividual'Dob'Variants)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"dob")) Parser
  (Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe PostAccountsRequestBodyIndividual'Metadata'Variants
   -> Maybe Text
   -> Maybe PostAccountsRequestBodyIndividual'PoliticalExposure'
   -> Maybe Text
   -> Maybe PostAccountsRequestBodyIndividual'Verification'
   -> PostAccountsRequestBodyIndividual')
-> Parser (Maybe Text)
-> Parser
     (Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe PostAccountsRequestBodyIndividual'Metadata'Variants
      -> Maybe Text
      -> Maybe PostAccountsRequestBodyIndividual'PoliticalExposure'
      -> Maybe Text
      -> Maybe PostAccountsRequestBodyIndividual'Verification'
      -> PostAccountsRequestBodyIndividual')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f 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 PostAccountsRequestBodyIndividual'Metadata'Variants
   -> Maybe Text
   -> Maybe PostAccountsRequestBodyIndividual'PoliticalExposure'
   -> Maybe Text
   -> Maybe PostAccountsRequestBodyIndividual'Verification'
   -> PostAccountsRequestBodyIndividual')
-> Parser (Maybe Text)
-> Parser
     (Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe PostAccountsRequestBodyIndividual'Metadata'Variants
      -> Maybe Text
      -> Maybe PostAccountsRequestBodyIndividual'PoliticalExposure'
      -> Maybe Text
      -> Maybe PostAccountsRequestBodyIndividual'Verification'
      -> PostAccountsRequestBodyIndividual')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f 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 PostAccountsRequestBodyIndividual'Metadata'Variants
   -> Maybe Text
   -> Maybe PostAccountsRequestBodyIndividual'PoliticalExposure'
   -> Maybe Text
   -> Maybe PostAccountsRequestBodyIndividual'Verification'
   -> PostAccountsRequestBodyIndividual')
-> Parser (Maybe Text)
-> Parser
     (Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe PostAccountsRequestBodyIndividual'Metadata'Variants
      -> Maybe Text
      -> Maybe PostAccountsRequestBodyIndividual'PoliticalExposure'
      -> Maybe Text
      -> Maybe PostAccountsRequestBodyIndividual'Verification'
      -> PostAccountsRequestBodyIndividual')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f 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 PostAccountsRequestBodyIndividual'Metadata'Variants
   -> Maybe Text
   -> Maybe PostAccountsRequestBodyIndividual'PoliticalExposure'
   -> Maybe Text
   -> Maybe PostAccountsRequestBodyIndividual'Verification'
   -> PostAccountsRequestBodyIndividual')
-> Parser (Maybe Text)
-> Parser
     (Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe PostAccountsRequestBodyIndividual'Metadata'Variants
      -> Maybe Text
      -> Maybe PostAccountsRequestBodyIndividual'PoliticalExposure'
      -> Maybe Text
      -> Maybe PostAccountsRequestBodyIndividual'Verification'
      -> PostAccountsRequestBodyIndividual')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f 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 PostAccountsRequestBodyIndividual'Metadata'Variants
   -> Maybe Text
   -> Maybe PostAccountsRequestBodyIndividual'PoliticalExposure'
   -> Maybe Text
   -> Maybe PostAccountsRequestBodyIndividual'Verification'
   -> PostAccountsRequestBodyIndividual')
-> Parser (Maybe Text)
-> Parser
     (Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe PostAccountsRequestBodyIndividual'Metadata'Variants
      -> Maybe Text
      -> Maybe PostAccountsRequestBodyIndividual'PoliticalExposure'
      -> Maybe Text
      -> Maybe PostAccountsRequestBodyIndividual'Verification'
      -> PostAccountsRequestBodyIndividual')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f 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 PostAccountsRequestBodyIndividual'Metadata'Variants
   -> Maybe Text
   -> Maybe PostAccountsRequestBodyIndividual'PoliticalExposure'
   -> Maybe Text
   -> Maybe PostAccountsRequestBodyIndividual'Verification'
   -> PostAccountsRequestBodyIndividual')
-> Parser (Maybe Text)
-> Parser
     (Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe PostAccountsRequestBodyIndividual'Metadata'Variants
      -> Maybe Text
      -> Maybe PostAccountsRequestBodyIndividual'PoliticalExposure'
      -> Maybe Text
      -> Maybe PostAccountsRequestBodyIndividual'Verification'
      -> PostAccountsRequestBodyIndividual')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f 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 PostAccountsRequestBodyIndividual'Metadata'Variants
   -> Maybe Text
   -> Maybe PostAccountsRequestBodyIndividual'PoliticalExposure'
   -> Maybe Text
   -> Maybe PostAccountsRequestBodyIndividual'Verification'
   -> PostAccountsRequestBodyIndividual')
-> Parser (Maybe Text)
-> Parser
     (Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe PostAccountsRequestBodyIndividual'Metadata'Variants
      -> Maybe Text
      -> Maybe PostAccountsRequestBodyIndividual'PoliticalExposure'
      -> Maybe Text
      -> Maybe PostAccountsRequestBodyIndividual'Verification'
      -> PostAccountsRequestBodyIndividual')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f 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 PostAccountsRequestBodyIndividual'Metadata'Variants
   -> Maybe Text
   -> Maybe PostAccountsRequestBodyIndividual'PoliticalExposure'
   -> Maybe Text
   -> Maybe PostAccountsRequestBodyIndividual'Verification'
   -> PostAccountsRequestBodyIndividual')
-> Parser (Maybe Text)
-> Parser
     (Maybe Text
      -> Maybe Text
      -> Maybe PostAccountsRequestBodyIndividual'Metadata'Variants
      -> Maybe Text
      -> Maybe PostAccountsRequestBodyIndividual'PoliticalExposure'
      -> Maybe Text
      -> Maybe PostAccountsRequestBodyIndividual'Verification'
      -> PostAccountsRequestBodyIndividual')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f 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 PostAccountsRequestBodyIndividual'Metadata'Variants
   -> Maybe Text
   -> Maybe PostAccountsRequestBodyIndividual'PoliticalExposure'
   -> Maybe Text
   -> Maybe PostAccountsRequestBodyIndividual'Verification'
   -> PostAccountsRequestBodyIndividual')
-> Parser (Maybe Text)
-> Parser
     (Maybe Text
      -> Maybe PostAccountsRequestBodyIndividual'Metadata'Variants
      -> Maybe Text
      -> Maybe PostAccountsRequestBodyIndividual'PoliticalExposure'
      -> Maybe Text
      -> Maybe PostAccountsRequestBodyIndividual'Verification'
      -> PostAccountsRequestBodyIndividual')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f 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 PostAccountsRequestBodyIndividual'Metadata'Variants
   -> Maybe Text
   -> Maybe PostAccountsRequestBodyIndividual'PoliticalExposure'
   -> Maybe Text
   -> Maybe PostAccountsRequestBodyIndividual'Verification'
   -> PostAccountsRequestBodyIndividual')
-> Parser (Maybe Text)
-> Parser
     (Maybe PostAccountsRequestBodyIndividual'Metadata'Variants
      -> Maybe Text
      -> Maybe PostAccountsRequestBodyIndividual'PoliticalExposure'
      -> Maybe Text
      -> Maybe PostAccountsRequestBodyIndividual'Verification'
      -> PostAccountsRequestBodyIndividual')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f 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 PostAccountsRequestBodyIndividual'Metadata'Variants
   -> Maybe Text
   -> Maybe PostAccountsRequestBodyIndividual'PoliticalExposure'
   -> Maybe Text
   -> Maybe PostAccountsRequestBodyIndividual'Verification'
   -> PostAccountsRequestBodyIndividual')
-> Parser
     (Maybe PostAccountsRequestBodyIndividual'Metadata'Variants)
-> Parser
     (Maybe Text
      -> Maybe PostAccountsRequestBodyIndividual'PoliticalExposure'
      -> Maybe Text
      -> Maybe PostAccountsRequestBodyIndividual'Verification'
      -> PostAccountsRequestBodyIndividual')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object
-> Text
-> Parser
     (Maybe PostAccountsRequestBodyIndividual'Metadata'Variants)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"metadata")) Parser
  (Maybe Text
   -> Maybe PostAccountsRequestBodyIndividual'PoliticalExposure'
   -> Maybe Text
   -> Maybe PostAccountsRequestBodyIndividual'Verification'
   -> PostAccountsRequestBodyIndividual')
-> Parser (Maybe Text)
-> Parser
     (Maybe PostAccountsRequestBodyIndividual'PoliticalExposure'
      -> Maybe Text
      -> Maybe PostAccountsRequestBodyIndividual'Verification'
      -> PostAccountsRequestBodyIndividual')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f 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 PostAccountsRequestBodyIndividual'PoliticalExposure'
   -> Maybe Text
   -> Maybe PostAccountsRequestBodyIndividual'Verification'
   -> PostAccountsRequestBodyIndividual')
-> Parser
     (Maybe PostAccountsRequestBodyIndividual'PoliticalExposure')
-> Parser
     (Maybe Text
      -> Maybe PostAccountsRequestBodyIndividual'Verification'
      -> PostAccountsRequestBodyIndividual')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object
-> Text
-> Parser
     (Maybe PostAccountsRequestBodyIndividual'PoliticalExposure')
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"political_exposure")) Parser
  (Maybe Text
   -> Maybe PostAccountsRequestBodyIndividual'Verification'
   -> PostAccountsRequestBodyIndividual')
-> Parser (Maybe Text)
-> Parser
     (Maybe PostAccountsRequestBodyIndividual'Verification'
      -> PostAccountsRequestBodyIndividual')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f 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 PostAccountsRequestBodyIndividual'Verification'
   -> PostAccountsRequestBodyIndividual')
-> Parser (Maybe PostAccountsRequestBodyIndividual'Verification')
-> Parser PostAccountsRequestBodyIndividual'
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object
-> Text
-> Parser (Maybe PostAccountsRequestBodyIndividual'Verification')
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"verification"))

-- | Create a new 'PostAccountsRequestBodyIndividual'' with all required fields.
mkPostAccountsRequestBodyIndividual' :: PostAccountsRequestBodyIndividual'
mkPostAccountsRequestBodyIndividual' :: PostAccountsRequestBodyIndividual'
mkPostAccountsRequestBodyIndividual' =
  PostAccountsRequestBodyIndividual' :: Maybe PostAccountsRequestBodyIndividual'Address'
-> Maybe PostAccountsRequestBodyIndividual'AddressKana'
-> Maybe PostAccountsRequestBodyIndividual'AddressKanji'
-> Maybe PostAccountsRequestBodyIndividual'Dob'Variants
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostAccountsRequestBodyIndividual'Metadata'Variants
-> Maybe Text
-> Maybe PostAccountsRequestBodyIndividual'PoliticalExposure'
-> Maybe Text
-> Maybe PostAccountsRequestBodyIndividual'Verification'
-> PostAccountsRequestBodyIndividual'
PostAccountsRequestBodyIndividual'
    { postAccountsRequestBodyIndividual'Address :: Maybe PostAccountsRequestBodyIndividual'Address'
postAccountsRequestBodyIndividual'Address = Maybe PostAccountsRequestBodyIndividual'Address'
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsRequestBodyIndividual'AddressKana :: Maybe PostAccountsRequestBodyIndividual'AddressKana'
postAccountsRequestBodyIndividual'AddressKana = Maybe PostAccountsRequestBodyIndividual'AddressKana'
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsRequestBodyIndividual'AddressKanji :: Maybe PostAccountsRequestBodyIndividual'AddressKanji'
postAccountsRequestBodyIndividual'AddressKanji = Maybe PostAccountsRequestBodyIndividual'AddressKanji'
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsRequestBodyIndividual'Dob :: Maybe PostAccountsRequestBodyIndividual'Dob'Variants
postAccountsRequestBodyIndividual'Dob = Maybe PostAccountsRequestBodyIndividual'Dob'Variants
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsRequestBodyIndividual'Email :: Maybe Text
postAccountsRequestBodyIndividual'Email = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsRequestBodyIndividual'FirstName :: Maybe Text
postAccountsRequestBodyIndividual'FirstName = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsRequestBodyIndividual'FirstNameKana :: Maybe Text
postAccountsRequestBodyIndividual'FirstNameKana = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsRequestBodyIndividual'FirstNameKanji :: Maybe Text
postAccountsRequestBodyIndividual'FirstNameKanji = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsRequestBodyIndividual'Gender :: Maybe Text
postAccountsRequestBodyIndividual'Gender = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsRequestBodyIndividual'IdNumber :: Maybe Text
postAccountsRequestBodyIndividual'IdNumber = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsRequestBodyIndividual'LastName :: Maybe Text
postAccountsRequestBodyIndividual'LastName = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsRequestBodyIndividual'LastNameKana :: Maybe Text
postAccountsRequestBodyIndividual'LastNameKana = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsRequestBodyIndividual'LastNameKanji :: Maybe Text
postAccountsRequestBodyIndividual'LastNameKanji = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsRequestBodyIndividual'MaidenName :: Maybe Text
postAccountsRequestBodyIndividual'MaidenName = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsRequestBodyIndividual'Metadata :: Maybe PostAccountsRequestBodyIndividual'Metadata'Variants
postAccountsRequestBodyIndividual'Metadata = Maybe PostAccountsRequestBodyIndividual'Metadata'Variants
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsRequestBodyIndividual'Phone :: Maybe Text
postAccountsRequestBodyIndividual'Phone = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsRequestBodyIndividual'PoliticalExposure :: Maybe PostAccountsRequestBodyIndividual'PoliticalExposure'
postAccountsRequestBodyIndividual'PoliticalExposure = Maybe PostAccountsRequestBodyIndividual'PoliticalExposure'
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsRequestBodyIndividual'SsnLast_4 :: Maybe Text
postAccountsRequestBodyIndividual'SsnLast_4 = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsRequestBodyIndividual'Verification :: Maybe PostAccountsRequestBodyIndividual'Verification'
postAccountsRequestBodyIndividual'Verification = Maybe PostAccountsRequestBodyIndividual'Verification'
forall a. Maybe a
GHC.Maybe.Nothing
    }

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

instance Data.Aeson.Types.ToJSON.ToJSON PostAccountsRequestBodyIndividual'Address' where
  toJSON :: PostAccountsRequestBodyIndividual'Address' -> Value
toJSON PostAccountsRequestBodyIndividual'Address'
obj = [Pair] -> Value
Data.Aeson.Types.Internal.object (Text
"city" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyIndividual'Address' -> Maybe Text
postAccountsRequestBodyIndividual'Address'City PostAccountsRequestBodyIndividual'Address'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"country" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyIndividual'Address' -> Maybe Text
postAccountsRequestBodyIndividual'Address'Country PostAccountsRequestBodyIndividual'Address'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"line1" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyIndividual'Address' -> Maybe Text
postAccountsRequestBodyIndividual'Address'Line1 PostAccountsRequestBodyIndividual'Address'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"line2" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyIndividual'Address' -> Maybe Text
postAccountsRequestBodyIndividual'Address'Line2 PostAccountsRequestBodyIndividual'Address'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"postal_code" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyIndividual'Address' -> Maybe Text
postAccountsRequestBodyIndividual'Address'PostalCode PostAccountsRequestBodyIndividual'Address'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"state" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyIndividual'Address' -> Maybe Text
postAccountsRequestBodyIndividual'Address'State PostAccountsRequestBodyIndividual'Address'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: [Pair]
forall a. Monoid a => a
GHC.Base.mempty)
  toEncoding :: PostAccountsRequestBodyIndividual'Address' -> Encoding
toEncoding PostAccountsRequestBodyIndividual'Address'
obj = Series -> Encoding
Data.Aeson.Encoding.Internal.pairs ((Text
"city" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyIndividual'Address' -> Maybe Text
postAccountsRequestBodyIndividual'Address'City PostAccountsRequestBodyIndividual'Address'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"country" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyIndividual'Address' -> Maybe Text
postAccountsRequestBodyIndividual'Address'Country PostAccountsRequestBodyIndividual'Address'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"line1" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyIndividual'Address' -> Maybe Text
postAccountsRequestBodyIndividual'Address'Line1 PostAccountsRequestBodyIndividual'Address'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"line2" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyIndividual'Address' -> Maybe Text
postAccountsRequestBodyIndividual'Address'Line2 PostAccountsRequestBodyIndividual'Address'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"postal_code" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyIndividual'Address' -> Maybe Text
postAccountsRequestBodyIndividual'Address'PostalCode PostAccountsRequestBodyIndividual'Address'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> (Text
"state" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyIndividual'Address' -> Maybe Text
postAccountsRequestBodyIndividual'Address'State PostAccountsRequestBodyIndividual'Address'
obj))))))

instance Data.Aeson.Types.FromJSON.FromJSON PostAccountsRequestBodyIndividual'Address' where
  parseJSON :: Value -> Parser PostAccountsRequestBodyIndividual'Address'
parseJSON = String
-> (Object -> Parser PostAccountsRequestBodyIndividual'Address')
-> Value
-> Parser PostAccountsRequestBodyIndividual'Address'
forall a. String -> (Object -> Parser a) -> Value -> Parser a
Data.Aeson.Types.FromJSON.withObject String
"PostAccountsRequestBodyIndividual'Address'" (\Object
obj -> ((((((Maybe Text
 -> Maybe Text
 -> Maybe Text
 -> Maybe Text
 -> Maybe Text
 -> Maybe Text
 -> PostAccountsRequestBodyIndividual'Address')
-> Parser
     (Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> PostAccountsRequestBodyIndividual'Address')
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> PostAccountsRequestBodyIndividual'Address'
PostAccountsRequestBodyIndividual'Address' Parser
  (Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> PostAccountsRequestBodyIndividual'Address')
-> Parser (Maybe Text)
-> Parser
     (Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> PostAccountsRequestBodyIndividual'Address')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"city")) Parser
  (Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> PostAccountsRequestBodyIndividual'Address')
-> Parser (Maybe Text)
-> Parser
     (Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> PostAccountsRequestBodyIndividual'Address')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"country")) Parser
  (Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> PostAccountsRequestBodyIndividual'Address')
-> Parser (Maybe Text)
-> Parser
     (Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> PostAccountsRequestBodyIndividual'Address')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"line1")) Parser
  (Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> PostAccountsRequestBodyIndividual'Address')
-> Parser (Maybe Text)
-> Parser
     (Maybe Text
      -> Maybe Text -> PostAccountsRequestBodyIndividual'Address')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"line2")) Parser
  (Maybe Text
   -> Maybe Text -> PostAccountsRequestBodyIndividual'Address')
-> Parser (Maybe Text)
-> Parser
     (Maybe Text -> PostAccountsRequestBodyIndividual'Address')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"postal_code")) Parser (Maybe Text -> PostAccountsRequestBodyIndividual'Address')
-> Parser (Maybe Text)
-> Parser PostAccountsRequestBodyIndividual'Address'
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"state"))

-- | Create a new 'PostAccountsRequestBodyIndividual'Address'' with all required fields.
mkPostAccountsRequestBodyIndividual'Address' :: PostAccountsRequestBodyIndividual'Address'
mkPostAccountsRequestBodyIndividual'Address' :: PostAccountsRequestBodyIndividual'Address'
mkPostAccountsRequestBodyIndividual'Address' =
  PostAccountsRequestBodyIndividual'Address' :: Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> PostAccountsRequestBodyIndividual'Address'
PostAccountsRequestBodyIndividual'Address'
    { postAccountsRequestBodyIndividual'Address'City :: Maybe Text
postAccountsRequestBodyIndividual'Address'City = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsRequestBodyIndividual'Address'Country :: Maybe Text
postAccountsRequestBodyIndividual'Address'Country = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsRequestBodyIndividual'Address'Line1 :: Maybe Text
postAccountsRequestBodyIndividual'Address'Line1 = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsRequestBodyIndividual'Address'Line2 :: Maybe Text
postAccountsRequestBodyIndividual'Address'Line2 = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsRequestBodyIndividual'Address'PostalCode :: Maybe Text
postAccountsRequestBodyIndividual'Address'PostalCode = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsRequestBodyIndividual'Address'State :: Maybe Text
postAccountsRequestBodyIndividual'Address'State = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing
    }

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

instance Data.Aeson.Types.ToJSON.ToJSON PostAccountsRequestBodyIndividual'AddressKana' where
  toJSON :: PostAccountsRequestBodyIndividual'AddressKana' -> Value
toJSON PostAccountsRequestBodyIndividual'AddressKana'
obj = [Pair] -> Value
Data.Aeson.Types.Internal.object (Text
"city" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyIndividual'AddressKana' -> Maybe Text
postAccountsRequestBodyIndividual'AddressKana'City PostAccountsRequestBodyIndividual'AddressKana'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"country" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyIndividual'AddressKana' -> Maybe Text
postAccountsRequestBodyIndividual'AddressKana'Country PostAccountsRequestBodyIndividual'AddressKana'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"line1" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyIndividual'AddressKana' -> Maybe Text
postAccountsRequestBodyIndividual'AddressKana'Line1 PostAccountsRequestBodyIndividual'AddressKana'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"line2" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyIndividual'AddressKana' -> Maybe Text
postAccountsRequestBodyIndividual'AddressKana'Line2 PostAccountsRequestBodyIndividual'AddressKana'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"postal_code" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyIndividual'AddressKana' -> Maybe Text
postAccountsRequestBodyIndividual'AddressKana'PostalCode PostAccountsRequestBodyIndividual'AddressKana'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"state" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyIndividual'AddressKana' -> Maybe Text
postAccountsRequestBodyIndividual'AddressKana'State PostAccountsRequestBodyIndividual'AddressKana'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"town" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyIndividual'AddressKana' -> Maybe Text
postAccountsRequestBodyIndividual'AddressKana'Town PostAccountsRequestBodyIndividual'AddressKana'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: [Pair]
forall a. Monoid a => a
GHC.Base.mempty)
  toEncoding :: PostAccountsRequestBodyIndividual'AddressKana' -> Encoding
toEncoding PostAccountsRequestBodyIndividual'AddressKana'
obj = Series -> Encoding
Data.Aeson.Encoding.Internal.pairs ((Text
"city" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyIndividual'AddressKana' -> Maybe Text
postAccountsRequestBodyIndividual'AddressKana'City PostAccountsRequestBodyIndividual'AddressKana'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"country" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyIndividual'AddressKana' -> Maybe Text
postAccountsRequestBodyIndividual'AddressKana'Country PostAccountsRequestBodyIndividual'AddressKana'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"line1" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyIndividual'AddressKana' -> Maybe Text
postAccountsRequestBodyIndividual'AddressKana'Line1 PostAccountsRequestBodyIndividual'AddressKana'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"line2" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyIndividual'AddressKana' -> Maybe Text
postAccountsRequestBodyIndividual'AddressKana'Line2 PostAccountsRequestBodyIndividual'AddressKana'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"postal_code" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyIndividual'AddressKana' -> Maybe Text
postAccountsRequestBodyIndividual'AddressKana'PostalCode PostAccountsRequestBodyIndividual'AddressKana'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"state" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyIndividual'AddressKana' -> Maybe Text
postAccountsRequestBodyIndividual'AddressKana'State PostAccountsRequestBodyIndividual'AddressKana'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> (Text
"town" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyIndividual'AddressKana' -> Maybe Text
postAccountsRequestBodyIndividual'AddressKana'Town PostAccountsRequestBodyIndividual'AddressKana'
obj)))))))

instance Data.Aeson.Types.FromJSON.FromJSON PostAccountsRequestBodyIndividual'AddressKana' where
  parseJSON :: Value -> Parser PostAccountsRequestBodyIndividual'AddressKana'
parseJSON = String
-> (Object
    -> Parser PostAccountsRequestBodyIndividual'AddressKana')
-> Value
-> Parser PostAccountsRequestBodyIndividual'AddressKana'
forall a. String -> (Object -> Parser a) -> Value -> Parser a
Data.Aeson.Types.FromJSON.withObject String
"PostAccountsRequestBodyIndividual'AddressKana'" (\Object
obj -> (((((((Maybe Text
 -> Maybe Text
 -> Maybe Text
 -> Maybe Text
 -> Maybe Text
 -> Maybe Text
 -> Maybe Text
 -> PostAccountsRequestBodyIndividual'AddressKana')
-> Parser
     (Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> PostAccountsRequestBodyIndividual'AddressKana')
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> PostAccountsRequestBodyIndividual'AddressKana'
PostAccountsRequestBodyIndividual'AddressKana' Parser
  (Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> PostAccountsRequestBodyIndividual'AddressKana')
-> Parser (Maybe Text)
-> Parser
     (Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> PostAccountsRequestBodyIndividual'AddressKana')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"city")) Parser
  (Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> PostAccountsRequestBodyIndividual'AddressKana')
-> Parser (Maybe Text)
-> Parser
     (Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> PostAccountsRequestBodyIndividual'AddressKana')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"country")) Parser
  (Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> PostAccountsRequestBodyIndividual'AddressKana')
-> Parser (Maybe Text)
-> Parser
     (Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> PostAccountsRequestBodyIndividual'AddressKana')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"line1")) Parser
  (Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> PostAccountsRequestBodyIndividual'AddressKana')
-> Parser (Maybe Text)
-> Parser
     (Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> PostAccountsRequestBodyIndividual'AddressKana')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"line2")) Parser
  (Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> PostAccountsRequestBodyIndividual'AddressKana')
-> Parser (Maybe Text)
-> Parser
     (Maybe Text
      -> Maybe Text -> PostAccountsRequestBodyIndividual'AddressKana')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"postal_code")) Parser
  (Maybe Text
   -> Maybe Text -> PostAccountsRequestBodyIndividual'AddressKana')
-> Parser (Maybe Text)
-> Parser
     (Maybe Text -> PostAccountsRequestBodyIndividual'AddressKana')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"state")) Parser
  (Maybe Text -> PostAccountsRequestBodyIndividual'AddressKana')
-> Parser (Maybe Text)
-> Parser PostAccountsRequestBodyIndividual'AddressKana'
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"town"))

-- | Create a new 'PostAccountsRequestBodyIndividual'AddressKana'' with all required fields.
mkPostAccountsRequestBodyIndividual'AddressKana' :: PostAccountsRequestBodyIndividual'AddressKana'
mkPostAccountsRequestBodyIndividual'AddressKana' :: PostAccountsRequestBodyIndividual'AddressKana'
mkPostAccountsRequestBodyIndividual'AddressKana' =
  PostAccountsRequestBodyIndividual'AddressKana' :: Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> PostAccountsRequestBodyIndividual'AddressKana'
PostAccountsRequestBodyIndividual'AddressKana'
    { postAccountsRequestBodyIndividual'AddressKana'City :: Maybe Text
postAccountsRequestBodyIndividual'AddressKana'City = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsRequestBodyIndividual'AddressKana'Country :: Maybe Text
postAccountsRequestBodyIndividual'AddressKana'Country = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsRequestBodyIndividual'AddressKana'Line1 :: Maybe Text
postAccountsRequestBodyIndividual'AddressKana'Line1 = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsRequestBodyIndividual'AddressKana'Line2 :: Maybe Text
postAccountsRequestBodyIndividual'AddressKana'Line2 = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsRequestBodyIndividual'AddressKana'PostalCode :: Maybe Text
postAccountsRequestBodyIndividual'AddressKana'PostalCode = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsRequestBodyIndividual'AddressKana'State :: Maybe Text
postAccountsRequestBodyIndividual'AddressKana'State = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsRequestBodyIndividual'AddressKana'Town :: Maybe Text
postAccountsRequestBodyIndividual'AddressKana'Town = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing
    }

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

instance Data.Aeson.Types.ToJSON.ToJSON PostAccountsRequestBodyIndividual'AddressKanji' where
  toJSON :: PostAccountsRequestBodyIndividual'AddressKanji' -> Value
toJSON PostAccountsRequestBodyIndividual'AddressKanji'
obj = [Pair] -> Value
Data.Aeson.Types.Internal.object (Text
"city" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyIndividual'AddressKanji' -> Maybe Text
postAccountsRequestBodyIndividual'AddressKanji'City PostAccountsRequestBodyIndividual'AddressKanji'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"country" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyIndividual'AddressKanji' -> Maybe Text
postAccountsRequestBodyIndividual'AddressKanji'Country PostAccountsRequestBodyIndividual'AddressKanji'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"line1" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyIndividual'AddressKanji' -> Maybe Text
postAccountsRequestBodyIndividual'AddressKanji'Line1 PostAccountsRequestBodyIndividual'AddressKanji'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"line2" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyIndividual'AddressKanji' -> Maybe Text
postAccountsRequestBodyIndividual'AddressKanji'Line2 PostAccountsRequestBodyIndividual'AddressKanji'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"postal_code" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyIndividual'AddressKanji' -> Maybe Text
postAccountsRequestBodyIndividual'AddressKanji'PostalCode PostAccountsRequestBodyIndividual'AddressKanji'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"state" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyIndividual'AddressKanji' -> Maybe Text
postAccountsRequestBodyIndividual'AddressKanji'State PostAccountsRequestBodyIndividual'AddressKanji'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"town" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyIndividual'AddressKanji' -> Maybe Text
postAccountsRequestBodyIndividual'AddressKanji'Town PostAccountsRequestBodyIndividual'AddressKanji'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: [Pair]
forall a. Monoid a => a
GHC.Base.mempty)
  toEncoding :: PostAccountsRequestBodyIndividual'AddressKanji' -> Encoding
toEncoding PostAccountsRequestBodyIndividual'AddressKanji'
obj = Series -> Encoding
Data.Aeson.Encoding.Internal.pairs ((Text
"city" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyIndividual'AddressKanji' -> Maybe Text
postAccountsRequestBodyIndividual'AddressKanji'City PostAccountsRequestBodyIndividual'AddressKanji'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"country" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyIndividual'AddressKanji' -> Maybe Text
postAccountsRequestBodyIndividual'AddressKanji'Country PostAccountsRequestBodyIndividual'AddressKanji'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"line1" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyIndividual'AddressKanji' -> Maybe Text
postAccountsRequestBodyIndividual'AddressKanji'Line1 PostAccountsRequestBodyIndividual'AddressKanji'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"line2" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyIndividual'AddressKanji' -> Maybe Text
postAccountsRequestBodyIndividual'AddressKanji'Line2 PostAccountsRequestBodyIndividual'AddressKanji'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"postal_code" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyIndividual'AddressKanji' -> Maybe Text
postAccountsRequestBodyIndividual'AddressKanji'PostalCode PostAccountsRequestBodyIndividual'AddressKanji'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"state" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyIndividual'AddressKanji' -> Maybe Text
postAccountsRequestBodyIndividual'AddressKanji'State PostAccountsRequestBodyIndividual'AddressKanji'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> (Text
"town" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyIndividual'AddressKanji' -> Maybe Text
postAccountsRequestBodyIndividual'AddressKanji'Town PostAccountsRequestBodyIndividual'AddressKanji'
obj)))))))

instance Data.Aeson.Types.FromJSON.FromJSON PostAccountsRequestBodyIndividual'AddressKanji' where
  parseJSON :: Value -> Parser PostAccountsRequestBodyIndividual'AddressKanji'
parseJSON = String
-> (Object
    -> Parser PostAccountsRequestBodyIndividual'AddressKanji')
-> Value
-> Parser PostAccountsRequestBodyIndividual'AddressKanji'
forall a. String -> (Object -> Parser a) -> Value -> Parser a
Data.Aeson.Types.FromJSON.withObject String
"PostAccountsRequestBodyIndividual'AddressKanji'" (\Object
obj -> (((((((Maybe Text
 -> Maybe Text
 -> Maybe Text
 -> Maybe Text
 -> Maybe Text
 -> Maybe Text
 -> Maybe Text
 -> PostAccountsRequestBodyIndividual'AddressKanji')
-> Parser
     (Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> PostAccountsRequestBodyIndividual'AddressKanji')
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> PostAccountsRequestBodyIndividual'AddressKanji'
PostAccountsRequestBodyIndividual'AddressKanji' Parser
  (Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> PostAccountsRequestBodyIndividual'AddressKanji')
-> Parser (Maybe Text)
-> Parser
     (Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> PostAccountsRequestBodyIndividual'AddressKanji')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"city")) Parser
  (Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> PostAccountsRequestBodyIndividual'AddressKanji')
-> Parser (Maybe Text)
-> Parser
     (Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> PostAccountsRequestBodyIndividual'AddressKanji')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"country")) Parser
  (Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> PostAccountsRequestBodyIndividual'AddressKanji')
-> Parser (Maybe Text)
-> Parser
     (Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> PostAccountsRequestBodyIndividual'AddressKanji')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"line1")) Parser
  (Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> PostAccountsRequestBodyIndividual'AddressKanji')
-> Parser (Maybe Text)
-> Parser
     (Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> PostAccountsRequestBodyIndividual'AddressKanji')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"line2")) Parser
  (Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> PostAccountsRequestBodyIndividual'AddressKanji')
-> Parser (Maybe Text)
-> Parser
     (Maybe Text
      -> Maybe Text -> PostAccountsRequestBodyIndividual'AddressKanji')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"postal_code")) Parser
  (Maybe Text
   -> Maybe Text -> PostAccountsRequestBodyIndividual'AddressKanji')
-> Parser (Maybe Text)
-> Parser
     (Maybe Text -> PostAccountsRequestBodyIndividual'AddressKanji')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"state")) Parser
  (Maybe Text -> PostAccountsRequestBodyIndividual'AddressKanji')
-> Parser (Maybe Text)
-> Parser PostAccountsRequestBodyIndividual'AddressKanji'
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"town"))

-- | Create a new 'PostAccountsRequestBodyIndividual'AddressKanji'' with all required fields.
mkPostAccountsRequestBodyIndividual'AddressKanji' :: PostAccountsRequestBodyIndividual'AddressKanji'
mkPostAccountsRequestBodyIndividual'AddressKanji' :: PostAccountsRequestBodyIndividual'AddressKanji'
mkPostAccountsRequestBodyIndividual'AddressKanji' =
  PostAccountsRequestBodyIndividual'AddressKanji' :: Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> PostAccountsRequestBodyIndividual'AddressKanji'
PostAccountsRequestBodyIndividual'AddressKanji'
    { postAccountsRequestBodyIndividual'AddressKanji'City :: Maybe Text
postAccountsRequestBodyIndividual'AddressKanji'City = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsRequestBodyIndividual'AddressKanji'Country :: Maybe Text
postAccountsRequestBodyIndividual'AddressKanji'Country = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsRequestBodyIndividual'AddressKanji'Line1 :: Maybe Text
postAccountsRequestBodyIndividual'AddressKanji'Line1 = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsRequestBodyIndividual'AddressKanji'Line2 :: Maybe Text
postAccountsRequestBodyIndividual'AddressKanji'Line2 = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsRequestBodyIndividual'AddressKanji'PostalCode :: Maybe Text
postAccountsRequestBodyIndividual'AddressKanji'PostalCode = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsRequestBodyIndividual'AddressKanji'State :: Maybe Text
postAccountsRequestBodyIndividual'AddressKanji'State = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsRequestBodyIndividual'AddressKanji'Town :: Maybe Text
postAccountsRequestBodyIndividual'AddressKanji'Town = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing
    }

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

instance Data.Aeson.Types.ToJSON.ToJSON PostAccountsRequestBodyIndividual'Dob'OneOf1 where
  toJSON :: PostAccountsRequestBodyIndividual'Dob'OneOf1 -> Value
toJSON PostAccountsRequestBodyIndividual'Dob'OneOf1
obj = [Pair] -> Value
Data.Aeson.Types.Internal.object (Text
"day" Text -> Int -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyIndividual'Dob'OneOf1 -> Int
postAccountsRequestBodyIndividual'Dob'OneOf1Day PostAccountsRequestBodyIndividual'Dob'OneOf1
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"month" Text -> Int -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyIndividual'Dob'OneOf1 -> Int
postAccountsRequestBodyIndividual'Dob'OneOf1Month PostAccountsRequestBodyIndividual'Dob'OneOf1
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"year" Text -> Int -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyIndividual'Dob'OneOf1 -> Int
postAccountsRequestBodyIndividual'Dob'OneOf1Year PostAccountsRequestBodyIndividual'Dob'OneOf1
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: [Pair]
forall a. Monoid a => a
GHC.Base.mempty)
  toEncoding :: PostAccountsRequestBodyIndividual'Dob'OneOf1 -> Encoding
toEncoding PostAccountsRequestBodyIndividual'Dob'OneOf1
obj = Series -> Encoding
Data.Aeson.Encoding.Internal.pairs ((Text
"day" Text -> Int -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyIndividual'Dob'OneOf1 -> Int
postAccountsRequestBodyIndividual'Dob'OneOf1Day PostAccountsRequestBodyIndividual'Dob'OneOf1
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"month" Text -> Int -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyIndividual'Dob'OneOf1 -> Int
postAccountsRequestBodyIndividual'Dob'OneOf1Month PostAccountsRequestBodyIndividual'Dob'OneOf1
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> (Text
"year" Text -> Int -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyIndividual'Dob'OneOf1 -> Int
postAccountsRequestBodyIndividual'Dob'OneOf1Year PostAccountsRequestBodyIndividual'Dob'OneOf1
obj)))

instance Data.Aeson.Types.FromJSON.FromJSON PostAccountsRequestBodyIndividual'Dob'OneOf1 where
  parseJSON :: Value -> Parser PostAccountsRequestBodyIndividual'Dob'OneOf1
parseJSON = String
-> (Object -> Parser PostAccountsRequestBodyIndividual'Dob'OneOf1)
-> Value
-> Parser PostAccountsRequestBodyIndividual'Dob'OneOf1
forall a. String -> (Object -> Parser a) -> Value -> Parser a
Data.Aeson.Types.FromJSON.withObject String
"PostAccountsRequestBodyIndividual'Dob'OneOf1" (\Object
obj -> (((Int -> Int -> Int -> PostAccountsRequestBodyIndividual'Dob'OneOf1)
-> Parser
     (Int -> Int -> Int -> PostAccountsRequestBodyIndividual'Dob'OneOf1)
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure Int -> Int -> Int -> PostAccountsRequestBodyIndividual'Dob'OneOf1
PostAccountsRequestBodyIndividual'Dob'OneOf1 Parser
  (Int -> Int -> Int -> PostAccountsRequestBodyIndividual'Dob'OneOf1)
-> Parser Int
-> Parser
     (Int -> Int -> PostAccountsRequestBodyIndividual'Dob'OneOf1)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser Int
forall a. FromJSON a => Object -> Text -> Parser a
Data.Aeson.Types.FromJSON..: Text
"day")) Parser (Int -> Int -> PostAccountsRequestBodyIndividual'Dob'OneOf1)
-> Parser Int
-> Parser (Int -> PostAccountsRequestBodyIndividual'Dob'OneOf1)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser Int
forall a. FromJSON a => Object -> Text -> Parser a
Data.Aeson.Types.FromJSON..: Text
"month")) Parser (Int -> PostAccountsRequestBodyIndividual'Dob'OneOf1)
-> Parser Int
-> Parser PostAccountsRequestBodyIndividual'Dob'OneOf1
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser Int
forall a. FromJSON a => Object -> Text -> Parser a
Data.Aeson.Types.FromJSON..: Text
"year"))

-- | Create a new 'PostAccountsRequestBodyIndividual'Dob'OneOf1' with all required fields.
mkPostAccountsRequestBodyIndividual'Dob'OneOf1 ::
  -- | 'postAccountsRequestBodyIndividual'Dob'OneOf1Day'
  GHC.Types.Int ->
  -- | 'postAccountsRequestBodyIndividual'Dob'OneOf1Month'
  GHC.Types.Int ->
  -- | 'postAccountsRequestBodyIndividual'Dob'OneOf1Year'
  GHC.Types.Int ->
  PostAccountsRequestBodyIndividual'Dob'OneOf1
mkPostAccountsRequestBodyIndividual'Dob'OneOf1 :: Int -> Int -> Int -> PostAccountsRequestBodyIndividual'Dob'OneOf1
mkPostAccountsRequestBodyIndividual'Dob'OneOf1 Int
postAccountsRequestBodyIndividual'Dob'OneOf1Day Int
postAccountsRequestBodyIndividual'Dob'OneOf1Month Int
postAccountsRequestBodyIndividual'Dob'OneOf1Year =
  PostAccountsRequestBodyIndividual'Dob'OneOf1 :: Int -> Int -> Int -> PostAccountsRequestBodyIndividual'Dob'OneOf1
PostAccountsRequestBodyIndividual'Dob'OneOf1
    { postAccountsRequestBodyIndividual'Dob'OneOf1Day :: Int
postAccountsRequestBodyIndividual'Dob'OneOf1Day = Int
postAccountsRequestBodyIndividual'Dob'OneOf1Day,
      postAccountsRequestBodyIndividual'Dob'OneOf1Month :: Int
postAccountsRequestBodyIndividual'Dob'OneOf1Month = Int
postAccountsRequestBodyIndividual'Dob'OneOf1Month,
      postAccountsRequestBodyIndividual'Dob'OneOf1Year :: Int
postAccountsRequestBodyIndividual'Dob'OneOf1Year = Int
postAccountsRequestBodyIndividual'Dob'OneOf1Year
    }

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

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

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

-- | Defines the oneOf schema located at @paths.\/v1\/accounts.POST.requestBody.content.application\/x-www-form-urlencoded.schema.properties.individual.properties.metadata.anyOf@ in the specification.
data PostAccountsRequestBodyIndividual'Metadata'Variants
  = -- | Represents the JSON value @""@
    PostAccountsRequestBodyIndividual'Metadata'EmptyString
  | PostAccountsRequestBodyIndividual'Metadata'Object Data.Aeson.Types.Internal.Object
  deriving (Int -> PostAccountsRequestBodyIndividual'Metadata'Variants -> ShowS
[PostAccountsRequestBodyIndividual'Metadata'Variants] -> ShowS
PostAccountsRequestBodyIndividual'Metadata'Variants -> String
(Int
 -> PostAccountsRequestBodyIndividual'Metadata'Variants -> ShowS)
-> (PostAccountsRequestBodyIndividual'Metadata'Variants -> String)
-> ([PostAccountsRequestBodyIndividual'Metadata'Variants] -> ShowS)
-> Show PostAccountsRequestBodyIndividual'Metadata'Variants
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PostAccountsRequestBodyIndividual'Metadata'Variants] -> ShowS
$cshowList :: [PostAccountsRequestBodyIndividual'Metadata'Variants] -> ShowS
show :: PostAccountsRequestBodyIndividual'Metadata'Variants -> String
$cshow :: PostAccountsRequestBodyIndividual'Metadata'Variants -> String
showsPrec :: Int -> PostAccountsRequestBodyIndividual'Metadata'Variants -> ShowS
$cshowsPrec :: Int -> PostAccountsRequestBodyIndividual'Metadata'Variants -> ShowS
GHC.Show.Show, PostAccountsRequestBodyIndividual'Metadata'Variants
-> PostAccountsRequestBodyIndividual'Metadata'Variants -> Bool
(PostAccountsRequestBodyIndividual'Metadata'Variants
 -> PostAccountsRequestBodyIndividual'Metadata'Variants -> Bool)
-> (PostAccountsRequestBodyIndividual'Metadata'Variants
    -> PostAccountsRequestBodyIndividual'Metadata'Variants -> Bool)
-> Eq PostAccountsRequestBodyIndividual'Metadata'Variants
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostAccountsRequestBodyIndividual'Metadata'Variants
-> PostAccountsRequestBodyIndividual'Metadata'Variants -> Bool
$c/= :: PostAccountsRequestBodyIndividual'Metadata'Variants
-> PostAccountsRequestBodyIndividual'Metadata'Variants -> Bool
== :: PostAccountsRequestBodyIndividual'Metadata'Variants
-> PostAccountsRequestBodyIndividual'Metadata'Variants -> Bool
$c== :: PostAccountsRequestBodyIndividual'Metadata'Variants
-> PostAccountsRequestBodyIndividual'Metadata'Variants -> Bool
GHC.Classes.Eq)

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

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

-- | Defines the enum schema located at @paths.\/v1\/accounts.POST.requestBody.content.application\/x-www-form-urlencoded.schema.properties.individual.properties.political_exposure@ in the specification.
data PostAccountsRequestBodyIndividual'PoliticalExposure'
  = -- | This case is used if the value encountered during decoding does not match any of the provided cases in the specification.
    PostAccountsRequestBodyIndividual'PoliticalExposure'Other Data.Aeson.Types.Internal.Value
  | -- | This constructor can be used to send values to the server which are not present in the specification yet.
    PostAccountsRequestBodyIndividual'PoliticalExposure'Typed Data.Text.Internal.Text
  | -- | Represents the JSON value @"existing"@
    PostAccountsRequestBodyIndividual'PoliticalExposure'EnumExisting
  | -- | Represents the JSON value @"none"@
    PostAccountsRequestBodyIndividual'PoliticalExposure'EnumNone
  deriving (Int
-> PostAccountsRequestBodyIndividual'PoliticalExposure' -> ShowS
[PostAccountsRequestBodyIndividual'PoliticalExposure'] -> ShowS
PostAccountsRequestBodyIndividual'PoliticalExposure' -> String
(Int
 -> PostAccountsRequestBodyIndividual'PoliticalExposure' -> ShowS)
-> (PostAccountsRequestBodyIndividual'PoliticalExposure' -> String)
-> ([PostAccountsRequestBodyIndividual'PoliticalExposure']
    -> ShowS)
-> Show PostAccountsRequestBodyIndividual'PoliticalExposure'
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PostAccountsRequestBodyIndividual'PoliticalExposure'] -> ShowS
$cshowList :: [PostAccountsRequestBodyIndividual'PoliticalExposure'] -> ShowS
show :: PostAccountsRequestBodyIndividual'PoliticalExposure' -> String
$cshow :: PostAccountsRequestBodyIndividual'PoliticalExposure' -> String
showsPrec :: Int
-> PostAccountsRequestBodyIndividual'PoliticalExposure' -> ShowS
$cshowsPrec :: Int
-> PostAccountsRequestBodyIndividual'PoliticalExposure' -> ShowS
GHC.Show.Show, PostAccountsRequestBodyIndividual'PoliticalExposure'
-> PostAccountsRequestBodyIndividual'PoliticalExposure' -> Bool
(PostAccountsRequestBodyIndividual'PoliticalExposure'
 -> PostAccountsRequestBodyIndividual'PoliticalExposure' -> Bool)
-> (PostAccountsRequestBodyIndividual'PoliticalExposure'
    -> PostAccountsRequestBodyIndividual'PoliticalExposure' -> Bool)
-> Eq PostAccountsRequestBodyIndividual'PoliticalExposure'
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostAccountsRequestBodyIndividual'PoliticalExposure'
-> PostAccountsRequestBodyIndividual'PoliticalExposure' -> Bool
$c/= :: PostAccountsRequestBodyIndividual'PoliticalExposure'
-> PostAccountsRequestBodyIndividual'PoliticalExposure' -> Bool
== :: PostAccountsRequestBodyIndividual'PoliticalExposure'
-> PostAccountsRequestBodyIndividual'PoliticalExposure' -> Bool
$c== :: PostAccountsRequestBodyIndividual'PoliticalExposure'
-> PostAccountsRequestBodyIndividual'PoliticalExposure' -> Bool
GHC.Classes.Eq)

instance Data.Aeson.Types.ToJSON.ToJSON PostAccountsRequestBodyIndividual'PoliticalExposure' where
  toJSON :: PostAccountsRequestBodyIndividual'PoliticalExposure' -> Value
toJSON (PostAccountsRequestBodyIndividual'PoliticalExposure'Other Value
val) = Value
val
  toJSON (PostAccountsRequestBodyIndividual'PoliticalExposure'Typed Text
val) = Text -> Value
forall a. ToJSON a => a -> Value
Data.Aeson.Types.ToJSON.toJSON Text
val
  toJSON (PostAccountsRequestBodyIndividual'PoliticalExposure'
PostAccountsRequestBodyIndividual'PoliticalExposure'EnumExisting) = Value
"existing"
  toJSON (PostAccountsRequestBodyIndividual'PoliticalExposure'
PostAccountsRequestBodyIndividual'PoliticalExposure'EnumNone) = Value
"none"

instance Data.Aeson.Types.FromJSON.FromJSON PostAccountsRequestBodyIndividual'PoliticalExposure' where
  parseJSON :: Value
-> Parser PostAccountsRequestBodyIndividual'PoliticalExposure'
parseJSON Value
val =
    PostAccountsRequestBodyIndividual'PoliticalExposure'
-> Parser PostAccountsRequestBodyIndividual'PoliticalExposure'
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure
      ( if
            | Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"existing" -> PostAccountsRequestBodyIndividual'PoliticalExposure'
PostAccountsRequestBodyIndividual'PoliticalExposure'EnumExisting
            | Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"none" -> PostAccountsRequestBodyIndividual'PoliticalExposure'
PostAccountsRequestBodyIndividual'PoliticalExposure'EnumNone
            | Bool
GHC.Base.otherwise -> Value -> PostAccountsRequestBodyIndividual'PoliticalExposure'
PostAccountsRequestBodyIndividual'PoliticalExposure'Other Value
val
      )

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

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

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

-- | Create a new 'PostAccountsRequestBodyIndividual'Verification'' with all required fields.
mkPostAccountsRequestBodyIndividual'Verification' :: PostAccountsRequestBodyIndividual'Verification'
mkPostAccountsRequestBodyIndividual'Verification' :: PostAccountsRequestBodyIndividual'Verification'
mkPostAccountsRequestBodyIndividual'Verification' =
  PostAccountsRequestBodyIndividual'Verification' :: Maybe
  PostAccountsRequestBodyIndividual'Verification'AdditionalDocument'
-> Maybe PostAccountsRequestBodyIndividual'Verification'Document'
-> PostAccountsRequestBodyIndividual'Verification'
PostAccountsRequestBodyIndividual'Verification'
    { postAccountsRequestBodyIndividual'Verification'AdditionalDocument :: Maybe
  PostAccountsRequestBodyIndividual'Verification'AdditionalDocument'
postAccountsRequestBodyIndividual'Verification'AdditionalDocument = Maybe
  PostAccountsRequestBodyIndividual'Verification'AdditionalDocument'
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsRequestBodyIndividual'Verification'Document :: Maybe PostAccountsRequestBodyIndividual'Verification'Document'
postAccountsRequestBodyIndividual'Verification'Document = Maybe PostAccountsRequestBodyIndividual'Verification'Document'
forall a. Maybe a
GHC.Maybe.Nothing
    }

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

instance Data.Aeson.Types.ToJSON.ToJSON PostAccountsRequestBodyIndividual'Verification'AdditionalDocument' where
  toJSON :: PostAccountsRequestBodyIndividual'Verification'AdditionalDocument'
-> Value
toJSON PostAccountsRequestBodyIndividual'Verification'AdditionalDocument'
obj = [Pair] -> Value
Data.Aeson.Types.Internal.object (Text
"back" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyIndividual'Verification'AdditionalDocument'
-> Maybe Text
postAccountsRequestBodyIndividual'Verification'AdditionalDocument'Back PostAccountsRequestBodyIndividual'Verification'AdditionalDocument'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"front" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyIndividual'Verification'AdditionalDocument'
-> Maybe Text
postAccountsRequestBodyIndividual'Verification'AdditionalDocument'Front PostAccountsRequestBodyIndividual'Verification'AdditionalDocument'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: [Pair]
forall a. Monoid a => a
GHC.Base.mempty)
  toEncoding :: PostAccountsRequestBodyIndividual'Verification'AdditionalDocument'
-> Encoding
toEncoding PostAccountsRequestBodyIndividual'Verification'AdditionalDocument'
obj = Series -> Encoding
Data.Aeson.Encoding.Internal.pairs ((Text
"back" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyIndividual'Verification'AdditionalDocument'
-> Maybe Text
postAccountsRequestBodyIndividual'Verification'AdditionalDocument'Back PostAccountsRequestBodyIndividual'Verification'AdditionalDocument'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> (Text
"front" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyIndividual'Verification'AdditionalDocument'
-> Maybe Text
postAccountsRequestBodyIndividual'Verification'AdditionalDocument'Front PostAccountsRequestBodyIndividual'Verification'AdditionalDocument'
obj))

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

-- | Create a new 'PostAccountsRequestBodyIndividual'Verification'AdditionalDocument'' with all required fields.
mkPostAccountsRequestBodyIndividual'Verification'AdditionalDocument' :: PostAccountsRequestBodyIndividual'Verification'AdditionalDocument'
mkPostAccountsRequestBodyIndividual'Verification'AdditionalDocument' :: PostAccountsRequestBodyIndividual'Verification'AdditionalDocument'
mkPostAccountsRequestBodyIndividual'Verification'AdditionalDocument' =
  PostAccountsRequestBodyIndividual'Verification'AdditionalDocument' :: Maybe Text
-> Maybe Text
-> PostAccountsRequestBodyIndividual'Verification'AdditionalDocument'
PostAccountsRequestBodyIndividual'Verification'AdditionalDocument'
    { postAccountsRequestBodyIndividual'Verification'AdditionalDocument'Back :: Maybe Text
postAccountsRequestBodyIndividual'Verification'AdditionalDocument'Back = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsRequestBodyIndividual'Verification'AdditionalDocument'Front :: Maybe Text
postAccountsRequestBodyIndividual'Verification'AdditionalDocument'Front = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing
    }

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

instance Data.Aeson.Types.ToJSON.ToJSON PostAccountsRequestBodyIndividual'Verification'Document' where
  toJSON :: PostAccountsRequestBodyIndividual'Verification'Document' -> Value
toJSON PostAccountsRequestBodyIndividual'Verification'Document'
obj = [Pair] -> Value
Data.Aeson.Types.Internal.object (Text
"back" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyIndividual'Verification'Document'
-> Maybe Text
postAccountsRequestBodyIndividual'Verification'Document'Back PostAccountsRequestBodyIndividual'Verification'Document'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"front" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyIndividual'Verification'Document'
-> Maybe Text
postAccountsRequestBodyIndividual'Verification'Document'Front PostAccountsRequestBodyIndividual'Verification'Document'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: [Pair]
forall a. Monoid a => a
GHC.Base.mempty)
  toEncoding :: PostAccountsRequestBodyIndividual'Verification'Document'
-> Encoding
toEncoding PostAccountsRequestBodyIndividual'Verification'Document'
obj = Series -> Encoding
Data.Aeson.Encoding.Internal.pairs ((Text
"back" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyIndividual'Verification'Document'
-> Maybe Text
postAccountsRequestBodyIndividual'Verification'Document'Back PostAccountsRequestBodyIndividual'Verification'Document'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> (Text
"front" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyIndividual'Verification'Document'
-> Maybe Text
postAccountsRequestBodyIndividual'Verification'Document'Front PostAccountsRequestBodyIndividual'Verification'Document'
obj))

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

-- | Create a new 'PostAccountsRequestBodyIndividual'Verification'Document'' with all required fields.
mkPostAccountsRequestBodyIndividual'Verification'Document' :: PostAccountsRequestBodyIndividual'Verification'Document'
mkPostAccountsRequestBodyIndividual'Verification'Document' :: PostAccountsRequestBodyIndividual'Verification'Document'
mkPostAccountsRequestBodyIndividual'Verification'Document' =
  PostAccountsRequestBodyIndividual'Verification'Document' :: Maybe Text
-> Maybe Text
-> PostAccountsRequestBodyIndividual'Verification'Document'
PostAccountsRequestBodyIndividual'Verification'Document'
    { postAccountsRequestBodyIndividual'Verification'Document'Back :: Maybe Text
postAccountsRequestBodyIndividual'Verification'Document'Back = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsRequestBodyIndividual'Verification'Document'Front :: Maybe Text
postAccountsRequestBodyIndividual'Verification'Document'Front = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing
    }

-- | Defines the oneOf schema located at @paths.\/v1\/accounts.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 PostAccountsRequestBodyMetadata'Variants
  = -- | Represents the JSON value @""@
    PostAccountsRequestBodyMetadata'EmptyString
  | PostAccountsRequestBodyMetadata'Object Data.Aeson.Types.Internal.Object
  deriving (Int -> PostAccountsRequestBodyMetadata'Variants -> ShowS
[PostAccountsRequestBodyMetadata'Variants] -> ShowS
PostAccountsRequestBodyMetadata'Variants -> String
(Int -> PostAccountsRequestBodyMetadata'Variants -> ShowS)
-> (PostAccountsRequestBodyMetadata'Variants -> String)
-> ([PostAccountsRequestBodyMetadata'Variants] -> ShowS)
-> Show PostAccountsRequestBodyMetadata'Variants
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PostAccountsRequestBodyMetadata'Variants] -> ShowS
$cshowList :: [PostAccountsRequestBodyMetadata'Variants] -> ShowS
show :: PostAccountsRequestBodyMetadata'Variants -> String
$cshow :: PostAccountsRequestBodyMetadata'Variants -> String
showsPrec :: Int -> PostAccountsRequestBodyMetadata'Variants -> ShowS
$cshowsPrec :: Int -> PostAccountsRequestBodyMetadata'Variants -> ShowS
GHC.Show.Show, PostAccountsRequestBodyMetadata'Variants
-> PostAccountsRequestBodyMetadata'Variants -> Bool
(PostAccountsRequestBodyMetadata'Variants
 -> PostAccountsRequestBodyMetadata'Variants -> Bool)
-> (PostAccountsRequestBodyMetadata'Variants
    -> PostAccountsRequestBodyMetadata'Variants -> Bool)
-> Eq PostAccountsRequestBodyMetadata'Variants
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostAccountsRequestBodyMetadata'Variants
-> PostAccountsRequestBodyMetadata'Variants -> Bool
$c/= :: PostAccountsRequestBodyMetadata'Variants
-> PostAccountsRequestBodyMetadata'Variants -> Bool
== :: PostAccountsRequestBodyMetadata'Variants
-> PostAccountsRequestBodyMetadata'Variants -> Bool
$c== :: PostAccountsRequestBodyMetadata'Variants
-> PostAccountsRequestBodyMetadata'Variants -> Bool
GHC.Classes.Eq)

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

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

-- | Defines the object schema located at @paths.\/v1\/accounts.POST.requestBody.content.application\/x-www-form-urlencoded.schema.properties.settings@ in the specification.
--
-- Options for customizing how the account functions within Stripe.
data PostAccountsRequestBodySettings' = PostAccountsRequestBodySettings'
  { -- | branding
    PostAccountsRequestBodySettings'
-> Maybe PostAccountsRequestBodySettings'Branding'
postAccountsRequestBodySettings'Branding :: (GHC.Maybe.Maybe PostAccountsRequestBodySettings'Branding'),
    -- | card_issuing
    PostAccountsRequestBodySettings'
-> Maybe PostAccountsRequestBodySettings'CardIssuing'
postAccountsRequestBodySettings'CardIssuing :: (GHC.Maybe.Maybe PostAccountsRequestBodySettings'CardIssuing'),
    -- | card_payments
    PostAccountsRequestBodySettings'
-> Maybe PostAccountsRequestBodySettings'CardPayments'
postAccountsRequestBodySettings'CardPayments :: (GHC.Maybe.Maybe PostAccountsRequestBodySettings'CardPayments'),
    -- | payments
    PostAccountsRequestBodySettings'
-> Maybe PostAccountsRequestBodySettings'Payments'
postAccountsRequestBodySettings'Payments :: (GHC.Maybe.Maybe PostAccountsRequestBodySettings'Payments'),
    -- | payouts
    PostAccountsRequestBodySettings'
-> Maybe PostAccountsRequestBodySettings'Payouts'
postAccountsRequestBodySettings'Payouts :: (GHC.Maybe.Maybe PostAccountsRequestBodySettings'Payouts')
  }
  deriving
    ( Int -> PostAccountsRequestBodySettings' -> ShowS
[PostAccountsRequestBodySettings'] -> ShowS
PostAccountsRequestBodySettings' -> String
(Int -> PostAccountsRequestBodySettings' -> ShowS)
-> (PostAccountsRequestBodySettings' -> String)
-> ([PostAccountsRequestBodySettings'] -> ShowS)
-> Show PostAccountsRequestBodySettings'
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PostAccountsRequestBodySettings'] -> ShowS
$cshowList :: [PostAccountsRequestBodySettings'] -> ShowS
show :: PostAccountsRequestBodySettings' -> String
$cshow :: PostAccountsRequestBodySettings' -> String
showsPrec :: Int -> PostAccountsRequestBodySettings' -> ShowS
$cshowsPrec :: Int -> PostAccountsRequestBodySettings' -> ShowS
GHC.Show.Show,
      PostAccountsRequestBodySettings'
-> PostAccountsRequestBodySettings' -> Bool
(PostAccountsRequestBodySettings'
 -> PostAccountsRequestBodySettings' -> Bool)
-> (PostAccountsRequestBodySettings'
    -> PostAccountsRequestBodySettings' -> Bool)
-> Eq PostAccountsRequestBodySettings'
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostAccountsRequestBodySettings'
-> PostAccountsRequestBodySettings' -> Bool
$c/= :: PostAccountsRequestBodySettings'
-> PostAccountsRequestBodySettings' -> Bool
== :: PostAccountsRequestBodySettings'
-> PostAccountsRequestBodySettings' -> Bool
$c== :: PostAccountsRequestBodySettings'
-> PostAccountsRequestBodySettings' -> Bool
GHC.Classes.Eq
    )

instance Data.Aeson.Types.ToJSON.ToJSON PostAccountsRequestBodySettings' where
  toJSON :: PostAccountsRequestBodySettings' -> Value
toJSON PostAccountsRequestBodySettings'
obj = [Pair] -> Value
Data.Aeson.Types.Internal.object (Text
"branding" Text -> Maybe PostAccountsRequestBodySettings'Branding' -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodySettings'
-> Maybe PostAccountsRequestBodySettings'Branding'
postAccountsRequestBodySettings'Branding PostAccountsRequestBodySettings'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"card_issuing" Text -> Maybe PostAccountsRequestBodySettings'CardIssuing' -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodySettings'
-> Maybe PostAccountsRequestBodySettings'CardIssuing'
postAccountsRequestBodySettings'CardIssuing PostAccountsRequestBodySettings'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"card_payments" Text -> Maybe PostAccountsRequestBodySettings'CardPayments' -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodySettings'
-> Maybe PostAccountsRequestBodySettings'CardPayments'
postAccountsRequestBodySettings'CardPayments PostAccountsRequestBodySettings'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"payments" Text -> Maybe PostAccountsRequestBodySettings'Payments' -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodySettings'
-> Maybe PostAccountsRequestBodySettings'Payments'
postAccountsRequestBodySettings'Payments PostAccountsRequestBodySettings'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"payouts" Text -> Maybe PostAccountsRequestBodySettings'Payouts' -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodySettings'
-> Maybe PostAccountsRequestBodySettings'Payouts'
postAccountsRequestBodySettings'Payouts PostAccountsRequestBodySettings'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: [Pair]
forall a. Monoid a => a
GHC.Base.mempty)
  toEncoding :: PostAccountsRequestBodySettings' -> Encoding
toEncoding PostAccountsRequestBodySettings'
obj = Series -> Encoding
Data.Aeson.Encoding.Internal.pairs ((Text
"branding" Text -> Maybe PostAccountsRequestBodySettings'Branding' -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodySettings'
-> Maybe PostAccountsRequestBodySettings'Branding'
postAccountsRequestBodySettings'Branding PostAccountsRequestBodySettings'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"card_issuing" Text
-> Maybe PostAccountsRequestBodySettings'CardIssuing' -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodySettings'
-> Maybe PostAccountsRequestBodySettings'CardIssuing'
postAccountsRequestBodySettings'CardIssuing PostAccountsRequestBodySettings'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"card_payments" Text
-> Maybe PostAccountsRequestBodySettings'CardPayments' -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodySettings'
-> Maybe PostAccountsRequestBodySettings'CardPayments'
postAccountsRequestBodySettings'CardPayments PostAccountsRequestBodySettings'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"payments" Text -> Maybe PostAccountsRequestBodySettings'Payments' -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodySettings'
-> Maybe PostAccountsRequestBodySettings'Payments'
postAccountsRequestBodySettings'Payments PostAccountsRequestBodySettings'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> (Text
"payouts" Text -> Maybe PostAccountsRequestBodySettings'Payouts' -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodySettings'
-> Maybe PostAccountsRequestBodySettings'Payouts'
postAccountsRequestBodySettings'Payouts PostAccountsRequestBodySettings'
obj)))))

instance Data.Aeson.Types.FromJSON.FromJSON PostAccountsRequestBodySettings' where
  parseJSON :: Value -> Parser PostAccountsRequestBodySettings'
parseJSON = String
-> (Object -> Parser PostAccountsRequestBodySettings')
-> Value
-> Parser PostAccountsRequestBodySettings'
forall a. String -> (Object -> Parser a) -> Value -> Parser a
Data.Aeson.Types.FromJSON.withObject String
"PostAccountsRequestBodySettings'" (\Object
obj -> (((((Maybe PostAccountsRequestBodySettings'Branding'
 -> Maybe PostAccountsRequestBodySettings'CardIssuing'
 -> Maybe PostAccountsRequestBodySettings'CardPayments'
 -> Maybe PostAccountsRequestBodySettings'Payments'
 -> Maybe PostAccountsRequestBodySettings'Payouts'
 -> PostAccountsRequestBodySettings')
-> Parser
     (Maybe PostAccountsRequestBodySettings'Branding'
      -> Maybe PostAccountsRequestBodySettings'CardIssuing'
      -> Maybe PostAccountsRequestBodySettings'CardPayments'
      -> Maybe PostAccountsRequestBodySettings'Payments'
      -> Maybe PostAccountsRequestBodySettings'Payouts'
      -> PostAccountsRequestBodySettings')
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure Maybe PostAccountsRequestBodySettings'Branding'
-> Maybe PostAccountsRequestBodySettings'CardIssuing'
-> Maybe PostAccountsRequestBodySettings'CardPayments'
-> Maybe PostAccountsRequestBodySettings'Payments'
-> Maybe PostAccountsRequestBodySettings'Payouts'
-> PostAccountsRequestBodySettings'
PostAccountsRequestBodySettings' Parser
  (Maybe PostAccountsRequestBodySettings'Branding'
   -> Maybe PostAccountsRequestBodySettings'CardIssuing'
   -> Maybe PostAccountsRequestBodySettings'CardPayments'
   -> Maybe PostAccountsRequestBodySettings'Payments'
   -> Maybe PostAccountsRequestBodySettings'Payouts'
   -> PostAccountsRequestBodySettings')
-> Parser (Maybe PostAccountsRequestBodySettings'Branding')
-> Parser
     (Maybe PostAccountsRequestBodySettings'CardIssuing'
      -> Maybe PostAccountsRequestBodySettings'CardPayments'
      -> Maybe PostAccountsRequestBodySettings'Payments'
      -> Maybe PostAccountsRequestBodySettings'Payouts'
      -> PostAccountsRequestBodySettings')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object
-> Text -> Parser (Maybe PostAccountsRequestBodySettings'Branding')
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"branding")) Parser
  (Maybe PostAccountsRequestBodySettings'CardIssuing'
   -> Maybe PostAccountsRequestBodySettings'CardPayments'
   -> Maybe PostAccountsRequestBodySettings'Payments'
   -> Maybe PostAccountsRequestBodySettings'Payouts'
   -> PostAccountsRequestBodySettings')
-> Parser (Maybe PostAccountsRequestBodySettings'CardIssuing')
-> Parser
     (Maybe PostAccountsRequestBodySettings'CardPayments'
      -> Maybe PostAccountsRequestBodySettings'Payments'
      -> Maybe PostAccountsRequestBodySettings'Payouts'
      -> PostAccountsRequestBodySettings')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object
-> Text
-> Parser (Maybe PostAccountsRequestBodySettings'CardIssuing')
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"card_issuing")) Parser
  (Maybe PostAccountsRequestBodySettings'CardPayments'
   -> Maybe PostAccountsRequestBodySettings'Payments'
   -> Maybe PostAccountsRequestBodySettings'Payouts'
   -> PostAccountsRequestBodySettings')
-> Parser (Maybe PostAccountsRequestBodySettings'CardPayments')
-> Parser
     (Maybe PostAccountsRequestBodySettings'Payments'
      -> Maybe PostAccountsRequestBodySettings'Payouts'
      -> PostAccountsRequestBodySettings')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object
-> Text
-> Parser (Maybe PostAccountsRequestBodySettings'CardPayments')
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"card_payments")) Parser
  (Maybe PostAccountsRequestBodySettings'Payments'
   -> Maybe PostAccountsRequestBodySettings'Payouts'
   -> PostAccountsRequestBodySettings')
-> Parser (Maybe PostAccountsRequestBodySettings'Payments')
-> Parser
     (Maybe PostAccountsRequestBodySettings'Payouts'
      -> PostAccountsRequestBodySettings')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object
-> Text -> Parser (Maybe PostAccountsRequestBodySettings'Payments')
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"payments")) Parser
  (Maybe PostAccountsRequestBodySettings'Payouts'
   -> PostAccountsRequestBodySettings')
-> Parser (Maybe PostAccountsRequestBodySettings'Payouts')
-> Parser PostAccountsRequestBodySettings'
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object
-> Text -> Parser (Maybe PostAccountsRequestBodySettings'Payouts')
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"payouts"))

-- | Create a new 'PostAccountsRequestBodySettings'' with all required fields.
mkPostAccountsRequestBodySettings' :: PostAccountsRequestBodySettings'
mkPostAccountsRequestBodySettings' :: PostAccountsRequestBodySettings'
mkPostAccountsRequestBodySettings' =
  PostAccountsRequestBodySettings' :: Maybe PostAccountsRequestBodySettings'Branding'
-> Maybe PostAccountsRequestBodySettings'CardIssuing'
-> Maybe PostAccountsRequestBodySettings'CardPayments'
-> Maybe PostAccountsRequestBodySettings'Payments'
-> Maybe PostAccountsRequestBodySettings'Payouts'
-> PostAccountsRequestBodySettings'
PostAccountsRequestBodySettings'
    { postAccountsRequestBodySettings'Branding :: Maybe PostAccountsRequestBodySettings'Branding'
postAccountsRequestBodySettings'Branding = Maybe PostAccountsRequestBodySettings'Branding'
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsRequestBodySettings'CardIssuing :: Maybe PostAccountsRequestBodySettings'CardIssuing'
postAccountsRequestBodySettings'CardIssuing = Maybe PostAccountsRequestBodySettings'CardIssuing'
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsRequestBodySettings'CardPayments :: Maybe PostAccountsRequestBodySettings'CardPayments'
postAccountsRequestBodySettings'CardPayments = Maybe PostAccountsRequestBodySettings'CardPayments'
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsRequestBodySettings'Payments :: Maybe PostAccountsRequestBodySettings'Payments'
postAccountsRequestBodySettings'Payments = Maybe PostAccountsRequestBodySettings'Payments'
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsRequestBodySettings'Payouts :: Maybe PostAccountsRequestBodySettings'Payouts'
postAccountsRequestBodySettings'Payouts = Maybe PostAccountsRequestBodySettings'Payouts'
forall a. Maybe a
GHC.Maybe.Nothing
    }

-- | Defines the object schema located at @paths.\/v1\/accounts.POST.requestBody.content.application\/x-www-form-urlencoded.schema.properties.settings.properties.branding@ in the specification.
data PostAccountsRequestBodySettings'Branding' = PostAccountsRequestBodySettings'Branding'
  { -- | icon
    --
    -- Constraints:
    --
    -- * Maximum length of 5000
    PostAccountsRequestBodySettings'Branding' -> Maybe Text
postAccountsRequestBodySettings'Branding'Icon :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | logo
    --
    -- Constraints:
    --
    -- * Maximum length of 5000
    PostAccountsRequestBodySettings'Branding' -> Maybe Text
postAccountsRequestBodySettings'Branding'Logo :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | primary_color
    --
    -- Constraints:
    --
    -- * Maximum length of 5000
    PostAccountsRequestBodySettings'Branding' -> Maybe Text
postAccountsRequestBodySettings'Branding'PrimaryColor :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | secondary_color
    --
    -- Constraints:
    --
    -- * Maximum length of 5000
    PostAccountsRequestBodySettings'Branding' -> Maybe Text
postAccountsRequestBodySettings'Branding'SecondaryColor :: (GHC.Maybe.Maybe Data.Text.Internal.Text)
  }
  deriving
    ( Int -> PostAccountsRequestBodySettings'Branding' -> ShowS
[PostAccountsRequestBodySettings'Branding'] -> ShowS
PostAccountsRequestBodySettings'Branding' -> String
(Int -> PostAccountsRequestBodySettings'Branding' -> ShowS)
-> (PostAccountsRequestBodySettings'Branding' -> String)
-> ([PostAccountsRequestBodySettings'Branding'] -> ShowS)
-> Show PostAccountsRequestBodySettings'Branding'
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PostAccountsRequestBodySettings'Branding'] -> ShowS
$cshowList :: [PostAccountsRequestBodySettings'Branding'] -> ShowS
show :: PostAccountsRequestBodySettings'Branding' -> String
$cshow :: PostAccountsRequestBodySettings'Branding' -> String
showsPrec :: Int -> PostAccountsRequestBodySettings'Branding' -> ShowS
$cshowsPrec :: Int -> PostAccountsRequestBodySettings'Branding' -> ShowS
GHC.Show.Show,
      PostAccountsRequestBodySettings'Branding'
-> PostAccountsRequestBodySettings'Branding' -> Bool
(PostAccountsRequestBodySettings'Branding'
 -> PostAccountsRequestBodySettings'Branding' -> Bool)
-> (PostAccountsRequestBodySettings'Branding'
    -> PostAccountsRequestBodySettings'Branding' -> Bool)
-> Eq PostAccountsRequestBodySettings'Branding'
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostAccountsRequestBodySettings'Branding'
-> PostAccountsRequestBodySettings'Branding' -> Bool
$c/= :: PostAccountsRequestBodySettings'Branding'
-> PostAccountsRequestBodySettings'Branding' -> Bool
== :: PostAccountsRequestBodySettings'Branding'
-> PostAccountsRequestBodySettings'Branding' -> Bool
$c== :: PostAccountsRequestBodySettings'Branding'
-> PostAccountsRequestBodySettings'Branding' -> Bool
GHC.Classes.Eq
    )

instance Data.Aeson.Types.ToJSON.ToJSON PostAccountsRequestBodySettings'Branding' where
  toJSON :: PostAccountsRequestBodySettings'Branding' -> Value
toJSON PostAccountsRequestBodySettings'Branding'
obj = [Pair] -> Value
Data.Aeson.Types.Internal.object (Text
"icon" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodySettings'Branding' -> Maybe Text
postAccountsRequestBodySettings'Branding'Icon PostAccountsRequestBodySettings'Branding'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"logo" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodySettings'Branding' -> Maybe Text
postAccountsRequestBodySettings'Branding'Logo PostAccountsRequestBodySettings'Branding'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"primary_color" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodySettings'Branding' -> Maybe Text
postAccountsRequestBodySettings'Branding'PrimaryColor PostAccountsRequestBodySettings'Branding'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"secondary_color" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodySettings'Branding' -> Maybe Text
postAccountsRequestBodySettings'Branding'SecondaryColor PostAccountsRequestBodySettings'Branding'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: [Pair]
forall a. Monoid a => a
GHC.Base.mempty)
  toEncoding :: PostAccountsRequestBodySettings'Branding' -> Encoding
toEncoding PostAccountsRequestBodySettings'Branding'
obj = Series -> Encoding
Data.Aeson.Encoding.Internal.pairs ((Text
"icon" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodySettings'Branding' -> Maybe Text
postAccountsRequestBodySettings'Branding'Icon PostAccountsRequestBodySettings'Branding'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"logo" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodySettings'Branding' -> Maybe Text
postAccountsRequestBodySettings'Branding'Logo PostAccountsRequestBodySettings'Branding'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"primary_color" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodySettings'Branding' -> Maybe Text
postAccountsRequestBodySettings'Branding'PrimaryColor PostAccountsRequestBodySettings'Branding'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> (Text
"secondary_color" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodySettings'Branding' -> Maybe Text
postAccountsRequestBodySettings'Branding'SecondaryColor PostAccountsRequestBodySettings'Branding'
obj))))

instance Data.Aeson.Types.FromJSON.FromJSON PostAccountsRequestBodySettings'Branding' where
  parseJSON :: Value -> Parser PostAccountsRequestBodySettings'Branding'
parseJSON = String
-> (Object -> Parser PostAccountsRequestBodySettings'Branding')
-> Value
-> Parser PostAccountsRequestBodySettings'Branding'
forall a. String -> (Object -> Parser a) -> Value -> Parser a
Data.Aeson.Types.FromJSON.withObject String
"PostAccountsRequestBodySettings'Branding'" (\Object
obj -> ((((Maybe Text
 -> Maybe Text
 -> Maybe Text
 -> Maybe Text
 -> PostAccountsRequestBodySettings'Branding')
-> Parser
     (Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> PostAccountsRequestBodySettings'Branding')
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> PostAccountsRequestBodySettings'Branding'
PostAccountsRequestBodySettings'Branding' Parser
  (Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> PostAccountsRequestBodySettings'Branding')
-> Parser (Maybe Text)
-> Parser
     (Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> PostAccountsRequestBodySettings'Branding')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"icon")) Parser
  (Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> PostAccountsRequestBodySettings'Branding')
-> Parser (Maybe Text)
-> Parser
     (Maybe Text
      -> Maybe Text -> PostAccountsRequestBodySettings'Branding')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"logo")) Parser
  (Maybe Text
   -> Maybe Text -> PostAccountsRequestBodySettings'Branding')
-> Parser (Maybe Text)
-> Parser (Maybe Text -> PostAccountsRequestBodySettings'Branding')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"primary_color")) Parser (Maybe Text -> PostAccountsRequestBodySettings'Branding')
-> Parser (Maybe Text)
-> Parser PostAccountsRequestBodySettings'Branding'
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"secondary_color"))

-- | Create a new 'PostAccountsRequestBodySettings'Branding'' with all required fields.
mkPostAccountsRequestBodySettings'Branding' :: PostAccountsRequestBodySettings'Branding'
mkPostAccountsRequestBodySettings'Branding' :: PostAccountsRequestBodySettings'Branding'
mkPostAccountsRequestBodySettings'Branding' =
  PostAccountsRequestBodySettings'Branding' :: Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> PostAccountsRequestBodySettings'Branding'
PostAccountsRequestBodySettings'Branding'
    { postAccountsRequestBodySettings'Branding'Icon :: Maybe Text
postAccountsRequestBodySettings'Branding'Icon = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsRequestBodySettings'Branding'Logo :: Maybe Text
postAccountsRequestBodySettings'Branding'Logo = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsRequestBodySettings'Branding'PrimaryColor :: Maybe Text
postAccountsRequestBodySettings'Branding'PrimaryColor = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsRequestBodySettings'Branding'SecondaryColor :: Maybe Text
postAccountsRequestBodySettings'Branding'SecondaryColor = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing
    }

-- | Defines the object schema located at @paths.\/v1\/accounts.POST.requestBody.content.application\/x-www-form-urlencoded.schema.properties.settings.properties.card_issuing@ in the specification.
data PostAccountsRequestBodySettings'CardIssuing' = PostAccountsRequestBodySettings'CardIssuing'
  { -- | tos_acceptance
    PostAccountsRequestBodySettings'CardIssuing'
-> Maybe PostAccountsRequestBodySettings'CardIssuing'TosAcceptance'
postAccountsRequestBodySettings'CardIssuing'TosAcceptance :: (GHC.Maybe.Maybe PostAccountsRequestBodySettings'CardIssuing'TosAcceptance')
  }
  deriving
    ( Int -> PostAccountsRequestBodySettings'CardIssuing' -> ShowS
[PostAccountsRequestBodySettings'CardIssuing'] -> ShowS
PostAccountsRequestBodySettings'CardIssuing' -> String
(Int -> PostAccountsRequestBodySettings'CardIssuing' -> ShowS)
-> (PostAccountsRequestBodySettings'CardIssuing' -> String)
-> ([PostAccountsRequestBodySettings'CardIssuing'] -> ShowS)
-> Show PostAccountsRequestBodySettings'CardIssuing'
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PostAccountsRequestBodySettings'CardIssuing'] -> ShowS
$cshowList :: [PostAccountsRequestBodySettings'CardIssuing'] -> ShowS
show :: PostAccountsRequestBodySettings'CardIssuing' -> String
$cshow :: PostAccountsRequestBodySettings'CardIssuing' -> String
showsPrec :: Int -> PostAccountsRequestBodySettings'CardIssuing' -> ShowS
$cshowsPrec :: Int -> PostAccountsRequestBodySettings'CardIssuing' -> ShowS
GHC.Show.Show,
      PostAccountsRequestBodySettings'CardIssuing'
-> PostAccountsRequestBodySettings'CardIssuing' -> Bool
(PostAccountsRequestBodySettings'CardIssuing'
 -> PostAccountsRequestBodySettings'CardIssuing' -> Bool)
-> (PostAccountsRequestBodySettings'CardIssuing'
    -> PostAccountsRequestBodySettings'CardIssuing' -> Bool)
-> Eq PostAccountsRequestBodySettings'CardIssuing'
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostAccountsRequestBodySettings'CardIssuing'
-> PostAccountsRequestBodySettings'CardIssuing' -> Bool
$c/= :: PostAccountsRequestBodySettings'CardIssuing'
-> PostAccountsRequestBodySettings'CardIssuing' -> Bool
== :: PostAccountsRequestBodySettings'CardIssuing'
-> PostAccountsRequestBodySettings'CardIssuing' -> Bool
$c== :: PostAccountsRequestBodySettings'CardIssuing'
-> PostAccountsRequestBodySettings'CardIssuing' -> Bool
GHC.Classes.Eq
    )

instance Data.Aeson.Types.ToJSON.ToJSON PostAccountsRequestBodySettings'CardIssuing' where
  toJSON :: PostAccountsRequestBodySettings'CardIssuing' -> Value
toJSON PostAccountsRequestBodySettings'CardIssuing'
obj = [Pair] -> Value
Data.Aeson.Types.Internal.object (Text
"tos_acceptance" Text
-> Maybe PostAccountsRequestBodySettings'CardIssuing'TosAcceptance'
-> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodySettings'CardIssuing'
-> Maybe PostAccountsRequestBodySettings'CardIssuing'TosAcceptance'
postAccountsRequestBodySettings'CardIssuing'TosAcceptance PostAccountsRequestBodySettings'CardIssuing'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: [Pair]
forall a. Monoid a => a
GHC.Base.mempty)
  toEncoding :: PostAccountsRequestBodySettings'CardIssuing' -> Encoding
toEncoding PostAccountsRequestBodySettings'CardIssuing'
obj = Series -> Encoding
Data.Aeson.Encoding.Internal.pairs (Text
"tos_acceptance" Text
-> Maybe PostAccountsRequestBodySettings'CardIssuing'TosAcceptance'
-> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodySettings'CardIssuing'
-> Maybe PostAccountsRequestBodySettings'CardIssuing'TosAcceptance'
postAccountsRequestBodySettings'CardIssuing'TosAcceptance PostAccountsRequestBodySettings'CardIssuing'
obj)

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

-- | Create a new 'PostAccountsRequestBodySettings'CardIssuing'' with all required fields.
mkPostAccountsRequestBodySettings'CardIssuing' :: PostAccountsRequestBodySettings'CardIssuing'
mkPostAccountsRequestBodySettings'CardIssuing' :: PostAccountsRequestBodySettings'CardIssuing'
mkPostAccountsRequestBodySettings'CardIssuing' = PostAccountsRequestBodySettings'CardIssuing' :: Maybe PostAccountsRequestBodySettings'CardIssuing'TosAcceptance'
-> PostAccountsRequestBodySettings'CardIssuing'
PostAccountsRequestBodySettings'CardIssuing' {postAccountsRequestBodySettings'CardIssuing'TosAcceptance :: Maybe PostAccountsRequestBodySettings'CardIssuing'TosAcceptance'
postAccountsRequestBodySettings'CardIssuing'TosAcceptance = Maybe PostAccountsRequestBodySettings'CardIssuing'TosAcceptance'
forall a. Maybe a
GHC.Maybe.Nothing}

-- | Defines the object schema located at @paths.\/v1\/accounts.POST.requestBody.content.application\/x-www-form-urlencoded.schema.properties.settings.properties.card_issuing.properties.tos_acceptance@ in the specification.
data PostAccountsRequestBodySettings'CardIssuing'TosAcceptance' = PostAccountsRequestBodySettings'CardIssuing'TosAcceptance'
  { -- | date
    PostAccountsRequestBodySettings'CardIssuing'TosAcceptance'
-> Maybe Int
postAccountsRequestBodySettings'CardIssuing'TosAcceptance'Date :: (GHC.Maybe.Maybe GHC.Types.Int),
    -- | ip
    PostAccountsRequestBodySettings'CardIssuing'TosAcceptance'
-> Maybe Text
postAccountsRequestBodySettings'CardIssuing'TosAcceptance'Ip :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | user_agent
    --
    -- Constraints:
    --
    -- * Maximum length of 5000
    PostAccountsRequestBodySettings'CardIssuing'TosAcceptance'
-> Maybe Text
postAccountsRequestBodySettings'CardIssuing'TosAcceptance'UserAgent :: (GHC.Maybe.Maybe Data.Text.Internal.Text)
  }
  deriving
    ( Int
-> PostAccountsRequestBodySettings'CardIssuing'TosAcceptance'
-> ShowS
[PostAccountsRequestBodySettings'CardIssuing'TosAcceptance']
-> ShowS
PostAccountsRequestBodySettings'CardIssuing'TosAcceptance'
-> String
(Int
 -> PostAccountsRequestBodySettings'CardIssuing'TosAcceptance'
 -> ShowS)
-> (PostAccountsRequestBodySettings'CardIssuing'TosAcceptance'
    -> String)
-> ([PostAccountsRequestBodySettings'CardIssuing'TosAcceptance']
    -> ShowS)
-> Show PostAccountsRequestBodySettings'CardIssuing'TosAcceptance'
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PostAccountsRequestBodySettings'CardIssuing'TosAcceptance']
-> ShowS
$cshowList :: [PostAccountsRequestBodySettings'CardIssuing'TosAcceptance']
-> ShowS
show :: PostAccountsRequestBodySettings'CardIssuing'TosAcceptance'
-> String
$cshow :: PostAccountsRequestBodySettings'CardIssuing'TosAcceptance'
-> String
showsPrec :: Int
-> PostAccountsRequestBodySettings'CardIssuing'TosAcceptance'
-> ShowS
$cshowsPrec :: Int
-> PostAccountsRequestBodySettings'CardIssuing'TosAcceptance'
-> ShowS
GHC.Show.Show,
      PostAccountsRequestBodySettings'CardIssuing'TosAcceptance'
-> PostAccountsRequestBodySettings'CardIssuing'TosAcceptance'
-> Bool
(PostAccountsRequestBodySettings'CardIssuing'TosAcceptance'
 -> PostAccountsRequestBodySettings'CardIssuing'TosAcceptance'
 -> Bool)
-> (PostAccountsRequestBodySettings'CardIssuing'TosAcceptance'
    -> PostAccountsRequestBodySettings'CardIssuing'TosAcceptance'
    -> Bool)
-> Eq PostAccountsRequestBodySettings'CardIssuing'TosAcceptance'
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostAccountsRequestBodySettings'CardIssuing'TosAcceptance'
-> PostAccountsRequestBodySettings'CardIssuing'TosAcceptance'
-> Bool
$c/= :: PostAccountsRequestBodySettings'CardIssuing'TosAcceptance'
-> PostAccountsRequestBodySettings'CardIssuing'TosAcceptance'
-> Bool
== :: PostAccountsRequestBodySettings'CardIssuing'TosAcceptance'
-> PostAccountsRequestBodySettings'CardIssuing'TosAcceptance'
-> Bool
$c== :: PostAccountsRequestBodySettings'CardIssuing'TosAcceptance'
-> PostAccountsRequestBodySettings'CardIssuing'TosAcceptance'
-> Bool
GHC.Classes.Eq
    )

instance Data.Aeson.Types.ToJSON.ToJSON PostAccountsRequestBodySettings'CardIssuing'TosAcceptance' where
  toJSON :: PostAccountsRequestBodySettings'CardIssuing'TosAcceptance' -> Value
toJSON PostAccountsRequestBodySettings'CardIssuing'TosAcceptance'
obj = [Pair] -> Value
Data.Aeson.Types.Internal.object (Text
"date" Text -> Maybe Int -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodySettings'CardIssuing'TosAcceptance'
-> Maybe Int
postAccountsRequestBodySettings'CardIssuing'TosAcceptance'Date PostAccountsRequestBodySettings'CardIssuing'TosAcceptance'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"ip" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodySettings'CardIssuing'TosAcceptance'
-> Maybe Text
postAccountsRequestBodySettings'CardIssuing'TosAcceptance'Ip PostAccountsRequestBodySettings'CardIssuing'TosAcceptance'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"user_agent" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodySettings'CardIssuing'TosAcceptance'
-> Maybe Text
postAccountsRequestBodySettings'CardIssuing'TosAcceptance'UserAgent PostAccountsRequestBodySettings'CardIssuing'TosAcceptance'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: [Pair]
forall a. Monoid a => a
GHC.Base.mempty)
  toEncoding :: PostAccountsRequestBodySettings'CardIssuing'TosAcceptance'
-> Encoding
toEncoding PostAccountsRequestBodySettings'CardIssuing'TosAcceptance'
obj = Series -> Encoding
Data.Aeson.Encoding.Internal.pairs ((Text
"date" Text -> Maybe Int -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodySettings'CardIssuing'TosAcceptance'
-> Maybe Int
postAccountsRequestBodySettings'CardIssuing'TosAcceptance'Date PostAccountsRequestBodySettings'CardIssuing'TosAcceptance'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"ip" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodySettings'CardIssuing'TosAcceptance'
-> Maybe Text
postAccountsRequestBodySettings'CardIssuing'TosAcceptance'Ip PostAccountsRequestBodySettings'CardIssuing'TosAcceptance'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> (Text
"user_agent" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodySettings'CardIssuing'TosAcceptance'
-> Maybe Text
postAccountsRequestBodySettings'CardIssuing'TosAcceptance'UserAgent PostAccountsRequestBodySettings'CardIssuing'TosAcceptance'
obj)))

instance Data.Aeson.Types.FromJSON.FromJSON PostAccountsRequestBodySettings'CardIssuing'TosAcceptance' where
  parseJSON :: Value
-> Parser
     PostAccountsRequestBodySettings'CardIssuing'TosAcceptance'
parseJSON = String
-> (Object
    -> Parser
         PostAccountsRequestBodySettings'CardIssuing'TosAcceptance')
-> Value
-> Parser
     PostAccountsRequestBodySettings'CardIssuing'TosAcceptance'
forall a. String -> (Object -> Parser a) -> Value -> Parser a
Data.Aeson.Types.FromJSON.withObject String
"PostAccountsRequestBodySettings'CardIssuing'TosAcceptance'" (\Object
obj -> (((Maybe Int
 -> Maybe Text
 -> Maybe Text
 -> PostAccountsRequestBodySettings'CardIssuing'TosAcceptance')
-> Parser
     (Maybe Int
      -> Maybe Text
      -> Maybe Text
      -> PostAccountsRequestBodySettings'CardIssuing'TosAcceptance')
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure Maybe Int
-> Maybe Text
-> Maybe Text
-> PostAccountsRequestBodySettings'CardIssuing'TosAcceptance'
PostAccountsRequestBodySettings'CardIssuing'TosAcceptance' Parser
  (Maybe Int
   -> Maybe Text
   -> Maybe Text
   -> PostAccountsRequestBodySettings'CardIssuing'TosAcceptance')
-> Parser (Maybe Int)
-> Parser
     (Maybe Text
      -> Maybe Text
      -> PostAccountsRequestBodySettings'CardIssuing'TosAcceptance')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Int)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"date")) Parser
  (Maybe Text
   -> Maybe Text
   -> PostAccountsRequestBodySettings'CardIssuing'TosAcceptance')
-> Parser (Maybe Text)
-> Parser
     (Maybe Text
      -> PostAccountsRequestBodySettings'CardIssuing'TosAcceptance')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"ip")) Parser
  (Maybe Text
   -> PostAccountsRequestBodySettings'CardIssuing'TosAcceptance')
-> Parser (Maybe Text)
-> Parser
     PostAccountsRequestBodySettings'CardIssuing'TosAcceptance'
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"user_agent"))

-- | Create a new 'PostAccountsRequestBodySettings'CardIssuing'TosAcceptance'' with all required fields.
mkPostAccountsRequestBodySettings'CardIssuing'TosAcceptance' :: PostAccountsRequestBodySettings'CardIssuing'TosAcceptance'
mkPostAccountsRequestBodySettings'CardIssuing'TosAcceptance' :: PostAccountsRequestBodySettings'CardIssuing'TosAcceptance'
mkPostAccountsRequestBodySettings'CardIssuing'TosAcceptance' =
  PostAccountsRequestBodySettings'CardIssuing'TosAcceptance' :: Maybe Int
-> Maybe Text
-> Maybe Text
-> PostAccountsRequestBodySettings'CardIssuing'TosAcceptance'
PostAccountsRequestBodySettings'CardIssuing'TosAcceptance'
    { postAccountsRequestBodySettings'CardIssuing'TosAcceptance'Date :: Maybe Int
postAccountsRequestBodySettings'CardIssuing'TosAcceptance'Date = Maybe Int
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsRequestBodySettings'CardIssuing'TosAcceptance'Ip :: Maybe Text
postAccountsRequestBodySettings'CardIssuing'TosAcceptance'Ip = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsRequestBodySettings'CardIssuing'TosAcceptance'UserAgent :: Maybe Text
postAccountsRequestBodySettings'CardIssuing'TosAcceptance'UserAgent = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing
    }

-- | Defines the object schema located at @paths.\/v1\/accounts.POST.requestBody.content.application\/x-www-form-urlencoded.schema.properties.settings.properties.card_payments@ in the specification.
data PostAccountsRequestBodySettings'CardPayments' = PostAccountsRequestBodySettings'CardPayments'
  { -- | decline_on
    PostAccountsRequestBodySettings'CardPayments'
-> Maybe PostAccountsRequestBodySettings'CardPayments'DeclineOn'
postAccountsRequestBodySettings'CardPayments'DeclineOn :: (GHC.Maybe.Maybe PostAccountsRequestBodySettings'CardPayments'DeclineOn'),
    -- | statement_descriptor_prefix
    --
    -- Constraints:
    --
    -- * Maximum length of 10
    PostAccountsRequestBodySettings'CardPayments' -> Maybe Text
postAccountsRequestBodySettings'CardPayments'StatementDescriptorPrefix :: (GHC.Maybe.Maybe Data.Text.Internal.Text)
  }
  deriving
    ( Int -> PostAccountsRequestBodySettings'CardPayments' -> ShowS
[PostAccountsRequestBodySettings'CardPayments'] -> ShowS
PostAccountsRequestBodySettings'CardPayments' -> String
(Int -> PostAccountsRequestBodySettings'CardPayments' -> ShowS)
-> (PostAccountsRequestBodySettings'CardPayments' -> String)
-> ([PostAccountsRequestBodySettings'CardPayments'] -> ShowS)
-> Show PostAccountsRequestBodySettings'CardPayments'
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PostAccountsRequestBodySettings'CardPayments'] -> ShowS
$cshowList :: [PostAccountsRequestBodySettings'CardPayments'] -> ShowS
show :: PostAccountsRequestBodySettings'CardPayments' -> String
$cshow :: PostAccountsRequestBodySettings'CardPayments' -> String
showsPrec :: Int -> PostAccountsRequestBodySettings'CardPayments' -> ShowS
$cshowsPrec :: Int -> PostAccountsRequestBodySettings'CardPayments' -> ShowS
GHC.Show.Show,
      PostAccountsRequestBodySettings'CardPayments'
-> PostAccountsRequestBodySettings'CardPayments' -> Bool
(PostAccountsRequestBodySettings'CardPayments'
 -> PostAccountsRequestBodySettings'CardPayments' -> Bool)
-> (PostAccountsRequestBodySettings'CardPayments'
    -> PostAccountsRequestBodySettings'CardPayments' -> Bool)
-> Eq PostAccountsRequestBodySettings'CardPayments'
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostAccountsRequestBodySettings'CardPayments'
-> PostAccountsRequestBodySettings'CardPayments' -> Bool
$c/= :: PostAccountsRequestBodySettings'CardPayments'
-> PostAccountsRequestBodySettings'CardPayments' -> Bool
== :: PostAccountsRequestBodySettings'CardPayments'
-> PostAccountsRequestBodySettings'CardPayments' -> Bool
$c== :: PostAccountsRequestBodySettings'CardPayments'
-> PostAccountsRequestBodySettings'CardPayments' -> Bool
GHC.Classes.Eq
    )

instance Data.Aeson.Types.ToJSON.ToJSON PostAccountsRequestBodySettings'CardPayments' where
  toJSON :: PostAccountsRequestBodySettings'CardPayments' -> Value
toJSON PostAccountsRequestBodySettings'CardPayments'
obj = [Pair] -> Value
Data.Aeson.Types.Internal.object (Text
"decline_on" Text
-> Maybe PostAccountsRequestBodySettings'CardPayments'DeclineOn'
-> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodySettings'CardPayments'
-> Maybe PostAccountsRequestBodySettings'CardPayments'DeclineOn'
postAccountsRequestBodySettings'CardPayments'DeclineOn PostAccountsRequestBodySettings'CardPayments'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"statement_descriptor_prefix" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodySettings'CardPayments' -> Maybe Text
postAccountsRequestBodySettings'CardPayments'StatementDescriptorPrefix PostAccountsRequestBodySettings'CardPayments'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: [Pair]
forall a. Monoid a => a
GHC.Base.mempty)
  toEncoding :: PostAccountsRequestBodySettings'CardPayments' -> Encoding
toEncoding PostAccountsRequestBodySettings'CardPayments'
obj = Series -> Encoding
Data.Aeson.Encoding.Internal.pairs ((Text
"decline_on" Text
-> Maybe PostAccountsRequestBodySettings'CardPayments'DeclineOn'
-> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodySettings'CardPayments'
-> Maybe PostAccountsRequestBodySettings'CardPayments'DeclineOn'
postAccountsRequestBodySettings'CardPayments'DeclineOn PostAccountsRequestBodySettings'CardPayments'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> (Text
"statement_descriptor_prefix" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodySettings'CardPayments' -> Maybe Text
postAccountsRequestBodySettings'CardPayments'StatementDescriptorPrefix PostAccountsRequestBodySettings'CardPayments'
obj))

instance Data.Aeson.Types.FromJSON.FromJSON PostAccountsRequestBodySettings'CardPayments' where
  parseJSON :: Value -> Parser PostAccountsRequestBodySettings'CardPayments'
parseJSON = String
-> (Object -> Parser PostAccountsRequestBodySettings'CardPayments')
-> Value
-> Parser PostAccountsRequestBodySettings'CardPayments'
forall a. String -> (Object -> Parser a) -> Value -> Parser a
Data.Aeson.Types.FromJSON.withObject String
"PostAccountsRequestBodySettings'CardPayments'" (\Object
obj -> ((Maybe PostAccountsRequestBodySettings'CardPayments'DeclineOn'
 -> Maybe Text -> PostAccountsRequestBodySettings'CardPayments')
-> Parser
     (Maybe PostAccountsRequestBodySettings'CardPayments'DeclineOn'
      -> Maybe Text -> PostAccountsRequestBodySettings'CardPayments')
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure Maybe PostAccountsRequestBodySettings'CardPayments'DeclineOn'
-> Maybe Text -> PostAccountsRequestBodySettings'CardPayments'
PostAccountsRequestBodySettings'CardPayments' Parser
  (Maybe PostAccountsRequestBodySettings'CardPayments'DeclineOn'
   -> Maybe Text -> PostAccountsRequestBodySettings'CardPayments')
-> Parser
     (Maybe PostAccountsRequestBodySettings'CardPayments'DeclineOn')
-> Parser
     (Maybe Text -> PostAccountsRequestBodySettings'CardPayments')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object
-> Text
-> Parser
     (Maybe PostAccountsRequestBodySettings'CardPayments'DeclineOn')
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"decline_on")) Parser
  (Maybe Text -> PostAccountsRequestBodySettings'CardPayments')
-> Parser (Maybe Text)
-> Parser PostAccountsRequestBodySettings'CardPayments'
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"statement_descriptor_prefix"))

-- | Create a new 'PostAccountsRequestBodySettings'CardPayments'' with all required fields.
mkPostAccountsRequestBodySettings'CardPayments' :: PostAccountsRequestBodySettings'CardPayments'
mkPostAccountsRequestBodySettings'CardPayments' :: PostAccountsRequestBodySettings'CardPayments'
mkPostAccountsRequestBodySettings'CardPayments' =
  PostAccountsRequestBodySettings'CardPayments' :: Maybe PostAccountsRequestBodySettings'CardPayments'DeclineOn'
-> Maybe Text -> PostAccountsRequestBodySettings'CardPayments'
PostAccountsRequestBodySettings'CardPayments'
    { postAccountsRequestBodySettings'CardPayments'DeclineOn :: Maybe PostAccountsRequestBodySettings'CardPayments'DeclineOn'
postAccountsRequestBodySettings'CardPayments'DeclineOn = Maybe PostAccountsRequestBodySettings'CardPayments'DeclineOn'
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsRequestBodySettings'CardPayments'StatementDescriptorPrefix :: Maybe Text
postAccountsRequestBodySettings'CardPayments'StatementDescriptorPrefix = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing
    }

-- | Defines the object schema located at @paths.\/v1\/accounts.POST.requestBody.content.application\/x-www-form-urlencoded.schema.properties.settings.properties.card_payments.properties.decline_on@ in the specification.
data PostAccountsRequestBodySettings'CardPayments'DeclineOn' = PostAccountsRequestBodySettings'CardPayments'DeclineOn'
  { -- | avs_failure
    PostAccountsRequestBodySettings'CardPayments'DeclineOn'
-> Maybe Bool
postAccountsRequestBodySettings'CardPayments'DeclineOn'AvsFailure :: (GHC.Maybe.Maybe GHC.Types.Bool),
    -- | cvc_failure
    PostAccountsRequestBodySettings'CardPayments'DeclineOn'
-> Maybe Bool
postAccountsRequestBodySettings'CardPayments'DeclineOn'CvcFailure :: (GHC.Maybe.Maybe GHC.Types.Bool)
  }
  deriving
    ( Int
-> PostAccountsRequestBodySettings'CardPayments'DeclineOn' -> ShowS
[PostAccountsRequestBodySettings'CardPayments'DeclineOn'] -> ShowS
PostAccountsRequestBodySettings'CardPayments'DeclineOn' -> String
(Int
 -> PostAccountsRequestBodySettings'CardPayments'DeclineOn'
 -> ShowS)
-> (PostAccountsRequestBodySettings'CardPayments'DeclineOn'
    -> String)
-> ([PostAccountsRequestBodySettings'CardPayments'DeclineOn']
    -> ShowS)
-> Show PostAccountsRequestBodySettings'CardPayments'DeclineOn'
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PostAccountsRequestBodySettings'CardPayments'DeclineOn'] -> ShowS
$cshowList :: [PostAccountsRequestBodySettings'CardPayments'DeclineOn'] -> ShowS
show :: PostAccountsRequestBodySettings'CardPayments'DeclineOn' -> String
$cshow :: PostAccountsRequestBodySettings'CardPayments'DeclineOn' -> String
showsPrec :: Int
-> PostAccountsRequestBodySettings'CardPayments'DeclineOn' -> ShowS
$cshowsPrec :: Int
-> PostAccountsRequestBodySettings'CardPayments'DeclineOn' -> ShowS
GHC.Show.Show,
      PostAccountsRequestBodySettings'CardPayments'DeclineOn'
-> PostAccountsRequestBodySettings'CardPayments'DeclineOn' -> Bool
(PostAccountsRequestBodySettings'CardPayments'DeclineOn'
 -> PostAccountsRequestBodySettings'CardPayments'DeclineOn' -> Bool)
-> (PostAccountsRequestBodySettings'CardPayments'DeclineOn'
    -> PostAccountsRequestBodySettings'CardPayments'DeclineOn' -> Bool)
-> Eq PostAccountsRequestBodySettings'CardPayments'DeclineOn'
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostAccountsRequestBodySettings'CardPayments'DeclineOn'
-> PostAccountsRequestBodySettings'CardPayments'DeclineOn' -> Bool
$c/= :: PostAccountsRequestBodySettings'CardPayments'DeclineOn'
-> PostAccountsRequestBodySettings'CardPayments'DeclineOn' -> Bool
== :: PostAccountsRequestBodySettings'CardPayments'DeclineOn'
-> PostAccountsRequestBodySettings'CardPayments'DeclineOn' -> Bool
$c== :: PostAccountsRequestBodySettings'CardPayments'DeclineOn'
-> PostAccountsRequestBodySettings'CardPayments'DeclineOn' -> Bool
GHC.Classes.Eq
    )

instance Data.Aeson.Types.ToJSON.ToJSON PostAccountsRequestBodySettings'CardPayments'DeclineOn' where
  toJSON :: PostAccountsRequestBodySettings'CardPayments'DeclineOn' -> Value
toJSON PostAccountsRequestBodySettings'CardPayments'DeclineOn'
obj = [Pair] -> Value
Data.Aeson.Types.Internal.object (Text
"avs_failure" Text -> Maybe Bool -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodySettings'CardPayments'DeclineOn'
-> Maybe Bool
postAccountsRequestBodySettings'CardPayments'DeclineOn'AvsFailure PostAccountsRequestBodySettings'CardPayments'DeclineOn'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"cvc_failure" Text -> Maybe Bool -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodySettings'CardPayments'DeclineOn'
-> Maybe Bool
postAccountsRequestBodySettings'CardPayments'DeclineOn'CvcFailure PostAccountsRequestBodySettings'CardPayments'DeclineOn'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: [Pair]
forall a. Monoid a => a
GHC.Base.mempty)
  toEncoding :: PostAccountsRequestBodySettings'CardPayments'DeclineOn' -> Encoding
toEncoding PostAccountsRequestBodySettings'CardPayments'DeclineOn'
obj = Series -> Encoding
Data.Aeson.Encoding.Internal.pairs ((Text
"avs_failure" Text -> Maybe Bool -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodySettings'CardPayments'DeclineOn'
-> Maybe Bool
postAccountsRequestBodySettings'CardPayments'DeclineOn'AvsFailure PostAccountsRequestBodySettings'CardPayments'DeclineOn'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> (Text
"cvc_failure" Text -> Maybe Bool -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodySettings'CardPayments'DeclineOn'
-> Maybe Bool
postAccountsRequestBodySettings'CardPayments'DeclineOn'CvcFailure PostAccountsRequestBodySettings'CardPayments'DeclineOn'
obj))

instance Data.Aeson.Types.FromJSON.FromJSON PostAccountsRequestBodySettings'CardPayments'DeclineOn' where
  parseJSON :: Value
-> Parser PostAccountsRequestBodySettings'CardPayments'DeclineOn'
parseJSON = String
-> (Object
    -> Parser PostAccountsRequestBodySettings'CardPayments'DeclineOn')
-> Value
-> Parser PostAccountsRequestBodySettings'CardPayments'DeclineOn'
forall a. String -> (Object -> Parser a) -> Value -> Parser a
Data.Aeson.Types.FromJSON.withObject String
"PostAccountsRequestBodySettings'CardPayments'DeclineOn'" (\Object
obj -> ((Maybe Bool
 -> Maybe Bool
 -> PostAccountsRequestBodySettings'CardPayments'DeclineOn')
-> Parser
     (Maybe Bool
      -> Maybe Bool
      -> PostAccountsRequestBodySettings'CardPayments'DeclineOn')
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure Maybe Bool
-> Maybe Bool
-> PostAccountsRequestBodySettings'CardPayments'DeclineOn'
PostAccountsRequestBodySettings'CardPayments'DeclineOn' Parser
  (Maybe Bool
   -> Maybe Bool
   -> PostAccountsRequestBodySettings'CardPayments'DeclineOn')
-> Parser (Maybe Bool)
-> Parser
     (Maybe Bool
      -> PostAccountsRequestBodySettings'CardPayments'DeclineOn')
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
"avs_failure")) Parser
  (Maybe Bool
   -> PostAccountsRequestBodySettings'CardPayments'DeclineOn')
-> Parser (Maybe Bool)
-> Parser PostAccountsRequestBodySettings'CardPayments'DeclineOn'
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
"cvc_failure"))

-- | Create a new 'PostAccountsRequestBodySettings'CardPayments'DeclineOn'' with all required fields.
mkPostAccountsRequestBodySettings'CardPayments'DeclineOn' :: PostAccountsRequestBodySettings'CardPayments'DeclineOn'
mkPostAccountsRequestBodySettings'CardPayments'DeclineOn' :: PostAccountsRequestBodySettings'CardPayments'DeclineOn'
mkPostAccountsRequestBodySettings'CardPayments'DeclineOn' =
  PostAccountsRequestBodySettings'CardPayments'DeclineOn' :: Maybe Bool
-> Maybe Bool
-> PostAccountsRequestBodySettings'CardPayments'DeclineOn'
PostAccountsRequestBodySettings'CardPayments'DeclineOn'
    { postAccountsRequestBodySettings'CardPayments'DeclineOn'AvsFailure :: Maybe Bool
postAccountsRequestBodySettings'CardPayments'DeclineOn'AvsFailure = Maybe Bool
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsRequestBodySettings'CardPayments'DeclineOn'CvcFailure :: Maybe Bool
postAccountsRequestBodySettings'CardPayments'DeclineOn'CvcFailure = Maybe Bool
forall a. Maybe a
GHC.Maybe.Nothing
    }

-- | Defines the object schema located at @paths.\/v1\/accounts.POST.requestBody.content.application\/x-www-form-urlencoded.schema.properties.settings.properties.payments@ in the specification.
data PostAccountsRequestBodySettings'Payments' = PostAccountsRequestBodySettings'Payments'
  { -- | statement_descriptor
    --
    -- Constraints:
    --
    -- * Maximum length of 22
    PostAccountsRequestBodySettings'Payments' -> Maybe Text
postAccountsRequestBodySettings'Payments'StatementDescriptor :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | statement_descriptor_kana
    --
    -- Constraints:
    --
    -- * Maximum length of 22
    PostAccountsRequestBodySettings'Payments' -> Maybe Text
postAccountsRequestBodySettings'Payments'StatementDescriptorKana :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | statement_descriptor_kanji
    --
    -- Constraints:
    --
    -- * Maximum length of 22
    PostAccountsRequestBodySettings'Payments' -> Maybe Text
postAccountsRequestBodySettings'Payments'StatementDescriptorKanji :: (GHC.Maybe.Maybe Data.Text.Internal.Text)
  }
  deriving
    ( Int -> PostAccountsRequestBodySettings'Payments' -> ShowS
[PostAccountsRequestBodySettings'Payments'] -> ShowS
PostAccountsRequestBodySettings'Payments' -> String
(Int -> PostAccountsRequestBodySettings'Payments' -> ShowS)
-> (PostAccountsRequestBodySettings'Payments' -> String)
-> ([PostAccountsRequestBodySettings'Payments'] -> ShowS)
-> Show PostAccountsRequestBodySettings'Payments'
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PostAccountsRequestBodySettings'Payments'] -> ShowS
$cshowList :: [PostAccountsRequestBodySettings'Payments'] -> ShowS
show :: PostAccountsRequestBodySettings'Payments' -> String
$cshow :: PostAccountsRequestBodySettings'Payments' -> String
showsPrec :: Int -> PostAccountsRequestBodySettings'Payments' -> ShowS
$cshowsPrec :: Int -> PostAccountsRequestBodySettings'Payments' -> ShowS
GHC.Show.Show,
      PostAccountsRequestBodySettings'Payments'
-> PostAccountsRequestBodySettings'Payments' -> Bool
(PostAccountsRequestBodySettings'Payments'
 -> PostAccountsRequestBodySettings'Payments' -> Bool)
-> (PostAccountsRequestBodySettings'Payments'
    -> PostAccountsRequestBodySettings'Payments' -> Bool)
-> Eq PostAccountsRequestBodySettings'Payments'
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostAccountsRequestBodySettings'Payments'
-> PostAccountsRequestBodySettings'Payments' -> Bool
$c/= :: PostAccountsRequestBodySettings'Payments'
-> PostAccountsRequestBodySettings'Payments' -> Bool
== :: PostAccountsRequestBodySettings'Payments'
-> PostAccountsRequestBodySettings'Payments' -> Bool
$c== :: PostAccountsRequestBodySettings'Payments'
-> PostAccountsRequestBodySettings'Payments' -> Bool
GHC.Classes.Eq
    )

instance Data.Aeson.Types.ToJSON.ToJSON PostAccountsRequestBodySettings'Payments' where
  toJSON :: PostAccountsRequestBodySettings'Payments' -> Value
toJSON PostAccountsRequestBodySettings'Payments'
obj = [Pair] -> Value
Data.Aeson.Types.Internal.object (Text
"statement_descriptor" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodySettings'Payments' -> Maybe Text
postAccountsRequestBodySettings'Payments'StatementDescriptor PostAccountsRequestBodySettings'Payments'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"statement_descriptor_kana" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodySettings'Payments' -> Maybe Text
postAccountsRequestBodySettings'Payments'StatementDescriptorKana PostAccountsRequestBodySettings'Payments'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"statement_descriptor_kanji" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodySettings'Payments' -> Maybe Text
postAccountsRequestBodySettings'Payments'StatementDescriptorKanji PostAccountsRequestBodySettings'Payments'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: [Pair]
forall a. Monoid a => a
GHC.Base.mempty)
  toEncoding :: PostAccountsRequestBodySettings'Payments' -> Encoding
toEncoding PostAccountsRequestBodySettings'Payments'
obj = Series -> Encoding
Data.Aeson.Encoding.Internal.pairs ((Text
"statement_descriptor" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodySettings'Payments' -> Maybe Text
postAccountsRequestBodySettings'Payments'StatementDescriptor PostAccountsRequestBodySettings'Payments'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"statement_descriptor_kana" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodySettings'Payments' -> Maybe Text
postAccountsRequestBodySettings'Payments'StatementDescriptorKana PostAccountsRequestBodySettings'Payments'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> (Text
"statement_descriptor_kanji" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodySettings'Payments' -> Maybe Text
postAccountsRequestBodySettings'Payments'StatementDescriptorKanji PostAccountsRequestBodySettings'Payments'
obj)))

instance Data.Aeson.Types.FromJSON.FromJSON PostAccountsRequestBodySettings'Payments' where
  parseJSON :: Value -> Parser PostAccountsRequestBodySettings'Payments'
parseJSON = String
-> (Object -> Parser PostAccountsRequestBodySettings'Payments')
-> Value
-> Parser PostAccountsRequestBodySettings'Payments'
forall a. String -> (Object -> Parser a) -> Value -> Parser a
Data.Aeson.Types.FromJSON.withObject String
"PostAccountsRequestBodySettings'Payments'" (\Object
obj -> (((Maybe Text
 -> Maybe Text
 -> Maybe Text
 -> PostAccountsRequestBodySettings'Payments')
-> Parser
     (Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> PostAccountsRequestBodySettings'Payments')
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure Maybe Text
-> Maybe Text
-> Maybe Text
-> PostAccountsRequestBodySettings'Payments'
PostAccountsRequestBodySettings'Payments' Parser
  (Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> PostAccountsRequestBodySettings'Payments')
-> Parser (Maybe Text)
-> Parser
     (Maybe Text
      -> Maybe Text -> PostAccountsRequestBodySettings'Payments')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"statement_descriptor")) Parser
  (Maybe Text
   -> Maybe Text -> PostAccountsRequestBodySettings'Payments')
-> Parser (Maybe Text)
-> Parser (Maybe Text -> PostAccountsRequestBodySettings'Payments')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"statement_descriptor_kana")) Parser (Maybe Text -> PostAccountsRequestBodySettings'Payments')
-> Parser (Maybe Text)
-> Parser PostAccountsRequestBodySettings'Payments'
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"statement_descriptor_kanji"))

-- | Create a new 'PostAccountsRequestBodySettings'Payments'' with all required fields.
mkPostAccountsRequestBodySettings'Payments' :: PostAccountsRequestBodySettings'Payments'
mkPostAccountsRequestBodySettings'Payments' :: PostAccountsRequestBodySettings'Payments'
mkPostAccountsRequestBodySettings'Payments' =
  PostAccountsRequestBodySettings'Payments' :: Maybe Text
-> Maybe Text
-> Maybe Text
-> PostAccountsRequestBodySettings'Payments'
PostAccountsRequestBodySettings'Payments'
    { postAccountsRequestBodySettings'Payments'StatementDescriptor :: Maybe Text
postAccountsRequestBodySettings'Payments'StatementDescriptor = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsRequestBodySettings'Payments'StatementDescriptorKana :: Maybe Text
postAccountsRequestBodySettings'Payments'StatementDescriptorKana = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsRequestBodySettings'Payments'StatementDescriptorKanji :: Maybe Text
postAccountsRequestBodySettings'Payments'StatementDescriptorKanji = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing
    }

-- | Defines the object schema located at @paths.\/v1\/accounts.POST.requestBody.content.application\/x-www-form-urlencoded.schema.properties.settings.properties.payouts@ in the specification.
data PostAccountsRequestBodySettings'Payouts' = PostAccountsRequestBodySettings'Payouts'
  { -- | debit_negative_balances
    PostAccountsRequestBodySettings'Payouts' -> Maybe Bool
postAccountsRequestBodySettings'Payouts'DebitNegativeBalances :: (GHC.Maybe.Maybe GHC.Types.Bool),
    -- | schedule
    PostAccountsRequestBodySettings'Payouts'
-> Maybe PostAccountsRequestBodySettings'Payouts'Schedule'
postAccountsRequestBodySettings'Payouts'Schedule :: (GHC.Maybe.Maybe PostAccountsRequestBodySettings'Payouts'Schedule'),
    -- | statement_descriptor
    --
    -- Constraints:
    --
    -- * Maximum length of 22
    PostAccountsRequestBodySettings'Payouts' -> Maybe Text
postAccountsRequestBodySettings'Payouts'StatementDescriptor :: (GHC.Maybe.Maybe Data.Text.Internal.Text)
  }
  deriving
    ( Int -> PostAccountsRequestBodySettings'Payouts' -> ShowS
[PostAccountsRequestBodySettings'Payouts'] -> ShowS
PostAccountsRequestBodySettings'Payouts' -> String
(Int -> PostAccountsRequestBodySettings'Payouts' -> ShowS)
-> (PostAccountsRequestBodySettings'Payouts' -> String)
-> ([PostAccountsRequestBodySettings'Payouts'] -> ShowS)
-> Show PostAccountsRequestBodySettings'Payouts'
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PostAccountsRequestBodySettings'Payouts'] -> ShowS
$cshowList :: [PostAccountsRequestBodySettings'Payouts'] -> ShowS
show :: PostAccountsRequestBodySettings'Payouts' -> String
$cshow :: PostAccountsRequestBodySettings'Payouts' -> String
showsPrec :: Int -> PostAccountsRequestBodySettings'Payouts' -> ShowS
$cshowsPrec :: Int -> PostAccountsRequestBodySettings'Payouts' -> ShowS
GHC.Show.Show,
      PostAccountsRequestBodySettings'Payouts'
-> PostAccountsRequestBodySettings'Payouts' -> Bool
(PostAccountsRequestBodySettings'Payouts'
 -> PostAccountsRequestBodySettings'Payouts' -> Bool)
-> (PostAccountsRequestBodySettings'Payouts'
    -> PostAccountsRequestBodySettings'Payouts' -> Bool)
-> Eq PostAccountsRequestBodySettings'Payouts'
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostAccountsRequestBodySettings'Payouts'
-> PostAccountsRequestBodySettings'Payouts' -> Bool
$c/= :: PostAccountsRequestBodySettings'Payouts'
-> PostAccountsRequestBodySettings'Payouts' -> Bool
== :: PostAccountsRequestBodySettings'Payouts'
-> PostAccountsRequestBodySettings'Payouts' -> Bool
$c== :: PostAccountsRequestBodySettings'Payouts'
-> PostAccountsRequestBodySettings'Payouts' -> Bool
GHC.Classes.Eq
    )

instance Data.Aeson.Types.ToJSON.ToJSON PostAccountsRequestBodySettings'Payouts' where
  toJSON :: PostAccountsRequestBodySettings'Payouts' -> Value
toJSON PostAccountsRequestBodySettings'Payouts'
obj = [Pair] -> Value
Data.Aeson.Types.Internal.object (Text
"debit_negative_balances" Text -> Maybe Bool -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodySettings'Payouts' -> Maybe Bool
postAccountsRequestBodySettings'Payouts'DebitNegativeBalances PostAccountsRequestBodySettings'Payouts'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"schedule" Text
-> Maybe PostAccountsRequestBodySettings'Payouts'Schedule' -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodySettings'Payouts'
-> Maybe PostAccountsRequestBodySettings'Payouts'Schedule'
postAccountsRequestBodySettings'Payouts'Schedule PostAccountsRequestBodySettings'Payouts'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"statement_descriptor" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodySettings'Payouts' -> Maybe Text
postAccountsRequestBodySettings'Payouts'StatementDescriptor PostAccountsRequestBodySettings'Payouts'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: [Pair]
forall a. Monoid a => a
GHC.Base.mempty)
  toEncoding :: PostAccountsRequestBodySettings'Payouts' -> Encoding
toEncoding PostAccountsRequestBodySettings'Payouts'
obj = Series -> Encoding
Data.Aeson.Encoding.Internal.pairs ((Text
"debit_negative_balances" Text -> Maybe Bool -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodySettings'Payouts' -> Maybe Bool
postAccountsRequestBodySettings'Payouts'DebitNegativeBalances PostAccountsRequestBodySettings'Payouts'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"schedule" Text
-> Maybe PostAccountsRequestBodySettings'Payouts'Schedule'
-> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodySettings'Payouts'
-> Maybe PostAccountsRequestBodySettings'Payouts'Schedule'
postAccountsRequestBodySettings'Payouts'Schedule PostAccountsRequestBodySettings'Payouts'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> (Text
"statement_descriptor" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodySettings'Payouts' -> Maybe Text
postAccountsRequestBodySettings'Payouts'StatementDescriptor PostAccountsRequestBodySettings'Payouts'
obj)))

instance Data.Aeson.Types.FromJSON.FromJSON PostAccountsRequestBodySettings'Payouts' where
  parseJSON :: Value -> Parser PostAccountsRequestBodySettings'Payouts'
parseJSON = String
-> (Object -> Parser PostAccountsRequestBodySettings'Payouts')
-> Value
-> Parser PostAccountsRequestBodySettings'Payouts'
forall a. String -> (Object -> Parser a) -> Value -> Parser a
Data.Aeson.Types.FromJSON.withObject String
"PostAccountsRequestBodySettings'Payouts'" (\Object
obj -> (((Maybe Bool
 -> Maybe PostAccountsRequestBodySettings'Payouts'Schedule'
 -> Maybe Text
 -> PostAccountsRequestBodySettings'Payouts')
-> Parser
     (Maybe Bool
      -> Maybe PostAccountsRequestBodySettings'Payouts'Schedule'
      -> Maybe Text
      -> PostAccountsRequestBodySettings'Payouts')
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure Maybe Bool
-> Maybe PostAccountsRequestBodySettings'Payouts'Schedule'
-> Maybe Text
-> PostAccountsRequestBodySettings'Payouts'
PostAccountsRequestBodySettings'Payouts' Parser
  (Maybe Bool
   -> Maybe PostAccountsRequestBodySettings'Payouts'Schedule'
   -> Maybe Text
   -> PostAccountsRequestBodySettings'Payouts')
-> Parser (Maybe Bool)
-> Parser
     (Maybe PostAccountsRequestBodySettings'Payouts'Schedule'
      -> Maybe Text -> PostAccountsRequestBodySettings'Payouts')
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
"debit_negative_balances")) Parser
  (Maybe PostAccountsRequestBodySettings'Payouts'Schedule'
   -> Maybe Text -> PostAccountsRequestBodySettings'Payouts')
-> Parser (Maybe PostAccountsRequestBodySettings'Payouts'Schedule')
-> Parser (Maybe Text -> PostAccountsRequestBodySettings'Payouts')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object
-> Text
-> Parser (Maybe PostAccountsRequestBodySettings'Payouts'Schedule')
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"schedule")) Parser (Maybe Text -> PostAccountsRequestBodySettings'Payouts')
-> Parser (Maybe Text)
-> Parser PostAccountsRequestBodySettings'Payouts'
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"statement_descriptor"))

-- | Create a new 'PostAccountsRequestBodySettings'Payouts'' with all required fields.
mkPostAccountsRequestBodySettings'Payouts' :: PostAccountsRequestBodySettings'Payouts'
mkPostAccountsRequestBodySettings'Payouts' :: PostAccountsRequestBodySettings'Payouts'
mkPostAccountsRequestBodySettings'Payouts' =
  PostAccountsRequestBodySettings'Payouts' :: Maybe Bool
-> Maybe PostAccountsRequestBodySettings'Payouts'Schedule'
-> Maybe Text
-> PostAccountsRequestBodySettings'Payouts'
PostAccountsRequestBodySettings'Payouts'
    { postAccountsRequestBodySettings'Payouts'DebitNegativeBalances :: Maybe Bool
postAccountsRequestBodySettings'Payouts'DebitNegativeBalances = Maybe Bool
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsRequestBodySettings'Payouts'Schedule :: Maybe PostAccountsRequestBodySettings'Payouts'Schedule'
postAccountsRequestBodySettings'Payouts'Schedule = Maybe PostAccountsRequestBodySettings'Payouts'Schedule'
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsRequestBodySettings'Payouts'StatementDescriptor :: Maybe Text
postAccountsRequestBodySettings'Payouts'StatementDescriptor = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing
    }

-- | Defines the object schema located at @paths.\/v1\/accounts.POST.requestBody.content.application\/x-www-form-urlencoded.schema.properties.settings.properties.payouts.properties.schedule@ in the specification.
data PostAccountsRequestBodySettings'Payouts'Schedule' = PostAccountsRequestBodySettings'Payouts'Schedule'
  { -- | delay_days
    PostAccountsRequestBodySettings'Payouts'Schedule'
-> Maybe
     PostAccountsRequestBodySettings'Payouts'Schedule'DelayDays'Variants
postAccountsRequestBodySettings'Payouts'Schedule'DelayDays :: (GHC.Maybe.Maybe PostAccountsRequestBodySettings'Payouts'Schedule'DelayDays'Variants),
    -- | interval
    --
    -- Constraints:
    --
    -- * Maximum length of 5000
    PostAccountsRequestBodySettings'Payouts'Schedule'
-> Maybe PostAccountsRequestBodySettings'Payouts'Schedule'Interval'
postAccountsRequestBodySettings'Payouts'Schedule'Interval :: (GHC.Maybe.Maybe PostAccountsRequestBodySettings'Payouts'Schedule'Interval'),
    -- | monthly_anchor
    PostAccountsRequestBodySettings'Payouts'Schedule' -> Maybe Int
postAccountsRequestBodySettings'Payouts'Schedule'MonthlyAnchor :: (GHC.Maybe.Maybe GHC.Types.Int),
    -- | weekly_anchor
    --
    -- Constraints:
    --
    -- * Maximum length of 5000
    PostAccountsRequestBodySettings'Payouts'Schedule'
-> Maybe
     PostAccountsRequestBodySettings'Payouts'Schedule'WeeklyAnchor'
postAccountsRequestBodySettings'Payouts'Schedule'WeeklyAnchor :: (GHC.Maybe.Maybe PostAccountsRequestBodySettings'Payouts'Schedule'WeeklyAnchor')
  }
  deriving
    ( Int -> PostAccountsRequestBodySettings'Payouts'Schedule' -> ShowS
[PostAccountsRequestBodySettings'Payouts'Schedule'] -> ShowS
PostAccountsRequestBodySettings'Payouts'Schedule' -> String
(Int -> PostAccountsRequestBodySettings'Payouts'Schedule' -> ShowS)
-> (PostAccountsRequestBodySettings'Payouts'Schedule' -> String)
-> ([PostAccountsRequestBodySettings'Payouts'Schedule'] -> ShowS)
-> Show PostAccountsRequestBodySettings'Payouts'Schedule'
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PostAccountsRequestBodySettings'Payouts'Schedule'] -> ShowS
$cshowList :: [PostAccountsRequestBodySettings'Payouts'Schedule'] -> ShowS
show :: PostAccountsRequestBodySettings'Payouts'Schedule' -> String
$cshow :: PostAccountsRequestBodySettings'Payouts'Schedule' -> String
showsPrec :: Int -> PostAccountsRequestBodySettings'Payouts'Schedule' -> ShowS
$cshowsPrec :: Int -> PostAccountsRequestBodySettings'Payouts'Schedule' -> ShowS
GHC.Show.Show,
      PostAccountsRequestBodySettings'Payouts'Schedule'
-> PostAccountsRequestBodySettings'Payouts'Schedule' -> Bool
(PostAccountsRequestBodySettings'Payouts'Schedule'
 -> PostAccountsRequestBodySettings'Payouts'Schedule' -> Bool)
-> (PostAccountsRequestBodySettings'Payouts'Schedule'
    -> PostAccountsRequestBodySettings'Payouts'Schedule' -> Bool)
-> Eq PostAccountsRequestBodySettings'Payouts'Schedule'
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostAccountsRequestBodySettings'Payouts'Schedule'
-> PostAccountsRequestBodySettings'Payouts'Schedule' -> Bool
$c/= :: PostAccountsRequestBodySettings'Payouts'Schedule'
-> PostAccountsRequestBodySettings'Payouts'Schedule' -> Bool
== :: PostAccountsRequestBodySettings'Payouts'Schedule'
-> PostAccountsRequestBodySettings'Payouts'Schedule' -> Bool
$c== :: PostAccountsRequestBodySettings'Payouts'Schedule'
-> PostAccountsRequestBodySettings'Payouts'Schedule' -> Bool
GHC.Classes.Eq
    )

instance Data.Aeson.Types.ToJSON.ToJSON PostAccountsRequestBodySettings'Payouts'Schedule' where
  toJSON :: PostAccountsRequestBodySettings'Payouts'Schedule' -> Value
toJSON PostAccountsRequestBodySettings'Payouts'Schedule'
obj = [Pair] -> Value
Data.Aeson.Types.Internal.object (Text
"delay_days" Text
-> Maybe
     PostAccountsRequestBodySettings'Payouts'Schedule'DelayDays'Variants
-> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodySettings'Payouts'Schedule'
-> Maybe
     PostAccountsRequestBodySettings'Payouts'Schedule'DelayDays'Variants
postAccountsRequestBodySettings'Payouts'Schedule'DelayDays PostAccountsRequestBodySettings'Payouts'Schedule'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"interval" Text
-> Maybe PostAccountsRequestBodySettings'Payouts'Schedule'Interval'
-> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodySettings'Payouts'Schedule'
-> Maybe PostAccountsRequestBodySettings'Payouts'Schedule'Interval'
postAccountsRequestBodySettings'Payouts'Schedule'Interval PostAccountsRequestBodySettings'Payouts'Schedule'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"monthly_anchor" Text -> Maybe Int -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodySettings'Payouts'Schedule' -> Maybe Int
postAccountsRequestBodySettings'Payouts'Schedule'MonthlyAnchor PostAccountsRequestBodySettings'Payouts'Schedule'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"weekly_anchor" Text
-> Maybe
     PostAccountsRequestBodySettings'Payouts'Schedule'WeeklyAnchor'
-> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodySettings'Payouts'Schedule'
-> Maybe
     PostAccountsRequestBodySettings'Payouts'Schedule'WeeklyAnchor'
postAccountsRequestBodySettings'Payouts'Schedule'WeeklyAnchor PostAccountsRequestBodySettings'Payouts'Schedule'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: [Pair]
forall a. Monoid a => a
GHC.Base.mempty)
  toEncoding :: PostAccountsRequestBodySettings'Payouts'Schedule' -> Encoding
toEncoding PostAccountsRequestBodySettings'Payouts'Schedule'
obj = Series -> Encoding
Data.Aeson.Encoding.Internal.pairs ((Text
"delay_days" Text
-> Maybe
     PostAccountsRequestBodySettings'Payouts'Schedule'DelayDays'Variants
-> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodySettings'Payouts'Schedule'
-> Maybe
     PostAccountsRequestBodySettings'Payouts'Schedule'DelayDays'Variants
postAccountsRequestBodySettings'Payouts'Schedule'DelayDays PostAccountsRequestBodySettings'Payouts'Schedule'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"interval" Text
-> Maybe PostAccountsRequestBodySettings'Payouts'Schedule'Interval'
-> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodySettings'Payouts'Schedule'
-> Maybe PostAccountsRequestBodySettings'Payouts'Schedule'Interval'
postAccountsRequestBodySettings'Payouts'Schedule'Interval PostAccountsRequestBodySettings'Payouts'Schedule'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"monthly_anchor" Text -> Maybe Int -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodySettings'Payouts'Schedule' -> Maybe Int
postAccountsRequestBodySettings'Payouts'Schedule'MonthlyAnchor PostAccountsRequestBodySettings'Payouts'Schedule'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> (Text
"weekly_anchor" Text
-> Maybe
     PostAccountsRequestBodySettings'Payouts'Schedule'WeeklyAnchor'
-> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodySettings'Payouts'Schedule'
-> Maybe
     PostAccountsRequestBodySettings'Payouts'Schedule'WeeklyAnchor'
postAccountsRequestBodySettings'Payouts'Schedule'WeeklyAnchor PostAccountsRequestBodySettings'Payouts'Schedule'
obj))))

instance Data.Aeson.Types.FromJSON.FromJSON PostAccountsRequestBodySettings'Payouts'Schedule' where
  parseJSON :: Value -> Parser PostAccountsRequestBodySettings'Payouts'Schedule'
parseJSON = String
-> (Object
    -> Parser PostAccountsRequestBodySettings'Payouts'Schedule')
-> Value
-> Parser PostAccountsRequestBodySettings'Payouts'Schedule'
forall a. String -> (Object -> Parser a) -> Value -> Parser a
Data.Aeson.Types.FromJSON.withObject String
"PostAccountsRequestBodySettings'Payouts'Schedule'" (\Object
obj -> ((((Maybe
   PostAccountsRequestBodySettings'Payouts'Schedule'DelayDays'Variants
 -> Maybe PostAccountsRequestBodySettings'Payouts'Schedule'Interval'
 -> Maybe Int
 -> Maybe
      PostAccountsRequestBodySettings'Payouts'Schedule'WeeklyAnchor'
 -> PostAccountsRequestBodySettings'Payouts'Schedule')
-> Parser
     (Maybe
        PostAccountsRequestBodySettings'Payouts'Schedule'DelayDays'Variants
      -> Maybe PostAccountsRequestBodySettings'Payouts'Schedule'Interval'
      -> Maybe Int
      -> Maybe
           PostAccountsRequestBodySettings'Payouts'Schedule'WeeklyAnchor'
      -> PostAccountsRequestBodySettings'Payouts'Schedule')
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure Maybe
  PostAccountsRequestBodySettings'Payouts'Schedule'DelayDays'Variants
-> Maybe PostAccountsRequestBodySettings'Payouts'Schedule'Interval'
-> Maybe Int
-> Maybe
     PostAccountsRequestBodySettings'Payouts'Schedule'WeeklyAnchor'
-> PostAccountsRequestBodySettings'Payouts'Schedule'
PostAccountsRequestBodySettings'Payouts'Schedule' Parser
  (Maybe
     PostAccountsRequestBodySettings'Payouts'Schedule'DelayDays'Variants
   -> Maybe PostAccountsRequestBodySettings'Payouts'Schedule'Interval'
   -> Maybe Int
   -> Maybe
        PostAccountsRequestBodySettings'Payouts'Schedule'WeeklyAnchor'
   -> PostAccountsRequestBodySettings'Payouts'Schedule')
-> Parser
     (Maybe
        PostAccountsRequestBodySettings'Payouts'Schedule'DelayDays'Variants)
-> Parser
     (Maybe PostAccountsRequestBodySettings'Payouts'Schedule'Interval'
      -> Maybe Int
      -> Maybe
           PostAccountsRequestBodySettings'Payouts'Schedule'WeeklyAnchor'
      -> PostAccountsRequestBodySettings'Payouts'Schedule')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object
-> Text
-> Parser
     (Maybe
        PostAccountsRequestBodySettings'Payouts'Schedule'DelayDays'Variants)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"delay_days")) Parser
  (Maybe PostAccountsRequestBodySettings'Payouts'Schedule'Interval'
   -> Maybe Int
   -> Maybe
        PostAccountsRequestBodySettings'Payouts'Schedule'WeeklyAnchor'
   -> PostAccountsRequestBodySettings'Payouts'Schedule')
-> Parser
     (Maybe PostAccountsRequestBodySettings'Payouts'Schedule'Interval')
-> Parser
     (Maybe Int
      -> Maybe
           PostAccountsRequestBodySettings'Payouts'Schedule'WeeklyAnchor'
      -> PostAccountsRequestBodySettings'Payouts'Schedule')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object
-> Text
-> Parser
     (Maybe PostAccountsRequestBodySettings'Payouts'Schedule'Interval')
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"interval")) Parser
  (Maybe Int
   -> Maybe
        PostAccountsRequestBodySettings'Payouts'Schedule'WeeklyAnchor'
   -> PostAccountsRequestBodySettings'Payouts'Schedule')
-> Parser (Maybe Int)
-> Parser
     (Maybe
        PostAccountsRequestBodySettings'Payouts'Schedule'WeeklyAnchor'
      -> PostAccountsRequestBodySettings'Payouts'Schedule')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Int)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"monthly_anchor")) Parser
  (Maybe
     PostAccountsRequestBodySettings'Payouts'Schedule'WeeklyAnchor'
   -> PostAccountsRequestBodySettings'Payouts'Schedule')
-> Parser
     (Maybe
        PostAccountsRequestBodySettings'Payouts'Schedule'WeeklyAnchor')
-> Parser PostAccountsRequestBodySettings'Payouts'Schedule'
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object
-> Text
-> Parser
     (Maybe
        PostAccountsRequestBodySettings'Payouts'Schedule'WeeklyAnchor')
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"weekly_anchor"))

-- | Create a new 'PostAccountsRequestBodySettings'Payouts'Schedule'' with all required fields.
mkPostAccountsRequestBodySettings'Payouts'Schedule' :: PostAccountsRequestBodySettings'Payouts'Schedule'
mkPostAccountsRequestBodySettings'Payouts'Schedule' :: PostAccountsRequestBodySettings'Payouts'Schedule'
mkPostAccountsRequestBodySettings'Payouts'Schedule' =
  PostAccountsRequestBodySettings'Payouts'Schedule' :: Maybe
  PostAccountsRequestBodySettings'Payouts'Schedule'DelayDays'Variants
-> Maybe PostAccountsRequestBodySettings'Payouts'Schedule'Interval'
-> Maybe Int
-> Maybe
     PostAccountsRequestBodySettings'Payouts'Schedule'WeeklyAnchor'
-> PostAccountsRequestBodySettings'Payouts'Schedule'
PostAccountsRequestBodySettings'Payouts'Schedule'
    { postAccountsRequestBodySettings'Payouts'Schedule'DelayDays :: Maybe
  PostAccountsRequestBodySettings'Payouts'Schedule'DelayDays'Variants
postAccountsRequestBodySettings'Payouts'Schedule'DelayDays = Maybe
  PostAccountsRequestBodySettings'Payouts'Schedule'DelayDays'Variants
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsRequestBodySettings'Payouts'Schedule'Interval :: Maybe PostAccountsRequestBodySettings'Payouts'Schedule'Interval'
postAccountsRequestBodySettings'Payouts'Schedule'Interval = Maybe PostAccountsRequestBodySettings'Payouts'Schedule'Interval'
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsRequestBodySettings'Payouts'Schedule'MonthlyAnchor :: Maybe Int
postAccountsRequestBodySettings'Payouts'Schedule'MonthlyAnchor = Maybe Int
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsRequestBodySettings'Payouts'Schedule'WeeklyAnchor :: Maybe
  PostAccountsRequestBodySettings'Payouts'Schedule'WeeklyAnchor'
postAccountsRequestBodySettings'Payouts'Schedule'WeeklyAnchor = Maybe
  PostAccountsRequestBodySettings'Payouts'Schedule'WeeklyAnchor'
forall a. Maybe a
GHC.Maybe.Nothing
    }

-- | Defines the oneOf schema located at @paths.\/v1\/accounts.POST.requestBody.content.application\/x-www-form-urlencoded.schema.properties.settings.properties.payouts.properties.schedule.properties.delay_days.anyOf@ in the specification.
data PostAccountsRequestBodySettings'Payouts'Schedule'DelayDays'Variants
  = -- | Represents the JSON value @"minimum"@
    PostAccountsRequestBodySettings'Payouts'Schedule'DelayDays'Minimum
  | PostAccountsRequestBodySettings'Payouts'Schedule'DelayDays'Int GHC.Types.Int
  deriving (Int
-> PostAccountsRequestBodySettings'Payouts'Schedule'DelayDays'Variants
-> ShowS
[PostAccountsRequestBodySettings'Payouts'Schedule'DelayDays'Variants]
-> ShowS
PostAccountsRequestBodySettings'Payouts'Schedule'DelayDays'Variants
-> String
(Int
 -> PostAccountsRequestBodySettings'Payouts'Schedule'DelayDays'Variants
 -> ShowS)
-> (PostAccountsRequestBodySettings'Payouts'Schedule'DelayDays'Variants
    -> String)
-> ([PostAccountsRequestBodySettings'Payouts'Schedule'DelayDays'Variants]
    -> ShowS)
-> Show
     PostAccountsRequestBodySettings'Payouts'Schedule'DelayDays'Variants
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PostAccountsRequestBodySettings'Payouts'Schedule'DelayDays'Variants]
-> ShowS
$cshowList :: [PostAccountsRequestBodySettings'Payouts'Schedule'DelayDays'Variants]
-> ShowS
show :: PostAccountsRequestBodySettings'Payouts'Schedule'DelayDays'Variants
-> String
$cshow :: PostAccountsRequestBodySettings'Payouts'Schedule'DelayDays'Variants
-> String
showsPrec :: Int
-> PostAccountsRequestBodySettings'Payouts'Schedule'DelayDays'Variants
-> ShowS
$cshowsPrec :: Int
-> PostAccountsRequestBodySettings'Payouts'Schedule'DelayDays'Variants
-> ShowS
GHC.Show.Show, PostAccountsRequestBodySettings'Payouts'Schedule'DelayDays'Variants
-> PostAccountsRequestBodySettings'Payouts'Schedule'DelayDays'Variants
-> Bool
(PostAccountsRequestBodySettings'Payouts'Schedule'DelayDays'Variants
 -> PostAccountsRequestBodySettings'Payouts'Schedule'DelayDays'Variants
 -> Bool)
-> (PostAccountsRequestBodySettings'Payouts'Schedule'DelayDays'Variants
    -> PostAccountsRequestBodySettings'Payouts'Schedule'DelayDays'Variants
    -> Bool)
-> Eq
     PostAccountsRequestBodySettings'Payouts'Schedule'DelayDays'Variants
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostAccountsRequestBodySettings'Payouts'Schedule'DelayDays'Variants
-> PostAccountsRequestBodySettings'Payouts'Schedule'DelayDays'Variants
-> Bool
$c/= :: PostAccountsRequestBodySettings'Payouts'Schedule'DelayDays'Variants
-> PostAccountsRequestBodySettings'Payouts'Schedule'DelayDays'Variants
-> Bool
== :: PostAccountsRequestBodySettings'Payouts'Schedule'DelayDays'Variants
-> PostAccountsRequestBodySettings'Payouts'Schedule'DelayDays'Variants
-> Bool
$c== :: PostAccountsRequestBodySettings'Payouts'Schedule'DelayDays'Variants
-> PostAccountsRequestBodySettings'Payouts'Schedule'DelayDays'Variants
-> Bool
GHC.Classes.Eq)

instance Data.Aeson.Types.ToJSON.ToJSON PostAccountsRequestBodySettings'Payouts'Schedule'DelayDays'Variants where
  toJSON :: PostAccountsRequestBodySettings'Payouts'Schedule'DelayDays'Variants
-> Value
toJSON (PostAccountsRequestBodySettings'Payouts'Schedule'DelayDays'Int Int
a) = Int -> Value
forall a. ToJSON a => a -> Value
Data.Aeson.Types.ToJSON.toJSON Int
a
  toJSON (PostAccountsRequestBodySettings'Payouts'Schedule'DelayDays'Variants
PostAccountsRequestBodySettings'Payouts'Schedule'DelayDays'Minimum) = Value
"minimum"

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

-- | Defines the enum schema located at @paths.\/v1\/accounts.POST.requestBody.content.application\/x-www-form-urlencoded.schema.properties.settings.properties.payouts.properties.schedule.properties.interval@ in the specification.
data PostAccountsRequestBodySettings'Payouts'Schedule'Interval'
  = -- | This case is used if the value encountered during decoding does not match any of the provided cases in the specification.
    PostAccountsRequestBodySettings'Payouts'Schedule'Interval'Other Data.Aeson.Types.Internal.Value
  | -- | This constructor can be used to send values to the server which are not present in the specification yet.
    PostAccountsRequestBodySettings'Payouts'Schedule'Interval'Typed Data.Text.Internal.Text
  | -- | Represents the JSON value @"daily"@
    PostAccountsRequestBodySettings'Payouts'Schedule'Interval'EnumDaily
  | -- | Represents the JSON value @"manual"@
    PostAccountsRequestBodySettings'Payouts'Schedule'Interval'EnumManual
  | -- | Represents the JSON value @"monthly"@
    PostAccountsRequestBodySettings'Payouts'Schedule'Interval'EnumMonthly
  | -- | Represents the JSON value @"weekly"@
    PostAccountsRequestBodySettings'Payouts'Schedule'Interval'EnumWeekly
  deriving (Int
-> PostAccountsRequestBodySettings'Payouts'Schedule'Interval'
-> ShowS
[PostAccountsRequestBodySettings'Payouts'Schedule'Interval']
-> ShowS
PostAccountsRequestBodySettings'Payouts'Schedule'Interval'
-> String
(Int
 -> PostAccountsRequestBodySettings'Payouts'Schedule'Interval'
 -> ShowS)
-> (PostAccountsRequestBodySettings'Payouts'Schedule'Interval'
    -> String)
-> ([PostAccountsRequestBodySettings'Payouts'Schedule'Interval']
    -> ShowS)
-> Show PostAccountsRequestBodySettings'Payouts'Schedule'Interval'
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PostAccountsRequestBodySettings'Payouts'Schedule'Interval']
-> ShowS
$cshowList :: [PostAccountsRequestBodySettings'Payouts'Schedule'Interval']
-> ShowS
show :: PostAccountsRequestBodySettings'Payouts'Schedule'Interval'
-> String
$cshow :: PostAccountsRequestBodySettings'Payouts'Schedule'Interval'
-> String
showsPrec :: Int
-> PostAccountsRequestBodySettings'Payouts'Schedule'Interval'
-> ShowS
$cshowsPrec :: Int
-> PostAccountsRequestBodySettings'Payouts'Schedule'Interval'
-> ShowS
GHC.Show.Show, PostAccountsRequestBodySettings'Payouts'Schedule'Interval'
-> PostAccountsRequestBodySettings'Payouts'Schedule'Interval'
-> Bool
(PostAccountsRequestBodySettings'Payouts'Schedule'Interval'
 -> PostAccountsRequestBodySettings'Payouts'Schedule'Interval'
 -> Bool)
-> (PostAccountsRequestBodySettings'Payouts'Schedule'Interval'
    -> PostAccountsRequestBodySettings'Payouts'Schedule'Interval'
    -> Bool)
-> Eq PostAccountsRequestBodySettings'Payouts'Schedule'Interval'
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostAccountsRequestBodySettings'Payouts'Schedule'Interval'
-> PostAccountsRequestBodySettings'Payouts'Schedule'Interval'
-> Bool
$c/= :: PostAccountsRequestBodySettings'Payouts'Schedule'Interval'
-> PostAccountsRequestBodySettings'Payouts'Schedule'Interval'
-> Bool
== :: PostAccountsRequestBodySettings'Payouts'Schedule'Interval'
-> PostAccountsRequestBodySettings'Payouts'Schedule'Interval'
-> Bool
$c== :: PostAccountsRequestBodySettings'Payouts'Schedule'Interval'
-> PostAccountsRequestBodySettings'Payouts'Schedule'Interval'
-> Bool
GHC.Classes.Eq)

instance Data.Aeson.Types.ToJSON.ToJSON PostAccountsRequestBodySettings'Payouts'Schedule'Interval' where
  toJSON :: PostAccountsRequestBodySettings'Payouts'Schedule'Interval' -> Value
toJSON (PostAccountsRequestBodySettings'Payouts'Schedule'Interval'Other Value
val) = Value
val
  toJSON (PostAccountsRequestBodySettings'Payouts'Schedule'Interval'Typed Text
val) = Text -> Value
forall a. ToJSON a => a -> Value
Data.Aeson.Types.ToJSON.toJSON Text
val
  toJSON (PostAccountsRequestBodySettings'Payouts'Schedule'Interval'
PostAccountsRequestBodySettings'Payouts'Schedule'Interval'EnumDaily) = Value
"daily"
  toJSON (PostAccountsRequestBodySettings'Payouts'Schedule'Interval'
PostAccountsRequestBodySettings'Payouts'Schedule'Interval'EnumManual) = Value
"manual"
  toJSON (PostAccountsRequestBodySettings'Payouts'Schedule'Interval'
PostAccountsRequestBodySettings'Payouts'Schedule'Interval'EnumMonthly) = Value
"monthly"
  toJSON (PostAccountsRequestBodySettings'Payouts'Schedule'Interval'
PostAccountsRequestBodySettings'Payouts'Schedule'Interval'EnumWeekly) = Value
"weekly"

instance Data.Aeson.Types.FromJSON.FromJSON PostAccountsRequestBodySettings'Payouts'Schedule'Interval' where
  parseJSON :: Value
-> Parser
     PostAccountsRequestBodySettings'Payouts'Schedule'Interval'
parseJSON Value
val =
    PostAccountsRequestBodySettings'Payouts'Schedule'Interval'
-> Parser
     PostAccountsRequestBodySettings'Payouts'Schedule'Interval'
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure
      ( if
            | Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"daily" -> PostAccountsRequestBodySettings'Payouts'Schedule'Interval'
PostAccountsRequestBodySettings'Payouts'Schedule'Interval'EnumDaily
            | Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"manual" -> PostAccountsRequestBodySettings'Payouts'Schedule'Interval'
PostAccountsRequestBodySettings'Payouts'Schedule'Interval'EnumManual
            | Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"monthly" -> PostAccountsRequestBodySettings'Payouts'Schedule'Interval'
PostAccountsRequestBodySettings'Payouts'Schedule'Interval'EnumMonthly
            | Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"weekly" -> PostAccountsRequestBodySettings'Payouts'Schedule'Interval'
PostAccountsRequestBodySettings'Payouts'Schedule'Interval'EnumWeekly
            | Bool
GHC.Base.otherwise -> Value -> PostAccountsRequestBodySettings'Payouts'Schedule'Interval'
PostAccountsRequestBodySettings'Payouts'Schedule'Interval'Other Value
val
      )

-- | Defines the enum schema located at @paths.\/v1\/accounts.POST.requestBody.content.application\/x-www-form-urlencoded.schema.properties.settings.properties.payouts.properties.schedule.properties.weekly_anchor@ in the specification.
data PostAccountsRequestBodySettings'Payouts'Schedule'WeeklyAnchor'
  = -- | This case is used if the value encountered during decoding does not match any of the provided cases in the specification.
    PostAccountsRequestBodySettings'Payouts'Schedule'WeeklyAnchor'Other Data.Aeson.Types.Internal.Value
  | -- | This constructor can be used to send values to the server which are not present in the specification yet.
    PostAccountsRequestBodySettings'Payouts'Schedule'WeeklyAnchor'Typed Data.Text.Internal.Text
  | -- | Represents the JSON value @"friday"@
    PostAccountsRequestBodySettings'Payouts'Schedule'WeeklyAnchor'EnumFriday
  | -- | Represents the JSON value @"monday"@
    PostAccountsRequestBodySettings'Payouts'Schedule'WeeklyAnchor'EnumMonday
  | -- | Represents the JSON value @"saturday"@
    PostAccountsRequestBodySettings'Payouts'Schedule'WeeklyAnchor'EnumSaturday
  | -- | Represents the JSON value @"sunday"@
    PostAccountsRequestBodySettings'Payouts'Schedule'WeeklyAnchor'EnumSunday
  | -- | Represents the JSON value @"thursday"@
    PostAccountsRequestBodySettings'Payouts'Schedule'WeeklyAnchor'EnumThursday
  | -- | Represents the JSON value @"tuesday"@
    PostAccountsRequestBodySettings'Payouts'Schedule'WeeklyAnchor'EnumTuesday
  | -- | Represents the JSON value @"wednesday"@
    PostAccountsRequestBodySettings'Payouts'Schedule'WeeklyAnchor'EnumWednesday
  deriving (Int
-> PostAccountsRequestBodySettings'Payouts'Schedule'WeeklyAnchor'
-> ShowS
[PostAccountsRequestBodySettings'Payouts'Schedule'WeeklyAnchor']
-> ShowS
PostAccountsRequestBodySettings'Payouts'Schedule'WeeklyAnchor'
-> String
(Int
 -> PostAccountsRequestBodySettings'Payouts'Schedule'WeeklyAnchor'
 -> ShowS)
-> (PostAccountsRequestBodySettings'Payouts'Schedule'WeeklyAnchor'
    -> String)
-> ([PostAccountsRequestBodySettings'Payouts'Schedule'WeeklyAnchor']
    -> ShowS)
-> Show
     PostAccountsRequestBodySettings'Payouts'Schedule'WeeklyAnchor'
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PostAccountsRequestBodySettings'Payouts'Schedule'WeeklyAnchor']
-> ShowS
$cshowList :: [PostAccountsRequestBodySettings'Payouts'Schedule'WeeklyAnchor']
-> ShowS
show :: PostAccountsRequestBodySettings'Payouts'Schedule'WeeklyAnchor'
-> String
$cshow :: PostAccountsRequestBodySettings'Payouts'Schedule'WeeklyAnchor'
-> String
showsPrec :: Int
-> PostAccountsRequestBodySettings'Payouts'Schedule'WeeklyAnchor'
-> ShowS
$cshowsPrec :: Int
-> PostAccountsRequestBodySettings'Payouts'Schedule'WeeklyAnchor'
-> ShowS
GHC.Show.Show, PostAccountsRequestBodySettings'Payouts'Schedule'WeeklyAnchor'
-> PostAccountsRequestBodySettings'Payouts'Schedule'WeeklyAnchor'
-> Bool
(PostAccountsRequestBodySettings'Payouts'Schedule'WeeklyAnchor'
 -> PostAccountsRequestBodySettings'Payouts'Schedule'WeeklyAnchor'
 -> Bool)
-> (PostAccountsRequestBodySettings'Payouts'Schedule'WeeklyAnchor'
    -> PostAccountsRequestBodySettings'Payouts'Schedule'WeeklyAnchor'
    -> Bool)
-> Eq
     PostAccountsRequestBodySettings'Payouts'Schedule'WeeklyAnchor'
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostAccountsRequestBodySettings'Payouts'Schedule'WeeklyAnchor'
-> PostAccountsRequestBodySettings'Payouts'Schedule'WeeklyAnchor'
-> Bool
$c/= :: PostAccountsRequestBodySettings'Payouts'Schedule'WeeklyAnchor'
-> PostAccountsRequestBodySettings'Payouts'Schedule'WeeklyAnchor'
-> Bool
== :: PostAccountsRequestBodySettings'Payouts'Schedule'WeeklyAnchor'
-> PostAccountsRequestBodySettings'Payouts'Schedule'WeeklyAnchor'
-> Bool
$c== :: PostAccountsRequestBodySettings'Payouts'Schedule'WeeklyAnchor'
-> PostAccountsRequestBodySettings'Payouts'Schedule'WeeklyAnchor'
-> Bool
GHC.Classes.Eq)

instance Data.Aeson.Types.ToJSON.ToJSON PostAccountsRequestBodySettings'Payouts'Schedule'WeeklyAnchor' where
  toJSON :: PostAccountsRequestBodySettings'Payouts'Schedule'WeeklyAnchor'
-> Value
toJSON (PostAccountsRequestBodySettings'Payouts'Schedule'WeeklyAnchor'Other Value
val) = Value
val
  toJSON (PostAccountsRequestBodySettings'Payouts'Schedule'WeeklyAnchor'Typed Text
val) = Text -> Value
forall a. ToJSON a => a -> Value
Data.Aeson.Types.ToJSON.toJSON Text
val
  toJSON (PostAccountsRequestBodySettings'Payouts'Schedule'WeeklyAnchor'
PostAccountsRequestBodySettings'Payouts'Schedule'WeeklyAnchor'EnumFriday) = Value
"friday"
  toJSON (PostAccountsRequestBodySettings'Payouts'Schedule'WeeklyAnchor'
PostAccountsRequestBodySettings'Payouts'Schedule'WeeklyAnchor'EnumMonday) = Value
"monday"
  toJSON (PostAccountsRequestBodySettings'Payouts'Schedule'WeeklyAnchor'
PostAccountsRequestBodySettings'Payouts'Schedule'WeeklyAnchor'EnumSaturday) = Value
"saturday"
  toJSON (PostAccountsRequestBodySettings'Payouts'Schedule'WeeklyAnchor'
PostAccountsRequestBodySettings'Payouts'Schedule'WeeklyAnchor'EnumSunday) = Value
"sunday"
  toJSON (PostAccountsRequestBodySettings'Payouts'Schedule'WeeklyAnchor'
PostAccountsRequestBodySettings'Payouts'Schedule'WeeklyAnchor'EnumThursday) = Value
"thursday"
  toJSON (PostAccountsRequestBodySettings'Payouts'Schedule'WeeklyAnchor'
PostAccountsRequestBodySettings'Payouts'Schedule'WeeklyAnchor'EnumTuesday) = Value
"tuesday"
  toJSON (PostAccountsRequestBodySettings'Payouts'Schedule'WeeklyAnchor'
PostAccountsRequestBodySettings'Payouts'Schedule'WeeklyAnchor'EnumWednesday) = Value
"wednesday"

instance Data.Aeson.Types.FromJSON.FromJSON PostAccountsRequestBodySettings'Payouts'Schedule'WeeklyAnchor' where
  parseJSON :: Value
-> Parser
     PostAccountsRequestBodySettings'Payouts'Schedule'WeeklyAnchor'
parseJSON Value
val =
    PostAccountsRequestBodySettings'Payouts'Schedule'WeeklyAnchor'
-> Parser
     PostAccountsRequestBodySettings'Payouts'Schedule'WeeklyAnchor'
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure
      ( if
            | Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"friday" -> PostAccountsRequestBodySettings'Payouts'Schedule'WeeklyAnchor'
PostAccountsRequestBodySettings'Payouts'Schedule'WeeklyAnchor'EnumFriday
            | Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"monday" -> PostAccountsRequestBodySettings'Payouts'Schedule'WeeklyAnchor'
PostAccountsRequestBodySettings'Payouts'Schedule'WeeklyAnchor'EnumMonday
            | Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"saturday" -> PostAccountsRequestBodySettings'Payouts'Schedule'WeeklyAnchor'
PostAccountsRequestBodySettings'Payouts'Schedule'WeeklyAnchor'EnumSaturday
            | Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"sunday" -> PostAccountsRequestBodySettings'Payouts'Schedule'WeeklyAnchor'
PostAccountsRequestBodySettings'Payouts'Schedule'WeeklyAnchor'EnumSunday
            | Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"thursday" -> PostAccountsRequestBodySettings'Payouts'Schedule'WeeklyAnchor'
PostAccountsRequestBodySettings'Payouts'Schedule'WeeklyAnchor'EnumThursday
            | Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"tuesday" -> PostAccountsRequestBodySettings'Payouts'Schedule'WeeklyAnchor'
PostAccountsRequestBodySettings'Payouts'Schedule'WeeklyAnchor'EnumTuesday
            | Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"wednesday" -> PostAccountsRequestBodySettings'Payouts'Schedule'WeeklyAnchor'
PostAccountsRequestBodySettings'Payouts'Schedule'WeeklyAnchor'EnumWednesday
            | Bool
GHC.Base.otherwise -> Value
-> PostAccountsRequestBodySettings'Payouts'Schedule'WeeklyAnchor'
PostAccountsRequestBodySettings'Payouts'Schedule'WeeklyAnchor'Other Value
val
      )

-- | Defines the object schema located at @paths.\/v1\/accounts.POST.requestBody.content.application\/x-www-form-urlencoded.schema.properties.tos_acceptance@ in the specification.
--
-- Details on the account\'s acceptance of the [Stripe Services Agreement](https:\/\/stripe.com\/docs\/connect\/updating-accounts\#tos-acceptance).
data PostAccountsRequestBodyTosAcceptance' = PostAccountsRequestBodyTosAcceptance'
  { -- | date
    PostAccountsRequestBodyTosAcceptance' -> Maybe Int
postAccountsRequestBodyTosAcceptance'Date :: (GHC.Maybe.Maybe GHC.Types.Int),
    -- | ip
    PostAccountsRequestBodyTosAcceptance' -> Maybe Text
postAccountsRequestBodyTosAcceptance'Ip :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | service_agreement
    --
    -- Constraints:
    --
    -- * Maximum length of 5000
    PostAccountsRequestBodyTosAcceptance' -> Maybe Text
postAccountsRequestBodyTosAcceptance'ServiceAgreement :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | user_agent
    --
    -- Constraints:
    --
    -- * Maximum length of 5000
    PostAccountsRequestBodyTosAcceptance' -> Maybe Text
postAccountsRequestBodyTosAcceptance'UserAgent :: (GHC.Maybe.Maybe Data.Text.Internal.Text)
  }
  deriving
    ( Int -> PostAccountsRequestBodyTosAcceptance' -> ShowS
[PostAccountsRequestBodyTosAcceptance'] -> ShowS
PostAccountsRequestBodyTosAcceptance' -> String
(Int -> PostAccountsRequestBodyTosAcceptance' -> ShowS)
-> (PostAccountsRequestBodyTosAcceptance' -> String)
-> ([PostAccountsRequestBodyTosAcceptance'] -> ShowS)
-> Show PostAccountsRequestBodyTosAcceptance'
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PostAccountsRequestBodyTosAcceptance'] -> ShowS
$cshowList :: [PostAccountsRequestBodyTosAcceptance'] -> ShowS
show :: PostAccountsRequestBodyTosAcceptance' -> String
$cshow :: PostAccountsRequestBodyTosAcceptance' -> String
showsPrec :: Int -> PostAccountsRequestBodyTosAcceptance' -> ShowS
$cshowsPrec :: Int -> PostAccountsRequestBodyTosAcceptance' -> ShowS
GHC.Show.Show,
      PostAccountsRequestBodyTosAcceptance'
-> PostAccountsRequestBodyTosAcceptance' -> Bool
(PostAccountsRequestBodyTosAcceptance'
 -> PostAccountsRequestBodyTosAcceptance' -> Bool)
-> (PostAccountsRequestBodyTosAcceptance'
    -> PostAccountsRequestBodyTosAcceptance' -> Bool)
-> Eq PostAccountsRequestBodyTosAcceptance'
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostAccountsRequestBodyTosAcceptance'
-> PostAccountsRequestBodyTosAcceptance' -> Bool
$c/= :: PostAccountsRequestBodyTosAcceptance'
-> PostAccountsRequestBodyTosAcceptance' -> Bool
== :: PostAccountsRequestBodyTosAcceptance'
-> PostAccountsRequestBodyTosAcceptance' -> Bool
$c== :: PostAccountsRequestBodyTosAcceptance'
-> PostAccountsRequestBodyTosAcceptance' -> Bool
GHC.Classes.Eq
    )

instance Data.Aeson.Types.ToJSON.ToJSON PostAccountsRequestBodyTosAcceptance' where
  toJSON :: PostAccountsRequestBodyTosAcceptance' -> Value
toJSON PostAccountsRequestBodyTosAcceptance'
obj = [Pair] -> Value
Data.Aeson.Types.Internal.object (Text
"date" Text -> Maybe Int -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyTosAcceptance' -> Maybe Int
postAccountsRequestBodyTosAcceptance'Date PostAccountsRequestBodyTosAcceptance'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"ip" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyTosAcceptance' -> Maybe Text
postAccountsRequestBodyTosAcceptance'Ip PostAccountsRequestBodyTosAcceptance'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"service_agreement" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyTosAcceptance' -> Maybe Text
postAccountsRequestBodyTosAcceptance'ServiceAgreement PostAccountsRequestBodyTosAcceptance'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"user_agent" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyTosAcceptance' -> Maybe Text
postAccountsRequestBodyTosAcceptance'UserAgent PostAccountsRequestBodyTosAcceptance'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: [Pair]
forall a. Monoid a => a
GHC.Base.mempty)
  toEncoding :: PostAccountsRequestBodyTosAcceptance' -> Encoding
toEncoding PostAccountsRequestBodyTosAcceptance'
obj = Series -> Encoding
Data.Aeson.Encoding.Internal.pairs ((Text
"date" Text -> Maybe Int -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyTosAcceptance' -> Maybe Int
postAccountsRequestBodyTosAcceptance'Date PostAccountsRequestBodyTosAcceptance'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"ip" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyTosAcceptance' -> Maybe Text
postAccountsRequestBodyTosAcceptance'Ip PostAccountsRequestBodyTosAcceptance'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"service_agreement" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyTosAcceptance' -> Maybe Text
postAccountsRequestBodyTosAcceptance'ServiceAgreement PostAccountsRequestBodyTosAcceptance'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> (Text
"user_agent" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsRequestBodyTosAcceptance' -> Maybe Text
postAccountsRequestBodyTosAcceptance'UserAgent PostAccountsRequestBodyTosAcceptance'
obj))))

instance Data.Aeson.Types.FromJSON.FromJSON PostAccountsRequestBodyTosAcceptance' where
  parseJSON :: Value -> Parser PostAccountsRequestBodyTosAcceptance'
parseJSON = String
-> (Object -> Parser PostAccountsRequestBodyTosAcceptance')
-> Value
-> Parser PostAccountsRequestBodyTosAcceptance'
forall a. String -> (Object -> Parser a) -> Value -> Parser a
Data.Aeson.Types.FromJSON.withObject String
"PostAccountsRequestBodyTosAcceptance'" (\Object
obj -> ((((Maybe Int
 -> Maybe Text
 -> Maybe Text
 -> Maybe Text
 -> PostAccountsRequestBodyTosAcceptance')
-> Parser
     (Maybe Int
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> PostAccountsRequestBodyTosAcceptance')
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure Maybe Int
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> PostAccountsRequestBodyTosAcceptance'
PostAccountsRequestBodyTosAcceptance' Parser
  (Maybe Int
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> PostAccountsRequestBodyTosAcceptance')
-> Parser (Maybe Int)
-> Parser
     (Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> PostAccountsRequestBodyTosAcceptance')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Int)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"date")) Parser
  (Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> PostAccountsRequestBodyTosAcceptance')
-> Parser (Maybe Text)
-> Parser
     (Maybe Text -> Maybe Text -> PostAccountsRequestBodyTosAcceptance')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"ip")) Parser
  (Maybe Text -> Maybe Text -> PostAccountsRequestBodyTosAcceptance')
-> Parser (Maybe Text)
-> Parser (Maybe Text -> PostAccountsRequestBodyTosAcceptance')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"service_agreement")) Parser (Maybe Text -> PostAccountsRequestBodyTosAcceptance')
-> Parser (Maybe Text)
-> Parser PostAccountsRequestBodyTosAcceptance'
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"user_agent"))

-- | Create a new 'PostAccountsRequestBodyTosAcceptance'' with all required fields.
mkPostAccountsRequestBodyTosAcceptance' :: PostAccountsRequestBodyTosAcceptance'
mkPostAccountsRequestBodyTosAcceptance' :: PostAccountsRequestBodyTosAcceptance'
mkPostAccountsRequestBodyTosAcceptance' =
  PostAccountsRequestBodyTosAcceptance' :: Maybe Int
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> PostAccountsRequestBodyTosAcceptance'
PostAccountsRequestBodyTosAcceptance'
    { postAccountsRequestBodyTosAcceptance'Date :: Maybe Int
postAccountsRequestBodyTosAcceptance'Date = Maybe Int
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsRequestBodyTosAcceptance'Ip :: Maybe Text
postAccountsRequestBodyTosAcceptance'Ip = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsRequestBodyTosAcceptance'ServiceAgreement :: Maybe Text
postAccountsRequestBodyTosAcceptance'ServiceAgreement = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
      postAccountsRequestBodyTosAcceptance'UserAgent :: Maybe Text
postAccountsRequestBodyTosAcceptance'UserAgent = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing
    }

-- | Defines the enum schema located at @paths.\/v1\/accounts.POST.requestBody.content.application\/x-www-form-urlencoded.schema.properties.type@ in the specification.
--
-- The type of Stripe account to create. May be one of \`custom\`, \`express\` or \`standard\`.
data PostAccountsRequestBodyType'
  = -- | This case is used if the value encountered during decoding does not match any of the provided cases in the specification.
    PostAccountsRequestBodyType'Other Data.Aeson.Types.Internal.Value
  | -- | This constructor can be used to send values to the server which are not present in the specification yet.
    PostAccountsRequestBodyType'Typed Data.Text.Internal.Text
  | -- | Represents the JSON value @"custom"@
    PostAccountsRequestBodyType'EnumCustom
  | -- | Represents the JSON value @"express"@
    PostAccountsRequestBodyType'EnumExpress
  | -- | Represents the JSON value @"standard"@
    PostAccountsRequestBodyType'EnumStandard
  deriving (Int -> PostAccountsRequestBodyType' -> ShowS
[PostAccountsRequestBodyType'] -> ShowS
PostAccountsRequestBodyType' -> String
(Int -> PostAccountsRequestBodyType' -> ShowS)
-> (PostAccountsRequestBodyType' -> String)
-> ([PostAccountsRequestBodyType'] -> ShowS)
-> Show PostAccountsRequestBodyType'
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PostAccountsRequestBodyType'] -> ShowS
$cshowList :: [PostAccountsRequestBodyType'] -> ShowS
show :: PostAccountsRequestBodyType' -> String
$cshow :: PostAccountsRequestBodyType' -> String
showsPrec :: Int -> PostAccountsRequestBodyType' -> ShowS
$cshowsPrec :: Int -> PostAccountsRequestBodyType' -> ShowS
GHC.Show.Show, PostAccountsRequestBodyType'
-> PostAccountsRequestBodyType' -> Bool
(PostAccountsRequestBodyType'
 -> PostAccountsRequestBodyType' -> Bool)
-> (PostAccountsRequestBodyType'
    -> PostAccountsRequestBodyType' -> Bool)
-> Eq PostAccountsRequestBodyType'
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostAccountsRequestBodyType'
-> PostAccountsRequestBodyType' -> Bool
$c/= :: PostAccountsRequestBodyType'
-> PostAccountsRequestBodyType' -> Bool
== :: PostAccountsRequestBodyType'
-> PostAccountsRequestBodyType' -> Bool
$c== :: PostAccountsRequestBodyType'
-> PostAccountsRequestBodyType' -> Bool
GHC.Classes.Eq)

instance Data.Aeson.Types.ToJSON.ToJSON PostAccountsRequestBodyType' where
  toJSON :: PostAccountsRequestBodyType' -> Value
toJSON (PostAccountsRequestBodyType'Other Value
val) = Value
val
  toJSON (PostAccountsRequestBodyType'Typed Text
val) = Text -> Value
forall a. ToJSON a => a -> Value
Data.Aeson.Types.ToJSON.toJSON Text
val
  toJSON (PostAccountsRequestBodyType'
PostAccountsRequestBodyType'EnumCustom) = Value
"custom"
  toJSON (PostAccountsRequestBodyType'
PostAccountsRequestBodyType'EnumExpress) = Value
"express"
  toJSON (PostAccountsRequestBodyType'
PostAccountsRequestBodyType'EnumStandard) = Value
"standard"

instance Data.Aeson.Types.FromJSON.FromJSON PostAccountsRequestBodyType' where
  parseJSON :: Value -> Parser PostAccountsRequestBodyType'
parseJSON Value
val =
    PostAccountsRequestBodyType' -> Parser PostAccountsRequestBodyType'
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure
      ( if
            | Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"custom" -> PostAccountsRequestBodyType'
PostAccountsRequestBodyType'EnumCustom
            | Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"express" -> PostAccountsRequestBodyType'
PostAccountsRequestBodyType'EnumExpress
            | Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"standard" -> PostAccountsRequestBodyType'
PostAccountsRequestBodyType'EnumStandard
            | Bool
GHC.Base.otherwise -> Value -> PostAccountsRequestBodyType'
PostAccountsRequestBodyType'Other Value
val
      )

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