{-# LANGUAGE MultiWayIf #-}
{-# LANGUAGE OverloadedStrings #-}
module StripeAPI.Types.PaymentMethodAcssDebit where
import qualified Control.Monad.Fail
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.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 GHC.Base
import qualified GHC.Classes
import qualified GHC.Int
import qualified GHC.Show
import qualified GHC.Types
import qualified StripeAPI.Common
import StripeAPI.TypeAlias
import qualified Prelude as GHC.Integer.Type
import qualified Prelude as GHC.Maybe
data PaymentMethodAcssDebit = PaymentMethodAcssDebit
{
PaymentMethodAcssDebit -> Maybe Text
paymentMethodAcssDebitBankName :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
PaymentMethodAcssDebit -> Maybe Text
paymentMethodAcssDebitFingerprint :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
PaymentMethodAcssDebit -> Maybe Text
paymentMethodAcssDebitInstitutionNumber :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
PaymentMethodAcssDebit -> Maybe Text
paymentMethodAcssDebitLast4 :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
PaymentMethodAcssDebit -> Maybe Text
paymentMethodAcssDebitTransitNumber :: (GHC.Maybe.Maybe Data.Text.Internal.Text)
}
deriving
( Int -> PaymentMethodAcssDebit -> ShowS
[PaymentMethodAcssDebit] -> ShowS
PaymentMethodAcssDebit -> String
(Int -> PaymentMethodAcssDebit -> ShowS)
-> (PaymentMethodAcssDebit -> String)
-> ([PaymentMethodAcssDebit] -> ShowS)
-> Show PaymentMethodAcssDebit
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PaymentMethodAcssDebit] -> ShowS
$cshowList :: [PaymentMethodAcssDebit] -> ShowS
show :: PaymentMethodAcssDebit -> String
$cshow :: PaymentMethodAcssDebit -> String
showsPrec :: Int -> PaymentMethodAcssDebit -> ShowS
$cshowsPrec :: Int -> PaymentMethodAcssDebit -> ShowS
GHC.Show.Show,
PaymentMethodAcssDebit -> PaymentMethodAcssDebit -> Bool
(PaymentMethodAcssDebit -> PaymentMethodAcssDebit -> Bool)
-> (PaymentMethodAcssDebit -> PaymentMethodAcssDebit -> Bool)
-> Eq PaymentMethodAcssDebit
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PaymentMethodAcssDebit -> PaymentMethodAcssDebit -> Bool
$c/= :: PaymentMethodAcssDebit -> PaymentMethodAcssDebit -> Bool
== :: PaymentMethodAcssDebit -> PaymentMethodAcssDebit -> Bool
$c== :: PaymentMethodAcssDebit -> PaymentMethodAcssDebit -> Bool
GHC.Classes.Eq
)
instance Data.Aeson.Types.ToJSON.ToJSON PaymentMethodAcssDebit where
toJSON :: PaymentMethodAcssDebit -> Value
toJSON PaymentMethodAcssDebit
obj = [Pair] -> Value
Data.Aeson.Types.Internal.object (Text
"bank_name" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PaymentMethodAcssDebit -> Maybe Text
paymentMethodAcssDebitBankName PaymentMethodAcssDebit
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"fingerprint" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PaymentMethodAcssDebit -> Maybe Text
paymentMethodAcssDebitFingerprint PaymentMethodAcssDebit
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"institution_number" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PaymentMethodAcssDebit -> Maybe Text
paymentMethodAcssDebitInstitutionNumber PaymentMethodAcssDebit
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"last4" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PaymentMethodAcssDebit -> Maybe Text
paymentMethodAcssDebitLast4 PaymentMethodAcssDebit
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"transit_number" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PaymentMethodAcssDebit -> Maybe Text
paymentMethodAcssDebitTransitNumber PaymentMethodAcssDebit
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: [Pair]
forall a. Monoid a => a
GHC.Base.mempty)
toEncoding :: PaymentMethodAcssDebit -> Encoding
toEncoding PaymentMethodAcssDebit
obj = Series -> Encoding
Data.Aeson.Encoding.Internal.pairs ((Text
"bank_name" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PaymentMethodAcssDebit -> Maybe Text
paymentMethodAcssDebitBankName PaymentMethodAcssDebit
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"fingerprint" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PaymentMethodAcssDebit -> Maybe Text
paymentMethodAcssDebitFingerprint PaymentMethodAcssDebit
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"institution_number" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PaymentMethodAcssDebit -> Maybe Text
paymentMethodAcssDebitInstitutionNumber PaymentMethodAcssDebit
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"last4" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PaymentMethodAcssDebit -> Maybe Text
paymentMethodAcssDebitLast4 PaymentMethodAcssDebit
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> (Text
"transit_number" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PaymentMethodAcssDebit -> Maybe Text
paymentMethodAcssDebitTransitNumber PaymentMethodAcssDebit
obj)))))
instance Data.Aeson.Types.FromJSON.FromJSON PaymentMethodAcssDebit where
parseJSON :: Value -> Parser PaymentMethodAcssDebit
parseJSON = String
-> (Object -> Parser PaymentMethodAcssDebit)
-> Value
-> Parser PaymentMethodAcssDebit
forall a. String -> (Object -> Parser a) -> Value -> Parser a
Data.Aeson.Types.FromJSON.withObject String
"PaymentMethodAcssDebit" (\Object
obj -> (((((Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> PaymentMethodAcssDebit)
-> Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> PaymentMethodAcssDebit)
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> PaymentMethodAcssDebit
PaymentMethodAcssDebit Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> PaymentMethodAcssDebit)
-> Parser (Maybe Text)
-> Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> PaymentMethodAcssDebit)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"bank_name")) Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> PaymentMethodAcssDebit)
-> Parser (Maybe Text)
-> Parser
(Maybe Text -> Maybe Text -> Maybe Text -> PaymentMethodAcssDebit)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"fingerprint")) Parser
(Maybe Text -> Maybe Text -> Maybe Text -> PaymentMethodAcssDebit)
-> Parser (Maybe Text)
-> Parser (Maybe Text -> Maybe Text -> PaymentMethodAcssDebit)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"institution_number")) Parser (Maybe Text -> Maybe Text -> PaymentMethodAcssDebit)
-> Parser (Maybe Text)
-> Parser (Maybe Text -> PaymentMethodAcssDebit)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"last4")) Parser (Maybe Text -> PaymentMethodAcssDebit)
-> Parser (Maybe Text) -> Parser PaymentMethodAcssDebit
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"transit_number"))
mkPaymentMethodAcssDebit :: PaymentMethodAcssDebit
mkPaymentMethodAcssDebit :: PaymentMethodAcssDebit
mkPaymentMethodAcssDebit =
PaymentMethodAcssDebit :: Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> PaymentMethodAcssDebit
PaymentMethodAcssDebit
{ paymentMethodAcssDebitBankName :: Maybe Text
paymentMethodAcssDebitBankName = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
paymentMethodAcssDebitFingerprint :: Maybe Text
paymentMethodAcssDebitFingerprint = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
paymentMethodAcssDebitInstitutionNumber :: Maybe Text
paymentMethodAcssDebitInstitutionNumber = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
paymentMethodAcssDebitLast4 :: Maybe Text
paymentMethodAcssDebitLast4 = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
paymentMethodAcssDebitTransitNumber :: Maybe Text
paymentMethodAcssDebitTransitNumber = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing
}