{-# LANGUAGE ExplicitForAll #-}
{-# LANGUAGE MultiWayIf #-}
{-# LANGUAGE OverloadedStrings #-}
module StripeAPI.Operations.PostAccountsAccountPeople where
import qualified Control.Monad.Fail
import qualified Control.Monad.Trans.Reader
import qualified Data.Aeson
import qualified Data.Aeson as Data.Aeson.Encoding.Internal
import qualified Data.Aeson as Data.Aeson.Types
import qualified Data.Aeson as Data.Aeson.Types.FromJSON
import qualified Data.Aeson as Data.Aeson.Types.Internal
import qualified Data.Aeson as Data.Aeson.Types.ToJSON
import qualified Data.ByteString.Char8
import qualified Data.ByteString.Char8 as Data.ByteString.Internal
import qualified Data.Either
import qualified Data.Functor
import qualified Data.Scientific
import qualified Data.Text
import qualified Data.Text.Internal
import qualified Data.Time.Calendar as Data.Time.Calendar.Days
import qualified Data.Time.LocalTime as Data.Time.LocalTime.Internal.ZonedTime
import qualified Data.Vector
import qualified GHC.Base
import qualified GHC.Classes
import qualified GHC.Int
import qualified GHC.Show
import qualified GHC.Types
import qualified Network.HTTP.Client
import qualified Network.HTTP.Client as Network.HTTP.Client.Request
import qualified Network.HTTP.Client as Network.HTTP.Client.Types
import qualified Network.HTTP.Simple
import qualified Network.HTTP.Types
import qualified Network.HTTP.Types as Network.HTTP.Types.Status
import qualified Network.HTTP.Types as Network.HTTP.Types.URI
import qualified StripeAPI.Common
import StripeAPI.Types
import qualified Prelude as GHC.Integer.Type
import qualified Prelude as GHC.Maybe
postAccountsAccountPeople ::
forall m.
StripeAPI.Common.MonadHTTP m =>
Data.Text.Internal.Text ->
GHC.Maybe.Maybe PostAccountsAccountPeopleRequestBody ->
StripeAPI.Common.ClientT m (Network.HTTP.Client.Types.Response PostAccountsAccountPeopleResponse)
postAccountsAccountPeople :: Text
-> Maybe PostAccountsAccountPeopleRequestBody
-> ClientT m (Response PostAccountsAccountPeopleResponse)
postAccountsAccountPeople
Text
account
Maybe PostAccountsAccountPeopleRequestBody
body =
(Response ByteString -> Response PostAccountsAccountPeopleResponse)
-> ClientT m (Response ByteString)
-> ClientT m (Response PostAccountsAccountPeopleResponse)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
GHC.Base.fmap
( \Response ByteString
response_0 ->
(ByteString -> PostAccountsAccountPeopleResponse)
-> Response ByteString
-> Response PostAccountsAccountPeopleResponse
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
GHC.Base.fmap
( (String -> PostAccountsAccountPeopleResponse)
-> (PostAccountsAccountPeopleResponse
-> PostAccountsAccountPeopleResponse)
-> Either String PostAccountsAccountPeopleResponse
-> PostAccountsAccountPeopleResponse
forall a c b. (a -> c) -> (b -> c) -> Either a b -> c
Data.Either.either String -> PostAccountsAccountPeopleResponse
PostAccountsAccountPeopleResponseError PostAccountsAccountPeopleResponse
-> PostAccountsAccountPeopleResponse
forall a. a -> a
GHC.Base.id
(Either String PostAccountsAccountPeopleResponse
-> PostAccountsAccountPeopleResponse)
-> (ByteString -> Either String PostAccountsAccountPeopleResponse)
-> ByteString
-> PostAccountsAccountPeopleResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
GHC.Base.. ( \Response ByteString
response ByteString
body ->
if
| (\Status
status_1 -> Status -> Int
Network.HTTP.Types.Status.statusCode Status
status_1 Int -> Int -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Int
200) (Response ByteString -> Status
forall body. Response body -> Status
Network.HTTP.Client.Types.responseStatus Response ByteString
response) ->
Person -> PostAccountsAccountPeopleResponse
PostAccountsAccountPeopleResponse200
(Person -> PostAccountsAccountPeopleResponse)
-> Either String Person
-> Either String PostAccountsAccountPeopleResponse
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Data.Functor.<$> ( ByteString -> Either String Person
forall a. FromJSON a => ByteString -> Either String a
Data.Aeson.eitherDecodeStrict ByteString
body ::
Data.Either.Either
GHC.Base.String
Person
)
| Bool -> Status -> Bool
forall a b. a -> b -> a
GHC.Base.const Bool
GHC.Types.True (Response ByteString -> Status
forall body. Response body -> Status
Network.HTTP.Client.Types.responseStatus Response ByteString
response) ->
Error -> PostAccountsAccountPeopleResponse
PostAccountsAccountPeopleResponseDefault
(Error -> PostAccountsAccountPeopleResponse)
-> Either String Error
-> Either String PostAccountsAccountPeopleResponse
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Data.Functor.<$> ( ByteString -> Either String Error
forall a. FromJSON a => ByteString -> Either String a
Data.Aeson.eitherDecodeStrict ByteString
body ::
Data.Either.Either
GHC.Base.String
Error
)
| Bool
GHC.Base.otherwise -> String -> Either String PostAccountsAccountPeopleResponse
forall a b. a -> Either a b
Data.Either.Left String
"Missing default response type"
)
Response ByteString
response_0
)
Response ByteString
response_0
)
(Text
-> Text
-> [QueryParameter]
-> Maybe PostAccountsAccountPeopleRequestBody
-> RequestBodyEncoding
-> ClientT m (Response ByteString)
forall (m :: * -> *) body.
(MonadHTTP m, ToJSON body) =>
Text
-> Text
-> [QueryParameter]
-> Maybe body
-> RequestBodyEncoding
-> ClientT m (Response ByteString)
StripeAPI.Common.doBodyCallWithConfigurationM (Text -> Text
Data.Text.toUpper (Text -> Text) -> Text -> Text
forall a b. (a -> b) -> a -> b
GHC.Base.$ String -> Text
Data.Text.pack String
"POST") (String -> Text
Data.Text.pack (String
"/v1/accounts/" String -> String -> String
forall a. [a] -> [a] -> [a]
GHC.Base.++ (ByteString -> String
Data.ByteString.Char8.unpack (Bool -> ByteString -> ByteString
Network.HTTP.Types.URI.urlEncode Bool
GHC.Types.True (ByteString -> ByteString) -> ByteString -> ByteString
forall a b. (a -> b) -> a -> b
GHC.Base.$ (String -> ByteString
Data.ByteString.Char8.pack (String -> ByteString) -> String -> ByteString
forall a b. (a -> b) -> a -> b
GHC.Base.$ Text -> String
forall a. StringifyModel a => a -> String
StripeAPI.Common.stringifyModel Text
account)) String -> String -> String
forall a. [a] -> [a] -> [a]
GHC.Base.++ String
"/people"))) [QueryParameter]
forall a. Monoid a => a
GHC.Base.mempty Maybe PostAccountsAccountPeopleRequestBody
body RequestBodyEncoding
StripeAPI.Common.RequestBodyEncodingFormData)
data PostAccountsAccountPeopleRequestBody = PostAccountsAccountPeopleRequestBody
{
PostAccountsAccountPeopleRequestBody
-> Maybe PostAccountsAccountPeopleRequestBodyAddress'
postAccountsAccountPeopleRequestBodyAddress :: (GHC.Maybe.Maybe PostAccountsAccountPeopleRequestBodyAddress'),
PostAccountsAccountPeopleRequestBody
-> Maybe PostAccountsAccountPeopleRequestBodyAddressKana'
postAccountsAccountPeopleRequestBodyAddressKana :: (GHC.Maybe.Maybe PostAccountsAccountPeopleRequestBodyAddressKana'),
PostAccountsAccountPeopleRequestBody
-> Maybe PostAccountsAccountPeopleRequestBodyAddressKanji'
postAccountsAccountPeopleRequestBodyAddressKanji :: (GHC.Maybe.Maybe PostAccountsAccountPeopleRequestBodyAddressKanji'),
PostAccountsAccountPeopleRequestBody
-> Maybe PostAccountsAccountPeopleRequestBodyDob'Variants
postAccountsAccountPeopleRequestBodyDob :: (GHC.Maybe.Maybe PostAccountsAccountPeopleRequestBodyDob'Variants),
PostAccountsAccountPeopleRequestBody
-> Maybe PostAccountsAccountPeopleRequestBodyDocuments'
postAccountsAccountPeopleRequestBodyDocuments :: (GHC.Maybe.Maybe PostAccountsAccountPeopleRequestBodyDocuments'),
PostAccountsAccountPeopleRequestBody -> Maybe Text
postAccountsAccountPeopleRequestBodyEmail :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
PostAccountsAccountPeopleRequestBody -> Maybe [Text]
postAccountsAccountPeopleRequestBodyExpand :: (GHC.Maybe.Maybe ([Data.Text.Internal.Text])),
PostAccountsAccountPeopleRequestBody -> Maybe Text
postAccountsAccountPeopleRequestBodyFirstName :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
PostAccountsAccountPeopleRequestBody -> Maybe Text
postAccountsAccountPeopleRequestBodyFirstNameKana :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
PostAccountsAccountPeopleRequestBody -> Maybe Text
postAccountsAccountPeopleRequestBodyFirstNameKanji :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
PostAccountsAccountPeopleRequestBody -> Maybe Text
postAccountsAccountPeopleRequestBodyGender :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
PostAccountsAccountPeopleRequestBody -> Maybe Text
postAccountsAccountPeopleRequestBodyIdNumber :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
PostAccountsAccountPeopleRequestBody -> Maybe Text
postAccountsAccountPeopleRequestBodyLastName :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
PostAccountsAccountPeopleRequestBody -> Maybe Text
postAccountsAccountPeopleRequestBodyLastNameKana :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
PostAccountsAccountPeopleRequestBody -> Maybe Text
postAccountsAccountPeopleRequestBodyLastNameKanji :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
PostAccountsAccountPeopleRequestBody -> Maybe Text
postAccountsAccountPeopleRequestBodyMaidenName :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
PostAccountsAccountPeopleRequestBody
-> Maybe PostAccountsAccountPeopleRequestBodyMetadata'Variants
postAccountsAccountPeopleRequestBodyMetadata :: (GHC.Maybe.Maybe PostAccountsAccountPeopleRequestBodyMetadata'Variants),
PostAccountsAccountPeopleRequestBody -> Maybe Text
postAccountsAccountPeopleRequestBodyNationality :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
PostAccountsAccountPeopleRequestBody -> Maybe Text
postAccountsAccountPeopleRequestBodyPersonToken :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
PostAccountsAccountPeopleRequestBody -> Maybe Text
postAccountsAccountPeopleRequestBodyPhone :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
PostAccountsAccountPeopleRequestBody -> Maybe Text
postAccountsAccountPeopleRequestBodyPoliticalExposure :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
PostAccountsAccountPeopleRequestBody
-> Maybe PostAccountsAccountPeopleRequestBodyRelationship'
postAccountsAccountPeopleRequestBodyRelationship :: (GHC.Maybe.Maybe PostAccountsAccountPeopleRequestBodyRelationship'),
PostAccountsAccountPeopleRequestBody -> Maybe Text
postAccountsAccountPeopleRequestBodySsnLast_4 :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
PostAccountsAccountPeopleRequestBody
-> Maybe PostAccountsAccountPeopleRequestBodyVerification'
postAccountsAccountPeopleRequestBodyVerification :: (GHC.Maybe.Maybe PostAccountsAccountPeopleRequestBodyVerification')
}
deriving
( Int -> PostAccountsAccountPeopleRequestBody -> String -> String
[PostAccountsAccountPeopleRequestBody] -> String -> String
PostAccountsAccountPeopleRequestBody -> String
(Int -> PostAccountsAccountPeopleRequestBody -> String -> String)
-> (PostAccountsAccountPeopleRequestBody -> String)
-> ([PostAccountsAccountPeopleRequestBody] -> String -> String)
-> Show PostAccountsAccountPeopleRequestBody
forall a.
(Int -> a -> String -> String)
-> (a -> String) -> ([a] -> String -> String) -> Show a
showList :: [PostAccountsAccountPeopleRequestBody] -> String -> String
$cshowList :: [PostAccountsAccountPeopleRequestBody] -> String -> String
show :: PostAccountsAccountPeopleRequestBody -> String
$cshow :: PostAccountsAccountPeopleRequestBody -> String
showsPrec :: Int -> PostAccountsAccountPeopleRequestBody -> String -> String
$cshowsPrec :: Int -> PostAccountsAccountPeopleRequestBody -> String -> String
GHC.Show.Show,
PostAccountsAccountPeopleRequestBody
-> PostAccountsAccountPeopleRequestBody -> Bool
(PostAccountsAccountPeopleRequestBody
-> PostAccountsAccountPeopleRequestBody -> Bool)
-> (PostAccountsAccountPeopleRequestBody
-> PostAccountsAccountPeopleRequestBody -> Bool)
-> Eq PostAccountsAccountPeopleRequestBody
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostAccountsAccountPeopleRequestBody
-> PostAccountsAccountPeopleRequestBody -> Bool
$c/= :: PostAccountsAccountPeopleRequestBody
-> PostAccountsAccountPeopleRequestBody -> Bool
== :: PostAccountsAccountPeopleRequestBody
-> PostAccountsAccountPeopleRequestBody -> Bool
$c== :: PostAccountsAccountPeopleRequestBody
-> PostAccountsAccountPeopleRequestBody -> Bool
GHC.Classes.Eq
)
instance Data.Aeson.Types.ToJSON.ToJSON PostAccountsAccountPeopleRequestBody where
toJSON :: PostAccountsAccountPeopleRequestBody -> Value
toJSON PostAccountsAccountPeopleRequestBody
obj = [Pair] -> Value
Data.Aeson.Types.Internal.object (Text
"address" Text -> Maybe PostAccountsAccountPeopleRequestBodyAddress' -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsAccountPeopleRequestBody
-> Maybe PostAccountsAccountPeopleRequestBodyAddress'
postAccountsAccountPeopleRequestBodyAddress PostAccountsAccountPeopleRequestBody
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"address_kana" Text
-> Maybe PostAccountsAccountPeopleRequestBodyAddressKana' -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsAccountPeopleRequestBody
-> Maybe PostAccountsAccountPeopleRequestBodyAddressKana'
postAccountsAccountPeopleRequestBodyAddressKana PostAccountsAccountPeopleRequestBody
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"address_kanji" Text
-> Maybe PostAccountsAccountPeopleRequestBodyAddressKanji' -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsAccountPeopleRequestBody
-> Maybe PostAccountsAccountPeopleRequestBodyAddressKanji'
postAccountsAccountPeopleRequestBodyAddressKanji PostAccountsAccountPeopleRequestBody
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"dob" Text
-> Maybe PostAccountsAccountPeopleRequestBodyDob'Variants -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsAccountPeopleRequestBody
-> Maybe PostAccountsAccountPeopleRequestBodyDob'Variants
postAccountsAccountPeopleRequestBodyDob PostAccountsAccountPeopleRequestBody
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"documents" Text
-> Maybe PostAccountsAccountPeopleRequestBodyDocuments' -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsAccountPeopleRequestBody
-> Maybe PostAccountsAccountPeopleRequestBodyDocuments'
postAccountsAccountPeopleRequestBodyDocuments PostAccountsAccountPeopleRequestBody
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"email" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsAccountPeopleRequestBody -> Maybe Text
postAccountsAccountPeopleRequestBodyEmail PostAccountsAccountPeopleRequestBody
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"expand" Text -> Maybe [Text] -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsAccountPeopleRequestBody -> Maybe [Text]
postAccountsAccountPeopleRequestBodyExpand PostAccountsAccountPeopleRequestBody
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"first_name" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsAccountPeopleRequestBody -> Maybe Text
postAccountsAccountPeopleRequestBodyFirstName PostAccountsAccountPeopleRequestBody
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"first_name_kana" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsAccountPeopleRequestBody -> Maybe Text
postAccountsAccountPeopleRequestBodyFirstNameKana PostAccountsAccountPeopleRequestBody
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"first_name_kanji" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsAccountPeopleRequestBody -> Maybe Text
postAccountsAccountPeopleRequestBodyFirstNameKanji PostAccountsAccountPeopleRequestBody
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"gender" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsAccountPeopleRequestBody -> Maybe Text
postAccountsAccountPeopleRequestBodyGender PostAccountsAccountPeopleRequestBody
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"id_number" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsAccountPeopleRequestBody -> Maybe Text
postAccountsAccountPeopleRequestBodyIdNumber PostAccountsAccountPeopleRequestBody
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"last_name" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsAccountPeopleRequestBody -> Maybe Text
postAccountsAccountPeopleRequestBodyLastName PostAccountsAccountPeopleRequestBody
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"last_name_kana" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsAccountPeopleRequestBody -> Maybe Text
postAccountsAccountPeopleRequestBodyLastNameKana PostAccountsAccountPeopleRequestBody
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"last_name_kanji" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsAccountPeopleRequestBody -> Maybe Text
postAccountsAccountPeopleRequestBodyLastNameKanji PostAccountsAccountPeopleRequestBody
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"maiden_name" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsAccountPeopleRequestBody -> Maybe Text
postAccountsAccountPeopleRequestBodyMaidenName PostAccountsAccountPeopleRequestBody
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"metadata" Text
-> Maybe PostAccountsAccountPeopleRequestBodyMetadata'Variants
-> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsAccountPeopleRequestBody
-> Maybe PostAccountsAccountPeopleRequestBodyMetadata'Variants
postAccountsAccountPeopleRequestBodyMetadata PostAccountsAccountPeopleRequestBody
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"nationality" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsAccountPeopleRequestBody -> Maybe Text
postAccountsAccountPeopleRequestBodyNationality PostAccountsAccountPeopleRequestBody
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"person_token" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsAccountPeopleRequestBody -> Maybe Text
postAccountsAccountPeopleRequestBodyPersonToken PostAccountsAccountPeopleRequestBody
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"phone" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsAccountPeopleRequestBody -> Maybe Text
postAccountsAccountPeopleRequestBodyPhone PostAccountsAccountPeopleRequestBody
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"political_exposure" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsAccountPeopleRequestBody -> Maybe Text
postAccountsAccountPeopleRequestBodyPoliticalExposure PostAccountsAccountPeopleRequestBody
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"relationship" Text
-> Maybe PostAccountsAccountPeopleRequestBodyRelationship' -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsAccountPeopleRequestBody
-> Maybe PostAccountsAccountPeopleRequestBodyRelationship'
postAccountsAccountPeopleRequestBodyRelationship PostAccountsAccountPeopleRequestBody
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"ssn_last_4" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsAccountPeopleRequestBody -> Maybe Text
postAccountsAccountPeopleRequestBodySsnLast_4 PostAccountsAccountPeopleRequestBody
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"verification" Text
-> Maybe PostAccountsAccountPeopleRequestBodyVerification' -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsAccountPeopleRequestBody
-> Maybe PostAccountsAccountPeopleRequestBodyVerification'
postAccountsAccountPeopleRequestBodyVerification PostAccountsAccountPeopleRequestBody
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: [Pair]
forall a. Monoid a => a
GHC.Base.mempty)
toEncoding :: PostAccountsAccountPeopleRequestBody -> Encoding
toEncoding PostAccountsAccountPeopleRequestBody
obj = Series -> Encoding
Data.Aeson.Encoding.Internal.pairs ((Text
"address" Text
-> Maybe PostAccountsAccountPeopleRequestBodyAddress' -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsAccountPeopleRequestBody
-> Maybe PostAccountsAccountPeopleRequestBodyAddress'
postAccountsAccountPeopleRequestBodyAddress PostAccountsAccountPeopleRequestBody
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"address_kana" Text
-> Maybe PostAccountsAccountPeopleRequestBodyAddressKana' -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsAccountPeopleRequestBody
-> Maybe PostAccountsAccountPeopleRequestBodyAddressKana'
postAccountsAccountPeopleRequestBodyAddressKana PostAccountsAccountPeopleRequestBody
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"address_kanji" Text
-> Maybe PostAccountsAccountPeopleRequestBodyAddressKanji'
-> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsAccountPeopleRequestBody
-> Maybe PostAccountsAccountPeopleRequestBodyAddressKanji'
postAccountsAccountPeopleRequestBodyAddressKanji PostAccountsAccountPeopleRequestBody
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"dob" Text
-> Maybe PostAccountsAccountPeopleRequestBodyDob'Variants -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsAccountPeopleRequestBody
-> Maybe PostAccountsAccountPeopleRequestBodyDob'Variants
postAccountsAccountPeopleRequestBodyDob PostAccountsAccountPeopleRequestBody
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"documents" Text
-> Maybe PostAccountsAccountPeopleRequestBodyDocuments' -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsAccountPeopleRequestBody
-> Maybe PostAccountsAccountPeopleRequestBodyDocuments'
postAccountsAccountPeopleRequestBodyDocuments PostAccountsAccountPeopleRequestBody
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"email" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsAccountPeopleRequestBody -> Maybe Text
postAccountsAccountPeopleRequestBodyEmail PostAccountsAccountPeopleRequestBody
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"expand" Text -> Maybe [Text] -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsAccountPeopleRequestBody -> Maybe [Text]
postAccountsAccountPeopleRequestBodyExpand PostAccountsAccountPeopleRequestBody
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"first_name" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsAccountPeopleRequestBody -> Maybe Text
postAccountsAccountPeopleRequestBodyFirstName PostAccountsAccountPeopleRequestBody
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"first_name_kana" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsAccountPeopleRequestBody -> Maybe Text
postAccountsAccountPeopleRequestBodyFirstNameKana PostAccountsAccountPeopleRequestBody
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"first_name_kanji" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsAccountPeopleRequestBody -> Maybe Text
postAccountsAccountPeopleRequestBodyFirstNameKanji PostAccountsAccountPeopleRequestBody
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"gender" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsAccountPeopleRequestBody -> Maybe Text
postAccountsAccountPeopleRequestBodyGender PostAccountsAccountPeopleRequestBody
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"id_number" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsAccountPeopleRequestBody -> Maybe Text
postAccountsAccountPeopleRequestBodyIdNumber PostAccountsAccountPeopleRequestBody
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"last_name" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsAccountPeopleRequestBody -> Maybe Text
postAccountsAccountPeopleRequestBodyLastName PostAccountsAccountPeopleRequestBody
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"last_name_kana" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsAccountPeopleRequestBody -> Maybe Text
postAccountsAccountPeopleRequestBodyLastNameKana PostAccountsAccountPeopleRequestBody
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"last_name_kanji" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsAccountPeopleRequestBody -> Maybe Text
postAccountsAccountPeopleRequestBodyLastNameKanji PostAccountsAccountPeopleRequestBody
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"maiden_name" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsAccountPeopleRequestBody -> Maybe Text
postAccountsAccountPeopleRequestBodyMaidenName PostAccountsAccountPeopleRequestBody
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"metadata" Text
-> Maybe PostAccountsAccountPeopleRequestBodyMetadata'Variants
-> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsAccountPeopleRequestBody
-> Maybe PostAccountsAccountPeopleRequestBodyMetadata'Variants
postAccountsAccountPeopleRequestBodyMetadata PostAccountsAccountPeopleRequestBody
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"nationality" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsAccountPeopleRequestBody -> Maybe Text
postAccountsAccountPeopleRequestBodyNationality PostAccountsAccountPeopleRequestBody
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"person_token" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsAccountPeopleRequestBody -> Maybe Text
postAccountsAccountPeopleRequestBodyPersonToken PostAccountsAccountPeopleRequestBody
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"phone" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsAccountPeopleRequestBody -> Maybe Text
postAccountsAccountPeopleRequestBodyPhone PostAccountsAccountPeopleRequestBody
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"political_exposure" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsAccountPeopleRequestBody -> Maybe Text
postAccountsAccountPeopleRequestBodyPoliticalExposure PostAccountsAccountPeopleRequestBody
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"relationship" Text
-> Maybe PostAccountsAccountPeopleRequestBodyRelationship'
-> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsAccountPeopleRequestBody
-> Maybe PostAccountsAccountPeopleRequestBodyRelationship'
postAccountsAccountPeopleRequestBodyRelationship PostAccountsAccountPeopleRequestBody
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"ssn_last_4" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsAccountPeopleRequestBody -> Maybe Text
postAccountsAccountPeopleRequestBodySsnLast_4 PostAccountsAccountPeopleRequestBody
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> (Text
"verification" Text
-> Maybe PostAccountsAccountPeopleRequestBodyVerification'
-> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsAccountPeopleRequestBody
-> Maybe PostAccountsAccountPeopleRequestBodyVerification'
postAccountsAccountPeopleRequestBodyVerification PostAccountsAccountPeopleRequestBody
obj))))))))))))))))))))))))
instance Data.Aeson.Types.FromJSON.FromJSON PostAccountsAccountPeopleRequestBody where
parseJSON :: Value -> Parser PostAccountsAccountPeopleRequestBody
parseJSON = String
-> (Object -> Parser PostAccountsAccountPeopleRequestBody)
-> Value
-> Parser PostAccountsAccountPeopleRequestBody
forall a. String -> (Object -> Parser a) -> Value -> Parser a
Data.Aeson.Types.FromJSON.withObject String
"PostAccountsAccountPeopleRequestBody" (\Object
obj -> ((((((((((((((((((((((((Maybe PostAccountsAccountPeopleRequestBodyAddress'
-> Maybe PostAccountsAccountPeopleRequestBodyAddressKana'
-> Maybe PostAccountsAccountPeopleRequestBodyAddressKanji'
-> Maybe PostAccountsAccountPeopleRequestBodyDob'Variants
-> Maybe PostAccountsAccountPeopleRequestBodyDocuments'
-> Maybe Text
-> Maybe [Text]
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostAccountsAccountPeopleRequestBodyMetadata'Variants
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostAccountsAccountPeopleRequestBodyRelationship'
-> Maybe Text
-> Maybe PostAccountsAccountPeopleRequestBodyVerification'
-> PostAccountsAccountPeopleRequestBody)
-> Parser
(Maybe PostAccountsAccountPeopleRequestBodyAddress'
-> Maybe PostAccountsAccountPeopleRequestBodyAddressKana'
-> Maybe PostAccountsAccountPeopleRequestBodyAddressKanji'
-> Maybe PostAccountsAccountPeopleRequestBodyDob'Variants
-> Maybe PostAccountsAccountPeopleRequestBodyDocuments'
-> Maybe Text
-> Maybe [Text]
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostAccountsAccountPeopleRequestBodyMetadata'Variants
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostAccountsAccountPeopleRequestBodyRelationship'
-> Maybe Text
-> Maybe PostAccountsAccountPeopleRequestBodyVerification'
-> PostAccountsAccountPeopleRequestBody)
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure Maybe PostAccountsAccountPeopleRequestBodyAddress'
-> Maybe PostAccountsAccountPeopleRequestBodyAddressKana'
-> Maybe PostAccountsAccountPeopleRequestBodyAddressKanji'
-> Maybe PostAccountsAccountPeopleRequestBodyDob'Variants
-> Maybe PostAccountsAccountPeopleRequestBodyDocuments'
-> Maybe Text
-> Maybe [Text]
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostAccountsAccountPeopleRequestBodyMetadata'Variants
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostAccountsAccountPeopleRequestBodyRelationship'
-> Maybe Text
-> Maybe PostAccountsAccountPeopleRequestBodyVerification'
-> PostAccountsAccountPeopleRequestBody
PostAccountsAccountPeopleRequestBody Parser
(Maybe PostAccountsAccountPeopleRequestBodyAddress'
-> Maybe PostAccountsAccountPeopleRequestBodyAddressKana'
-> Maybe PostAccountsAccountPeopleRequestBodyAddressKanji'
-> Maybe PostAccountsAccountPeopleRequestBodyDob'Variants
-> Maybe PostAccountsAccountPeopleRequestBodyDocuments'
-> Maybe Text
-> Maybe [Text]
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostAccountsAccountPeopleRequestBodyMetadata'Variants
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostAccountsAccountPeopleRequestBodyRelationship'
-> Maybe Text
-> Maybe PostAccountsAccountPeopleRequestBodyVerification'
-> PostAccountsAccountPeopleRequestBody)
-> Parser (Maybe PostAccountsAccountPeopleRequestBodyAddress')
-> Parser
(Maybe PostAccountsAccountPeopleRequestBodyAddressKana'
-> Maybe PostAccountsAccountPeopleRequestBodyAddressKanji'
-> Maybe PostAccountsAccountPeopleRequestBodyDob'Variants
-> Maybe PostAccountsAccountPeopleRequestBodyDocuments'
-> Maybe Text
-> Maybe [Text]
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostAccountsAccountPeopleRequestBodyMetadata'Variants
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostAccountsAccountPeopleRequestBodyRelationship'
-> Maybe Text
-> Maybe PostAccountsAccountPeopleRequestBodyVerification'
-> PostAccountsAccountPeopleRequestBody)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object
-> Text
-> Parser (Maybe PostAccountsAccountPeopleRequestBodyAddress')
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"address")) Parser
(Maybe PostAccountsAccountPeopleRequestBodyAddressKana'
-> Maybe PostAccountsAccountPeopleRequestBodyAddressKanji'
-> Maybe PostAccountsAccountPeopleRequestBodyDob'Variants
-> Maybe PostAccountsAccountPeopleRequestBodyDocuments'
-> Maybe Text
-> Maybe [Text]
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostAccountsAccountPeopleRequestBodyMetadata'Variants
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostAccountsAccountPeopleRequestBodyRelationship'
-> Maybe Text
-> Maybe PostAccountsAccountPeopleRequestBodyVerification'
-> PostAccountsAccountPeopleRequestBody)
-> Parser (Maybe PostAccountsAccountPeopleRequestBodyAddressKana')
-> Parser
(Maybe PostAccountsAccountPeopleRequestBodyAddressKanji'
-> Maybe PostAccountsAccountPeopleRequestBodyDob'Variants
-> Maybe PostAccountsAccountPeopleRequestBodyDocuments'
-> Maybe Text
-> Maybe [Text]
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostAccountsAccountPeopleRequestBodyMetadata'Variants
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostAccountsAccountPeopleRequestBodyRelationship'
-> Maybe Text
-> Maybe PostAccountsAccountPeopleRequestBodyVerification'
-> PostAccountsAccountPeopleRequestBody)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object
-> Text
-> Parser (Maybe PostAccountsAccountPeopleRequestBodyAddressKana')
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"address_kana")) Parser
(Maybe PostAccountsAccountPeopleRequestBodyAddressKanji'
-> Maybe PostAccountsAccountPeopleRequestBodyDob'Variants
-> Maybe PostAccountsAccountPeopleRequestBodyDocuments'
-> Maybe Text
-> Maybe [Text]
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostAccountsAccountPeopleRequestBodyMetadata'Variants
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostAccountsAccountPeopleRequestBodyRelationship'
-> Maybe Text
-> Maybe PostAccountsAccountPeopleRequestBodyVerification'
-> PostAccountsAccountPeopleRequestBody)
-> Parser (Maybe PostAccountsAccountPeopleRequestBodyAddressKanji')
-> Parser
(Maybe PostAccountsAccountPeopleRequestBodyDob'Variants
-> Maybe PostAccountsAccountPeopleRequestBodyDocuments'
-> Maybe Text
-> Maybe [Text]
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostAccountsAccountPeopleRequestBodyMetadata'Variants
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostAccountsAccountPeopleRequestBodyRelationship'
-> Maybe Text
-> Maybe PostAccountsAccountPeopleRequestBodyVerification'
-> PostAccountsAccountPeopleRequestBody)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object
-> Text
-> Parser (Maybe PostAccountsAccountPeopleRequestBodyAddressKanji')
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"address_kanji")) Parser
(Maybe PostAccountsAccountPeopleRequestBodyDob'Variants
-> Maybe PostAccountsAccountPeopleRequestBodyDocuments'
-> Maybe Text
-> Maybe [Text]
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostAccountsAccountPeopleRequestBodyMetadata'Variants
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostAccountsAccountPeopleRequestBodyRelationship'
-> Maybe Text
-> Maybe PostAccountsAccountPeopleRequestBodyVerification'
-> PostAccountsAccountPeopleRequestBody)
-> Parser (Maybe PostAccountsAccountPeopleRequestBodyDob'Variants)
-> Parser
(Maybe PostAccountsAccountPeopleRequestBodyDocuments'
-> Maybe Text
-> Maybe [Text]
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostAccountsAccountPeopleRequestBodyMetadata'Variants
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostAccountsAccountPeopleRequestBodyRelationship'
-> Maybe Text
-> Maybe PostAccountsAccountPeopleRequestBodyVerification'
-> PostAccountsAccountPeopleRequestBody)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object
-> Text
-> Parser (Maybe PostAccountsAccountPeopleRequestBodyDob'Variants)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"dob")) Parser
(Maybe PostAccountsAccountPeopleRequestBodyDocuments'
-> Maybe Text
-> Maybe [Text]
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostAccountsAccountPeopleRequestBodyMetadata'Variants
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostAccountsAccountPeopleRequestBodyRelationship'
-> Maybe Text
-> Maybe PostAccountsAccountPeopleRequestBodyVerification'
-> PostAccountsAccountPeopleRequestBody)
-> Parser (Maybe PostAccountsAccountPeopleRequestBodyDocuments')
-> Parser
(Maybe Text
-> Maybe [Text]
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostAccountsAccountPeopleRequestBodyMetadata'Variants
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostAccountsAccountPeopleRequestBodyRelationship'
-> Maybe Text
-> Maybe PostAccountsAccountPeopleRequestBodyVerification'
-> PostAccountsAccountPeopleRequestBody)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object
-> Text
-> Parser (Maybe PostAccountsAccountPeopleRequestBodyDocuments')
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"documents")) Parser
(Maybe Text
-> Maybe [Text]
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostAccountsAccountPeopleRequestBodyMetadata'Variants
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostAccountsAccountPeopleRequestBodyRelationship'
-> Maybe Text
-> Maybe PostAccountsAccountPeopleRequestBodyVerification'
-> PostAccountsAccountPeopleRequestBody)
-> Parser (Maybe Text)
-> Parser
(Maybe [Text]
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostAccountsAccountPeopleRequestBodyMetadata'Variants
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostAccountsAccountPeopleRequestBodyRelationship'
-> Maybe Text
-> Maybe PostAccountsAccountPeopleRequestBodyVerification'
-> PostAccountsAccountPeopleRequestBody)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"email")) Parser
(Maybe [Text]
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostAccountsAccountPeopleRequestBodyMetadata'Variants
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostAccountsAccountPeopleRequestBodyRelationship'
-> Maybe Text
-> Maybe PostAccountsAccountPeopleRequestBodyVerification'
-> PostAccountsAccountPeopleRequestBody)
-> Parser (Maybe [Text])
-> Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostAccountsAccountPeopleRequestBodyMetadata'Variants
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostAccountsAccountPeopleRequestBodyRelationship'
-> Maybe Text
-> Maybe PostAccountsAccountPeopleRequestBodyVerification'
-> PostAccountsAccountPeopleRequestBody)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe [Text])
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"expand")) Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostAccountsAccountPeopleRequestBodyMetadata'Variants
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostAccountsAccountPeopleRequestBodyRelationship'
-> Maybe Text
-> Maybe PostAccountsAccountPeopleRequestBodyVerification'
-> PostAccountsAccountPeopleRequestBody)
-> Parser (Maybe Text)
-> Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostAccountsAccountPeopleRequestBodyMetadata'Variants
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostAccountsAccountPeopleRequestBodyRelationship'
-> Maybe Text
-> Maybe PostAccountsAccountPeopleRequestBodyVerification'
-> PostAccountsAccountPeopleRequestBody)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"first_name")) Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostAccountsAccountPeopleRequestBodyMetadata'Variants
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostAccountsAccountPeopleRequestBodyRelationship'
-> Maybe Text
-> Maybe PostAccountsAccountPeopleRequestBodyVerification'
-> PostAccountsAccountPeopleRequestBody)
-> Parser (Maybe Text)
-> Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostAccountsAccountPeopleRequestBodyMetadata'Variants
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostAccountsAccountPeopleRequestBodyRelationship'
-> Maybe Text
-> Maybe PostAccountsAccountPeopleRequestBodyVerification'
-> PostAccountsAccountPeopleRequestBody)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"first_name_kana")) Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostAccountsAccountPeopleRequestBodyMetadata'Variants
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostAccountsAccountPeopleRequestBodyRelationship'
-> Maybe Text
-> Maybe PostAccountsAccountPeopleRequestBodyVerification'
-> PostAccountsAccountPeopleRequestBody)
-> Parser (Maybe Text)
-> Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostAccountsAccountPeopleRequestBodyMetadata'Variants
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostAccountsAccountPeopleRequestBodyRelationship'
-> Maybe Text
-> Maybe PostAccountsAccountPeopleRequestBodyVerification'
-> PostAccountsAccountPeopleRequestBody)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"first_name_kanji")) Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostAccountsAccountPeopleRequestBodyMetadata'Variants
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostAccountsAccountPeopleRequestBodyRelationship'
-> Maybe Text
-> Maybe PostAccountsAccountPeopleRequestBodyVerification'
-> PostAccountsAccountPeopleRequestBody)
-> Parser (Maybe Text)
-> Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostAccountsAccountPeopleRequestBodyMetadata'Variants
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostAccountsAccountPeopleRequestBodyRelationship'
-> Maybe Text
-> Maybe PostAccountsAccountPeopleRequestBodyVerification'
-> PostAccountsAccountPeopleRequestBody)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"gender")) Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostAccountsAccountPeopleRequestBodyMetadata'Variants
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostAccountsAccountPeopleRequestBodyRelationship'
-> Maybe Text
-> Maybe PostAccountsAccountPeopleRequestBodyVerification'
-> PostAccountsAccountPeopleRequestBody)
-> Parser (Maybe Text)
-> Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostAccountsAccountPeopleRequestBodyMetadata'Variants
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostAccountsAccountPeopleRequestBodyRelationship'
-> Maybe Text
-> Maybe PostAccountsAccountPeopleRequestBodyVerification'
-> PostAccountsAccountPeopleRequestBody)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"id_number")) Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostAccountsAccountPeopleRequestBodyMetadata'Variants
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostAccountsAccountPeopleRequestBodyRelationship'
-> Maybe Text
-> Maybe PostAccountsAccountPeopleRequestBodyVerification'
-> PostAccountsAccountPeopleRequestBody)
-> Parser (Maybe Text)
-> Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostAccountsAccountPeopleRequestBodyMetadata'Variants
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostAccountsAccountPeopleRequestBodyRelationship'
-> Maybe Text
-> Maybe PostAccountsAccountPeopleRequestBodyVerification'
-> PostAccountsAccountPeopleRequestBody)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"last_name")) Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostAccountsAccountPeopleRequestBodyMetadata'Variants
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostAccountsAccountPeopleRequestBodyRelationship'
-> Maybe Text
-> Maybe PostAccountsAccountPeopleRequestBodyVerification'
-> PostAccountsAccountPeopleRequestBody)
-> Parser (Maybe Text)
-> Parser
(Maybe Text
-> Maybe Text
-> Maybe PostAccountsAccountPeopleRequestBodyMetadata'Variants
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostAccountsAccountPeopleRequestBodyRelationship'
-> Maybe Text
-> Maybe PostAccountsAccountPeopleRequestBodyVerification'
-> PostAccountsAccountPeopleRequestBody)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"last_name_kana")) Parser
(Maybe Text
-> Maybe Text
-> Maybe PostAccountsAccountPeopleRequestBodyMetadata'Variants
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostAccountsAccountPeopleRequestBodyRelationship'
-> Maybe Text
-> Maybe PostAccountsAccountPeopleRequestBodyVerification'
-> PostAccountsAccountPeopleRequestBody)
-> Parser (Maybe Text)
-> Parser
(Maybe Text
-> Maybe PostAccountsAccountPeopleRequestBodyMetadata'Variants
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostAccountsAccountPeopleRequestBodyRelationship'
-> Maybe Text
-> Maybe PostAccountsAccountPeopleRequestBodyVerification'
-> PostAccountsAccountPeopleRequestBody)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"last_name_kanji")) Parser
(Maybe Text
-> Maybe PostAccountsAccountPeopleRequestBodyMetadata'Variants
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostAccountsAccountPeopleRequestBodyRelationship'
-> Maybe Text
-> Maybe PostAccountsAccountPeopleRequestBodyVerification'
-> PostAccountsAccountPeopleRequestBody)
-> Parser (Maybe Text)
-> Parser
(Maybe PostAccountsAccountPeopleRequestBodyMetadata'Variants
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostAccountsAccountPeopleRequestBodyRelationship'
-> Maybe Text
-> Maybe PostAccountsAccountPeopleRequestBodyVerification'
-> PostAccountsAccountPeopleRequestBody)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"maiden_name")) Parser
(Maybe PostAccountsAccountPeopleRequestBodyMetadata'Variants
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostAccountsAccountPeopleRequestBodyRelationship'
-> Maybe Text
-> Maybe PostAccountsAccountPeopleRequestBodyVerification'
-> PostAccountsAccountPeopleRequestBody)
-> Parser
(Maybe PostAccountsAccountPeopleRequestBodyMetadata'Variants)
-> Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostAccountsAccountPeopleRequestBodyRelationship'
-> Maybe Text
-> Maybe PostAccountsAccountPeopleRequestBodyVerification'
-> PostAccountsAccountPeopleRequestBody)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object
-> Text
-> Parser
(Maybe PostAccountsAccountPeopleRequestBodyMetadata'Variants)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"metadata")) Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostAccountsAccountPeopleRequestBodyRelationship'
-> Maybe Text
-> Maybe PostAccountsAccountPeopleRequestBodyVerification'
-> PostAccountsAccountPeopleRequestBody)
-> Parser (Maybe Text)
-> Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostAccountsAccountPeopleRequestBodyRelationship'
-> Maybe Text
-> Maybe PostAccountsAccountPeopleRequestBodyVerification'
-> PostAccountsAccountPeopleRequestBody)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"nationality")) Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostAccountsAccountPeopleRequestBodyRelationship'
-> Maybe Text
-> Maybe PostAccountsAccountPeopleRequestBodyVerification'
-> PostAccountsAccountPeopleRequestBody)
-> Parser (Maybe Text)
-> Parser
(Maybe Text
-> Maybe Text
-> Maybe PostAccountsAccountPeopleRequestBodyRelationship'
-> Maybe Text
-> Maybe PostAccountsAccountPeopleRequestBodyVerification'
-> PostAccountsAccountPeopleRequestBody)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"person_token")) Parser
(Maybe Text
-> Maybe Text
-> Maybe PostAccountsAccountPeopleRequestBodyRelationship'
-> Maybe Text
-> Maybe PostAccountsAccountPeopleRequestBodyVerification'
-> PostAccountsAccountPeopleRequestBody)
-> Parser (Maybe Text)
-> Parser
(Maybe Text
-> Maybe PostAccountsAccountPeopleRequestBodyRelationship'
-> Maybe Text
-> Maybe PostAccountsAccountPeopleRequestBodyVerification'
-> PostAccountsAccountPeopleRequestBody)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"phone")) Parser
(Maybe Text
-> Maybe PostAccountsAccountPeopleRequestBodyRelationship'
-> Maybe Text
-> Maybe PostAccountsAccountPeopleRequestBodyVerification'
-> PostAccountsAccountPeopleRequestBody)
-> Parser (Maybe Text)
-> Parser
(Maybe PostAccountsAccountPeopleRequestBodyRelationship'
-> Maybe Text
-> Maybe PostAccountsAccountPeopleRequestBodyVerification'
-> PostAccountsAccountPeopleRequestBody)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"political_exposure")) Parser
(Maybe PostAccountsAccountPeopleRequestBodyRelationship'
-> Maybe Text
-> Maybe PostAccountsAccountPeopleRequestBodyVerification'
-> PostAccountsAccountPeopleRequestBody)
-> Parser (Maybe PostAccountsAccountPeopleRequestBodyRelationship')
-> Parser
(Maybe Text
-> Maybe PostAccountsAccountPeopleRequestBodyVerification'
-> PostAccountsAccountPeopleRequestBody)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object
-> Text
-> Parser (Maybe PostAccountsAccountPeopleRequestBodyRelationship')
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"relationship")) Parser
(Maybe Text
-> Maybe PostAccountsAccountPeopleRequestBodyVerification'
-> PostAccountsAccountPeopleRequestBody)
-> Parser (Maybe Text)
-> Parser
(Maybe PostAccountsAccountPeopleRequestBodyVerification'
-> PostAccountsAccountPeopleRequestBody)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"ssn_last_4")) Parser
(Maybe PostAccountsAccountPeopleRequestBodyVerification'
-> PostAccountsAccountPeopleRequestBody)
-> Parser (Maybe PostAccountsAccountPeopleRequestBodyVerification')
-> Parser PostAccountsAccountPeopleRequestBody
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object
-> Text
-> Parser (Maybe PostAccountsAccountPeopleRequestBodyVerification')
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"verification"))
mkPostAccountsAccountPeopleRequestBody :: PostAccountsAccountPeopleRequestBody
mkPostAccountsAccountPeopleRequestBody :: PostAccountsAccountPeopleRequestBody
mkPostAccountsAccountPeopleRequestBody =
PostAccountsAccountPeopleRequestBody :: Maybe PostAccountsAccountPeopleRequestBodyAddress'
-> Maybe PostAccountsAccountPeopleRequestBodyAddressKana'
-> Maybe PostAccountsAccountPeopleRequestBodyAddressKanji'
-> Maybe PostAccountsAccountPeopleRequestBodyDob'Variants
-> Maybe PostAccountsAccountPeopleRequestBodyDocuments'
-> Maybe Text
-> Maybe [Text]
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostAccountsAccountPeopleRequestBodyMetadata'Variants
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe PostAccountsAccountPeopleRequestBodyRelationship'
-> Maybe Text
-> Maybe PostAccountsAccountPeopleRequestBodyVerification'
-> PostAccountsAccountPeopleRequestBody
PostAccountsAccountPeopleRequestBody
{ postAccountsAccountPeopleRequestBodyAddress :: Maybe PostAccountsAccountPeopleRequestBodyAddress'
postAccountsAccountPeopleRequestBodyAddress = Maybe PostAccountsAccountPeopleRequestBodyAddress'
forall a. Maybe a
GHC.Maybe.Nothing,
postAccountsAccountPeopleRequestBodyAddressKana :: Maybe PostAccountsAccountPeopleRequestBodyAddressKana'
postAccountsAccountPeopleRequestBodyAddressKana = Maybe PostAccountsAccountPeopleRequestBodyAddressKana'
forall a. Maybe a
GHC.Maybe.Nothing,
postAccountsAccountPeopleRequestBodyAddressKanji :: Maybe PostAccountsAccountPeopleRequestBodyAddressKanji'
postAccountsAccountPeopleRequestBodyAddressKanji = Maybe PostAccountsAccountPeopleRequestBodyAddressKanji'
forall a. Maybe a
GHC.Maybe.Nothing,
postAccountsAccountPeopleRequestBodyDob :: Maybe PostAccountsAccountPeopleRequestBodyDob'Variants
postAccountsAccountPeopleRequestBodyDob = Maybe PostAccountsAccountPeopleRequestBodyDob'Variants
forall a. Maybe a
GHC.Maybe.Nothing,
postAccountsAccountPeopleRequestBodyDocuments :: Maybe PostAccountsAccountPeopleRequestBodyDocuments'
postAccountsAccountPeopleRequestBodyDocuments = Maybe PostAccountsAccountPeopleRequestBodyDocuments'
forall a. Maybe a
GHC.Maybe.Nothing,
postAccountsAccountPeopleRequestBodyEmail :: Maybe Text
postAccountsAccountPeopleRequestBodyEmail = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
postAccountsAccountPeopleRequestBodyExpand :: Maybe [Text]
postAccountsAccountPeopleRequestBodyExpand = Maybe [Text]
forall a. Maybe a
GHC.Maybe.Nothing,
postAccountsAccountPeopleRequestBodyFirstName :: Maybe Text
postAccountsAccountPeopleRequestBodyFirstName = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
postAccountsAccountPeopleRequestBodyFirstNameKana :: Maybe Text
postAccountsAccountPeopleRequestBodyFirstNameKana = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
postAccountsAccountPeopleRequestBodyFirstNameKanji :: Maybe Text
postAccountsAccountPeopleRequestBodyFirstNameKanji = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
postAccountsAccountPeopleRequestBodyGender :: Maybe Text
postAccountsAccountPeopleRequestBodyGender = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
postAccountsAccountPeopleRequestBodyIdNumber :: Maybe Text
postAccountsAccountPeopleRequestBodyIdNumber = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
postAccountsAccountPeopleRequestBodyLastName :: Maybe Text
postAccountsAccountPeopleRequestBodyLastName = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
postAccountsAccountPeopleRequestBodyLastNameKana :: Maybe Text
postAccountsAccountPeopleRequestBodyLastNameKana = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
postAccountsAccountPeopleRequestBodyLastNameKanji :: Maybe Text
postAccountsAccountPeopleRequestBodyLastNameKanji = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
postAccountsAccountPeopleRequestBodyMaidenName :: Maybe Text
postAccountsAccountPeopleRequestBodyMaidenName = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
postAccountsAccountPeopleRequestBodyMetadata :: Maybe PostAccountsAccountPeopleRequestBodyMetadata'Variants
postAccountsAccountPeopleRequestBodyMetadata = Maybe PostAccountsAccountPeopleRequestBodyMetadata'Variants
forall a. Maybe a
GHC.Maybe.Nothing,
postAccountsAccountPeopleRequestBodyNationality :: Maybe Text
postAccountsAccountPeopleRequestBodyNationality = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
postAccountsAccountPeopleRequestBodyPersonToken :: Maybe Text
postAccountsAccountPeopleRequestBodyPersonToken = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
postAccountsAccountPeopleRequestBodyPhone :: Maybe Text
postAccountsAccountPeopleRequestBodyPhone = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
postAccountsAccountPeopleRequestBodyPoliticalExposure :: Maybe Text
postAccountsAccountPeopleRequestBodyPoliticalExposure = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
postAccountsAccountPeopleRequestBodyRelationship :: Maybe PostAccountsAccountPeopleRequestBodyRelationship'
postAccountsAccountPeopleRequestBodyRelationship = Maybe PostAccountsAccountPeopleRequestBodyRelationship'
forall a. Maybe a
GHC.Maybe.Nothing,
postAccountsAccountPeopleRequestBodySsnLast_4 :: Maybe Text
postAccountsAccountPeopleRequestBodySsnLast_4 = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
postAccountsAccountPeopleRequestBodyVerification :: Maybe PostAccountsAccountPeopleRequestBodyVerification'
postAccountsAccountPeopleRequestBodyVerification = Maybe PostAccountsAccountPeopleRequestBodyVerification'
forall a. Maybe a
GHC.Maybe.Nothing
}
data PostAccountsAccountPeopleRequestBodyAddress' = PostAccountsAccountPeopleRequestBodyAddress'
{
PostAccountsAccountPeopleRequestBodyAddress' -> Maybe Text
postAccountsAccountPeopleRequestBodyAddress'City :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
PostAccountsAccountPeopleRequestBodyAddress' -> Maybe Text
postAccountsAccountPeopleRequestBodyAddress'Country :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
PostAccountsAccountPeopleRequestBodyAddress' -> Maybe Text
postAccountsAccountPeopleRequestBodyAddress'Line1 :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
PostAccountsAccountPeopleRequestBodyAddress' -> Maybe Text
postAccountsAccountPeopleRequestBodyAddress'Line2 :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
PostAccountsAccountPeopleRequestBodyAddress' -> Maybe Text
postAccountsAccountPeopleRequestBodyAddress'PostalCode :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
PostAccountsAccountPeopleRequestBodyAddress' -> Maybe Text
postAccountsAccountPeopleRequestBodyAddress'State :: (GHC.Maybe.Maybe Data.Text.Internal.Text)
}
deriving
( Int
-> PostAccountsAccountPeopleRequestBodyAddress' -> String -> String
[PostAccountsAccountPeopleRequestBodyAddress'] -> String -> String
PostAccountsAccountPeopleRequestBodyAddress' -> String
(Int
-> PostAccountsAccountPeopleRequestBodyAddress'
-> String
-> String)
-> (PostAccountsAccountPeopleRequestBodyAddress' -> String)
-> ([PostAccountsAccountPeopleRequestBodyAddress']
-> String -> String)
-> Show PostAccountsAccountPeopleRequestBodyAddress'
forall a.
(Int -> a -> String -> String)
-> (a -> String) -> ([a] -> String -> String) -> Show a
showList :: [PostAccountsAccountPeopleRequestBodyAddress'] -> String -> String
$cshowList :: [PostAccountsAccountPeopleRequestBodyAddress'] -> String -> String
show :: PostAccountsAccountPeopleRequestBodyAddress' -> String
$cshow :: PostAccountsAccountPeopleRequestBodyAddress' -> String
showsPrec :: Int
-> PostAccountsAccountPeopleRequestBodyAddress' -> String -> String
$cshowsPrec :: Int
-> PostAccountsAccountPeopleRequestBodyAddress' -> String -> String
GHC.Show.Show,
PostAccountsAccountPeopleRequestBodyAddress'
-> PostAccountsAccountPeopleRequestBodyAddress' -> Bool
(PostAccountsAccountPeopleRequestBodyAddress'
-> PostAccountsAccountPeopleRequestBodyAddress' -> Bool)
-> (PostAccountsAccountPeopleRequestBodyAddress'
-> PostAccountsAccountPeopleRequestBodyAddress' -> Bool)
-> Eq PostAccountsAccountPeopleRequestBodyAddress'
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostAccountsAccountPeopleRequestBodyAddress'
-> PostAccountsAccountPeopleRequestBodyAddress' -> Bool
$c/= :: PostAccountsAccountPeopleRequestBodyAddress'
-> PostAccountsAccountPeopleRequestBodyAddress' -> Bool
== :: PostAccountsAccountPeopleRequestBodyAddress'
-> PostAccountsAccountPeopleRequestBodyAddress' -> Bool
$c== :: PostAccountsAccountPeopleRequestBodyAddress'
-> PostAccountsAccountPeopleRequestBodyAddress' -> Bool
GHC.Classes.Eq
)
instance Data.Aeson.Types.ToJSON.ToJSON PostAccountsAccountPeopleRequestBodyAddress' where
toJSON :: PostAccountsAccountPeopleRequestBodyAddress' -> Value
toJSON PostAccountsAccountPeopleRequestBodyAddress'
obj = [Pair] -> Value
Data.Aeson.Types.Internal.object (Text
"city" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsAccountPeopleRequestBodyAddress' -> Maybe Text
postAccountsAccountPeopleRequestBodyAddress'City PostAccountsAccountPeopleRequestBodyAddress'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"country" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsAccountPeopleRequestBodyAddress' -> Maybe Text
postAccountsAccountPeopleRequestBodyAddress'Country PostAccountsAccountPeopleRequestBodyAddress'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"line1" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsAccountPeopleRequestBodyAddress' -> Maybe Text
postAccountsAccountPeopleRequestBodyAddress'Line1 PostAccountsAccountPeopleRequestBodyAddress'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"line2" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsAccountPeopleRequestBodyAddress' -> Maybe Text
postAccountsAccountPeopleRequestBodyAddress'Line2 PostAccountsAccountPeopleRequestBodyAddress'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"postal_code" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsAccountPeopleRequestBodyAddress' -> Maybe Text
postAccountsAccountPeopleRequestBodyAddress'PostalCode PostAccountsAccountPeopleRequestBodyAddress'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"state" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsAccountPeopleRequestBodyAddress' -> Maybe Text
postAccountsAccountPeopleRequestBodyAddress'State PostAccountsAccountPeopleRequestBodyAddress'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: [Pair]
forall a. Monoid a => a
GHC.Base.mempty)
toEncoding :: PostAccountsAccountPeopleRequestBodyAddress' -> Encoding
toEncoding PostAccountsAccountPeopleRequestBodyAddress'
obj = Series -> Encoding
Data.Aeson.Encoding.Internal.pairs ((Text
"city" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsAccountPeopleRequestBodyAddress' -> Maybe Text
postAccountsAccountPeopleRequestBodyAddress'City PostAccountsAccountPeopleRequestBodyAddress'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"country" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsAccountPeopleRequestBodyAddress' -> Maybe Text
postAccountsAccountPeopleRequestBodyAddress'Country PostAccountsAccountPeopleRequestBodyAddress'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"line1" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsAccountPeopleRequestBodyAddress' -> Maybe Text
postAccountsAccountPeopleRequestBodyAddress'Line1 PostAccountsAccountPeopleRequestBodyAddress'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"line2" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsAccountPeopleRequestBodyAddress' -> Maybe Text
postAccountsAccountPeopleRequestBodyAddress'Line2 PostAccountsAccountPeopleRequestBodyAddress'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"postal_code" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsAccountPeopleRequestBodyAddress' -> Maybe Text
postAccountsAccountPeopleRequestBodyAddress'PostalCode PostAccountsAccountPeopleRequestBodyAddress'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> (Text
"state" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsAccountPeopleRequestBodyAddress' -> Maybe Text
postAccountsAccountPeopleRequestBodyAddress'State PostAccountsAccountPeopleRequestBodyAddress'
obj))))))
instance Data.Aeson.Types.FromJSON.FromJSON PostAccountsAccountPeopleRequestBodyAddress' where
parseJSON :: Value -> Parser PostAccountsAccountPeopleRequestBodyAddress'
parseJSON = String
-> (Object -> Parser PostAccountsAccountPeopleRequestBodyAddress')
-> Value
-> Parser PostAccountsAccountPeopleRequestBodyAddress'
forall a. String -> (Object -> Parser a) -> Value -> Parser a
Data.Aeson.Types.FromJSON.withObject String
"PostAccountsAccountPeopleRequestBodyAddress'" (\Object
obj -> ((((((Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> PostAccountsAccountPeopleRequestBodyAddress')
-> Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> PostAccountsAccountPeopleRequestBodyAddress')
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> PostAccountsAccountPeopleRequestBodyAddress'
PostAccountsAccountPeopleRequestBodyAddress' Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> PostAccountsAccountPeopleRequestBodyAddress')
-> Parser (Maybe Text)
-> Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> PostAccountsAccountPeopleRequestBodyAddress')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"city")) Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> PostAccountsAccountPeopleRequestBodyAddress')
-> Parser (Maybe Text)
-> Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> PostAccountsAccountPeopleRequestBodyAddress')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"country")) Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> PostAccountsAccountPeopleRequestBodyAddress')
-> Parser (Maybe Text)
-> Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> PostAccountsAccountPeopleRequestBodyAddress')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"line1")) Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> PostAccountsAccountPeopleRequestBodyAddress')
-> Parser (Maybe Text)
-> Parser
(Maybe Text
-> Maybe Text -> PostAccountsAccountPeopleRequestBodyAddress')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"line2")) Parser
(Maybe Text
-> Maybe Text -> PostAccountsAccountPeopleRequestBodyAddress')
-> Parser (Maybe Text)
-> Parser
(Maybe Text -> PostAccountsAccountPeopleRequestBodyAddress')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"postal_code")) Parser (Maybe Text -> PostAccountsAccountPeopleRequestBodyAddress')
-> Parser (Maybe Text)
-> Parser PostAccountsAccountPeopleRequestBodyAddress'
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"state"))
mkPostAccountsAccountPeopleRequestBodyAddress' :: PostAccountsAccountPeopleRequestBodyAddress'
mkPostAccountsAccountPeopleRequestBodyAddress' :: PostAccountsAccountPeopleRequestBodyAddress'
mkPostAccountsAccountPeopleRequestBodyAddress' =
PostAccountsAccountPeopleRequestBodyAddress' :: Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> PostAccountsAccountPeopleRequestBodyAddress'
PostAccountsAccountPeopleRequestBodyAddress'
{ postAccountsAccountPeopleRequestBodyAddress'City :: Maybe Text
postAccountsAccountPeopleRequestBodyAddress'City = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
postAccountsAccountPeopleRequestBodyAddress'Country :: Maybe Text
postAccountsAccountPeopleRequestBodyAddress'Country = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
postAccountsAccountPeopleRequestBodyAddress'Line1 :: Maybe Text
postAccountsAccountPeopleRequestBodyAddress'Line1 = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
postAccountsAccountPeopleRequestBodyAddress'Line2 :: Maybe Text
postAccountsAccountPeopleRequestBodyAddress'Line2 = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
postAccountsAccountPeopleRequestBodyAddress'PostalCode :: Maybe Text
postAccountsAccountPeopleRequestBodyAddress'PostalCode = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
postAccountsAccountPeopleRequestBodyAddress'State :: Maybe Text
postAccountsAccountPeopleRequestBodyAddress'State = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing
}
data PostAccountsAccountPeopleRequestBodyAddressKana' = PostAccountsAccountPeopleRequestBodyAddressKana'
{
PostAccountsAccountPeopleRequestBodyAddressKana' -> Maybe Text
postAccountsAccountPeopleRequestBodyAddressKana'City :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
PostAccountsAccountPeopleRequestBodyAddressKana' -> Maybe Text
postAccountsAccountPeopleRequestBodyAddressKana'Country :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
PostAccountsAccountPeopleRequestBodyAddressKana' -> Maybe Text
postAccountsAccountPeopleRequestBodyAddressKana'Line1 :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
PostAccountsAccountPeopleRequestBodyAddressKana' -> Maybe Text
postAccountsAccountPeopleRequestBodyAddressKana'Line2 :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
PostAccountsAccountPeopleRequestBodyAddressKana' -> Maybe Text
postAccountsAccountPeopleRequestBodyAddressKana'PostalCode :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
PostAccountsAccountPeopleRequestBodyAddressKana' -> Maybe Text
postAccountsAccountPeopleRequestBodyAddressKana'State :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
PostAccountsAccountPeopleRequestBodyAddressKana' -> Maybe Text
postAccountsAccountPeopleRequestBodyAddressKana'Town :: (GHC.Maybe.Maybe Data.Text.Internal.Text)
}
deriving
( Int
-> PostAccountsAccountPeopleRequestBodyAddressKana'
-> String
-> String
[PostAccountsAccountPeopleRequestBodyAddressKana']
-> String -> String
PostAccountsAccountPeopleRequestBodyAddressKana' -> String
(Int
-> PostAccountsAccountPeopleRequestBodyAddressKana'
-> String
-> String)
-> (PostAccountsAccountPeopleRequestBodyAddressKana' -> String)
-> ([PostAccountsAccountPeopleRequestBodyAddressKana']
-> String -> String)
-> Show PostAccountsAccountPeopleRequestBodyAddressKana'
forall a.
(Int -> a -> String -> String)
-> (a -> String) -> ([a] -> String -> String) -> Show a
showList :: [PostAccountsAccountPeopleRequestBodyAddressKana']
-> String -> String
$cshowList :: [PostAccountsAccountPeopleRequestBodyAddressKana']
-> String -> String
show :: PostAccountsAccountPeopleRequestBodyAddressKana' -> String
$cshow :: PostAccountsAccountPeopleRequestBodyAddressKana' -> String
showsPrec :: Int
-> PostAccountsAccountPeopleRequestBodyAddressKana'
-> String
-> String
$cshowsPrec :: Int
-> PostAccountsAccountPeopleRequestBodyAddressKana'
-> String
-> String
GHC.Show.Show,
PostAccountsAccountPeopleRequestBodyAddressKana'
-> PostAccountsAccountPeopleRequestBodyAddressKana' -> Bool
(PostAccountsAccountPeopleRequestBodyAddressKana'
-> PostAccountsAccountPeopleRequestBodyAddressKana' -> Bool)
-> (PostAccountsAccountPeopleRequestBodyAddressKana'
-> PostAccountsAccountPeopleRequestBodyAddressKana' -> Bool)
-> Eq PostAccountsAccountPeopleRequestBodyAddressKana'
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostAccountsAccountPeopleRequestBodyAddressKana'
-> PostAccountsAccountPeopleRequestBodyAddressKana' -> Bool
$c/= :: PostAccountsAccountPeopleRequestBodyAddressKana'
-> PostAccountsAccountPeopleRequestBodyAddressKana' -> Bool
== :: PostAccountsAccountPeopleRequestBodyAddressKana'
-> PostAccountsAccountPeopleRequestBodyAddressKana' -> Bool
$c== :: PostAccountsAccountPeopleRequestBodyAddressKana'
-> PostAccountsAccountPeopleRequestBodyAddressKana' -> Bool
GHC.Classes.Eq
)
instance Data.Aeson.Types.ToJSON.ToJSON PostAccountsAccountPeopleRequestBodyAddressKana' where
toJSON :: PostAccountsAccountPeopleRequestBodyAddressKana' -> Value
toJSON PostAccountsAccountPeopleRequestBodyAddressKana'
obj = [Pair] -> Value
Data.Aeson.Types.Internal.object (Text
"city" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsAccountPeopleRequestBodyAddressKana' -> Maybe Text
postAccountsAccountPeopleRequestBodyAddressKana'City PostAccountsAccountPeopleRequestBodyAddressKana'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"country" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsAccountPeopleRequestBodyAddressKana' -> Maybe Text
postAccountsAccountPeopleRequestBodyAddressKana'Country PostAccountsAccountPeopleRequestBodyAddressKana'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"line1" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsAccountPeopleRequestBodyAddressKana' -> Maybe Text
postAccountsAccountPeopleRequestBodyAddressKana'Line1 PostAccountsAccountPeopleRequestBodyAddressKana'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"line2" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsAccountPeopleRequestBodyAddressKana' -> Maybe Text
postAccountsAccountPeopleRequestBodyAddressKana'Line2 PostAccountsAccountPeopleRequestBodyAddressKana'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"postal_code" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsAccountPeopleRequestBodyAddressKana' -> Maybe Text
postAccountsAccountPeopleRequestBodyAddressKana'PostalCode PostAccountsAccountPeopleRequestBodyAddressKana'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"state" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsAccountPeopleRequestBodyAddressKana' -> Maybe Text
postAccountsAccountPeopleRequestBodyAddressKana'State PostAccountsAccountPeopleRequestBodyAddressKana'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"town" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsAccountPeopleRequestBodyAddressKana' -> Maybe Text
postAccountsAccountPeopleRequestBodyAddressKana'Town PostAccountsAccountPeopleRequestBodyAddressKana'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: [Pair]
forall a. Monoid a => a
GHC.Base.mempty)
toEncoding :: PostAccountsAccountPeopleRequestBodyAddressKana' -> Encoding
toEncoding PostAccountsAccountPeopleRequestBodyAddressKana'
obj = Series -> Encoding
Data.Aeson.Encoding.Internal.pairs ((Text
"city" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsAccountPeopleRequestBodyAddressKana' -> Maybe Text
postAccountsAccountPeopleRequestBodyAddressKana'City PostAccountsAccountPeopleRequestBodyAddressKana'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"country" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsAccountPeopleRequestBodyAddressKana' -> Maybe Text
postAccountsAccountPeopleRequestBodyAddressKana'Country PostAccountsAccountPeopleRequestBodyAddressKana'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"line1" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsAccountPeopleRequestBodyAddressKana' -> Maybe Text
postAccountsAccountPeopleRequestBodyAddressKana'Line1 PostAccountsAccountPeopleRequestBodyAddressKana'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"line2" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsAccountPeopleRequestBodyAddressKana' -> Maybe Text
postAccountsAccountPeopleRequestBodyAddressKana'Line2 PostAccountsAccountPeopleRequestBodyAddressKana'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"postal_code" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsAccountPeopleRequestBodyAddressKana' -> Maybe Text
postAccountsAccountPeopleRequestBodyAddressKana'PostalCode PostAccountsAccountPeopleRequestBodyAddressKana'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"state" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsAccountPeopleRequestBodyAddressKana' -> Maybe Text
postAccountsAccountPeopleRequestBodyAddressKana'State PostAccountsAccountPeopleRequestBodyAddressKana'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> (Text
"town" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsAccountPeopleRequestBodyAddressKana' -> Maybe Text
postAccountsAccountPeopleRequestBodyAddressKana'Town PostAccountsAccountPeopleRequestBodyAddressKana'
obj)))))))
instance Data.Aeson.Types.FromJSON.FromJSON PostAccountsAccountPeopleRequestBodyAddressKana' where
parseJSON :: Value -> Parser PostAccountsAccountPeopleRequestBodyAddressKana'
parseJSON = String
-> (Object
-> Parser PostAccountsAccountPeopleRequestBodyAddressKana')
-> Value
-> Parser PostAccountsAccountPeopleRequestBodyAddressKana'
forall a. String -> (Object -> Parser a) -> Value -> Parser a
Data.Aeson.Types.FromJSON.withObject String
"PostAccountsAccountPeopleRequestBodyAddressKana'" (\Object
obj -> (((((((Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> PostAccountsAccountPeopleRequestBodyAddressKana')
-> Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> PostAccountsAccountPeopleRequestBodyAddressKana')
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> PostAccountsAccountPeopleRequestBodyAddressKana'
PostAccountsAccountPeopleRequestBodyAddressKana' Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> PostAccountsAccountPeopleRequestBodyAddressKana')
-> Parser (Maybe Text)
-> Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> PostAccountsAccountPeopleRequestBodyAddressKana')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"city")) Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> PostAccountsAccountPeopleRequestBodyAddressKana')
-> Parser (Maybe Text)
-> Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> PostAccountsAccountPeopleRequestBodyAddressKana')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"country")) Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> PostAccountsAccountPeopleRequestBodyAddressKana')
-> Parser (Maybe Text)
-> Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> PostAccountsAccountPeopleRequestBodyAddressKana')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"line1")) Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> PostAccountsAccountPeopleRequestBodyAddressKana')
-> Parser (Maybe Text)
-> Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> PostAccountsAccountPeopleRequestBodyAddressKana')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"line2")) Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> PostAccountsAccountPeopleRequestBodyAddressKana')
-> Parser (Maybe Text)
-> Parser
(Maybe Text
-> Maybe Text -> PostAccountsAccountPeopleRequestBodyAddressKana')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"postal_code")) Parser
(Maybe Text
-> Maybe Text -> PostAccountsAccountPeopleRequestBodyAddressKana')
-> Parser (Maybe Text)
-> Parser
(Maybe Text -> PostAccountsAccountPeopleRequestBodyAddressKana')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"state")) Parser
(Maybe Text -> PostAccountsAccountPeopleRequestBodyAddressKana')
-> Parser (Maybe Text)
-> Parser PostAccountsAccountPeopleRequestBodyAddressKana'
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"town"))
mkPostAccountsAccountPeopleRequestBodyAddressKana' :: PostAccountsAccountPeopleRequestBodyAddressKana'
mkPostAccountsAccountPeopleRequestBodyAddressKana' :: PostAccountsAccountPeopleRequestBodyAddressKana'
mkPostAccountsAccountPeopleRequestBodyAddressKana' =
PostAccountsAccountPeopleRequestBodyAddressKana' :: Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> PostAccountsAccountPeopleRequestBodyAddressKana'
PostAccountsAccountPeopleRequestBodyAddressKana'
{ postAccountsAccountPeopleRequestBodyAddressKana'City :: Maybe Text
postAccountsAccountPeopleRequestBodyAddressKana'City = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
postAccountsAccountPeopleRequestBodyAddressKana'Country :: Maybe Text
postAccountsAccountPeopleRequestBodyAddressKana'Country = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
postAccountsAccountPeopleRequestBodyAddressKana'Line1 :: Maybe Text
postAccountsAccountPeopleRequestBodyAddressKana'Line1 = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
postAccountsAccountPeopleRequestBodyAddressKana'Line2 :: Maybe Text
postAccountsAccountPeopleRequestBodyAddressKana'Line2 = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
postAccountsAccountPeopleRequestBodyAddressKana'PostalCode :: Maybe Text
postAccountsAccountPeopleRequestBodyAddressKana'PostalCode = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
postAccountsAccountPeopleRequestBodyAddressKana'State :: Maybe Text
postAccountsAccountPeopleRequestBodyAddressKana'State = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
postAccountsAccountPeopleRequestBodyAddressKana'Town :: Maybe Text
postAccountsAccountPeopleRequestBodyAddressKana'Town = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing
}
data PostAccountsAccountPeopleRequestBodyAddressKanji' = PostAccountsAccountPeopleRequestBodyAddressKanji'
{
PostAccountsAccountPeopleRequestBodyAddressKanji' -> Maybe Text
postAccountsAccountPeopleRequestBodyAddressKanji'City :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
PostAccountsAccountPeopleRequestBodyAddressKanji' -> Maybe Text
postAccountsAccountPeopleRequestBodyAddressKanji'Country :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
PostAccountsAccountPeopleRequestBodyAddressKanji' -> Maybe Text
postAccountsAccountPeopleRequestBodyAddressKanji'Line1 :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
PostAccountsAccountPeopleRequestBodyAddressKanji' -> Maybe Text
postAccountsAccountPeopleRequestBodyAddressKanji'Line2 :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
PostAccountsAccountPeopleRequestBodyAddressKanji' -> Maybe Text
postAccountsAccountPeopleRequestBodyAddressKanji'PostalCode :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
PostAccountsAccountPeopleRequestBodyAddressKanji' -> Maybe Text
postAccountsAccountPeopleRequestBodyAddressKanji'State :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
PostAccountsAccountPeopleRequestBodyAddressKanji' -> Maybe Text
postAccountsAccountPeopleRequestBodyAddressKanji'Town :: (GHC.Maybe.Maybe Data.Text.Internal.Text)
}
deriving
( Int
-> PostAccountsAccountPeopleRequestBodyAddressKanji'
-> String
-> String
[PostAccountsAccountPeopleRequestBodyAddressKanji']
-> String -> String
PostAccountsAccountPeopleRequestBodyAddressKanji' -> String
(Int
-> PostAccountsAccountPeopleRequestBodyAddressKanji'
-> String
-> String)
-> (PostAccountsAccountPeopleRequestBodyAddressKanji' -> String)
-> ([PostAccountsAccountPeopleRequestBodyAddressKanji']
-> String -> String)
-> Show PostAccountsAccountPeopleRequestBodyAddressKanji'
forall a.
(Int -> a -> String -> String)
-> (a -> String) -> ([a] -> String -> String) -> Show a
showList :: [PostAccountsAccountPeopleRequestBodyAddressKanji']
-> String -> String
$cshowList :: [PostAccountsAccountPeopleRequestBodyAddressKanji']
-> String -> String
show :: PostAccountsAccountPeopleRequestBodyAddressKanji' -> String
$cshow :: PostAccountsAccountPeopleRequestBodyAddressKanji' -> String
showsPrec :: Int
-> PostAccountsAccountPeopleRequestBodyAddressKanji'
-> String
-> String
$cshowsPrec :: Int
-> PostAccountsAccountPeopleRequestBodyAddressKanji'
-> String
-> String
GHC.Show.Show,
PostAccountsAccountPeopleRequestBodyAddressKanji'
-> PostAccountsAccountPeopleRequestBodyAddressKanji' -> Bool
(PostAccountsAccountPeopleRequestBodyAddressKanji'
-> PostAccountsAccountPeopleRequestBodyAddressKanji' -> Bool)
-> (PostAccountsAccountPeopleRequestBodyAddressKanji'
-> PostAccountsAccountPeopleRequestBodyAddressKanji' -> Bool)
-> Eq PostAccountsAccountPeopleRequestBodyAddressKanji'
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostAccountsAccountPeopleRequestBodyAddressKanji'
-> PostAccountsAccountPeopleRequestBodyAddressKanji' -> Bool
$c/= :: PostAccountsAccountPeopleRequestBodyAddressKanji'
-> PostAccountsAccountPeopleRequestBodyAddressKanji' -> Bool
== :: PostAccountsAccountPeopleRequestBodyAddressKanji'
-> PostAccountsAccountPeopleRequestBodyAddressKanji' -> Bool
$c== :: PostAccountsAccountPeopleRequestBodyAddressKanji'
-> PostAccountsAccountPeopleRequestBodyAddressKanji' -> Bool
GHC.Classes.Eq
)
instance Data.Aeson.Types.ToJSON.ToJSON PostAccountsAccountPeopleRequestBodyAddressKanji' where
toJSON :: PostAccountsAccountPeopleRequestBodyAddressKanji' -> Value
toJSON PostAccountsAccountPeopleRequestBodyAddressKanji'
obj = [Pair] -> Value
Data.Aeson.Types.Internal.object (Text
"city" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsAccountPeopleRequestBodyAddressKanji' -> Maybe Text
postAccountsAccountPeopleRequestBodyAddressKanji'City PostAccountsAccountPeopleRequestBodyAddressKanji'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"country" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsAccountPeopleRequestBodyAddressKanji' -> Maybe Text
postAccountsAccountPeopleRequestBodyAddressKanji'Country PostAccountsAccountPeopleRequestBodyAddressKanji'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"line1" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsAccountPeopleRequestBodyAddressKanji' -> Maybe Text
postAccountsAccountPeopleRequestBodyAddressKanji'Line1 PostAccountsAccountPeopleRequestBodyAddressKanji'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"line2" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsAccountPeopleRequestBodyAddressKanji' -> Maybe Text
postAccountsAccountPeopleRequestBodyAddressKanji'Line2 PostAccountsAccountPeopleRequestBodyAddressKanji'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"postal_code" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsAccountPeopleRequestBodyAddressKanji' -> Maybe Text
postAccountsAccountPeopleRequestBodyAddressKanji'PostalCode PostAccountsAccountPeopleRequestBodyAddressKanji'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"state" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsAccountPeopleRequestBodyAddressKanji' -> Maybe Text
postAccountsAccountPeopleRequestBodyAddressKanji'State PostAccountsAccountPeopleRequestBodyAddressKanji'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"town" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsAccountPeopleRequestBodyAddressKanji' -> Maybe Text
postAccountsAccountPeopleRequestBodyAddressKanji'Town PostAccountsAccountPeopleRequestBodyAddressKanji'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: [Pair]
forall a. Monoid a => a
GHC.Base.mempty)
toEncoding :: PostAccountsAccountPeopleRequestBodyAddressKanji' -> Encoding
toEncoding PostAccountsAccountPeopleRequestBodyAddressKanji'
obj = Series -> Encoding
Data.Aeson.Encoding.Internal.pairs ((Text
"city" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsAccountPeopleRequestBodyAddressKanji' -> Maybe Text
postAccountsAccountPeopleRequestBodyAddressKanji'City PostAccountsAccountPeopleRequestBodyAddressKanji'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"country" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsAccountPeopleRequestBodyAddressKanji' -> Maybe Text
postAccountsAccountPeopleRequestBodyAddressKanji'Country PostAccountsAccountPeopleRequestBodyAddressKanji'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"line1" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsAccountPeopleRequestBodyAddressKanji' -> Maybe Text
postAccountsAccountPeopleRequestBodyAddressKanji'Line1 PostAccountsAccountPeopleRequestBodyAddressKanji'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"line2" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsAccountPeopleRequestBodyAddressKanji' -> Maybe Text
postAccountsAccountPeopleRequestBodyAddressKanji'Line2 PostAccountsAccountPeopleRequestBodyAddressKanji'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"postal_code" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsAccountPeopleRequestBodyAddressKanji' -> Maybe Text
postAccountsAccountPeopleRequestBodyAddressKanji'PostalCode PostAccountsAccountPeopleRequestBodyAddressKanji'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"state" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsAccountPeopleRequestBodyAddressKanji' -> Maybe Text
postAccountsAccountPeopleRequestBodyAddressKanji'State PostAccountsAccountPeopleRequestBodyAddressKanji'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> (Text
"town" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsAccountPeopleRequestBodyAddressKanji' -> Maybe Text
postAccountsAccountPeopleRequestBodyAddressKanji'Town PostAccountsAccountPeopleRequestBodyAddressKanji'
obj)))))))
instance Data.Aeson.Types.FromJSON.FromJSON PostAccountsAccountPeopleRequestBodyAddressKanji' where
parseJSON :: Value -> Parser PostAccountsAccountPeopleRequestBodyAddressKanji'
parseJSON = String
-> (Object
-> Parser PostAccountsAccountPeopleRequestBodyAddressKanji')
-> Value
-> Parser PostAccountsAccountPeopleRequestBodyAddressKanji'
forall a. String -> (Object -> Parser a) -> Value -> Parser a
Data.Aeson.Types.FromJSON.withObject String
"PostAccountsAccountPeopleRequestBodyAddressKanji'" (\Object
obj -> (((((((Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> PostAccountsAccountPeopleRequestBodyAddressKanji')
-> Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> PostAccountsAccountPeopleRequestBodyAddressKanji')
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> PostAccountsAccountPeopleRequestBodyAddressKanji'
PostAccountsAccountPeopleRequestBodyAddressKanji' Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> PostAccountsAccountPeopleRequestBodyAddressKanji')
-> Parser (Maybe Text)
-> Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> PostAccountsAccountPeopleRequestBodyAddressKanji')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"city")) Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> PostAccountsAccountPeopleRequestBodyAddressKanji')
-> Parser (Maybe Text)
-> Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> PostAccountsAccountPeopleRequestBodyAddressKanji')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"country")) Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> PostAccountsAccountPeopleRequestBodyAddressKanji')
-> Parser (Maybe Text)
-> Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> PostAccountsAccountPeopleRequestBodyAddressKanji')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"line1")) Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> PostAccountsAccountPeopleRequestBodyAddressKanji')
-> Parser (Maybe Text)
-> Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> PostAccountsAccountPeopleRequestBodyAddressKanji')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"line2")) Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> PostAccountsAccountPeopleRequestBodyAddressKanji')
-> Parser (Maybe Text)
-> Parser
(Maybe Text
-> Maybe Text -> PostAccountsAccountPeopleRequestBodyAddressKanji')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"postal_code")) Parser
(Maybe Text
-> Maybe Text -> PostAccountsAccountPeopleRequestBodyAddressKanji')
-> Parser (Maybe Text)
-> Parser
(Maybe Text -> PostAccountsAccountPeopleRequestBodyAddressKanji')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"state")) Parser
(Maybe Text -> PostAccountsAccountPeopleRequestBodyAddressKanji')
-> Parser (Maybe Text)
-> Parser PostAccountsAccountPeopleRequestBodyAddressKanji'
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"town"))
mkPostAccountsAccountPeopleRequestBodyAddressKanji' :: PostAccountsAccountPeopleRequestBodyAddressKanji'
mkPostAccountsAccountPeopleRequestBodyAddressKanji' :: PostAccountsAccountPeopleRequestBodyAddressKanji'
mkPostAccountsAccountPeopleRequestBodyAddressKanji' =
PostAccountsAccountPeopleRequestBodyAddressKanji' :: Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> PostAccountsAccountPeopleRequestBodyAddressKanji'
PostAccountsAccountPeopleRequestBodyAddressKanji'
{ postAccountsAccountPeopleRequestBodyAddressKanji'City :: Maybe Text
postAccountsAccountPeopleRequestBodyAddressKanji'City = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
postAccountsAccountPeopleRequestBodyAddressKanji'Country :: Maybe Text
postAccountsAccountPeopleRequestBodyAddressKanji'Country = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
postAccountsAccountPeopleRequestBodyAddressKanji'Line1 :: Maybe Text
postAccountsAccountPeopleRequestBodyAddressKanji'Line1 = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
postAccountsAccountPeopleRequestBodyAddressKanji'Line2 :: Maybe Text
postAccountsAccountPeopleRequestBodyAddressKanji'Line2 = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
postAccountsAccountPeopleRequestBodyAddressKanji'PostalCode :: Maybe Text
postAccountsAccountPeopleRequestBodyAddressKanji'PostalCode = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
postAccountsAccountPeopleRequestBodyAddressKanji'State :: Maybe Text
postAccountsAccountPeopleRequestBodyAddressKanji'State = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
postAccountsAccountPeopleRequestBodyAddressKanji'Town :: Maybe Text
postAccountsAccountPeopleRequestBodyAddressKanji'Town = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing
}
data PostAccountsAccountPeopleRequestBodyDob'OneOf1 = PostAccountsAccountPeopleRequestBodyDob'OneOf1
{
PostAccountsAccountPeopleRequestBodyDob'OneOf1 -> Int
postAccountsAccountPeopleRequestBodyDob'OneOf1Day :: GHC.Types.Int,
PostAccountsAccountPeopleRequestBodyDob'OneOf1 -> Int
postAccountsAccountPeopleRequestBodyDob'OneOf1Month :: GHC.Types.Int,
PostAccountsAccountPeopleRequestBodyDob'OneOf1 -> Int
postAccountsAccountPeopleRequestBodyDob'OneOf1Year :: GHC.Types.Int
}
deriving
( Int
-> PostAccountsAccountPeopleRequestBodyDob'OneOf1
-> String
-> String
[PostAccountsAccountPeopleRequestBodyDob'OneOf1]
-> String -> String
PostAccountsAccountPeopleRequestBodyDob'OneOf1 -> String
(Int
-> PostAccountsAccountPeopleRequestBodyDob'OneOf1
-> String
-> String)
-> (PostAccountsAccountPeopleRequestBodyDob'OneOf1 -> String)
-> ([PostAccountsAccountPeopleRequestBodyDob'OneOf1]
-> String -> String)
-> Show PostAccountsAccountPeopleRequestBodyDob'OneOf1
forall a.
(Int -> a -> String -> String)
-> (a -> String) -> ([a] -> String -> String) -> Show a
showList :: [PostAccountsAccountPeopleRequestBodyDob'OneOf1]
-> String -> String
$cshowList :: [PostAccountsAccountPeopleRequestBodyDob'OneOf1]
-> String -> String
show :: PostAccountsAccountPeopleRequestBodyDob'OneOf1 -> String
$cshow :: PostAccountsAccountPeopleRequestBodyDob'OneOf1 -> String
showsPrec :: Int
-> PostAccountsAccountPeopleRequestBodyDob'OneOf1
-> String
-> String
$cshowsPrec :: Int
-> PostAccountsAccountPeopleRequestBodyDob'OneOf1
-> String
-> String
GHC.Show.Show,
PostAccountsAccountPeopleRequestBodyDob'OneOf1
-> PostAccountsAccountPeopleRequestBodyDob'OneOf1 -> Bool
(PostAccountsAccountPeopleRequestBodyDob'OneOf1
-> PostAccountsAccountPeopleRequestBodyDob'OneOf1 -> Bool)
-> (PostAccountsAccountPeopleRequestBodyDob'OneOf1
-> PostAccountsAccountPeopleRequestBodyDob'OneOf1 -> Bool)
-> Eq PostAccountsAccountPeopleRequestBodyDob'OneOf1
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostAccountsAccountPeopleRequestBodyDob'OneOf1
-> PostAccountsAccountPeopleRequestBodyDob'OneOf1 -> Bool
$c/= :: PostAccountsAccountPeopleRequestBodyDob'OneOf1
-> PostAccountsAccountPeopleRequestBodyDob'OneOf1 -> Bool
== :: PostAccountsAccountPeopleRequestBodyDob'OneOf1
-> PostAccountsAccountPeopleRequestBodyDob'OneOf1 -> Bool
$c== :: PostAccountsAccountPeopleRequestBodyDob'OneOf1
-> PostAccountsAccountPeopleRequestBodyDob'OneOf1 -> Bool
GHC.Classes.Eq
)
instance Data.Aeson.Types.ToJSON.ToJSON PostAccountsAccountPeopleRequestBodyDob'OneOf1 where
toJSON :: PostAccountsAccountPeopleRequestBodyDob'OneOf1 -> Value
toJSON PostAccountsAccountPeopleRequestBodyDob'OneOf1
obj = [Pair] -> Value
Data.Aeson.Types.Internal.object (Text
"day" Text -> Int -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsAccountPeopleRequestBodyDob'OneOf1 -> Int
postAccountsAccountPeopleRequestBodyDob'OneOf1Day PostAccountsAccountPeopleRequestBodyDob'OneOf1
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"month" Text -> Int -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsAccountPeopleRequestBodyDob'OneOf1 -> Int
postAccountsAccountPeopleRequestBodyDob'OneOf1Month PostAccountsAccountPeopleRequestBodyDob'OneOf1
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"year" Text -> Int -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsAccountPeopleRequestBodyDob'OneOf1 -> Int
postAccountsAccountPeopleRequestBodyDob'OneOf1Year PostAccountsAccountPeopleRequestBodyDob'OneOf1
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: [Pair]
forall a. Monoid a => a
GHC.Base.mempty)
toEncoding :: PostAccountsAccountPeopleRequestBodyDob'OneOf1 -> Encoding
toEncoding PostAccountsAccountPeopleRequestBodyDob'OneOf1
obj = Series -> Encoding
Data.Aeson.Encoding.Internal.pairs ((Text
"day" Text -> Int -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsAccountPeopleRequestBodyDob'OneOf1 -> Int
postAccountsAccountPeopleRequestBodyDob'OneOf1Day PostAccountsAccountPeopleRequestBodyDob'OneOf1
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"month" Text -> Int -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsAccountPeopleRequestBodyDob'OneOf1 -> Int
postAccountsAccountPeopleRequestBodyDob'OneOf1Month PostAccountsAccountPeopleRequestBodyDob'OneOf1
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> (Text
"year" Text -> Int -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsAccountPeopleRequestBodyDob'OneOf1 -> Int
postAccountsAccountPeopleRequestBodyDob'OneOf1Year PostAccountsAccountPeopleRequestBodyDob'OneOf1
obj)))
instance Data.Aeson.Types.FromJSON.FromJSON PostAccountsAccountPeopleRequestBodyDob'OneOf1 where
parseJSON :: Value -> Parser PostAccountsAccountPeopleRequestBodyDob'OneOf1
parseJSON = String
-> (Object
-> Parser PostAccountsAccountPeopleRequestBodyDob'OneOf1)
-> Value
-> Parser PostAccountsAccountPeopleRequestBodyDob'OneOf1
forall a. String -> (Object -> Parser a) -> Value -> Parser a
Data.Aeson.Types.FromJSON.withObject String
"PostAccountsAccountPeopleRequestBodyDob'OneOf1" (\Object
obj -> (((Int
-> Int -> Int -> PostAccountsAccountPeopleRequestBodyDob'OneOf1)
-> Parser
(Int
-> Int -> Int -> PostAccountsAccountPeopleRequestBodyDob'OneOf1)
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure Int -> Int -> Int -> PostAccountsAccountPeopleRequestBodyDob'OneOf1
PostAccountsAccountPeopleRequestBodyDob'OneOf1 Parser
(Int
-> Int -> Int -> PostAccountsAccountPeopleRequestBodyDob'OneOf1)
-> Parser Int
-> Parser
(Int -> Int -> PostAccountsAccountPeopleRequestBodyDob'OneOf1)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser Int
forall a. FromJSON a => Object -> Text -> Parser a
Data.Aeson.Types.FromJSON..: Text
"day")) Parser
(Int -> Int -> PostAccountsAccountPeopleRequestBodyDob'OneOf1)
-> Parser Int
-> Parser (Int -> PostAccountsAccountPeopleRequestBodyDob'OneOf1)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser Int
forall a. FromJSON a => Object -> Text -> Parser a
Data.Aeson.Types.FromJSON..: Text
"month")) Parser (Int -> PostAccountsAccountPeopleRequestBodyDob'OneOf1)
-> Parser Int
-> Parser PostAccountsAccountPeopleRequestBodyDob'OneOf1
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser Int
forall a. FromJSON a => Object -> Text -> Parser a
Data.Aeson.Types.FromJSON..: Text
"year"))
mkPostAccountsAccountPeopleRequestBodyDob'OneOf1 ::
GHC.Types.Int ->
GHC.Types.Int ->
GHC.Types.Int ->
PostAccountsAccountPeopleRequestBodyDob'OneOf1
mkPostAccountsAccountPeopleRequestBodyDob'OneOf1 :: Int -> Int -> Int -> PostAccountsAccountPeopleRequestBodyDob'OneOf1
mkPostAccountsAccountPeopleRequestBodyDob'OneOf1 Int
postAccountsAccountPeopleRequestBodyDob'OneOf1Day Int
postAccountsAccountPeopleRequestBodyDob'OneOf1Month Int
postAccountsAccountPeopleRequestBodyDob'OneOf1Year =
PostAccountsAccountPeopleRequestBodyDob'OneOf1 :: Int -> Int -> Int -> PostAccountsAccountPeopleRequestBodyDob'OneOf1
PostAccountsAccountPeopleRequestBodyDob'OneOf1
{ postAccountsAccountPeopleRequestBodyDob'OneOf1Day :: Int
postAccountsAccountPeopleRequestBodyDob'OneOf1Day = Int
postAccountsAccountPeopleRequestBodyDob'OneOf1Day,
postAccountsAccountPeopleRequestBodyDob'OneOf1Month :: Int
postAccountsAccountPeopleRequestBodyDob'OneOf1Month = Int
postAccountsAccountPeopleRequestBodyDob'OneOf1Month,
postAccountsAccountPeopleRequestBodyDob'OneOf1Year :: Int
postAccountsAccountPeopleRequestBodyDob'OneOf1Year = Int
postAccountsAccountPeopleRequestBodyDob'OneOf1Year
}
data PostAccountsAccountPeopleRequestBodyDob'Variants
=
PostAccountsAccountPeopleRequestBodyDob'EmptyString
| PostAccountsAccountPeopleRequestBodyDob'PostAccountsAccountPeopleRequestBodyDob'OneOf1 PostAccountsAccountPeopleRequestBodyDob'OneOf1
deriving (Int
-> PostAccountsAccountPeopleRequestBodyDob'Variants
-> String
-> String
[PostAccountsAccountPeopleRequestBodyDob'Variants]
-> String -> String
PostAccountsAccountPeopleRequestBodyDob'Variants -> String
(Int
-> PostAccountsAccountPeopleRequestBodyDob'Variants
-> String
-> String)
-> (PostAccountsAccountPeopleRequestBodyDob'Variants -> String)
-> ([PostAccountsAccountPeopleRequestBodyDob'Variants]
-> String -> String)
-> Show PostAccountsAccountPeopleRequestBodyDob'Variants
forall a.
(Int -> a -> String -> String)
-> (a -> String) -> ([a] -> String -> String) -> Show a
showList :: [PostAccountsAccountPeopleRequestBodyDob'Variants]
-> String -> String
$cshowList :: [PostAccountsAccountPeopleRequestBodyDob'Variants]
-> String -> String
show :: PostAccountsAccountPeopleRequestBodyDob'Variants -> String
$cshow :: PostAccountsAccountPeopleRequestBodyDob'Variants -> String
showsPrec :: Int
-> PostAccountsAccountPeopleRequestBodyDob'Variants
-> String
-> String
$cshowsPrec :: Int
-> PostAccountsAccountPeopleRequestBodyDob'Variants
-> String
-> String
GHC.Show.Show, PostAccountsAccountPeopleRequestBodyDob'Variants
-> PostAccountsAccountPeopleRequestBodyDob'Variants -> Bool
(PostAccountsAccountPeopleRequestBodyDob'Variants
-> PostAccountsAccountPeopleRequestBodyDob'Variants -> Bool)
-> (PostAccountsAccountPeopleRequestBodyDob'Variants
-> PostAccountsAccountPeopleRequestBodyDob'Variants -> Bool)
-> Eq PostAccountsAccountPeopleRequestBodyDob'Variants
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostAccountsAccountPeopleRequestBodyDob'Variants
-> PostAccountsAccountPeopleRequestBodyDob'Variants -> Bool
$c/= :: PostAccountsAccountPeopleRequestBodyDob'Variants
-> PostAccountsAccountPeopleRequestBodyDob'Variants -> Bool
== :: PostAccountsAccountPeopleRequestBodyDob'Variants
-> PostAccountsAccountPeopleRequestBodyDob'Variants -> Bool
$c== :: PostAccountsAccountPeopleRequestBodyDob'Variants
-> PostAccountsAccountPeopleRequestBodyDob'Variants -> Bool
GHC.Classes.Eq)
instance Data.Aeson.Types.ToJSON.ToJSON PostAccountsAccountPeopleRequestBodyDob'Variants where
toJSON :: PostAccountsAccountPeopleRequestBodyDob'Variants -> Value
toJSON (PostAccountsAccountPeopleRequestBodyDob'PostAccountsAccountPeopleRequestBodyDob'OneOf1 PostAccountsAccountPeopleRequestBodyDob'OneOf1
a) = PostAccountsAccountPeopleRequestBodyDob'OneOf1 -> Value
forall a. ToJSON a => a -> Value
Data.Aeson.Types.ToJSON.toJSON PostAccountsAccountPeopleRequestBodyDob'OneOf1
a
toJSON (PostAccountsAccountPeopleRequestBodyDob'Variants
PostAccountsAccountPeopleRequestBodyDob'EmptyString) = Value
""
instance Data.Aeson.Types.FromJSON.FromJSON PostAccountsAccountPeopleRequestBodyDob'Variants where
parseJSON :: Value -> Parser PostAccountsAccountPeopleRequestBodyDob'Variants
parseJSON Value
val =
if
| Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"" -> PostAccountsAccountPeopleRequestBodyDob'Variants
-> Parser PostAccountsAccountPeopleRequestBodyDob'Variants
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure PostAccountsAccountPeopleRequestBodyDob'Variants
PostAccountsAccountPeopleRequestBodyDob'EmptyString
| Bool
GHC.Base.otherwise -> case (PostAccountsAccountPeopleRequestBodyDob'OneOf1
-> PostAccountsAccountPeopleRequestBodyDob'Variants
PostAccountsAccountPeopleRequestBodyDob'PostAccountsAccountPeopleRequestBodyDob'OneOf1 (PostAccountsAccountPeopleRequestBodyDob'OneOf1
-> PostAccountsAccountPeopleRequestBodyDob'Variants)
-> Result PostAccountsAccountPeopleRequestBodyDob'OneOf1
-> Result PostAccountsAccountPeopleRequestBodyDob'Variants
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Data.Functor.<$> Value -> Result PostAccountsAccountPeopleRequestBodyDob'OneOf1
forall a. FromJSON a => Value -> Result a
Data.Aeson.Types.FromJSON.fromJSON Value
val) Result PostAccountsAccountPeopleRequestBodyDob'Variants
-> Result PostAccountsAccountPeopleRequestBodyDob'Variants
-> Result PostAccountsAccountPeopleRequestBodyDob'Variants
forall (f :: * -> *) a. Alternative f => f a -> f a -> f a
GHC.Base.<|> String -> Result PostAccountsAccountPeopleRequestBodyDob'Variants
forall a. String -> Result a
Data.Aeson.Types.Internal.Error String
"No variant matched" of
Data.Aeson.Types.Internal.Success PostAccountsAccountPeopleRequestBodyDob'Variants
a -> PostAccountsAccountPeopleRequestBodyDob'Variants
-> Parser PostAccountsAccountPeopleRequestBodyDob'Variants
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure PostAccountsAccountPeopleRequestBodyDob'Variants
a
Data.Aeson.Types.Internal.Error String
a -> String -> Parser PostAccountsAccountPeopleRequestBodyDob'Variants
forall (m :: * -> *) a. MonadFail m => String -> m a
Control.Monad.Fail.fail String
a
data PostAccountsAccountPeopleRequestBodyDocuments' = PostAccountsAccountPeopleRequestBodyDocuments'
{
PostAccountsAccountPeopleRequestBodyDocuments'
-> Maybe
PostAccountsAccountPeopleRequestBodyDocuments'CompanyAuthorization'
postAccountsAccountPeopleRequestBodyDocuments'CompanyAuthorization :: (GHC.Maybe.Maybe PostAccountsAccountPeopleRequestBodyDocuments'CompanyAuthorization'),
PostAccountsAccountPeopleRequestBodyDocuments'
-> Maybe PostAccountsAccountPeopleRequestBodyDocuments'Passport'
postAccountsAccountPeopleRequestBodyDocuments'Passport :: (GHC.Maybe.Maybe PostAccountsAccountPeopleRequestBodyDocuments'Passport'),
PostAccountsAccountPeopleRequestBodyDocuments'
-> Maybe PostAccountsAccountPeopleRequestBodyDocuments'Visa'
postAccountsAccountPeopleRequestBodyDocuments'Visa :: (GHC.Maybe.Maybe PostAccountsAccountPeopleRequestBodyDocuments'Visa')
}
deriving
( Int
-> PostAccountsAccountPeopleRequestBodyDocuments'
-> String
-> String
[PostAccountsAccountPeopleRequestBodyDocuments']
-> String -> String
PostAccountsAccountPeopleRequestBodyDocuments' -> String
(Int
-> PostAccountsAccountPeopleRequestBodyDocuments'
-> String
-> String)
-> (PostAccountsAccountPeopleRequestBodyDocuments' -> String)
-> ([PostAccountsAccountPeopleRequestBodyDocuments']
-> String -> String)
-> Show PostAccountsAccountPeopleRequestBodyDocuments'
forall a.
(Int -> a -> String -> String)
-> (a -> String) -> ([a] -> String -> String) -> Show a
showList :: [PostAccountsAccountPeopleRequestBodyDocuments']
-> String -> String
$cshowList :: [PostAccountsAccountPeopleRequestBodyDocuments']
-> String -> String
show :: PostAccountsAccountPeopleRequestBodyDocuments' -> String
$cshow :: PostAccountsAccountPeopleRequestBodyDocuments' -> String
showsPrec :: Int
-> PostAccountsAccountPeopleRequestBodyDocuments'
-> String
-> String
$cshowsPrec :: Int
-> PostAccountsAccountPeopleRequestBodyDocuments'
-> String
-> String
GHC.Show.Show,
PostAccountsAccountPeopleRequestBodyDocuments'
-> PostAccountsAccountPeopleRequestBodyDocuments' -> Bool
(PostAccountsAccountPeopleRequestBodyDocuments'
-> PostAccountsAccountPeopleRequestBodyDocuments' -> Bool)
-> (PostAccountsAccountPeopleRequestBodyDocuments'
-> PostAccountsAccountPeopleRequestBodyDocuments' -> Bool)
-> Eq PostAccountsAccountPeopleRequestBodyDocuments'
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostAccountsAccountPeopleRequestBodyDocuments'
-> PostAccountsAccountPeopleRequestBodyDocuments' -> Bool
$c/= :: PostAccountsAccountPeopleRequestBodyDocuments'
-> PostAccountsAccountPeopleRequestBodyDocuments' -> Bool
== :: PostAccountsAccountPeopleRequestBodyDocuments'
-> PostAccountsAccountPeopleRequestBodyDocuments' -> Bool
$c== :: PostAccountsAccountPeopleRequestBodyDocuments'
-> PostAccountsAccountPeopleRequestBodyDocuments' -> Bool
GHC.Classes.Eq
)
instance Data.Aeson.Types.ToJSON.ToJSON PostAccountsAccountPeopleRequestBodyDocuments' where
toJSON :: PostAccountsAccountPeopleRequestBodyDocuments' -> Value
toJSON PostAccountsAccountPeopleRequestBodyDocuments'
obj = [Pair] -> Value
Data.Aeson.Types.Internal.object (Text
"company_authorization" Text
-> Maybe
PostAccountsAccountPeopleRequestBodyDocuments'CompanyAuthorization'
-> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsAccountPeopleRequestBodyDocuments'
-> Maybe
PostAccountsAccountPeopleRequestBodyDocuments'CompanyAuthorization'
postAccountsAccountPeopleRequestBodyDocuments'CompanyAuthorization PostAccountsAccountPeopleRequestBodyDocuments'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"passport" Text
-> Maybe PostAccountsAccountPeopleRequestBodyDocuments'Passport'
-> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsAccountPeopleRequestBodyDocuments'
-> Maybe PostAccountsAccountPeopleRequestBodyDocuments'Passport'
postAccountsAccountPeopleRequestBodyDocuments'Passport PostAccountsAccountPeopleRequestBodyDocuments'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"visa" Text
-> Maybe PostAccountsAccountPeopleRequestBodyDocuments'Visa'
-> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsAccountPeopleRequestBodyDocuments'
-> Maybe PostAccountsAccountPeopleRequestBodyDocuments'Visa'
postAccountsAccountPeopleRequestBodyDocuments'Visa PostAccountsAccountPeopleRequestBodyDocuments'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: [Pair]
forall a. Monoid a => a
GHC.Base.mempty)
toEncoding :: PostAccountsAccountPeopleRequestBodyDocuments' -> Encoding
toEncoding PostAccountsAccountPeopleRequestBodyDocuments'
obj = Series -> Encoding
Data.Aeson.Encoding.Internal.pairs ((Text
"company_authorization" Text
-> Maybe
PostAccountsAccountPeopleRequestBodyDocuments'CompanyAuthorization'
-> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsAccountPeopleRequestBodyDocuments'
-> Maybe
PostAccountsAccountPeopleRequestBodyDocuments'CompanyAuthorization'
postAccountsAccountPeopleRequestBodyDocuments'CompanyAuthorization PostAccountsAccountPeopleRequestBodyDocuments'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"passport" Text
-> Maybe PostAccountsAccountPeopleRequestBodyDocuments'Passport'
-> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsAccountPeopleRequestBodyDocuments'
-> Maybe PostAccountsAccountPeopleRequestBodyDocuments'Passport'
postAccountsAccountPeopleRequestBodyDocuments'Passport PostAccountsAccountPeopleRequestBodyDocuments'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> (Text
"visa" Text
-> Maybe PostAccountsAccountPeopleRequestBodyDocuments'Visa'
-> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsAccountPeopleRequestBodyDocuments'
-> Maybe PostAccountsAccountPeopleRequestBodyDocuments'Visa'
postAccountsAccountPeopleRequestBodyDocuments'Visa PostAccountsAccountPeopleRequestBodyDocuments'
obj)))
instance Data.Aeson.Types.FromJSON.FromJSON PostAccountsAccountPeopleRequestBodyDocuments' where
parseJSON :: Value -> Parser PostAccountsAccountPeopleRequestBodyDocuments'
parseJSON = String
-> (Object
-> Parser PostAccountsAccountPeopleRequestBodyDocuments')
-> Value
-> Parser PostAccountsAccountPeopleRequestBodyDocuments'
forall a. String -> (Object -> Parser a) -> Value -> Parser a
Data.Aeson.Types.FromJSON.withObject String
"PostAccountsAccountPeopleRequestBodyDocuments'" (\Object
obj -> (((Maybe
PostAccountsAccountPeopleRequestBodyDocuments'CompanyAuthorization'
-> Maybe PostAccountsAccountPeopleRequestBodyDocuments'Passport'
-> Maybe PostAccountsAccountPeopleRequestBodyDocuments'Visa'
-> PostAccountsAccountPeopleRequestBodyDocuments')
-> Parser
(Maybe
PostAccountsAccountPeopleRequestBodyDocuments'CompanyAuthorization'
-> Maybe PostAccountsAccountPeopleRequestBodyDocuments'Passport'
-> Maybe PostAccountsAccountPeopleRequestBodyDocuments'Visa'
-> PostAccountsAccountPeopleRequestBodyDocuments')
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure Maybe
PostAccountsAccountPeopleRequestBodyDocuments'CompanyAuthorization'
-> Maybe PostAccountsAccountPeopleRequestBodyDocuments'Passport'
-> Maybe PostAccountsAccountPeopleRequestBodyDocuments'Visa'
-> PostAccountsAccountPeopleRequestBodyDocuments'
PostAccountsAccountPeopleRequestBodyDocuments' Parser
(Maybe
PostAccountsAccountPeopleRequestBodyDocuments'CompanyAuthorization'
-> Maybe PostAccountsAccountPeopleRequestBodyDocuments'Passport'
-> Maybe PostAccountsAccountPeopleRequestBodyDocuments'Visa'
-> PostAccountsAccountPeopleRequestBodyDocuments')
-> Parser
(Maybe
PostAccountsAccountPeopleRequestBodyDocuments'CompanyAuthorization')
-> Parser
(Maybe PostAccountsAccountPeopleRequestBodyDocuments'Passport'
-> Maybe PostAccountsAccountPeopleRequestBodyDocuments'Visa'
-> PostAccountsAccountPeopleRequestBodyDocuments')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object
-> Text
-> Parser
(Maybe
PostAccountsAccountPeopleRequestBodyDocuments'CompanyAuthorization')
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"company_authorization")) Parser
(Maybe PostAccountsAccountPeopleRequestBodyDocuments'Passport'
-> Maybe PostAccountsAccountPeopleRequestBodyDocuments'Visa'
-> PostAccountsAccountPeopleRequestBodyDocuments')
-> Parser
(Maybe PostAccountsAccountPeopleRequestBodyDocuments'Passport')
-> Parser
(Maybe PostAccountsAccountPeopleRequestBodyDocuments'Visa'
-> PostAccountsAccountPeopleRequestBodyDocuments')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object
-> Text
-> Parser
(Maybe PostAccountsAccountPeopleRequestBodyDocuments'Passport')
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"passport")) Parser
(Maybe PostAccountsAccountPeopleRequestBodyDocuments'Visa'
-> PostAccountsAccountPeopleRequestBodyDocuments')
-> Parser
(Maybe PostAccountsAccountPeopleRequestBodyDocuments'Visa')
-> Parser PostAccountsAccountPeopleRequestBodyDocuments'
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object
-> Text
-> Parser
(Maybe PostAccountsAccountPeopleRequestBodyDocuments'Visa')
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"visa"))
mkPostAccountsAccountPeopleRequestBodyDocuments' :: PostAccountsAccountPeopleRequestBodyDocuments'
mkPostAccountsAccountPeopleRequestBodyDocuments' :: PostAccountsAccountPeopleRequestBodyDocuments'
mkPostAccountsAccountPeopleRequestBodyDocuments' =
PostAccountsAccountPeopleRequestBodyDocuments' :: Maybe
PostAccountsAccountPeopleRequestBodyDocuments'CompanyAuthorization'
-> Maybe PostAccountsAccountPeopleRequestBodyDocuments'Passport'
-> Maybe PostAccountsAccountPeopleRequestBodyDocuments'Visa'
-> PostAccountsAccountPeopleRequestBodyDocuments'
PostAccountsAccountPeopleRequestBodyDocuments'
{ postAccountsAccountPeopleRequestBodyDocuments'CompanyAuthorization :: Maybe
PostAccountsAccountPeopleRequestBodyDocuments'CompanyAuthorization'
postAccountsAccountPeopleRequestBodyDocuments'CompanyAuthorization = Maybe
PostAccountsAccountPeopleRequestBodyDocuments'CompanyAuthorization'
forall a. Maybe a
GHC.Maybe.Nothing,
postAccountsAccountPeopleRequestBodyDocuments'Passport :: Maybe PostAccountsAccountPeopleRequestBodyDocuments'Passport'
postAccountsAccountPeopleRequestBodyDocuments'Passport = Maybe PostAccountsAccountPeopleRequestBodyDocuments'Passport'
forall a. Maybe a
GHC.Maybe.Nothing,
postAccountsAccountPeopleRequestBodyDocuments'Visa :: Maybe PostAccountsAccountPeopleRequestBodyDocuments'Visa'
postAccountsAccountPeopleRequestBodyDocuments'Visa = Maybe PostAccountsAccountPeopleRequestBodyDocuments'Visa'
forall a. Maybe a
GHC.Maybe.Nothing
}
data PostAccountsAccountPeopleRequestBodyDocuments'CompanyAuthorization' = PostAccountsAccountPeopleRequestBodyDocuments'CompanyAuthorization'
{
PostAccountsAccountPeopleRequestBodyDocuments'CompanyAuthorization'
-> Maybe [Text]
postAccountsAccountPeopleRequestBodyDocuments'CompanyAuthorization'Files :: (GHC.Maybe.Maybe ([Data.Text.Internal.Text]))
}
deriving
( Int
-> PostAccountsAccountPeopleRequestBodyDocuments'CompanyAuthorization'
-> String
-> String
[PostAccountsAccountPeopleRequestBodyDocuments'CompanyAuthorization']
-> String -> String
PostAccountsAccountPeopleRequestBodyDocuments'CompanyAuthorization'
-> String
(Int
-> PostAccountsAccountPeopleRequestBodyDocuments'CompanyAuthorization'
-> String
-> String)
-> (PostAccountsAccountPeopleRequestBodyDocuments'CompanyAuthorization'
-> String)
-> ([PostAccountsAccountPeopleRequestBodyDocuments'CompanyAuthorization']
-> String -> String)
-> Show
PostAccountsAccountPeopleRequestBodyDocuments'CompanyAuthorization'
forall a.
(Int -> a -> String -> String)
-> (a -> String) -> ([a] -> String -> String) -> Show a
showList :: [PostAccountsAccountPeopleRequestBodyDocuments'CompanyAuthorization']
-> String -> String
$cshowList :: [PostAccountsAccountPeopleRequestBodyDocuments'CompanyAuthorization']
-> String -> String
show :: PostAccountsAccountPeopleRequestBodyDocuments'CompanyAuthorization'
-> String
$cshow :: PostAccountsAccountPeopleRequestBodyDocuments'CompanyAuthorization'
-> String
showsPrec :: Int
-> PostAccountsAccountPeopleRequestBodyDocuments'CompanyAuthorization'
-> String
-> String
$cshowsPrec :: Int
-> PostAccountsAccountPeopleRequestBodyDocuments'CompanyAuthorization'
-> String
-> String
GHC.Show.Show,
PostAccountsAccountPeopleRequestBodyDocuments'CompanyAuthorization'
-> PostAccountsAccountPeopleRequestBodyDocuments'CompanyAuthorization'
-> Bool
(PostAccountsAccountPeopleRequestBodyDocuments'CompanyAuthorization'
-> PostAccountsAccountPeopleRequestBodyDocuments'CompanyAuthorization'
-> Bool)
-> (PostAccountsAccountPeopleRequestBodyDocuments'CompanyAuthorization'
-> PostAccountsAccountPeopleRequestBodyDocuments'CompanyAuthorization'
-> Bool)
-> Eq
PostAccountsAccountPeopleRequestBodyDocuments'CompanyAuthorization'
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostAccountsAccountPeopleRequestBodyDocuments'CompanyAuthorization'
-> PostAccountsAccountPeopleRequestBodyDocuments'CompanyAuthorization'
-> Bool
$c/= :: PostAccountsAccountPeopleRequestBodyDocuments'CompanyAuthorization'
-> PostAccountsAccountPeopleRequestBodyDocuments'CompanyAuthorization'
-> Bool
== :: PostAccountsAccountPeopleRequestBodyDocuments'CompanyAuthorization'
-> PostAccountsAccountPeopleRequestBodyDocuments'CompanyAuthorization'
-> Bool
$c== :: PostAccountsAccountPeopleRequestBodyDocuments'CompanyAuthorization'
-> PostAccountsAccountPeopleRequestBodyDocuments'CompanyAuthorization'
-> Bool
GHC.Classes.Eq
)
instance Data.Aeson.Types.ToJSON.ToJSON PostAccountsAccountPeopleRequestBodyDocuments'CompanyAuthorization' where
toJSON :: PostAccountsAccountPeopleRequestBodyDocuments'CompanyAuthorization'
-> Value
toJSON PostAccountsAccountPeopleRequestBodyDocuments'CompanyAuthorization'
obj = [Pair] -> Value
Data.Aeson.Types.Internal.object (Text
"files" Text -> Maybe [Text] -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsAccountPeopleRequestBodyDocuments'CompanyAuthorization'
-> Maybe [Text]
postAccountsAccountPeopleRequestBodyDocuments'CompanyAuthorization'Files PostAccountsAccountPeopleRequestBodyDocuments'CompanyAuthorization'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: [Pair]
forall a. Monoid a => a
GHC.Base.mempty)
toEncoding :: PostAccountsAccountPeopleRequestBodyDocuments'CompanyAuthorization'
-> Encoding
toEncoding PostAccountsAccountPeopleRequestBodyDocuments'CompanyAuthorization'
obj = Series -> Encoding
Data.Aeson.Encoding.Internal.pairs (Text
"files" Text -> Maybe [Text] -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsAccountPeopleRequestBodyDocuments'CompanyAuthorization'
-> Maybe [Text]
postAccountsAccountPeopleRequestBodyDocuments'CompanyAuthorization'Files PostAccountsAccountPeopleRequestBodyDocuments'CompanyAuthorization'
obj)
instance Data.Aeson.Types.FromJSON.FromJSON PostAccountsAccountPeopleRequestBodyDocuments'CompanyAuthorization' where
parseJSON :: Value
-> Parser
PostAccountsAccountPeopleRequestBodyDocuments'CompanyAuthorization'
parseJSON = String
-> (Object
-> Parser
PostAccountsAccountPeopleRequestBodyDocuments'CompanyAuthorization')
-> Value
-> Parser
PostAccountsAccountPeopleRequestBodyDocuments'CompanyAuthorization'
forall a. String -> (Object -> Parser a) -> Value -> Parser a
Data.Aeson.Types.FromJSON.withObject String
"PostAccountsAccountPeopleRequestBodyDocuments'CompanyAuthorization'" (\Object
obj -> (Maybe [Text]
-> PostAccountsAccountPeopleRequestBodyDocuments'CompanyAuthorization')
-> Parser
(Maybe [Text]
-> PostAccountsAccountPeopleRequestBodyDocuments'CompanyAuthorization')
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure Maybe [Text]
-> PostAccountsAccountPeopleRequestBodyDocuments'CompanyAuthorization'
PostAccountsAccountPeopleRequestBodyDocuments'CompanyAuthorization' Parser
(Maybe [Text]
-> PostAccountsAccountPeopleRequestBodyDocuments'CompanyAuthorization')
-> Parser (Maybe [Text])
-> Parser
PostAccountsAccountPeopleRequestBodyDocuments'CompanyAuthorization'
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe [Text])
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"files"))
mkPostAccountsAccountPeopleRequestBodyDocuments'CompanyAuthorization' :: PostAccountsAccountPeopleRequestBodyDocuments'CompanyAuthorization'
mkPostAccountsAccountPeopleRequestBodyDocuments'CompanyAuthorization' :: PostAccountsAccountPeopleRequestBodyDocuments'CompanyAuthorization'
mkPostAccountsAccountPeopleRequestBodyDocuments'CompanyAuthorization' = PostAccountsAccountPeopleRequestBodyDocuments'CompanyAuthorization' :: Maybe [Text]
-> PostAccountsAccountPeopleRequestBodyDocuments'CompanyAuthorization'
PostAccountsAccountPeopleRequestBodyDocuments'CompanyAuthorization' {postAccountsAccountPeopleRequestBodyDocuments'CompanyAuthorization'Files :: Maybe [Text]
postAccountsAccountPeopleRequestBodyDocuments'CompanyAuthorization'Files = Maybe [Text]
forall a. Maybe a
GHC.Maybe.Nothing}
data PostAccountsAccountPeopleRequestBodyDocuments'Passport' = PostAccountsAccountPeopleRequestBodyDocuments'Passport'
{
PostAccountsAccountPeopleRequestBodyDocuments'Passport'
-> Maybe [Text]
postAccountsAccountPeopleRequestBodyDocuments'Passport'Files :: (GHC.Maybe.Maybe ([Data.Text.Internal.Text]))
}
deriving
( Int
-> PostAccountsAccountPeopleRequestBodyDocuments'Passport'
-> String
-> String
[PostAccountsAccountPeopleRequestBodyDocuments'Passport']
-> String -> String
PostAccountsAccountPeopleRequestBodyDocuments'Passport' -> String
(Int
-> PostAccountsAccountPeopleRequestBodyDocuments'Passport'
-> String
-> String)
-> (PostAccountsAccountPeopleRequestBodyDocuments'Passport'
-> String)
-> ([PostAccountsAccountPeopleRequestBodyDocuments'Passport']
-> String -> String)
-> Show PostAccountsAccountPeopleRequestBodyDocuments'Passport'
forall a.
(Int -> a -> String -> String)
-> (a -> String) -> ([a] -> String -> String) -> Show a
showList :: [PostAccountsAccountPeopleRequestBodyDocuments'Passport']
-> String -> String
$cshowList :: [PostAccountsAccountPeopleRequestBodyDocuments'Passport']
-> String -> String
show :: PostAccountsAccountPeopleRequestBodyDocuments'Passport' -> String
$cshow :: PostAccountsAccountPeopleRequestBodyDocuments'Passport' -> String
showsPrec :: Int
-> PostAccountsAccountPeopleRequestBodyDocuments'Passport'
-> String
-> String
$cshowsPrec :: Int
-> PostAccountsAccountPeopleRequestBodyDocuments'Passport'
-> String
-> String
GHC.Show.Show,
PostAccountsAccountPeopleRequestBodyDocuments'Passport'
-> PostAccountsAccountPeopleRequestBodyDocuments'Passport' -> Bool
(PostAccountsAccountPeopleRequestBodyDocuments'Passport'
-> PostAccountsAccountPeopleRequestBodyDocuments'Passport' -> Bool)
-> (PostAccountsAccountPeopleRequestBodyDocuments'Passport'
-> PostAccountsAccountPeopleRequestBodyDocuments'Passport' -> Bool)
-> Eq PostAccountsAccountPeopleRequestBodyDocuments'Passport'
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostAccountsAccountPeopleRequestBodyDocuments'Passport'
-> PostAccountsAccountPeopleRequestBodyDocuments'Passport' -> Bool
$c/= :: PostAccountsAccountPeopleRequestBodyDocuments'Passport'
-> PostAccountsAccountPeopleRequestBodyDocuments'Passport' -> Bool
== :: PostAccountsAccountPeopleRequestBodyDocuments'Passport'
-> PostAccountsAccountPeopleRequestBodyDocuments'Passport' -> Bool
$c== :: PostAccountsAccountPeopleRequestBodyDocuments'Passport'
-> PostAccountsAccountPeopleRequestBodyDocuments'Passport' -> Bool
GHC.Classes.Eq
)
instance Data.Aeson.Types.ToJSON.ToJSON PostAccountsAccountPeopleRequestBodyDocuments'Passport' where
toJSON :: PostAccountsAccountPeopleRequestBodyDocuments'Passport' -> Value
toJSON PostAccountsAccountPeopleRequestBodyDocuments'Passport'
obj = [Pair] -> Value
Data.Aeson.Types.Internal.object (Text
"files" Text -> Maybe [Text] -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsAccountPeopleRequestBodyDocuments'Passport'
-> Maybe [Text]
postAccountsAccountPeopleRequestBodyDocuments'Passport'Files PostAccountsAccountPeopleRequestBodyDocuments'Passport'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: [Pair]
forall a. Monoid a => a
GHC.Base.mempty)
toEncoding :: PostAccountsAccountPeopleRequestBodyDocuments'Passport' -> Encoding
toEncoding PostAccountsAccountPeopleRequestBodyDocuments'Passport'
obj = Series -> Encoding
Data.Aeson.Encoding.Internal.pairs (Text
"files" Text -> Maybe [Text] -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsAccountPeopleRequestBodyDocuments'Passport'
-> Maybe [Text]
postAccountsAccountPeopleRequestBodyDocuments'Passport'Files PostAccountsAccountPeopleRequestBodyDocuments'Passport'
obj)
instance Data.Aeson.Types.FromJSON.FromJSON PostAccountsAccountPeopleRequestBodyDocuments'Passport' where
parseJSON :: Value
-> Parser PostAccountsAccountPeopleRequestBodyDocuments'Passport'
parseJSON = String
-> (Object
-> Parser PostAccountsAccountPeopleRequestBodyDocuments'Passport')
-> Value
-> Parser PostAccountsAccountPeopleRequestBodyDocuments'Passport'
forall a. String -> (Object -> Parser a) -> Value -> Parser a
Data.Aeson.Types.FromJSON.withObject String
"PostAccountsAccountPeopleRequestBodyDocuments'Passport'" (\Object
obj -> (Maybe [Text]
-> PostAccountsAccountPeopleRequestBodyDocuments'Passport')
-> Parser
(Maybe [Text]
-> PostAccountsAccountPeopleRequestBodyDocuments'Passport')
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure Maybe [Text]
-> PostAccountsAccountPeopleRequestBodyDocuments'Passport'
PostAccountsAccountPeopleRequestBodyDocuments'Passport' Parser
(Maybe [Text]
-> PostAccountsAccountPeopleRequestBodyDocuments'Passport')
-> Parser (Maybe [Text])
-> Parser PostAccountsAccountPeopleRequestBodyDocuments'Passport'
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe [Text])
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"files"))
mkPostAccountsAccountPeopleRequestBodyDocuments'Passport' :: PostAccountsAccountPeopleRequestBodyDocuments'Passport'
mkPostAccountsAccountPeopleRequestBodyDocuments'Passport' :: PostAccountsAccountPeopleRequestBodyDocuments'Passport'
mkPostAccountsAccountPeopleRequestBodyDocuments'Passport' = PostAccountsAccountPeopleRequestBodyDocuments'Passport' :: Maybe [Text]
-> PostAccountsAccountPeopleRequestBodyDocuments'Passport'
PostAccountsAccountPeopleRequestBodyDocuments'Passport' {postAccountsAccountPeopleRequestBodyDocuments'Passport'Files :: Maybe [Text]
postAccountsAccountPeopleRequestBodyDocuments'Passport'Files = Maybe [Text]
forall a. Maybe a
GHC.Maybe.Nothing}
data PostAccountsAccountPeopleRequestBodyDocuments'Visa' = PostAccountsAccountPeopleRequestBodyDocuments'Visa'
{
PostAccountsAccountPeopleRequestBodyDocuments'Visa' -> Maybe [Text]
postAccountsAccountPeopleRequestBodyDocuments'Visa'Files :: (GHC.Maybe.Maybe ([Data.Text.Internal.Text]))
}
deriving
( Int
-> PostAccountsAccountPeopleRequestBodyDocuments'Visa'
-> String
-> String
[PostAccountsAccountPeopleRequestBodyDocuments'Visa']
-> String -> String
PostAccountsAccountPeopleRequestBodyDocuments'Visa' -> String
(Int
-> PostAccountsAccountPeopleRequestBodyDocuments'Visa'
-> String
-> String)
-> (PostAccountsAccountPeopleRequestBodyDocuments'Visa' -> String)
-> ([PostAccountsAccountPeopleRequestBodyDocuments'Visa']
-> String -> String)
-> Show PostAccountsAccountPeopleRequestBodyDocuments'Visa'
forall a.
(Int -> a -> String -> String)
-> (a -> String) -> ([a] -> String -> String) -> Show a
showList :: [PostAccountsAccountPeopleRequestBodyDocuments'Visa']
-> String -> String
$cshowList :: [PostAccountsAccountPeopleRequestBodyDocuments'Visa']
-> String -> String
show :: PostAccountsAccountPeopleRequestBodyDocuments'Visa' -> String
$cshow :: PostAccountsAccountPeopleRequestBodyDocuments'Visa' -> String
showsPrec :: Int
-> PostAccountsAccountPeopleRequestBodyDocuments'Visa'
-> String
-> String
$cshowsPrec :: Int
-> PostAccountsAccountPeopleRequestBodyDocuments'Visa'
-> String
-> String
GHC.Show.Show,
PostAccountsAccountPeopleRequestBodyDocuments'Visa'
-> PostAccountsAccountPeopleRequestBodyDocuments'Visa' -> Bool
(PostAccountsAccountPeopleRequestBodyDocuments'Visa'
-> PostAccountsAccountPeopleRequestBodyDocuments'Visa' -> Bool)
-> (PostAccountsAccountPeopleRequestBodyDocuments'Visa'
-> PostAccountsAccountPeopleRequestBodyDocuments'Visa' -> Bool)
-> Eq PostAccountsAccountPeopleRequestBodyDocuments'Visa'
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostAccountsAccountPeopleRequestBodyDocuments'Visa'
-> PostAccountsAccountPeopleRequestBodyDocuments'Visa' -> Bool
$c/= :: PostAccountsAccountPeopleRequestBodyDocuments'Visa'
-> PostAccountsAccountPeopleRequestBodyDocuments'Visa' -> Bool
== :: PostAccountsAccountPeopleRequestBodyDocuments'Visa'
-> PostAccountsAccountPeopleRequestBodyDocuments'Visa' -> Bool
$c== :: PostAccountsAccountPeopleRequestBodyDocuments'Visa'
-> PostAccountsAccountPeopleRequestBodyDocuments'Visa' -> Bool
GHC.Classes.Eq
)
instance Data.Aeson.Types.ToJSON.ToJSON PostAccountsAccountPeopleRequestBodyDocuments'Visa' where
toJSON :: PostAccountsAccountPeopleRequestBodyDocuments'Visa' -> Value
toJSON PostAccountsAccountPeopleRequestBodyDocuments'Visa'
obj = [Pair] -> Value
Data.Aeson.Types.Internal.object (Text
"files" Text -> Maybe [Text] -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsAccountPeopleRequestBodyDocuments'Visa' -> Maybe [Text]
postAccountsAccountPeopleRequestBodyDocuments'Visa'Files PostAccountsAccountPeopleRequestBodyDocuments'Visa'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: [Pair]
forall a. Monoid a => a
GHC.Base.mempty)
toEncoding :: PostAccountsAccountPeopleRequestBodyDocuments'Visa' -> Encoding
toEncoding PostAccountsAccountPeopleRequestBodyDocuments'Visa'
obj = Series -> Encoding
Data.Aeson.Encoding.Internal.pairs (Text
"files" Text -> Maybe [Text] -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsAccountPeopleRequestBodyDocuments'Visa' -> Maybe [Text]
postAccountsAccountPeopleRequestBodyDocuments'Visa'Files PostAccountsAccountPeopleRequestBodyDocuments'Visa'
obj)
instance Data.Aeson.Types.FromJSON.FromJSON PostAccountsAccountPeopleRequestBodyDocuments'Visa' where
parseJSON :: Value -> Parser PostAccountsAccountPeopleRequestBodyDocuments'Visa'
parseJSON = String
-> (Object
-> Parser PostAccountsAccountPeopleRequestBodyDocuments'Visa')
-> Value
-> Parser PostAccountsAccountPeopleRequestBodyDocuments'Visa'
forall a. String -> (Object -> Parser a) -> Value -> Parser a
Data.Aeson.Types.FromJSON.withObject String
"PostAccountsAccountPeopleRequestBodyDocuments'Visa'" (\Object
obj -> (Maybe [Text]
-> PostAccountsAccountPeopleRequestBodyDocuments'Visa')
-> Parser
(Maybe [Text]
-> PostAccountsAccountPeopleRequestBodyDocuments'Visa')
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure Maybe [Text] -> PostAccountsAccountPeopleRequestBodyDocuments'Visa'
PostAccountsAccountPeopleRequestBodyDocuments'Visa' Parser
(Maybe [Text]
-> PostAccountsAccountPeopleRequestBodyDocuments'Visa')
-> Parser (Maybe [Text])
-> Parser PostAccountsAccountPeopleRequestBodyDocuments'Visa'
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe [Text])
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"files"))
mkPostAccountsAccountPeopleRequestBodyDocuments'Visa' :: PostAccountsAccountPeopleRequestBodyDocuments'Visa'
mkPostAccountsAccountPeopleRequestBodyDocuments'Visa' :: PostAccountsAccountPeopleRequestBodyDocuments'Visa'
mkPostAccountsAccountPeopleRequestBodyDocuments'Visa' = PostAccountsAccountPeopleRequestBodyDocuments'Visa' :: Maybe [Text] -> PostAccountsAccountPeopleRequestBodyDocuments'Visa'
PostAccountsAccountPeopleRequestBodyDocuments'Visa' {postAccountsAccountPeopleRequestBodyDocuments'Visa'Files :: Maybe [Text]
postAccountsAccountPeopleRequestBodyDocuments'Visa'Files = Maybe [Text]
forall a. Maybe a
GHC.Maybe.Nothing}
data PostAccountsAccountPeopleRequestBodyMetadata'Variants
=
PostAccountsAccountPeopleRequestBodyMetadata'EmptyString
| PostAccountsAccountPeopleRequestBodyMetadata'Object Data.Aeson.Types.Internal.Object
deriving (Int
-> PostAccountsAccountPeopleRequestBodyMetadata'Variants
-> String
-> String
[PostAccountsAccountPeopleRequestBodyMetadata'Variants]
-> String -> String
PostAccountsAccountPeopleRequestBodyMetadata'Variants -> String
(Int
-> PostAccountsAccountPeopleRequestBodyMetadata'Variants
-> String
-> String)
-> (PostAccountsAccountPeopleRequestBodyMetadata'Variants
-> String)
-> ([PostAccountsAccountPeopleRequestBodyMetadata'Variants]
-> String -> String)
-> Show PostAccountsAccountPeopleRequestBodyMetadata'Variants
forall a.
(Int -> a -> String -> String)
-> (a -> String) -> ([a] -> String -> String) -> Show a
showList :: [PostAccountsAccountPeopleRequestBodyMetadata'Variants]
-> String -> String
$cshowList :: [PostAccountsAccountPeopleRequestBodyMetadata'Variants]
-> String -> String
show :: PostAccountsAccountPeopleRequestBodyMetadata'Variants -> String
$cshow :: PostAccountsAccountPeopleRequestBodyMetadata'Variants -> String
showsPrec :: Int
-> PostAccountsAccountPeopleRequestBodyMetadata'Variants
-> String
-> String
$cshowsPrec :: Int
-> PostAccountsAccountPeopleRequestBodyMetadata'Variants
-> String
-> String
GHC.Show.Show, PostAccountsAccountPeopleRequestBodyMetadata'Variants
-> PostAccountsAccountPeopleRequestBodyMetadata'Variants -> Bool
(PostAccountsAccountPeopleRequestBodyMetadata'Variants
-> PostAccountsAccountPeopleRequestBodyMetadata'Variants -> Bool)
-> (PostAccountsAccountPeopleRequestBodyMetadata'Variants
-> PostAccountsAccountPeopleRequestBodyMetadata'Variants -> Bool)
-> Eq PostAccountsAccountPeopleRequestBodyMetadata'Variants
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostAccountsAccountPeopleRequestBodyMetadata'Variants
-> PostAccountsAccountPeopleRequestBodyMetadata'Variants -> Bool
$c/= :: PostAccountsAccountPeopleRequestBodyMetadata'Variants
-> PostAccountsAccountPeopleRequestBodyMetadata'Variants -> Bool
== :: PostAccountsAccountPeopleRequestBodyMetadata'Variants
-> PostAccountsAccountPeopleRequestBodyMetadata'Variants -> Bool
$c== :: PostAccountsAccountPeopleRequestBodyMetadata'Variants
-> PostAccountsAccountPeopleRequestBodyMetadata'Variants -> Bool
GHC.Classes.Eq)
instance Data.Aeson.Types.ToJSON.ToJSON PostAccountsAccountPeopleRequestBodyMetadata'Variants where
toJSON :: PostAccountsAccountPeopleRequestBodyMetadata'Variants -> Value
toJSON (PostAccountsAccountPeopleRequestBodyMetadata'Object Object
a) = Object -> Value
forall a. ToJSON a => a -> Value
Data.Aeson.Types.ToJSON.toJSON Object
a
toJSON (PostAccountsAccountPeopleRequestBodyMetadata'Variants
PostAccountsAccountPeopleRequestBodyMetadata'EmptyString) = Value
""
instance Data.Aeson.Types.FromJSON.FromJSON PostAccountsAccountPeopleRequestBodyMetadata'Variants where
parseJSON :: Value
-> Parser PostAccountsAccountPeopleRequestBodyMetadata'Variants
parseJSON Value
val =
if
| Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"" -> PostAccountsAccountPeopleRequestBodyMetadata'Variants
-> Parser PostAccountsAccountPeopleRequestBodyMetadata'Variants
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure PostAccountsAccountPeopleRequestBodyMetadata'Variants
PostAccountsAccountPeopleRequestBodyMetadata'EmptyString
| Bool
GHC.Base.otherwise -> case (Object -> PostAccountsAccountPeopleRequestBodyMetadata'Variants
PostAccountsAccountPeopleRequestBodyMetadata'Object (Object -> PostAccountsAccountPeopleRequestBodyMetadata'Variants)
-> Result Object
-> Result PostAccountsAccountPeopleRequestBodyMetadata'Variants
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Data.Functor.<$> Value -> Result Object
forall a. FromJSON a => Value -> Result a
Data.Aeson.Types.FromJSON.fromJSON Value
val) Result PostAccountsAccountPeopleRequestBodyMetadata'Variants
-> Result PostAccountsAccountPeopleRequestBodyMetadata'Variants
-> Result PostAccountsAccountPeopleRequestBodyMetadata'Variants
forall (f :: * -> *) a. Alternative f => f a -> f a -> f a
GHC.Base.<|> String
-> Result PostAccountsAccountPeopleRequestBodyMetadata'Variants
forall a. String -> Result a
Data.Aeson.Types.Internal.Error String
"No variant matched" of
Data.Aeson.Types.Internal.Success PostAccountsAccountPeopleRequestBodyMetadata'Variants
a -> PostAccountsAccountPeopleRequestBodyMetadata'Variants
-> Parser PostAccountsAccountPeopleRequestBodyMetadata'Variants
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure PostAccountsAccountPeopleRequestBodyMetadata'Variants
a
Data.Aeson.Types.Internal.Error String
a -> String
-> Parser PostAccountsAccountPeopleRequestBodyMetadata'Variants
forall (m :: * -> *) a. MonadFail m => String -> m a
Control.Monad.Fail.fail String
a
data PostAccountsAccountPeopleRequestBodyRelationship' = PostAccountsAccountPeopleRequestBodyRelationship'
{
PostAccountsAccountPeopleRequestBodyRelationship' -> Maybe Bool
postAccountsAccountPeopleRequestBodyRelationship'Director :: (GHC.Maybe.Maybe GHC.Types.Bool),
PostAccountsAccountPeopleRequestBodyRelationship' -> Maybe Bool
postAccountsAccountPeopleRequestBodyRelationship'Executive :: (GHC.Maybe.Maybe GHC.Types.Bool),
PostAccountsAccountPeopleRequestBodyRelationship' -> Maybe Bool
postAccountsAccountPeopleRequestBodyRelationship'Owner :: (GHC.Maybe.Maybe GHC.Types.Bool),
PostAccountsAccountPeopleRequestBodyRelationship'
-> Maybe
PostAccountsAccountPeopleRequestBodyRelationship'PercentOwnership'Variants
postAccountsAccountPeopleRequestBodyRelationship'PercentOwnership :: (GHC.Maybe.Maybe PostAccountsAccountPeopleRequestBodyRelationship'PercentOwnership'Variants),
PostAccountsAccountPeopleRequestBodyRelationship' -> Maybe Bool
postAccountsAccountPeopleRequestBodyRelationship'Representative :: (GHC.Maybe.Maybe GHC.Types.Bool),
PostAccountsAccountPeopleRequestBodyRelationship' -> Maybe Text
postAccountsAccountPeopleRequestBodyRelationship'Title :: (GHC.Maybe.Maybe Data.Text.Internal.Text)
}
deriving
( Int
-> PostAccountsAccountPeopleRequestBodyRelationship'
-> String
-> String
[PostAccountsAccountPeopleRequestBodyRelationship']
-> String -> String
PostAccountsAccountPeopleRequestBodyRelationship' -> String
(Int
-> PostAccountsAccountPeopleRequestBodyRelationship'
-> String
-> String)
-> (PostAccountsAccountPeopleRequestBodyRelationship' -> String)
-> ([PostAccountsAccountPeopleRequestBodyRelationship']
-> String -> String)
-> Show PostAccountsAccountPeopleRequestBodyRelationship'
forall a.
(Int -> a -> String -> String)
-> (a -> String) -> ([a] -> String -> String) -> Show a
showList :: [PostAccountsAccountPeopleRequestBodyRelationship']
-> String -> String
$cshowList :: [PostAccountsAccountPeopleRequestBodyRelationship']
-> String -> String
show :: PostAccountsAccountPeopleRequestBodyRelationship' -> String
$cshow :: PostAccountsAccountPeopleRequestBodyRelationship' -> String
showsPrec :: Int
-> PostAccountsAccountPeopleRequestBodyRelationship'
-> String
-> String
$cshowsPrec :: Int
-> PostAccountsAccountPeopleRequestBodyRelationship'
-> String
-> String
GHC.Show.Show,
PostAccountsAccountPeopleRequestBodyRelationship'
-> PostAccountsAccountPeopleRequestBodyRelationship' -> Bool
(PostAccountsAccountPeopleRequestBodyRelationship'
-> PostAccountsAccountPeopleRequestBodyRelationship' -> Bool)
-> (PostAccountsAccountPeopleRequestBodyRelationship'
-> PostAccountsAccountPeopleRequestBodyRelationship' -> Bool)
-> Eq PostAccountsAccountPeopleRequestBodyRelationship'
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostAccountsAccountPeopleRequestBodyRelationship'
-> PostAccountsAccountPeopleRequestBodyRelationship' -> Bool
$c/= :: PostAccountsAccountPeopleRequestBodyRelationship'
-> PostAccountsAccountPeopleRequestBodyRelationship' -> Bool
== :: PostAccountsAccountPeopleRequestBodyRelationship'
-> PostAccountsAccountPeopleRequestBodyRelationship' -> Bool
$c== :: PostAccountsAccountPeopleRequestBodyRelationship'
-> PostAccountsAccountPeopleRequestBodyRelationship' -> Bool
GHC.Classes.Eq
)
instance Data.Aeson.Types.ToJSON.ToJSON PostAccountsAccountPeopleRequestBodyRelationship' where
toJSON :: PostAccountsAccountPeopleRequestBodyRelationship' -> Value
toJSON PostAccountsAccountPeopleRequestBodyRelationship'
obj = [Pair] -> Value
Data.Aeson.Types.Internal.object (Text
"director" Text -> Maybe Bool -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsAccountPeopleRequestBodyRelationship' -> Maybe Bool
postAccountsAccountPeopleRequestBodyRelationship'Director PostAccountsAccountPeopleRequestBodyRelationship'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"executive" Text -> Maybe Bool -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsAccountPeopleRequestBodyRelationship' -> Maybe Bool
postAccountsAccountPeopleRequestBodyRelationship'Executive PostAccountsAccountPeopleRequestBodyRelationship'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"owner" Text -> Maybe Bool -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsAccountPeopleRequestBodyRelationship' -> Maybe Bool
postAccountsAccountPeopleRequestBodyRelationship'Owner PostAccountsAccountPeopleRequestBodyRelationship'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"percent_ownership" Text
-> Maybe
PostAccountsAccountPeopleRequestBodyRelationship'PercentOwnership'Variants
-> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsAccountPeopleRequestBodyRelationship'
-> Maybe
PostAccountsAccountPeopleRequestBodyRelationship'PercentOwnership'Variants
postAccountsAccountPeopleRequestBodyRelationship'PercentOwnership PostAccountsAccountPeopleRequestBodyRelationship'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"representative" Text -> Maybe Bool -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsAccountPeopleRequestBodyRelationship' -> Maybe Bool
postAccountsAccountPeopleRequestBodyRelationship'Representative PostAccountsAccountPeopleRequestBodyRelationship'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"title" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsAccountPeopleRequestBodyRelationship' -> Maybe Text
postAccountsAccountPeopleRequestBodyRelationship'Title PostAccountsAccountPeopleRequestBodyRelationship'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: [Pair]
forall a. Monoid a => a
GHC.Base.mempty)
toEncoding :: PostAccountsAccountPeopleRequestBodyRelationship' -> Encoding
toEncoding PostAccountsAccountPeopleRequestBodyRelationship'
obj = Series -> Encoding
Data.Aeson.Encoding.Internal.pairs ((Text
"director" Text -> Maybe Bool -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsAccountPeopleRequestBodyRelationship' -> Maybe Bool
postAccountsAccountPeopleRequestBodyRelationship'Director PostAccountsAccountPeopleRequestBodyRelationship'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"executive" Text -> Maybe Bool -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsAccountPeopleRequestBodyRelationship' -> Maybe Bool
postAccountsAccountPeopleRequestBodyRelationship'Executive PostAccountsAccountPeopleRequestBodyRelationship'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"owner" Text -> Maybe Bool -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsAccountPeopleRequestBodyRelationship' -> Maybe Bool
postAccountsAccountPeopleRequestBodyRelationship'Owner PostAccountsAccountPeopleRequestBodyRelationship'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"percent_ownership" Text
-> Maybe
PostAccountsAccountPeopleRequestBodyRelationship'PercentOwnership'Variants
-> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsAccountPeopleRequestBodyRelationship'
-> Maybe
PostAccountsAccountPeopleRequestBodyRelationship'PercentOwnership'Variants
postAccountsAccountPeopleRequestBodyRelationship'PercentOwnership PostAccountsAccountPeopleRequestBodyRelationship'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"representative" Text -> Maybe Bool -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsAccountPeopleRequestBodyRelationship' -> Maybe Bool
postAccountsAccountPeopleRequestBodyRelationship'Representative PostAccountsAccountPeopleRequestBodyRelationship'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> (Text
"title" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsAccountPeopleRequestBodyRelationship' -> Maybe Text
postAccountsAccountPeopleRequestBodyRelationship'Title PostAccountsAccountPeopleRequestBodyRelationship'
obj))))))
instance Data.Aeson.Types.FromJSON.FromJSON PostAccountsAccountPeopleRequestBodyRelationship' where
parseJSON :: Value -> Parser PostAccountsAccountPeopleRequestBodyRelationship'
parseJSON = String
-> (Object
-> Parser PostAccountsAccountPeopleRequestBodyRelationship')
-> Value
-> Parser PostAccountsAccountPeopleRequestBodyRelationship'
forall a. String -> (Object -> Parser a) -> Value -> Parser a
Data.Aeson.Types.FromJSON.withObject String
"PostAccountsAccountPeopleRequestBodyRelationship'" (\Object
obj -> ((((((Maybe Bool
-> Maybe Bool
-> Maybe Bool
-> Maybe
PostAccountsAccountPeopleRequestBodyRelationship'PercentOwnership'Variants
-> Maybe Bool
-> Maybe Text
-> PostAccountsAccountPeopleRequestBodyRelationship')
-> Parser
(Maybe Bool
-> Maybe Bool
-> Maybe Bool
-> Maybe
PostAccountsAccountPeopleRequestBodyRelationship'PercentOwnership'Variants
-> Maybe Bool
-> Maybe Text
-> PostAccountsAccountPeopleRequestBodyRelationship')
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure Maybe Bool
-> Maybe Bool
-> Maybe Bool
-> Maybe
PostAccountsAccountPeopleRequestBodyRelationship'PercentOwnership'Variants
-> Maybe Bool
-> Maybe Text
-> PostAccountsAccountPeopleRequestBodyRelationship'
PostAccountsAccountPeopleRequestBodyRelationship' Parser
(Maybe Bool
-> Maybe Bool
-> Maybe Bool
-> Maybe
PostAccountsAccountPeopleRequestBodyRelationship'PercentOwnership'Variants
-> Maybe Bool
-> Maybe Text
-> PostAccountsAccountPeopleRequestBodyRelationship')
-> Parser (Maybe Bool)
-> Parser
(Maybe Bool
-> Maybe Bool
-> Maybe
PostAccountsAccountPeopleRequestBodyRelationship'PercentOwnership'Variants
-> Maybe Bool
-> Maybe Text
-> PostAccountsAccountPeopleRequestBodyRelationship')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Bool)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"director")) Parser
(Maybe Bool
-> Maybe Bool
-> Maybe
PostAccountsAccountPeopleRequestBodyRelationship'PercentOwnership'Variants
-> Maybe Bool
-> Maybe Text
-> PostAccountsAccountPeopleRequestBodyRelationship')
-> Parser (Maybe Bool)
-> Parser
(Maybe Bool
-> Maybe
PostAccountsAccountPeopleRequestBodyRelationship'PercentOwnership'Variants
-> Maybe Bool
-> Maybe Text
-> PostAccountsAccountPeopleRequestBodyRelationship')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Bool)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"executive")) Parser
(Maybe Bool
-> Maybe
PostAccountsAccountPeopleRequestBodyRelationship'PercentOwnership'Variants
-> Maybe Bool
-> Maybe Text
-> PostAccountsAccountPeopleRequestBodyRelationship')
-> Parser (Maybe Bool)
-> Parser
(Maybe
PostAccountsAccountPeopleRequestBodyRelationship'PercentOwnership'Variants
-> Maybe Bool
-> Maybe Text
-> PostAccountsAccountPeopleRequestBodyRelationship')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Bool)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"owner")) Parser
(Maybe
PostAccountsAccountPeopleRequestBodyRelationship'PercentOwnership'Variants
-> Maybe Bool
-> Maybe Text
-> PostAccountsAccountPeopleRequestBodyRelationship')
-> Parser
(Maybe
PostAccountsAccountPeopleRequestBodyRelationship'PercentOwnership'Variants)
-> Parser
(Maybe Bool
-> Maybe Text -> PostAccountsAccountPeopleRequestBodyRelationship')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object
-> Text
-> Parser
(Maybe
PostAccountsAccountPeopleRequestBodyRelationship'PercentOwnership'Variants)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"percent_ownership")) Parser
(Maybe Bool
-> Maybe Text -> PostAccountsAccountPeopleRequestBodyRelationship')
-> Parser (Maybe Bool)
-> Parser
(Maybe Text -> PostAccountsAccountPeopleRequestBodyRelationship')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Bool)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"representative")) Parser
(Maybe Text -> PostAccountsAccountPeopleRequestBodyRelationship')
-> Parser (Maybe Text)
-> Parser PostAccountsAccountPeopleRequestBodyRelationship'
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"title"))
mkPostAccountsAccountPeopleRequestBodyRelationship' :: PostAccountsAccountPeopleRequestBodyRelationship'
mkPostAccountsAccountPeopleRequestBodyRelationship' :: PostAccountsAccountPeopleRequestBodyRelationship'
mkPostAccountsAccountPeopleRequestBodyRelationship' =
PostAccountsAccountPeopleRequestBodyRelationship' :: Maybe Bool
-> Maybe Bool
-> Maybe Bool
-> Maybe
PostAccountsAccountPeopleRequestBodyRelationship'PercentOwnership'Variants
-> Maybe Bool
-> Maybe Text
-> PostAccountsAccountPeopleRequestBodyRelationship'
PostAccountsAccountPeopleRequestBodyRelationship'
{ postAccountsAccountPeopleRequestBodyRelationship'Director :: Maybe Bool
postAccountsAccountPeopleRequestBodyRelationship'Director = Maybe Bool
forall a. Maybe a
GHC.Maybe.Nothing,
postAccountsAccountPeopleRequestBodyRelationship'Executive :: Maybe Bool
postAccountsAccountPeopleRequestBodyRelationship'Executive = Maybe Bool
forall a. Maybe a
GHC.Maybe.Nothing,
postAccountsAccountPeopleRequestBodyRelationship'Owner :: Maybe Bool
postAccountsAccountPeopleRequestBodyRelationship'Owner = Maybe Bool
forall a. Maybe a
GHC.Maybe.Nothing,
postAccountsAccountPeopleRequestBodyRelationship'PercentOwnership :: Maybe
PostAccountsAccountPeopleRequestBodyRelationship'PercentOwnership'Variants
postAccountsAccountPeopleRequestBodyRelationship'PercentOwnership = Maybe
PostAccountsAccountPeopleRequestBodyRelationship'PercentOwnership'Variants
forall a. Maybe a
GHC.Maybe.Nothing,
postAccountsAccountPeopleRequestBodyRelationship'Representative :: Maybe Bool
postAccountsAccountPeopleRequestBodyRelationship'Representative = Maybe Bool
forall a. Maybe a
GHC.Maybe.Nothing,
postAccountsAccountPeopleRequestBodyRelationship'Title :: Maybe Text
postAccountsAccountPeopleRequestBodyRelationship'Title = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing
}
data PostAccountsAccountPeopleRequestBodyRelationship'PercentOwnership'Variants
=
PostAccountsAccountPeopleRequestBodyRelationship'PercentOwnership'EmptyString
| PostAccountsAccountPeopleRequestBodyRelationship'PercentOwnership'Double GHC.Types.Double
deriving (Int
-> PostAccountsAccountPeopleRequestBodyRelationship'PercentOwnership'Variants
-> String
-> String
[PostAccountsAccountPeopleRequestBodyRelationship'PercentOwnership'Variants]
-> String -> String
PostAccountsAccountPeopleRequestBodyRelationship'PercentOwnership'Variants
-> String
(Int
-> PostAccountsAccountPeopleRequestBodyRelationship'PercentOwnership'Variants
-> String
-> String)
-> (PostAccountsAccountPeopleRequestBodyRelationship'PercentOwnership'Variants
-> String)
-> ([PostAccountsAccountPeopleRequestBodyRelationship'PercentOwnership'Variants]
-> String -> String)
-> Show
PostAccountsAccountPeopleRequestBodyRelationship'PercentOwnership'Variants
forall a.
(Int -> a -> String -> String)
-> (a -> String) -> ([a] -> String -> String) -> Show a
showList :: [PostAccountsAccountPeopleRequestBodyRelationship'PercentOwnership'Variants]
-> String -> String
$cshowList :: [PostAccountsAccountPeopleRequestBodyRelationship'PercentOwnership'Variants]
-> String -> String
show :: PostAccountsAccountPeopleRequestBodyRelationship'PercentOwnership'Variants
-> String
$cshow :: PostAccountsAccountPeopleRequestBodyRelationship'PercentOwnership'Variants
-> String
showsPrec :: Int
-> PostAccountsAccountPeopleRequestBodyRelationship'PercentOwnership'Variants
-> String
-> String
$cshowsPrec :: Int
-> PostAccountsAccountPeopleRequestBodyRelationship'PercentOwnership'Variants
-> String
-> String
GHC.Show.Show, PostAccountsAccountPeopleRequestBodyRelationship'PercentOwnership'Variants
-> PostAccountsAccountPeopleRequestBodyRelationship'PercentOwnership'Variants
-> Bool
(PostAccountsAccountPeopleRequestBodyRelationship'PercentOwnership'Variants
-> PostAccountsAccountPeopleRequestBodyRelationship'PercentOwnership'Variants
-> Bool)
-> (PostAccountsAccountPeopleRequestBodyRelationship'PercentOwnership'Variants
-> PostAccountsAccountPeopleRequestBodyRelationship'PercentOwnership'Variants
-> Bool)
-> Eq
PostAccountsAccountPeopleRequestBodyRelationship'PercentOwnership'Variants
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostAccountsAccountPeopleRequestBodyRelationship'PercentOwnership'Variants
-> PostAccountsAccountPeopleRequestBodyRelationship'PercentOwnership'Variants
-> Bool
$c/= :: PostAccountsAccountPeopleRequestBodyRelationship'PercentOwnership'Variants
-> PostAccountsAccountPeopleRequestBodyRelationship'PercentOwnership'Variants
-> Bool
== :: PostAccountsAccountPeopleRequestBodyRelationship'PercentOwnership'Variants
-> PostAccountsAccountPeopleRequestBodyRelationship'PercentOwnership'Variants
-> Bool
$c== :: PostAccountsAccountPeopleRequestBodyRelationship'PercentOwnership'Variants
-> PostAccountsAccountPeopleRequestBodyRelationship'PercentOwnership'Variants
-> Bool
GHC.Classes.Eq)
instance Data.Aeson.Types.ToJSON.ToJSON PostAccountsAccountPeopleRequestBodyRelationship'PercentOwnership'Variants where
toJSON :: PostAccountsAccountPeopleRequestBodyRelationship'PercentOwnership'Variants
-> Value
toJSON (PostAccountsAccountPeopleRequestBodyRelationship'PercentOwnership'Double Double
a) = Double -> Value
forall a. ToJSON a => a -> Value
Data.Aeson.Types.ToJSON.toJSON Double
a
toJSON (PostAccountsAccountPeopleRequestBodyRelationship'PercentOwnership'Variants
PostAccountsAccountPeopleRequestBodyRelationship'PercentOwnership'EmptyString) = Value
""
instance Data.Aeson.Types.FromJSON.FromJSON PostAccountsAccountPeopleRequestBodyRelationship'PercentOwnership'Variants where
parseJSON :: Value
-> Parser
PostAccountsAccountPeopleRequestBodyRelationship'PercentOwnership'Variants
parseJSON Value
val =
if
| Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"" -> PostAccountsAccountPeopleRequestBodyRelationship'PercentOwnership'Variants
-> Parser
PostAccountsAccountPeopleRequestBodyRelationship'PercentOwnership'Variants
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure PostAccountsAccountPeopleRequestBodyRelationship'PercentOwnership'Variants
PostAccountsAccountPeopleRequestBodyRelationship'PercentOwnership'EmptyString
| Bool
GHC.Base.otherwise -> case (Double
-> PostAccountsAccountPeopleRequestBodyRelationship'PercentOwnership'Variants
PostAccountsAccountPeopleRequestBodyRelationship'PercentOwnership'Double (Double
-> PostAccountsAccountPeopleRequestBodyRelationship'PercentOwnership'Variants)
-> Result Double
-> Result
PostAccountsAccountPeopleRequestBodyRelationship'PercentOwnership'Variants
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Data.Functor.<$> Value -> Result Double
forall a. FromJSON a => Value -> Result a
Data.Aeson.Types.FromJSON.fromJSON Value
val) Result
PostAccountsAccountPeopleRequestBodyRelationship'PercentOwnership'Variants
-> Result
PostAccountsAccountPeopleRequestBodyRelationship'PercentOwnership'Variants
-> Result
PostAccountsAccountPeopleRequestBodyRelationship'PercentOwnership'Variants
forall (f :: * -> *) a. Alternative f => f a -> f a -> f a
GHC.Base.<|> String
-> Result
PostAccountsAccountPeopleRequestBodyRelationship'PercentOwnership'Variants
forall a. String -> Result a
Data.Aeson.Types.Internal.Error String
"No variant matched" of
Data.Aeson.Types.Internal.Success PostAccountsAccountPeopleRequestBodyRelationship'PercentOwnership'Variants
a -> PostAccountsAccountPeopleRequestBodyRelationship'PercentOwnership'Variants
-> Parser
PostAccountsAccountPeopleRequestBodyRelationship'PercentOwnership'Variants
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure PostAccountsAccountPeopleRequestBodyRelationship'PercentOwnership'Variants
a
Data.Aeson.Types.Internal.Error String
a -> String
-> Parser
PostAccountsAccountPeopleRequestBodyRelationship'PercentOwnership'Variants
forall (m :: * -> *) a. MonadFail m => String -> m a
Control.Monad.Fail.fail String
a
data PostAccountsAccountPeopleRequestBodyVerification' = PostAccountsAccountPeopleRequestBodyVerification'
{
PostAccountsAccountPeopleRequestBodyVerification'
-> Maybe
PostAccountsAccountPeopleRequestBodyVerification'AdditionalDocument'
postAccountsAccountPeopleRequestBodyVerification'AdditionalDocument :: (GHC.Maybe.Maybe PostAccountsAccountPeopleRequestBodyVerification'AdditionalDocument'),
PostAccountsAccountPeopleRequestBodyVerification'
-> Maybe PostAccountsAccountPeopleRequestBodyVerification'Document'
postAccountsAccountPeopleRequestBodyVerification'Document :: (GHC.Maybe.Maybe PostAccountsAccountPeopleRequestBodyVerification'Document')
}
deriving
( Int
-> PostAccountsAccountPeopleRequestBodyVerification'
-> String
-> String
[PostAccountsAccountPeopleRequestBodyVerification']
-> String -> String
PostAccountsAccountPeopleRequestBodyVerification' -> String
(Int
-> PostAccountsAccountPeopleRequestBodyVerification'
-> String
-> String)
-> (PostAccountsAccountPeopleRequestBodyVerification' -> String)
-> ([PostAccountsAccountPeopleRequestBodyVerification']
-> String -> String)
-> Show PostAccountsAccountPeopleRequestBodyVerification'
forall a.
(Int -> a -> String -> String)
-> (a -> String) -> ([a] -> String -> String) -> Show a
showList :: [PostAccountsAccountPeopleRequestBodyVerification']
-> String -> String
$cshowList :: [PostAccountsAccountPeopleRequestBodyVerification']
-> String -> String
show :: PostAccountsAccountPeopleRequestBodyVerification' -> String
$cshow :: PostAccountsAccountPeopleRequestBodyVerification' -> String
showsPrec :: Int
-> PostAccountsAccountPeopleRequestBodyVerification'
-> String
-> String
$cshowsPrec :: Int
-> PostAccountsAccountPeopleRequestBodyVerification'
-> String
-> String
GHC.Show.Show,
PostAccountsAccountPeopleRequestBodyVerification'
-> PostAccountsAccountPeopleRequestBodyVerification' -> Bool
(PostAccountsAccountPeopleRequestBodyVerification'
-> PostAccountsAccountPeopleRequestBodyVerification' -> Bool)
-> (PostAccountsAccountPeopleRequestBodyVerification'
-> PostAccountsAccountPeopleRequestBodyVerification' -> Bool)
-> Eq PostAccountsAccountPeopleRequestBodyVerification'
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostAccountsAccountPeopleRequestBodyVerification'
-> PostAccountsAccountPeopleRequestBodyVerification' -> Bool
$c/= :: PostAccountsAccountPeopleRequestBodyVerification'
-> PostAccountsAccountPeopleRequestBodyVerification' -> Bool
== :: PostAccountsAccountPeopleRequestBodyVerification'
-> PostAccountsAccountPeopleRequestBodyVerification' -> Bool
$c== :: PostAccountsAccountPeopleRequestBodyVerification'
-> PostAccountsAccountPeopleRequestBodyVerification' -> Bool
GHC.Classes.Eq
)
instance Data.Aeson.Types.ToJSON.ToJSON PostAccountsAccountPeopleRequestBodyVerification' where
toJSON :: PostAccountsAccountPeopleRequestBodyVerification' -> Value
toJSON PostAccountsAccountPeopleRequestBodyVerification'
obj = [Pair] -> Value
Data.Aeson.Types.Internal.object (Text
"additional_document" Text
-> Maybe
PostAccountsAccountPeopleRequestBodyVerification'AdditionalDocument'
-> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsAccountPeopleRequestBodyVerification'
-> Maybe
PostAccountsAccountPeopleRequestBodyVerification'AdditionalDocument'
postAccountsAccountPeopleRequestBodyVerification'AdditionalDocument PostAccountsAccountPeopleRequestBodyVerification'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"document" Text
-> Maybe PostAccountsAccountPeopleRequestBodyVerification'Document'
-> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsAccountPeopleRequestBodyVerification'
-> Maybe PostAccountsAccountPeopleRequestBodyVerification'Document'
postAccountsAccountPeopleRequestBodyVerification'Document PostAccountsAccountPeopleRequestBodyVerification'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: [Pair]
forall a. Monoid a => a
GHC.Base.mempty)
toEncoding :: PostAccountsAccountPeopleRequestBodyVerification' -> Encoding
toEncoding PostAccountsAccountPeopleRequestBodyVerification'
obj = Series -> Encoding
Data.Aeson.Encoding.Internal.pairs ((Text
"additional_document" Text
-> Maybe
PostAccountsAccountPeopleRequestBodyVerification'AdditionalDocument'
-> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsAccountPeopleRequestBodyVerification'
-> Maybe
PostAccountsAccountPeopleRequestBodyVerification'AdditionalDocument'
postAccountsAccountPeopleRequestBodyVerification'AdditionalDocument PostAccountsAccountPeopleRequestBodyVerification'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> (Text
"document" Text
-> Maybe PostAccountsAccountPeopleRequestBodyVerification'Document'
-> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsAccountPeopleRequestBodyVerification'
-> Maybe PostAccountsAccountPeopleRequestBodyVerification'Document'
postAccountsAccountPeopleRequestBodyVerification'Document PostAccountsAccountPeopleRequestBodyVerification'
obj))
instance Data.Aeson.Types.FromJSON.FromJSON PostAccountsAccountPeopleRequestBodyVerification' where
parseJSON :: Value -> Parser PostAccountsAccountPeopleRequestBodyVerification'
parseJSON = String
-> (Object
-> Parser PostAccountsAccountPeopleRequestBodyVerification')
-> Value
-> Parser PostAccountsAccountPeopleRequestBodyVerification'
forall a. String -> (Object -> Parser a) -> Value -> Parser a
Data.Aeson.Types.FromJSON.withObject String
"PostAccountsAccountPeopleRequestBodyVerification'" (\Object
obj -> ((Maybe
PostAccountsAccountPeopleRequestBodyVerification'AdditionalDocument'
-> Maybe PostAccountsAccountPeopleRequestBodyVerification'Document'
-> PostAccountsAccountPeopleRequestBodyVerification')
-> Parser
(Maybe
PostAccountsAccountPeopleRequestBodyVerification'AdditionalDocument'
-> Maybe PostAccountsAccountPeopleRequestBodyVerification'Document'
-> PostAccountsAccountPeopleRequestBodyVerification')
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure Maybe
PostAccountsAccountPeopleRequestBodyVerification'AdditionalDocument'
-> Maybe PostAccountsAccountPeopleRequestBodyVerification'Document'
-> PostAccountsAccountPeopleRequestBodyVerification'
PostAccountsAccountPeopleRequestBodyVerification' Parser
(Maybe
PostAccountsAccountPeopleRequestBodyVerification'AdditionalDocument'
-> Maybe PostAccountsAccountPeopleRequestBodyVerification'Document'
-> PostAccountsAccountPeopleRequestBodyVerification')
-> Parser
(Maybe
PostAccountsAccountPeopleRequestBodyVerification'AdditionalDocument')
-> Parser
(Maybe PostAccountsAccountPeopleRequestBodyVerification'Document'
-> PostAccountsAccountPeopleRequestBodyVerification')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object
-> Text
-> Parser
(Maybe
PostAccountsAccountPeopleRequestBodyVerification'AdditionalDocument')
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"additional_document")) Parser
(Maybe PostAccountsAccountPeopleRequestBodyVerification'Document'
-> PostAccountsAccountPeopleRequestBodyVerification')
-> Parser
(Maybe PostAccountsAccountPeopleRequestBodyVerification'Document')
-> Parser PostAccountsAccountPeopleRequestBodyVerification'
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object
-> Text
-> Parser
(Maybe PostAccountsAccountPeopleRequestBodyVerification'Document')
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"document"))
mkPostAccountsAccountPeopleRequestBodyVerification' :: PostAccountsAccountPeopleRequestBodyVerification'
mkPostAccountsAccountPeopleRequestBodyVerification' :: PostAccountsAccountPeopleRequestBodyVerification'
mkPostAccountsAccountPeopleRequestBodyVerification' =
PostAccountsAccountPeopleRequestBodyVerification' :: Maybe
PostAccountsAccountPeopleRequestBodyVerification'AdditionalDocument'
-> Maybe PostAccountsAccountPeopleRequestBodyVerification'Document'
-> PostAccountsAccountPeopleRequestBodyVerification'
PostAccountsAccountPeopleRequestBodyVerification'
{ postAccountsAccountPeopleRequestBodyVerification'AdditionalDocument :: Maybe
PostAccountsAccountPeopleRequestBodyVerification'AdditionalDocument'
postAccountsAccountPeopleRequestBodyVerification'AdditionalDocument = Maybe
PostAccountsAccountPeopleRequestBodyVerification'AdditionalDocument'
forall a. Maybe a
GHC.Maybe.Nothing,
postAccountsAccountPeopleRequestBodyVerification'Document :: Maybe PostAccountsAccountPeopleRequestBodyVerification'Document'
postAccountsAccountPeopleRequestBodyVerification'Document = Maybe PostAccountsAccountPeopleRequestBodyVerification'Document'
forall a. Maybe a
GHC.Maybe.Nothing
}
data PostAccountsAccountPeopleRequestBodyVerification'AdditionalDocument' = PostAccountsAccountPeopleRequestBodyVerification'AdditionalDocument'
{
PostAccountsAccountPeopleRequestBodyVerification'AdditionalDocument'
-> Maybe Text
postAccountsAccountPeopleRequestBodyVerification'AdditionalDocument'Back :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
PostAccountsAccountPeopleRequestBodyVerification'AdditionalDocument'
-> Maybe Text
postAccountsAccountPeopleRequestBodyVerification'AdditionalDocument'Front :: (GHC.Maybe.Maybe Data.Text.Internal.Text)
}
deriving
( Int
-> PostAccountsAccountPeopleRequestBodyVerification'AdditionalDocument'
-> String
-> String
[PostAccountsAccountPeopleRequestBodyVerification'AdditionalDocument']
-> String -> String
PostAccountsAccountPeopleRequestBodyVerification'AdditionalDocument'
-> String
(Int
-> PostAccountsAccountPeopleRequestBodyVerification'AdditionalDocument'
-> String
-> String)
-> (PostAccountsAccountPeopleRequestBodyVerification'AdditionalDocument'
-> String)
-> ([PostAccountsAccountPeopleRequestBodyVerification'AdditionalDocument']
-> String -> String)
-> Show
PostAccountsAccountPeopleRequestBodyVerification'AdditionalDocument'
forall a.
(Int -> a -> String -> String)
-> (a -> String) -> ([a] -> String -> String) -> Show a
showList :: [PostAccountsAccountPeopleRequestBodyVerification'AdditionalDocument']
-> String -> String
$cshowList :: [PostAccountsAccountPeopleRequestBodyVerification'AdditionalDocument']
-> String -> String
show :: PostAccountsAccountPeopleRequestBodyVerification'AdditionalDocument'
-> String
$cshow :: PostAccountsAccountPeopleRequestBodyVerification'AdditionalDocument'
-> String
showsPrec :: Int
-> PostAccountsAccountPeopleRequestBodyVerification'AdditionalDocument'
-> String
-> String
$cshowsPrec :: Int
-> PostAccountsAccountPeopleRequestBodyVerification'AdditionalDocument'
-> String
-> String
GHC.Show.Show,
PostAccountsAccountPeopleRequestBodyVerification'AdditionalDocument'
-> PostAccountsAccountPeopleRequestBodyVerification'AdditionalDocument'
-> Bool
(PostAccountsAccountPeopleRequestBodyVerification'AdditionalDocument'
-> PostAccountsAccountPeopleRequestBodyVerification'AdditionalDocument'
-> Bool)
-> (PostAccountsAccountPeopleRequestBodyVerification'AdditionalDocument'
-> PostAccountsAccountPeopleRequestBodyVerification'AdditionalDocument'
-> Bool)
-> Eq
PostAccountsAccountPeopleRequestBodyVerification'AdditionalDocument'
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostAccountsAccountPeopleRequestBodyVerification'AdditionalDocument'
-> PostAccountsAccountPeopleRequestBodyVerification'AdditionalDocument'
-> Bool
$c/= :: PostAccountsAccountPeopleRequestBodyVerification'AdditionalDocument'
-> PostAccountsAccountPeopleRequestBodyVerification'AdditionalDocument'
-> Bool
== :: PostAccountsAccountPeopleRequestBodyVerification'AdditionalDocument'
-> PostAccountsAccountPeopleRequestBodyVerification'AdditionalDocument'
-> Bool
$c== :: PostAccountsAccountPeopleRequestBodyVerification'AdditionalDocument'
-> PostAccountsAccountPeopleRequestBodyVerification'AdditionalDocument'
-> Bool
GHC.Classes.Eq
)
instance Data.Aeson.Types.ToJSON.ToJSON PostAccountsAccountPeopleRequestBodyVerification'AdditionalDocument' where
toJSON :: PostAccountsAccountPeopleRequestBodyVerification'AdditionalDocument'
-> Value
toJSON PostAccountsAccountPeopleRequestBodyVerification'AdditionalDocument'
obj = [Pair] -> Value
Data.Aeson.Types.Internal.object (Text
"back" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsAccountPeopleRequestBodyVerification'AdditionalDocument'
-> Maybe Text
postAccountsAccountPeopleRequestBodyVerification'AdditionalDocument'Back PostAccountsAccountPeopleRequestBodyVerification'AdditionalDocument'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"front" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsAccountPeopleRequestBodyVerification'AdditionalDocument'
-> Maybe Text
postAccountsAccountPeopleRequestBodyVerification'AdditionalDocument'Front PostAccountsAccountPeopleRequestBodyVerification'AdditionalDocument'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: [Pair]
forall a. Monoid a => a
GHC.Base.mempty)
toEncoding :: PostAccountsAccountPeopleRequestBodyVerification'AdditionalDocument'
-> Encoding
toEncoding PostAccountsAccountPeopleRequestBodyVerification'AdditionalDocument'
obj = Series -> Encoding
Data.Aeson.Encoding.Internal.pairs ((Text
"back" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsAccountPeopleRequestBodyVerification'AdditionalDocument'
-> Maybe Text
postAccountsAccountPeopleRequestBodyVerification'AdditionalDocument'Back PostAccountsAccountPeopleRequestBodyVerification'AdditionalDocument'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> (Text
"front" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsAccountPeopleRequestBodyVerification'AdditionalDocument'
-> Maybe Text
postAccountsAccountPeopleRequestBodyVerification'AdditionalDocument'Front PostAccountsAccountPeopleRequestBodyVerification'AdditionalDocument'
obj))
instance Data.Aeson.Types.FromJSON.FromJSON PostAccountsAccountPeopleRequestBodyVerification'AdditionalDocument' where
parseJSON :: Value
-> Parser
PostAccountsAccountPeopleRequestBodyVerification'AdditionalDocument'
parseJSON = String
-> (Object
-> Parser
PostAccountsAccountPeopleRequestBodyVerification'AdditionalDocument')
-> Value
-> Parser
PostAccountsAccountPeopleRequestBodyVerification'AdditionalDocument'
forall a. String -> (Object -> Parser a) -> Value -> Parser a
Data.Aeson.Types.FromJSON.withObject String
"PostAccountsAccountPeopleRequestBodyVerification'AdditionalDocument'" (\Object
obj -> ((Maybe Text
-> Maybe Text
-> PostAccountsAccountPeopleRequestBodyVerification'AdditionalDocument')
-> Parser
(Maybe Text
-> Maybe Text
-> PostAccountsAccountPeopleRequestBodyVerification'AdditionalDocument')
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure Maybe Text
-> Maybe Text
-> PostAccountsAccountPeopleRequestBodyVerification'AdditionalDocument'
PostAccountsAccountPeopleRequestBodyVerification'AdditionalDocument' Parser
(Maybe Text
-> Maybe Text
-> PostAccountsAccountPeopleRequestBodyVerification'AdditionalDocument')
-> Parser (Maybe Text)
-> Parser
(Maybe Text
-> PostAccountsAccountPeopleRequestBodyVerification'AdditionalDocument')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"back")) Parser
(Maybe Text
-> PostAccountsAccountPeopleRequestBodyVerification'AdditionalDocument')
-> Parser (Maybe Text)
-> Parser
PostAccountsAccountPeopleRequestBodyVerification'AdditionalDocument'
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"front"))
mkPostAccountsAccountPeopleRequestBodyVerification'AdditionalDocument' :: PostAccountsAccountPeopleRequestBodyVerification'AdditionalDocument'
mkPostAccountsAccountPeopleRequestBodyVerification'AdditionalDocument' :: PostAccountsAccountPeopleRequestBodyVerification'AdditionalDocument'
mkPostAccountsAccountPeopleRequestBodyVerification'AdditionalDocument' =
PostAccountsAccountPeopleRequestBodyVerification'AdditionalDocument' :: Maybe Text
-> Maybe Text
-> PostAccountsAccountPeopleRequestBodyVerification'AdditionalDocument'
PostAccountsAccountPeopleRequestBodyVerification'AdditionalDocument'
{ postAccountsAccountPeopleRequestBodyVerification'AdditionalDocument'Back :: Maybe Text
postAccountsAccountPeopleRequestBodyVerification'AdditionalDocument'Back = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
postAccountsAccountPeopleRequestBodyVerification'AdditionalDocument'Front :: Maybe Text
postAccountsAccountPeopleRequestBodyVerification'AdditionalDocument'Front = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing
}
data PostAccountsAccountPeopleRequestBodyVerification'Document' = PostAccountsAccountPeopleRequestBodyVerification'Document'
{
PostAccountsAccountPeopleRequestBodyVerification'Document'
-> Maybe Text
postAccountsAccountPeopleRequestBodyVerification'Document'Back :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
PostAccountsAccountPeopleRequestBodyVerification'Document'
-> Maybe Text
postAccountsAccountPeopleRequestBodyVerification'Document'Front :: (GHC.Maybe.Maybe Data.Text.Internal.Text)
}
deriving
( Int
-> PostAccountsAccountPeopleRequestBodyVerification'Document'
-> String
-> String
[PostAccountsAccountPeopleRequestBodyVerification'Document']
-> String -> String
PostAccountsAccountPeopleRequestBodyVerification'Document'
-> String
(Int
-> PostAccountsAccountPeopleRequestBodyVerification'Document'
-> String
-> String)
-> (PostAccountsAccountPeopleRequestBodyVerification'Document'
-> String)
-> ([PostAccountsAccountPeopleRequestBodyVerification'Document']
-> String -> String)
-> Show PostAccountsAccountPeopleRequestBodyVerification'Document'
forall a.
(Int -> a -> String -> String)
-> (a -> String) -> ([a] -> String -> String) -> Show a
showList :: [PostAccountsAccountPeopleRequestBodyVerification'Document']
-> String -> String
$cshowList :: [PostAccountsAccountPeopleRequestBodyVerification'Document']
-> String -> String
show :: PostAccountsAccountPeopleRequestBodyVerification'Document'
-> String
$cshow :: PostAccountsAccountPeopleRequestBodyVerification'Document'
-> String
showsPrec :: Int
-> PostAccountsAccountPeopleRequestBodyVerification'Document'
-> String
-> String
$cshowsPrec :: Int
-> PostAccountsAccountPeopleRequestBodyVerification'Document'
-> String
-> String
GHC.Show.Show,
PostAccountsAccountPeopleRequestBodyVerification'Document'
-> PostAccountsAccountPeopleRequestBodyVerification'Document'
-> Bool
(PostAccountsAccountPeopleRequestBodyVerification'Document'
-> PostAccountsAccountPeopleRequestBodyVerification'Document'
-> Bool)
-> (PostAccountsAccountPeopleRequestBodyVerification'Document'
-> PostAccountsAccountPeopleRequestBodyVerification'Document'
-> Bool)
-> Eq PostAccountsAccountPeopleRequestBodyVerification'Document'
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostAccountsAccountPeopleRequestBodyVerification'Document'
-> PostAccountsAccountPeopleRequestBodyVerification'Document'
-> Bool
$c/= :: PostAccountsAccountPeopleRequestBodyVerification'Document'
-> PostAccountsAccountPeopleRequestBodyVerification'Document'
-> Bool
== :: PostAccountsAccountPeopleRequestBodyVerification'Document'
-> PostAccountsAccountPeopleRequestBodyVerification'Document'
-> Bool
$c== :: PostAccountsAccountPeopleRequestBodyVerification'Document'
-> PostAccountsAccountPeopleRequestBodyVerification'Document'
-> Bool
GHC.Classes.Eq
)
instance Data.Aeson.Types.ToJSON.ToJSON PostAccountsAccountPeopleRequestBodyVerification'Document' where
toJSON :: PostAccountsAccountPeopleRequestBodyVerification'Document' -> Value
toJSON PostAccountsAccountPeopleRequestBodyVerification'Document'
obj = [Pair] -> Value
Data.Aeson.Types.Internal.object (Text
"back" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsAccountPeopleRequestBodyVerification'Document'
-> Maybe Text
postAccountsAccountPeopleRequestBodyVerification'Document'Back PostAccountsAccountPeopleRequestBodyVerification'Document'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"front" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsAccountPeopleRequestBodyVerification'Document'
-> Maybe Text
postAccountsAccountPeopleRequestBodyVerification'Document'Front PostAccountsAccountPeopleRequestBodyVerification'Document'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: [Pair]
forall a. Monoid a => a
GHC.Base.mempty)
toEncoding :: PostAccountsAccountPeopleRequestBodyVerification'Document'
-> Encoding
toEncoding PostAccountsAccountPeopleRequestBodyVerification'Document'
obj = Series -> Encoding
Data.Aeson.Encoding.Internal.pairs ((Text
"back" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsAccountPeopleRequestBodyVerification'Document'
-> Maybe Text
postAccountsAccountPeopleRequestBodyVerification'Document'Back PostAccountsAccountPeopleRequestBodyVerification'Document'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> (Text
"front" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostAccountsAccountPeopleRequestBodyVerification'Document'
-> Maybe Text
postAccountsAccountPeopleRequestBodyVerification'Document'Front PostAccountsAccountPeopleRequestBodyVerification'Document'
obj))
instance Data.Aeson.Types.FromJSON.FromJSON PostAccountsAccountPeopleRequestBodyVerification'Document' where
parseJSON :: Value
-> Parser
PostAccountsAccountPeopleRequestBodyVerification'Document'
parseJSON = String
-> (Object
-> Parser
PostAccountsAccountPeopleRequestBodyVerification'Document')
-> Value
-> Parser
PostAccountsAccountPeopleRequestBodyVerification'Document'
forall a. String -> (Object -> Parser a) -> Value -> Parser a
Data.Aeson.Types.FromJSON.withObject String
"PostAccountsAccountPeopleRequestBodyVerification'Document'" (\Object
obj -> ((Maybe Text
-> Maybe Text
-> PostAccountsAccountPeopleRequestBodyVerification'Document')
-> Parser
(Maybe Text
-> Maybe Text
-> PostAccountsAccountPeopleRequestBodyVerification'Document')
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure Maybe Text
-> Maybe Text
-> PostAccountsAccountPeopleRequestBodyVerification'Document'
PostAccountsAccountPeopleRequestBodyVerification'Document' Parser
(Maybe Text
-> Maybe Text
-> PostAccountsAccountPeopleRequestBodyVerification'Document')
-> Parser (Maybe Text)
-> Parser
(Maybe Text
-> PostAccountsAccountPeopleRequestBodyVerification'Document')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"back")) Parser
(Maybe Text
-> PostAccountsAccountPeopleRequestBodyVerification'Document')
-> Parser (Maybe Text)
-> Parser
PostAccountsAccountPeopleRequestBodyVerification'Document'
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"front"))
mkPostAccountsAccountPeopleRequestBodyVerification'Document' :: PostAccountsAccountPeopleRequestBodyVerification'Document'
mkPostAccountsAccountPeopleRequestBodyVerification'Document' :: PostAccountsAccountPeopleRequestBodyVerification'Document'
mkPostAccountsAccountPeopleRequestBodyVerification'Document' =
PostAccountsAccountPeopleRequestBodyVerification'Document' :: Maybe Text
-> Maybe Text
-> PostAccountsAccountPeopleRequestBodyVerification'Document'
PostAccountsAccountPeopleRequestBodyVerification'Document'
{ postAccountsAccountPeopleRequestBodyVerification'Document'Back :: Maybe Text
postAccountsAccountPeopleRequestBodyVerification'Document'Back = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
postAccountsAccountPeopleRequestBodyVerification'Document'Front :: Maybe Text
postAccountsAccountPeopleRequestBodyVerification'Document'Front = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing
}
data PostAccountsAccountPeopleResponse
=
PostAccountsAccountPeopleResponseError GHC.Base.String
|
PostAccountsAccountPeopleResponse200 Person
|
PostAccountsAccountPeopleResponseDefault Error
deriving (Int -> PostAccountsAccountPeopleResponse -> String -> String
[PostAccountsAccountPeopleResponse] -> String -> String
PostAccountsAccountPeopleResponse -> String
(Int -> PostAccountsAccountPeopleResponse -> String -> String)
-> (PostAccountsAccountPeopleResponse -> String)
-> ([PostAccountsAccountPeopleResponse] -> String -> String)
-> Show PostAccountsAccountPeopleResponse
forall a.
(Int -> a -> String -> String)
-> (a -> String) -> ([a] -> String -> String) -> Show a
showList :: [PostAccountsAccountPeopleResponse] -> String -> String
$cshowList :: [PostAccountsAccountPeopleResponse] -> String -> String
show :: PostAccountsAccountPeopleResponse -> String
$cshow :: PostAccountsAccountPeopleResponse -> String
showsPrec :: Int -> PostAccountsAccountPeopleResponse -> String -> String
$cshowsPrec :: Int -> PostAccountsAccountPeopleResponse -> String -> String
GHC.Show.Show, PostAccountsAccountPeopleResponse
-> PostAccountsAccountPeopleResponse -> Bool
(PostAccountsAccountPeopleResponse
-> PostAccountsAccountPeopleResponse -> Bool)
-> (PostAccountsAccountPeopleResponse
-> PostAccountsAccountPeopleResponse -> Bool)
-> Eq PostAccountsAccountPeopleResponse
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostAccountsAccountPeopleResponse
-> PostAccountsAccountPeopleResponse -> Bool
$c/= :: PostAccountsAccountPeopleResponse
-> PostAccountsAccountPeopleResponse -> Bool
== :: PostAccountsAccountPeopleResponse
-> PostAccountsAccountPeopleResponse -> Bool
$c== :: PostAccountsAccountPeopleResponse
-> PostAccountsAccountPeopleResponse -> Bool
GHC.Classes.Eq)