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

-- | Contains the types generated from the schema PaymentMethodAcssDebit
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

-- | Defines the object schema located at @components.schemas.payment_method_acss_debit@ in the specification.
data PaymentMethodAcssDebit = PaymentMethodAcssDebit
  { -- | bank_name: Name of the bank associated with the bank account.
    --
    -- Constraints:
    --
    -- * Maximum length of 5000
    PaymentMethodAcssDebit -> Maybe Text
paymentMethodAcssDebitBankName :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | fingerprint: Uniquely identifies this particular bank account. You can use this attribute to check whether two bank accounts are the same.
    --
    -- Constraints:
    --
    -- * Maximum length of 5000
    PaymentMethodAcssDebit -> Maybe Text
paymentMethodAcssDebitFingerprint :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | institution_number: Institution number of the bank account.
    --
    -- Constraints:
    --
    -- * Maximum length of 5000
    PaymentMethodAcssDebit -> Maybe Text
paymentMethodAcssDebitInstitutionNumber :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | last4: Last four digits of the bank account number.
    --
    -- Constraints:
    --
    -- * Maximum length of 5000
    PaymentMethodAcssDebit -> Maybe Text
paymentMethodAcssDebitLast4 :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | transit_number: Transit number of the bank account.
    --
    -- Constraints:
    --
    -- * Maximum length of 5000
    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"))

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