{-# LANGUAGE MultiWayIf #-}
{-# LANGUAGE OverloadedStrings #-}
module StripeAPI.Types.Issuing_Card 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 {-# SOURCE #-} StripeAPI.Types.Address
import {-# SOURCE #-} StripeAPI.Types.IssuingCardAuthorizationControls
import {-# SOURCE #-} StripeAPI.Types.IssuingCardShipping
import {-# SOURCE #-} StripeAPI.Types.Issuing_Cardholder
import qualified Prelude as GHC.Integer.Type
import qualified Prelude as GHC.Maybe
data Issuing'card = Issuing'card
{
Issuing'card -> Text
issuing'cardBrand :: Data.Text.Internal.Text,
Issuing'card -> Maybe Issuing'cardCancellationReason'
issuing'cardCancellationReason :: (GHC.Maybe.Maybe Issuing'cardCancellationReason'),
Issuing'card -> Issuing'cardholder
issuing'cardCardholder :: Issuing'cardholder,
Issuing'card -> Int
issuing'cardCreated :: GHC.Types.Int,
Issuing'card -> Text
issuing'cardCurrency :: Data.Text.Internal.Text,
Issuing'card -> Maybe Text
issuing'cardCvc :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
Issuing'card -> Int
issuing'cardExpMonth :: GHC.Types.Int,
Issuing'card -> Int
issuing'cardExpYear :: GHC.Types.Int,
Issuing'card -> Text
issuing'cardId :: Data.Text.Internal.Text,
Issuing'card -> Text
issuing'cardLast4 :: Data.Text.Internal.Text,
Issuing'card -> Bool
issuing'cardLivemode :: GHC.Types.Bool,
Issuing'card -> Object
issuing'cardMetadata :: Data.Aeson.Types.Internal.Object,
Issuing'card -> Maybe Text
issuing'cardNumber :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
Issuing'card -> Maybe Issuing'cardReplacedBy'Variants
issuing'cardReplacedBy :: (GHC.Maybe.Maybe Issuing'cardReplacedBy'Variants),
Issuing'card -> Maybe Issuing'cardReplacementFor'Variants
issuing'cardReplacementFor :: (GHC.Maybe.Maybe Issuing'cardReplacementFor'Variants),
Issuing'card -> Maybe Issuing'cardReplacementReason'
issuing'cardReplacementReason :: (GHC.Maybe.Maybe Issuing'cardReplacementReason'),
Issuing'card -> Maybe Issuing'cardShipping'
issuing'cardShipping :: (GHC.Maybe.Maybe Issuing'cardShipping'),
Issuing'card -> IssuingCardAuthorizationControls
issuing'cardSpendingControls :: IssuingCardAuthorizationControls,
Issuing'card -> Issuing'cardStatus'
issuing'cardStatus :: Issuing'cardStatus',
Issuing'card -> Issuing'cardType'
issuing'cardType :: Issuing'cardType'
}
deriving
( Int -> Issuing'card -> ShowS
[Issuing'card] -> ShowS
Issuing'card -> String
(Int -> Issuing'card -> ShowS)
-> (Issuing'card -> String)
-> ([Issuing'card] -> ShowS)
-> Show Issuing'card
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [Issuing'card] -> ShowS
$cshowList :: [Issuing'card] -> ShowS
show :: Issuing'card -> String
$cshow :: Issuing'card -> String
showsPrec :: Int -> Issuing'card -> ShowS
$cshowsPrec :: Int -> Issuing'card -> ShowS
GHC.Show.Show,
Issuing'card -> Issuing'card -> Bool
(Issuing'card -> Issuing'card -> Bool)
-> (Issuing'card -> Issuing'card -> Bool) -> Eq Issuing'card
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: Issuing'card -> Issuing'card -> Bool
$c/= :: Issuing'card -> Issuing'card -> Bool
== :: Issuing'card -> Issuing'card -> Bool
$c== :: Issuing'card -> Issuing'card -> Bool
GHC.Classes.Eq
)
instance Data.Aeson.Types.ToJSON.ToJSON Issuing'card where
toJSON :: Issuing'card -> Value
toJSON Issuing'card
obj = [Pair] -> Value
Data.Aeson.Types.Internal.object (Text
"brand" Text -> Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= Issuing'card -> Text
issuing'cardBrand Issuing'card
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"cancellation_reason" Text -> Maybe Issuing'cardCancellationReason' -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= Issuing'card -> Maybe Issuing'cardCancellationReason'
issuing'cardCancellationReason Issuing'card
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"cardholder" Text -> Issuing'cardholder -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= Issuing'card -> Issuing'cardholder
issuing'cardCardholder Issuing'card
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"created" Text -> Int -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= Issuing'card -> Int
issuing'cardCreated Issuing'card
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"currency" Text -> Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= Issuing'card -> Text
issuing'cardCurrency Issuing'card
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"cvc" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= Issuing'card -> Maybe Text
issuing'cardCvc Issuing'card
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"exp_month" Text -> Int -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= Issuing'card -> Int
issuing'cardExpMonth Issuing'card
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"exp_year" Text -> Int -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= Issuing'card -> Int
issuing'cardExpYear Issuing'card
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"id" Text -> Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= Issuing'card -> Text
issuing'cardId Issuing'card
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"last4" Text -> Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= Issuing'card -> Text
issuing'cardLast4 Issuing'card
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"livemode" Text -> Bool -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= Issuing'card -> Bool
issuing'cardLivemode Issuing'card
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"metadata" Text -> Object -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= Issuing'card -> Object
issuing'cardMetadata Issuing'card
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"number" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= Issuing'card -> Maybe Text
issuing'cardNumber Issuing'card
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"replaced_by" Text -> Maybe Issuing'cardReplacedBy'Variants -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= Issuing'card -> Maybe Issuing'cardReplacedBy'Variants
issuing'cardReplacedBy Issuing'card
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"replacement_for" Text -> Maybe Issuing'cardReplacementFor'Variants -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= Issuing'card -> Maybe Issuing'cardReplacementFor'Variants
issuing'cardReplacementFor Issuing'card
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"replacement_reason" Text -> Maybe Issuing'cardReplacementReason' -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= Issuing'card -> Maybe Issuing'cardReplacementReason'
issuing'cardReplacementReason Issuing'card
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"shipping" Text -> Maybe Issuing'cardShipping' -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= Issuing'card -> Maybe Issuing'cardShipping'
issuing'cardShipping Issuing'card
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"spending_controls" Text -> IssuingCardAuthorizationControls -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= Issuing'card -> IssuingCardAuthorizationControls
issuing'cardSpendingControls Issuing'card
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"status" Text -> Issuing'cardStatus' -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= Issuing'card -> Issuing'cardStatus'
issuing'cardStatus Issuing'card
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"type" Text -> Issuing'cardType' -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= Issuing'card -> Issuing'cardType'
issuing'cardType Issuing'card
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"object" Text -> Value -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= Text -> Value
Data.Aeson.Types.Internal.String Text
"issuing.card" Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: [Pair]
forall a. Monoid a => a
GHC.Base.mempty)
toEncoding :: Issuing'card -> Encoding
toEncoding Issuing'card
obj = Series -> Encoding
Data.Aeson.Encoding.Internal.pairs ((Text
"brand" Text -> Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= Issuing'card -> Text
issuing'cardBrand Issuing'card
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"cancellation_reason" Text -> Maybe Issuing'cardCancellationReason' -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= Issuing'card -> Maybe Issuing'cardCancellationReason'
issuing'cardCancellationReason Issuing'card
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"cardholder" Text -> Issuing'cardholder -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= Issuing'card -> Issuing'cardholder
issuing'cardCardholder Issuing'card
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"created" Text -> Int -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= Issuing'card -> Int
issuing'cardCreated Issuing'card
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"currency" Text -> Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= Issuing'card -> Text
issuing'cardCurrency Issuing'card
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"cvc" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= Issuing'card -> Maybe Text
issuing'cardCvc Issuing'card
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"exp_month" Text -> Int -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= Issuing'card -> Int
issuing'cardExpMonth Issuing'card
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"exp_year" Text -> Int -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= Issuing'card -> Int
issuing'cardExpYear Issuing'card
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"id" Text -> Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= Issuing'card -> Text
issuing'cardId Issuing'card
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"last4" Text -> Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= Issuing'card -> Text
issuing'cardLast4 Issuing'card
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"livemode" Text -> Bool -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= Issuing'card -> Bool
issuing'cardLivemode Issuing'card
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"metadata" Text -> Object -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= Issuing'card -> Object
issuing'cardMetadata Issuing'card
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"number" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= Issuing'card -> Maybe Text
issuing'cardNumber Issuing'card
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"replaced_by" Text -> Maybe Issuing'cardReplacedBy'Variants -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= Issuing'card -> Maybe Issuing'cardReplacedBy'Variants
issuing'cardReplacedBy Issuing'card
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"replacement_for" Text -> Maybe Issuing'cardReplacementFor'Variants -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= Issuing'card -> Maybe Issuing'cardReplacementFor'Variants
issuing'cardReplacementFor Issuing'card
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"replacement_reason" Text -> Maybe Issuing'cardReplacementReason' -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= Issuing'card -> Maybe Issuing'cardReplacementReason'
issuing'cardReplacementReason Issuing'card
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"shipping" Text -> Maybe Issuing'cardShipping' -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= Issuing'card -> Maybe Issuing'cardShipping'
issuing'cardShipping Issuing'card
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"spending_controls" Text -> IssuingCardAuthorizationControls -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= Issuing'card -> IssuingCardAuthorizationControls
issuing'cardSpendingControls Issuing'card
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"status" Text -> Issuing'cardStatus' -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= Issuing'card -> Issuing'cardStatus'
issuing'cardStatus Issuing'card
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"type" Text -> Issuing'cardType' -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= Issuing'card -> Issuing'cardType'
issuing'cardType Issuing'card
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> (Text
"object" Text -> Value -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= Text -> Value
Data.Aeson.Types.Internal.String Text
"issuing.card")))))))))))))))))))))
instance Data.Aeson.Types.FromJSON.FromJSON Issuing'card where
parseJSON :: Value -> Parser Issuing'card
parseJSON = String
-> (Object -> Parser Issuing'card) -> Value -> Parser Issuing'card
forall a. String -> (Object -> Parser a) -> Value -> Parser a
Data.Aeson.Types.FromJSON.withObject String
"Issuing'card" (\Object
obj -> ((((((((((((((((((((Text
-> Maybe Issuing'cardCancellationReason'
-> Issuing'cardholder
-> Int
-> Text
-> Maybe Text
-> Int
-> Int
-> Text
-> Text
-> Bool
-> Object
-> Maybe Text
-> Maybe Issuing'cardReplacedBy'Variants
-> Maybe Issuing'cardReplacementFor'Variants
-> Maybe Issuing'cardReplacementReason'
-> Maybe Issuing'cardShipping'
-> IssuingCardAuthorizationControls
-> Issuing'cardStatus'
-> Issuing'cardType'
-> Issuing'card)
-> Parser
(Text
-> Maybe Issuing'cardCancellationReason'
-> Issuing'cardholder
-> Int
-> Text
-> Maybe Text
-> Int
-> Int
-> Text
-> Text
-> Bool
-> Object
-> Maybe Text
-> Maybe Issuing'cardReplacedBy'Variants
-> Maybe Issuing'cardReplacementFor'Variants
-> Maybe Issuing'cardReplacementReason'
-> Maybe Issuing'cardShipping'
-> IssuingCardAuthorizationControls
-> Issuing'cardStatus'
-> Issuing'cardType'
-> Issuing'card)
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure Text
-> Maybe Issuing'cardCancellationReason'
-> Issuing'cardholder
-> Int
-> Text
-> Maybe Text
-> Int
-> Int
-> Text
-> Text
-> Bool
-> Object
-> Maybe Text
-> Maybe Issuing'cardReplacedBy'Variants
-> Maybe Issuing'cardReplacementFor'Variants
-> Maybe Issuing'cardReplacementReason'
-> Maybe Issuing'cardShipping'
-> IssuingCardAuthorizationControls
-> Issuing'cardStatus'
-> Issuing'cardType'
-> Issuing'card
Issuing'card Parser
(Text
-> Maybe Issuing'cardCancellationReason'
-> Issuing'cardholder
-> Int
-> Text
-> Maybe Text
-> Int
-> Int
-> Text
-> Text
-> Bool
-> Object
-> Maybe Text
-> Maybe Issuing'cardReplacedBy'Variants
-> Maybe Issuing'cardReplacementFor'Variants
-> Maybe Issuing'cardReplacementReason'
-> Maybe Issuing'cardShipping'
-> IssuingCardAuthorizationControls
-> Issuing'cardStatus'
-> Issuing'cardType'
-> Issuing'card)
-> Parser Text
-> Parser
(Maybe Issuing'cardCancellationReason'
-> Issuing'cardholder
-> Int
-> Text
-> Maybe Text
-> Int
-> Int
-> Text
-> Text
-> Bool
-> Object
-> Maybe Text
-> Maybe Issuing'cardReplacedBy'Variants
-> Maybe Issuing'cardReplacementFor'Variants
-> Maybe Issuing'cardReplacementReason'
-> Maybe Issuing'cardShipping'
-> IssuingCardAuthorizationControls
-> Issuing'cardStatus'
-> Issuing'cardType'
-> Issuing'card)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser Text
forall a. FromJSON a => Object -> Text -> Parser a
Data.Aeson.Types.FromJSON..: Text
"brand")) Parser
(Maybe Issuing'cardCancellationReason'
-> Issuing'cardholder
-> Int
-> Text
-> Maybe Text
-> Int
-> Int
-> Text
-> Text
-> Bool
-> Object
-> Maybe Text
-> Maybe Issuing'cardReplacedBy'Variants
-> Maybe Issuing'cardReplacementFor'Variants
-> Maybe Issuing'cardReplacementReason'
-> Maybe Issuing'cardShipping'
-> IssuingCardAuthorizationControls
-> Issuing'cardStatus'
-> Issuing'cardType'
-> Issuing'card)
-> Parser (Maybe Issuing'cardCancellationReason')
-> Parser
(Issuing'cardholder
-> Int
-> Text
-> Maybe Text
-> Int
-> Int
-> Text
-> Text
-> Bool
-> Object
-> Maybe Text
-> Maybe Issuing'cardReplacedBy'Variants
-> Maybe Issuing'cardReplacementFor'Variants
-> Maybe Issuing'cardReplacementReason'
-> Maybe Issuing'cardShipping'
-> IssuingCardAuthorizationControls
-> Issuing'cardStatus'
-> Issuing'cardType'
-> Issuing'card)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Issuing'cardCancellationReason')
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"cancellation_reason")) Parser
(Issuing'cardholder
-> Int
-> Text
-> Maybe Text
-> Int
-> Int
-> Text
-> Text
-> Bool
-> Object
-> Maybe Text
-> Maybe Issuing'cardReplacedBy'Variants
-> Maybe Issuing'cardReplacementFor'Variants
-> Maybe Issuing'cardReplacementReason'
-> Maybe Issuing'cardShipping'
-> IssuingCardAuthorizationControls
-> Issuing'cardStatus'
-> Issuing'cardType'
-> Issuing'card)
-> Parser Issuing'cardholder
-> Parser
(Int
-> Text
-> Maybe Text
-> Int
-> Int
-> Text
-> Text
-> Bool
-> Object
-> Maybe Text
-> Maybe Issuing'cardReplacedBy'Variants
-> Maybe Issuing'cardReplacementFor'Variants
-> Maybe Issuing'cardReplacementReason'
-> Maybe Issuing'cardShipping'
-> IssuingCardAuthorizationControls
-> Issuing'cardStatus'
-> Issuing'cardType'
-> Issuing'card)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser Issuing'cardholder
forall a. FromJSON a => Object -> Text -> Parser a
Data.Aeson.Types.FromJSON..: Text
"cardholder")) Parser
(Int
-> Text
-> Maybe Text
-> Int
-> Int
-> Text
-> Text
-> Bool
-> Object
-> Maybe Text
-> Maybe Issuing'cardReplacedBy'Variants
-> Maybe Issuing'cardReplacementFor'Variants
-> Maybe Issuing'cardReplacementReason'
-> Maybe Issuing'cardShipping'
-> IssuingCardAuthorizationControls
-> Issuing'cardStatus'
-> Issuing'cardType'
-> Issuing'card)
-> Parser Int
-> Parser
(Text
-> Maybe Text
-> Int
-> Int
-> Text
-> Text
-> Bool
-> Object
-> Maybe Text
-> Maybe Issuing'cardReplacedBy'Variants
-> Maybe Issuing'cardReplacementFor'Variants
-> Maybe Issuing'cardReplacementReason'
-> Maybe Issuing'cardShipping'
-> IssuingCardAuthorizationControls
-> Issuing'cardStatus'
-> Issuing'cardType'
-> Issuing'card)
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
"created")) Parser
(Text
-> Maybe Text
-> Int
-> Int
-> Text
-> Text
-> Bool
-> Object
-> Maybe Text
-> Maybe Issuing'cardReplacedBy'Variants
-> Maybe Issuing'cardReplacementFor'Variants
-> Maybe Issuing'cardReplacementReason'
-> Maybe Issuing'cardShipping'
-> IssuingCardAuthorizationControls
-> Issuing'cardStatus'
-> Issuing'cardType'
-> Issuing'card)
-> Parser Text
-> Parser
(Maybe Text
-> Int
-> Int
-> Text
-> Text
-> Bool
-> Object
-> Maybe Text
-> Maybe Issuing'cardReplacedBy'Variants
-> Maybe Issuing'cardReplacementFor'Variants
-> Maybe Issuing'cardReplacementReason'
-> Maybe Issuing'cardShipping'
-> IssuingCardAuthorizationControls
-> Issuing'cardStatus'
-> Issuing'cardType'
-> Issuing'card)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser Text
forall a. FromJSON a => Object -> Text -> Parser a
Data.Aeson.Types.FromJSON..: Text
"currency")) Parser
(Maybe Text
-> Int
-> Int
-> Text
-> Text
-> Bool
-> Object
-> Maybe Text
-> Maybe Issuing'cardReplacedBy'Variants
-> Maybe Issuing'cardReplacementFor'Variants
-> Maybe Issuing'cardReplacementReason'
-> Maybe Issuing'cardShipping'
-> IssuingCardAuthorizationControls
-> Issuing'cardStatus'
-> Issuing'cardType'
-> Issuing'card)
-> Parser (Maybe Text)
-> Parser
(Int
-> Int
-> Text
-> Text
-> Bool
-> Object
-> Maybe Text
-> Maybe Issuing'cardReplacedBy'Variants
-> Maybe Issuing'cardReplacementFor'Variants
-> Maybe Issuing'cardReplacementReason'
-> Maybe Issuing'cardShipping'
-> IssuingCardAuthorizationControls
-> Issuing'cardStatus'
-> Issuing'cardType'
-> Issuing'card)
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
"cvc")) Parser
(Int
-> Int
-> Text
-> Text
-> Bool
-> Object
-> Maybe Text
-> Maybe Issuing'cardReplacedBy'Variants
-> Maybe Issuing'cardReplacementFor'Variants
-> Maybe Issuing'cardReplacementReason'
-> Maybe Issuing'cardShipping'
-> IssuingCardAuthorizationControls
-> Issuing'cardStatus'
-> Issuing'cardType'
-> Issuing'card)
-> Parser Int
-> Parser
(Int
-> Text
-> Text
-> Bool
-> Object
-> Maybe Text
-> Maybe Issuing'cardReplacedBy'Variants
-> Maybe Issuing'cardReplacementFor'Variants
-> Maybe Issuing'cardReplacementReason'
-> Maybe Issuing'cardShipping'
-> IssuingCardAuthorizationControls
-> Issuing'cardStatus'
-> Issuing'cardType'
-> Issuing'card)
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
"exp_month")) Parser
(Int
-> Text
-> Text
-> Bool
-> Object
-> Maybe Text
-> Maybe Issuing'cardReplacedBy'Variants
-> Maybe Issuing'cardReplacementFor'Variants
-> Maybe Issuing'cardReplacementReason'
-> Maybe Issuing'cardShipping'
-> IssuingCardAuthorizationControls
-> Issuing'cardStatus'
-> Issuing'cardType'
-> Issuing'card)
-> Parser Int
-> Parser
(Text
-> Text
-> Bool
-> Object
-> Maybe Text
-> Maybe Issuing'cardReplacedBy'Variants
-> Maybe Issuing'cardReplacementFor'Variants
-> Maybe Issuing'cardReplacementReason'
-> Maybe Issuing'cardShipping'
-> IssuingCardAuthorizationControls
-> Issuing'cardStatus'
-> Issuing'cardType'
-> Issuing'card)
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
"exp_year")) Parser
(Text
-> Text
-> Bool
-> Object
-> Maybe Text
-> Maybe Issuing'cardReplacedBy'Variants
-> Maybe Issuing'cardReplacementFor'Variants
-> Maybe Issuing'cardReplacementReason'
-> Maybe Issuing'cardShipping'
-> IssuingCardAuthorizationControls
-> Issuing'cardStatus'
-> Issuing'cardType'
-> Issuing'card)
-> Parser Text
-> Parser
(Text
-> Bool
-> Object
-> Maybe Text
-> Maybe Issuing'cardReplacedBy'Variants
-> Maybe Issuing'cardReplacementFor'Variants
-> Maybe Issuing'cardReplacementReason'
-> Maybe Issuing'cardShipping'
-> IssuingCardAuthorizationControls
-> Issuing'cardStatus'
-> Issuing'cardType'
-> Issuing'card)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser Text
forall a. FromJSON a => Object -> Text -> Parser a
Data.Aeson.Types.FromJSON..: Text
"id")) Parser
(Text
-> Bool
-> Object
-> Maybe Text
-> Maybe Issuing'cardReplacedBy'Variants
-> Maybe Issuing'cardReplacementFor'Variants
-> Maybe Issuing'cardReplacementReason'
-> Maybe Issuing'cardShipping'
-> IssuingCardAuthorizationControls
-> Issuing'cardStatus'
-> Issuing'cardType'
-> Issuing'card)
-> Parser Text
-> Parser
(Bool
-> Object
-> Maybe Text
-> Maybe Issuing'cardReplacedBy'Variants
-> Maybe Issuing'cardReplacementFor'Variants
-> Maybe Issuing'cardReplacementReason'
-> Maybe Issuing'cardShipping'
-> IssuingCardAuthorizationControls
-> Issuing'cardStatus'
-> Issuing'cardType'
-> Issuing'card)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser Text
forall a. FromJSON a => Object -> Text -> Parser a
Data.Aeson.Types.FromJSON..: Text
"last4")) Parser
(Bool
-> Object
-> Maybe Text
-> Maybe Issuing'cardReplacedBy'Variants
-> Maybe Issuing'cardReplacementFor'Variants
-> Maybe Issuing'cardReplacementReason'
-> Maybe Issuing'cardShipping'
-> IssuingCardAuthorizationControls
-> Issuing'cardStatus'
-> Issuing'cardType'
-> Issuing'card)
-> Parser Bool
-> Parser
(Object
-> Maybe Text
-> Maybe Issuing'cardReplacedBy'Variants
-> Maybe Issuing'cardReplacementFor'Variants
-> Maybe Issuing'cardReplacementReason'
-> Maybe Issuing'cardShipping'
-> IssuingCardAuthorizationControls
-> Issuing'cardStatus'
-> Issuing'cardType'
-> Issuing'card)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser Bool
forall a. FromJSON a => Object -> Text -> Parser a
Data.Aeson.Types.FromJSON..: Text
"livemode")) Parser
(Object
-> Maybe Text
-> Maybe Issuing'cardReplacedBy'Variants
-> Maybe Issuing'cardReplacementFor'Variants
-> Maybe Issuing'cardReplacementReason'
-> Maybe Issuing'cardShipping'
-> IssuingCardAuthorizationControls
-> Issuing'cardStatus'
-> Issuing'cardType'
-> Issuing'card)
-> Parser Object
-> Parser
(Maybe Text
-> Maybe Issuing'cardReplacedBy'Variants
-> Maybe Issuing'cardReplacementFor'Variants
-> Maybe Issuing'cardReplacementReason'
-> Maybe Issuing'cardShipping'
-> IssuingCardAuthorizationControls
-> Issuing'cardStatus'
-> Issuing'cardType'
-> Issuing'card)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser Object
forall a. FromJSON a => Object -> Text -> Parser a
Data.Aeson.Types.FromJSON..: Text
"metadata")) Parser
(Maybe Text
-> Maybe Issuing'cardReplacedBy'Variants
-> Maybe Issuing'cardReplacementFor'Variants
-> Maybe Issuing'cardReplacementReason'
-> Maybe Issuing'cardShipping'
-> IssuingCardAuthorizationControls
-> Issuing'cardStatus'
-> Issuing'cardType'
-> Issuing'card)
-> Parser (Maybe Text)
-> Parser
(Maybe Issuing'cardReplacedBy'Variants
-> Maybe Issuing'cardReplacementFor'Variants
-> Maybe Issuing'cardReplacementReason'
-> Maybe Issuing'cardShipping'
-> IssuingCardAuthorizationControls
-> Issuing'cardStatus'
-> Issuing'cardType'
-> Issuing'card)
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
"number")) Parser
(Maybe Issuing'cardReplacedBy'Variants
-> Maybe Issuing'cardReplacementFor'Variants
-> Maybe Issuing'cardReplacementReason'
-> Maybe Issuing'cardShipping'
-> IssuingCardAuthorizationControls
-> Issuing'cardStatus'
-> Issuing'cardType'
-> Issuing'card)
-> Parser (Maybe Issuing'cardReplacedBy'Variants)
-> Parser
(Maybe Issuing'cardReplacementFor'Variants
-> Maybe Issuing'cardReplacementReason'
-> Maybe Issuing'cardShipping'
-> IssuingCardAuthorizationControls
-> Issuing'cardStatus'
-> Issuing'cardType'
-> Issuing'card)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Issuing'cardReplacedBy'Variants)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"replaced_by")) Parser
(Maybe Issuing'cardReplacementFor'Variants
-> Maybe Issuing'cardReplacementReason'
-> Maybe Issuing'cardShipping'
-> IssuingCardAuthorizationControls
-> Issuing'cardStatus'
-> Issuing'cardType'
-> Issuing'card)
-> Parser (Maybe Issuing'cardReplacementFor'Variants)
-> Parser
(Maybe Issuing'cardReplacementReason'
-> Maybe Issuing'cardShipping'
-> IssuingCardAuthorizationControls
-> Issuing'cardStatus'
-> Issuing'cardType'
-> Issuing'card)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object
-> Text -> Parser (Maybe Issuing'cardReplacementFor'Variants)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"replacement_for")) Parser
(Maybe Issuing'cardReplacementReason'
-> Maybe Issuing'cardShipping'
-> IssuingCardAuthorizationControls
-> Issuing'cardStatus'
-> Issuing'cardType'
-> Issuing'card)
-> Parser (Maybe Issuing'cardReplacementReason')
-> Parser
(Maybe Issuing'cardShipping'
-> IssuingCardAuthorizationControls
-> Issuing'cardStatus'
-> Issuing'cardType'
-> Issuing'card)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Issuing'cardReplacementReason')
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"replacement_reason")) Parser
(Maybe Issuing'cardShipping'
-> IssuingCardAuthorizationControls
-> Issuing'cardStatus'
-> Issuing'cardType'
-> Issuing'card)
-> Parser (Maybe Issuing'cardShipping')
-> Parser
(IssuingCardAuthorizationControls
-> Issuing'cardStatus' -> Issuing'cardType' -> Issuing'card)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Issuing'cardShipping')
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"shipping")) Parser
(IssuingCardAuthorizationControls
-> Issuing'cardStatus' -> Issuing'cardType' -> Issuing'card)
-> Parser IssuingCardAuthorizationControls
-> Parser
(Issuing'cardStatus' -> Issuing'cardType' -> Issuing'card)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser IssuingCardAuthorizationControls
forall a. FromJSON a => Object -> Text -> Parser a
Data.Aeson.Types.FromJSON..: Text
"spending_controls")) Parser (Issuing'cardStatus' -> Issuing'cardType' -> Issuing'card)
-> Parser Issuing'cardStatus'
-> Parser (Issuing'cardType' -> Issuing'card)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser Issuing'cardStatus'
forall a. FromJSON a => Object -> Text -> Parser a
Data.Aeson.Types.FromJSON..: Text
"status")) Parser (Issuing'cardType' -> Issuing'card)
-> Parser Issuing'cardType' -> Parser Issuing'card
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser Issuing'cardType'
forall a. FromJSON a => Object -> Text -> Parser a
Data.Aeson.Types.FromJSON..: Text
"type"))
mkIssuing'card ::
Data.Text.Internal.Text ->
Issuing'cardholder ->
GHC.Types.Int ->
Data.Text.Internal.Text ->
GHC.Types.Int ->
GHC.Types.Int ->
Data.Text.Internal.Text ->
Data.Text.Internal.Text ->
GHC.Types.Bool ->
Data.Aeson.Types.Internal.Object ->
IssuingCardAuthorizationControls ->
Issuing'cardStatus' ->
Issuing'cardType' ->
Issuing'card
mkIssuing'card :: Text
-> Issuing'cardholder
-> Int
-> Text
-> Int
-> Int
-> Text
-> Text
-> Bool
-> Object
-> IssuingCardAuthorizationControls
-> Issuing'cardStatus'
-> Issuing'cardType'
-> Issuing'card
mkIssuing'card Text
issuing'cardBrand Issuing'cardholder
issuing'cardCardholder Int
issuing'cardCreated Text
issuing'cardCurrency Int
issuing'cardExpMonth Int
issuing'cardExpYear Text
issuing'cardId Text
issuing'cardLast4 Bool
issuing'cardLivemode Object
issuing'cardMetadata IssuingCardAuthorizationControls
issuing'cardSpendingControls Issuing'cardStatus'
issuing'cardStatus Issuing'cardType'
issuing'cardType =
Issuing'card :: Text
-> Maybe Issuing'cardCancellationReason'
-> Issuing'cardholder
-> Int
-> Text
-> Maybe Text
-> Int
-> Int
-> Text
-> Text
-> Bool
-> Object
-> Maybe Text
-> Maybe Issuing'cardReplacedBy'Variants
-> Maybe Issuing'cardReplacementFor'Variants
-> Maybe Issuing'cardReplacementReason'
-> Maybe Issuing'cardShipping'
-> IssuingCardAuthorizationControls
-> Issuing'cardStatus'
-> Issuing'cardType'
-> Issuing'card
Issuing'card
{ issuing'cardBrand :: Text
issuing'cardBrand = Text
issuing'cardBrand,
issuing'cardCancellationReason :: Maybe Issuing'cardCancellationReason'
issuing'cardCancellationReason = Maybe Issuing'cardCancellationReason'
forall a. Maybe a
GHC.Maybe.Nothing,
issuing'cardCardholder :: Issuing'cardholder
issuing'cardCardholder = Issuing'cardholder
issuing'cardCardholder,
issuing'cardCreated :: Int
issuing'cardCreated = Int
issuing'cardCreated,
issuing'cardCurrency :: Text
issuing'cardCurrency = Text
issuing'cardCurrency,
issuing'cardCvc :: Maybe Text
issuing'cardCvc = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
issuing'cardExpMonth :: Int
issuing'cardExpMonth = Int
issuing'cardExpMonth,
issuing'cardExpYear :: Int
issuing'cardExpYear = Int
issuing'cardExpYear,
issuing'cardId :: Text
issuing'cardId = Text
issuing'cardId,
issuing'cardLast4 :: Text
issuing'cardLast4 = Text
issuing'cardLast4,
issuing'cardLivemode :: Bool
issuing'cardLivemode = Bool
issuing'cardLivemode,
issuing'cardMetadata :: Object
issuing'cardMetadata = Object
issuing'cardMetadata,
issuing'cardNumber :: Maybe Text
issuing'cardNumber = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
issuing'cardReplacedBy :: Maybe Issuing'cardReplacedBy'Variants
issuing'cardReplacedBy = Maybe Issuing'cardReplacedBy'Variants
forall a. Maybe a
GHC.Maybe.Nothing,
issuing'cardReplacementFor :: Maybe Issuing'cardReplacementFor'Variants
issuing'cardReplacementFor = Maybe Issuing'cardReplacementFor'Variants
forall a. Maybe a
GHC.Maybe.Nothing,
issuing'cardReplacementReason :: Maybe Issuing'cardReplacementReason'
issuing'cardReplacementReason = Maybe Issuing'cardReplacementReason'
forall a. Maybe a
GHC.Maybe.Nothing,
issuing'cardShipping :: Maybe Issuing'cardShipping'
issuing'cardShipping = Maybe Issuing'cardShipping'
forall a. Maybe a
GHC.Maybe.Nothing,
issuing'cardSpendingControls :: IssuingCardAuthorizationControls
issuing'cardSpendingControls = IssuingCardAuthorizationControls
issuing'cardSpendingControls,
issuing'cardStatus :: Issuing'cardStatus'
issuing'cardStatus = Issuing'cardStatus'
issuing'cardStatus,
issuing'cardType :: Issuing'cardType'
issuing'cardType = Issuing'cardType'
issuing'cardType
}
data Issuing'cardCancellationReason'
=
Issuing'cardCancellationReason'Other Data.Aeson.Types.Internal.Value
|
Issuing'cardCancellationReason'Typed Data.Text.Internal.Text
|
Issuing'cardCancellationReason'EnumLost
|
Issuing'cardCancellationReason'EnumStolen
deriving (Int -> Issuing'cardCancellationReason' -> ShowS
[Issuing'cardCancellationReason'] -> ShowS
Issuing'cardCancellationReason' -> String
(Int -> Issuing'cardCancellationReason' -> ShowS)
-> (Issuing'cardCancellationReason' -> String)
-> ([Issuing'cardCancellationReason'] -> ShowS)
-> Show Issuing'cardCancellationReason'
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [Issuing'cardCancellationReason'] -> ShowS
$cshowList :: [Issuing'cardCancellationReason'] -> ShowS
show :: Issuing'cardCancellationReason' -> String
$cshow :: Issuing'cardCancellationReason' -> String
showsPrec :: Int -> Issuing'cardCancellationReason' -> ShowS
$cshowsPrec :: Int -> Issuing'cardCancellationReason' -> ShowS
GHC.Show.Show, Issuing'cardCancellationReason'
-> Issuing'cardCancellationReason' -> Bool
(Issuing'cardCancellationReason'
-> Issuing'cardCancellationReason' -> Bool)
-> (Issuing'cardCancellationReason'
-> Issuing'cardCancellationReason' -> Bool)
-> Eq Issuing'cardCancellationReason'
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: Issuing'cardCancellationReason'
-> Issuing'cardCancellationReason' -> Bool
$c/= :: Issuing'cardCancellationReason'
-> Issuing'cardCancellationReason' -> Bool
== :: Issuing'cardCancellationReason'
-> Issuing'cardCancellationReason' -> Bool
$c== :: Issuing'cardCancellationReason'
-> Issuing'cardCancellationReason' -> Bool
GHC.Classes.Eq)
instance Data.Aeson.Types.ToJSON.ToJSON Issuing'cardCancellationReason' where
toJSON :: Issuing'cardCancellationReason' -> Value
toJSON (Issuing'cardCancellationReason'Other Value
val) = Value
val
toJSON (Issuing'cardCancellationReason'Typed Text
val) = Text -> Value
forall a. ToJSON a => a -> Value
Data.Aeson.Types.ToJSON.toJSON Text
val
toJSON (Issuing'cardCancellationReason'
Issuing'cardCancellationReason'EnumLost) = Value
"lost"
toJSON (Issuing'cardCancellationReason'
Issuing'cardCancellationReason'EnumStolen) = Value
"stolen"
instance Data.Aeson.Types.FromJSON.FromJSON Issuing'cardCancellationReason' where
parseJSON :: Value -> Parser Issuing'cardCancellationReason'
parseJSON Value
val =
Issuing'cardCancellationReason'
-> Parser Issuing'cardCancellationReason'
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure
( if
| Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"lost" -> Issuing'cardCancellationReason'
Issuing'cardCancellationReason'EnumLost
| Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"stolen" -> Issuing'cardCancellationReason'
Issuing'cardCancellationReason'EnumStolen
| Bool
GHC.Base.otherwise -> Value -> Issuing'cardCancellationReason'
Issuing'cardCancellationReason'Other Value
val
)
data Issuing'cardReplacedBy'Variants
= Issuing'cardReplacedBy'Text Data.Text.Internal.Text
| Issuing'cardReplacedBy'Issuing'card Issuing'card
deriving (Int -> Issuing'cardReplacedBy'Variants -> ShowS
[Issuing'cardReplacedBy'Variants] -> ShowS
Issuing'cardReplacedBy'Variants -> String
(Int -> Issuing'cardReplacedBy'Variants -> ShowS)
-> (Issuing'cardReplacedBy'Variants -> String)
-> ([Issuing'cardReplacedBy'Variants] -> ShowS)
-> Show Issuing'cardReplacedBy'Variants
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [Issuing'cardReplacedBy'Variants] -> ShowS
$cshowList :: [Issuing'cardReplacedBy'Variants] -> ShowS
show :: Issuing'cardReplacedBy'Variants -> String
$cshow :: Issuing'cardReplacedBy'Variants -> String
showsPrec :: Int -> Issuing'cardReplacedBy'Variants -> ShowS
$cshowsPrec :: Int -> Issuing'cardReplacedBy'Variants -> ShowS
GHC.Show.Show, Issuing'cardReplacedBy'Variants
-> Issuing'cardReplacedBy'Variants -> Bool
(Issuing'cardReplacedBy'Variants
-> Issuing'cardReplacedBy'Variants -> Bool)
-> (Issuing'cardReplacedBy'Variants
-> Issuing'cardReplacedBy'Variants -> Bool)
-> Eq Issuing'cardReplacedBy'Variants
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: Issuing'cardReplacedBy'Variants
-> Issuing'cardReplacedBy'Variants -> Bool
$c/= :: Issuing'cardReplacedBy'Variants
-> Issuing'cardReplacedBy'Variants -> Bool
== :: Issuing'cardReplacedBy'Variants
-> Issuing'cardReplacedBy'Variants -> Bool
$c== :: Issuing'cardReplacedBy'Variants
-> Issuing'cardReplacedBy'Variants -> Bool
GHC.Classes.Eq)
instance Data.Aeson.Types.ToJSON.ToJSON Issuing'cardReplacedBy'Variants where
toJSON :: Issuing'cardReplacedBy'Variants -> Value
toJSON (Issuing'cardReplacedBy'Text Text
a) = Text -> Value
forall a. ToJSON a => a -> Value
Data.Aeson.Types.ToJSON.toJSON Text
a
toJSON (Issuing'cardReplacedBy'Issuing'card Issuing'card
a) = Issuing'card -> Value
forall a. ToJSON a => a -> Value
Data.Aeson.Types.ToJSON.toJSON Issuing'card
a
instance Data.Aeson.Types.FromJSON.FromJSON Issuing'cardReplacedBy'Variants where
parseJSON :: Value -> Parser Issuing'cardReplacedBy'Variants
parseJSON Value
val = case (Text -> Issuing'cardReplacedBy'Variants
Issuing'cardReplacedBy'Text (Text -> Issuing'cardReplacedBy'Variants)
-> Result Text -> Result Issuing'cardReplacedBy'Variants
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Data.Functor.<$> Value -> Result Text
forall a. FromJSON a => Value -> Result a
Data.Aeson.Types.FromJSON.fromJSON Value
val) Result Issuing'cardReplacedBy'Variants
-> Result Issuing'cardReplacedBy'Variants
-> Result Issuing'cardReplacedBy'Variants
forall (f :: * -> *) a. Alternative f => f a -> f a -> f a
GHC.Base.<|> ((Issuing'card -> Issuing'cardReplacedBy'Variants
Issuing'cardReplacedBy'Issuing'card (Issuing'card -> Issuing'cardReplacedBy'Variants)
-> Result Issuing'card -> Result Issuing'cardReplacedBy'Variants
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Data.Functor.<$> Value -> Result Issuing'card
forall a. FromJSON a => Value -> Result a
Data.Aeson.Types.FromJSON.fromJSON Value
val) Result Issuing'cardReplacedBy'Variants
-> Result Issuing'cardReplacedBy'Variants
-> Result Issuing'cardReplacedBy'Variants
forall (f :: * -> *) a. Alternative f => f a -> f a -> f a
GHC.Base.<|> String -> Result Issuing'cardReplacedBy'Variants
forall a. String -> Result a
Data.Aeson.Types.Internal.Error String
"No variant matched") of
Data.Aeson.Types.Internal.Success Issuing'cardReplacedBy'Variants
a -> Issuing'cardReplacedBy'Variants
-> Parser Issuing'cardReplacedBy'Variants
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure Issuing'cardReplacedBy'Variants
a
Data.Aeson.Types.Internal.Error String
a -> String -> Parser Issuing'cardReplacedBy'Variants
forall (m :: * -> *) a. MonadFail m => String -> m a
Control.Monad.Fail.fail String
a
data Issuing'cardReplacementFor'Variants
= Issuing'cardReplacementFor'Text Data.Text.Internal.Text
| Issuing'cardReplacementFor'Issuing'card Issuing'card
deriving (Int -> Issuing'cardReplacementFor'Variants -> ShowS
[Issuing'cardReplacementFor'Variants] -> ShowS
Issuing'cardReplacementFor'Variants -> String
(Int -> Issuing'cardReplacementFor'Variants -> ShowS)
-> (Issuing'cardReplacementFor'Variants -> String)
-> ([Issuing'cardReplacementFor'Variants] -> ShowS)
-> Show Issuing'cardReplacementFor'Variants
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [Issuing'cardReplacementFor'Variants] -> ShowS
$cshowList :: [Issuing'cardReplacementFor'Variants] -> ShowS
show :: Issuing'cardReplacementFor'Variants -> String
$cshow :: Issuing'cardReplacementFor'Variants -> String
showsPrec :: Int -> Issuing'cardReplacementFor'Variants -> ShowS
$cshowsPrec :: Int -> Issuing'cardReplacementFor'Variants -> ShowS
GHC.Show.Show, Issuing'cardReplacementFor'Variants
-> Issuing'cardReplacementFor'Variants -> Bool
(Issuing'cardReplacementFor'Variants
-> Issuing'cardReplacementFor'Variants -> Bool)
-> (Issuing'cardReplacementFor'Variants
-> Issuing'cardReplacementFor'Variants -> Bool)
-> Eq Issuing'cardReplacementFor'Variants
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: Issuing'cardReplacementFor'Variants
-> Issuing'cardReplacementFor'Variants -> Bool
$c/= :: Issuing'cardReplacementFor'Variants
-> Issuing'cardReplacementFor'Variants -> Bool
== :: Issuing'cardReplacementFor'Variants
-> Issuing'cardReplacementFor'Variants -> Bool
$c== :: Issuing'cardReplacementFor'Variants
-> Issuing'cardReplacementFor'Variants -> Bool
GHC.Classes.Eq)
instance Data.Aeson.Types.ToJSON.ToJSON Issuing'cardReplacementFor'Variants where
toJSON :: Issuing'cardReplacementFor'Variants -> Value
toJSON (Issuing'cardReplacementFor'Text Text
a) = Text -> Value
forall a. ToJSON a => a -> Value
Data.Aeson.Types.ToJSON.toJSON Text
a
toJSON (Issuing'cardReplacementFor'Issuing'card Issuing'card
a) = Issuing'card -> Value
forall a. ToJSON a => a -> Value
Data.Aeson.Types.ToJSON.toJSON Issuing'card
a
instance Data.Aeson.Types.FromJSON.FromJSON Issuing'cardReplacementFor'Variants where
parseJSON :: Value -> Parser Issuing'cardReplacementFor'Variants
parseJSON Value
val = case (Text -> Issuing'cardReplacementFor'Variants
Issuing'cardReplacementFor'Text (Text -> Issuing'cardReplacementFor'Variants)
-> Result Text -> Result Issuing'cardReplacementFor'Variants
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Data.Functor.<$> Value -> Result Text
forall a. FromJSON a => Value -> Result a
Data.Aeson.Types.FromJSON.fromJSON Value
val) Result Issuing'cardReplacementFor'Variants
-> Result Issuing'cardReplacementFor'Variants
-> Result Issuing'cardReplacementFor'Variants
forall (f :: * -> *) a. Alternative f => f a -> f a -> f a
GHC.Base.<|> ((Issuing'card -> Issuing'cardReplacementFor'Variants
Issuing'cardReplacementFor'Issuing'card (Issuing'card -> Issuing'cardReplacementFor'Variants)
-> Result Issuing'card
-> Result Issuing'cardReplacementFor'Variants
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Data.Functor.<$> Value -> Result Issuing'card
forall a. FromJSON a => Value -> Result a
Data.Aeson.Types.FromJSON.fromJSON Value
val) Result Issuing'cardReplacementFor'Variants
-> Result Issuing'cardReplacementFor'Variants
-> Result Issuing'cardReplacementFor'Variants
forall (f :: * -> *) a. Alternative f => f a -> f a -> f a
GHC.Base.<|> String -> Result Issuing'cardReplacementFor'Variants
forall a. String -> Result a
Data.Aeson.Types.Internal.Error String
"No variant matched") of
Data.Aeson.Types.Internal.Success Issuing'cardReplacementFor'Variants
a -> Issuing'cardReplacementFor'Variants
-> Parser Issuing'cardReplacementFor'Variants
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure Issuing'cardReplacementFor'Variants
a
Data.Aeson.Types.Internal.Error String
a -> String -> Parser Issuing'cardReplacementFor'Variants
forall (m :: * -> *) a. MonadFail m => String -> m a
Control.Monad.Fail.fail String
a
data Issuing'cardReplacementReason'
=
Issuing'cardReplacementReason'Other Data.Aeson.Types.Internal.Value
|
Issuing'cardReplacementReason'Typed Data.Text.Internal.Text
|
Issuing'cardReplacementReason'EnumDamaged
|
Issuing'cardReplacementReason'EnumExpired
|
Issuing'cardReplacementReason'EnumLost
|
Issuing'cardReplacementReason'EnumStolen
deriving (Int -> Issuing'cardReplacementReason' -> ShowS
[Issuing'cardReplacementReason'] -> ShowS
Issuing'cardReplacementReason' -> String
(Int -> Issuing'cardReplacementReason' -> ShowS)
-> (Issuing'cardReplacementReason' -> String)
-> ([Issuing'cardReplacementReason'] -> ShowS)
-> Show Issuing'cardReplacementReason'
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [Issuing'cardReplacementReason'] -> ShowS
$cshowList :: [Issuing'cardReplacementReason'] -> ShowS
show :: Issuing'cardReplacementReason' -> String
$cshow :: Issuing'cardReplacementReason' -> String
showsPrec :: Int -> Issuing'cardReplacementReason' -> ShowS
$cshowsPrec :: Int -> Issuing'cardReplacementReason' -> ShowS
GHC.Show.Show, Issuing'cardReplacementReason'
-> Issuing'cardReplacementReason' -> Bool
(Issuing'cardReplacementReason'
-> Issuing'cardReplacementReason' -> Bool)
-> (Issuing'cardReplacementReason'
-> Issuing'cardReplacementReason' -> Bool)
-> Eq Issuing'cardReplacementReason'
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: Issuing'cardReplacementReason'
-> Issuing'cardReplacementReason' -> Bool
$c/= :: Issuing'cardReplacementReason'
-> Issuing'cardReplacementReason' -> Bool
== :: Issuing'cardReplacementReason'
-> Issuing'cardReplacementReason' -> Bool
$c== :: Issuing'cardReplacementReason'
-> Issuing'cardReplacementReason' -> Bool
GHC.Classes.Eq)
instance Data.Aeson.Types.ToJSON.ToJSON Issuing'cardReplacementReason' where
toJSON :: Issuing'cardReplacementReason' -> Value
toJSON (Issuing'cardReplacementReason'Other Value
val) = Value
val
toJSON (Issuing'cardReplacementReason'Typed Text
val) = Text -> Value
forall a. ToJSON a => a -> Value
Data.Aeson.Types.ToJSON.toJSON Text
val
toJSON (Issuing'cardReplacementReason'
Issuing'cardReplacementReason'EnumDamaged) = Value
"damaged"
toJSON (Issuing'cardReplacementReason'
Issuing'cardReplacementReason'EnumExpired) = Value
"expired"
toJSON (Issuing'cardReplacementReason'
Issuing'cardReplacementReason'EnumLost) = Value
"lost"
toJSON (Issuing'cardReplacementReason'
Issuing'cardReplacementReason'EnumStolen) = Value
"stolen"
instance Data.Aeson.Types.FromJSON.FromJSON Issuing'cardReplacementReason' where
parseJSON :: Value -> Parser Issuing'cardReplacementReason'
parseJSON Value
val =
Issuing'cardReplacementReason'
-> Parser Issuing'cardReplacementReason'
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure
( if
| Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"damaged" -> Issuing'cardReplacementReason'
Issuing'cardReplacementReason'EnumDamaged
| Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"expired" -> Issuing'cardReplacementReason'
Issuing'cardReplacementReason'EnumExpired
| Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"lost" -> Issuing'cardReplacementReason'
Issuing'cardReplacementReason'EnumLost
| Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"stolen" -> Issuing'cardReplacementReason'
Issuing'cardReplacementReason'EnumStolen
| Bool
GHC.Base.otherwise -> Value -> Issuing'cardReplacementReason'
Issuing'cardReplacementReason'Other Value
val
)
data Issuing'cardShipping' = Issuing'cardShipping'
{
Issuing'cardShipping' -> Maybe Address
issuing'cardShipping'Address :: (GHC.Maybe.Maybe Address),
Issuing'cardShipping' -> Maybe Issuing'cardShipping'Carrier'
issuing'cardShipping'Carrier :: (GHC.Maybe.Maybe Issuing'cardShipping'Carrier'),
Issuing'cardShipping' -> Maybe Int
issuing'cardShipping'Eta :: (GHC.Maybe.Maybe GHC.Types.Int),
Issuing'cardShipping' -> Maybe Text
issuing'cardShipping'Name :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
Issuing'cardShipping' -> Maybe Issuing'cardShipping'Service'
issuing'cardShipping'Service :: (GHC.Maybe.Maybe Issuing'cardShipping'Service'),
Issuing'cardShipping' -> Maybe Issuing'cardShipping'Status'
issuing'cardShipping'Status :: (GHC.Maybe.Maybe Issuing'cardShipping'Status'),
Issuing'cardShipping' -> Maybe Text
issuing'cardShipping'TrackingNumber :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
Issuing'cardShipping' -> Maybe Text
issuing'cardShipping'TrackingUrl :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
Issuing'cardShipping' -> Maybe Issuing'cardShipping'Type'
issuing'cardShipping'Type :: (GHC.Maybe.Maybe Issuing'cardShipping'Type')
}
deriving
( Int -> Issuing'cardShipping' -> ShowS
[Issuing'cardShipping'] -> ShowS
Issuing'cardShipping' -> String
(Int -> Issuing'cardShipping' -> ShowS)
-> (Issuing'cardShipping' -> String)
-> ([Issuing'cardShipping'] -> ShowS)
-> Show Issuing'cardShipping'
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [Issuing'cardShipping'] -> ShowS
$cshowList :: [Issuing'cardShipping'] -> ShowS
show :: Issuing'cardShipping' -> String
$cshow :: Issuing'cardShipping' -> String
showsPrec :: Int -> Issuing'cardShipping' -> ShowS
$cshowsPrec :: Int -> Issuing'cardShipping' -> ShowS
GHC.Show.Show,
Issuing'cardShipping' -> Issuing'cardShipping' -> Bool
(Issuing'cardShipping' -> Issuing'cardShipping' -> Bool)
-> (Issuing'cardShipping' -> Issuing'cardShipping' -> Bool)
-> Eq Issuing'cardShipping'
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: Issuing'cardShipping' -> Issuing'cardShipping' -> Bool
$c/= :: Issuing'cardShipping' -> Issuing'cardShipping' -> Bool
== :: Issuing'cardShipping' -> Issuing'cardShipping' -> Bool
$c== :: Issuing'cardShipping' -> Issuing'cardShipping' -> Bool
GHC.Classes.Eq
)
instance Data.Aeson.Types.ToJSON.ToJSON Issuing'cardShipping' where
toJSON :: Issuing'cardShipping' -> Value
toJSON Issuing'cardShipping'
obj = [Pair] -> Value
Data.Aeson.Types.Internal.object (Text
"address" Text -> Maybe Address -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= Issuing'cardShipping' -> Maybe Address
issuing'cardShipping'Address Issuing'cardShipping'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"carrier" Text -> Maybe Issuing'cardShipping'Carrier' -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= Issuing'cardShipping' -> Maybe Issuing'cardShipping'Carrier'
issuing'cardShipping'Carrier Issuing'cardShipping'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"eta" Text -> Maybe Int -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= Issuing'cardShipping' -> Maybe Int
issuing'cardShipping'Eta Issuing'cardShipping'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"name" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= Issuing'cardShipping' -> Maybe Text
issuing'cardShipping'Name Issuing'cardShipping'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"service" Text -> Maybe Issuing'cardShipping'Service' -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= Issuing'cardShipping' -> Maybe Issuing'cardShipping'Service'
issuing'cardShipping'Service Issuing'cardShipping'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"status" Text -> Maybe Issuing'cardShipping'Status' -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= Issuing'cardShipping' -> Maybe Issuing'cardShipping'Status'
issuing'cardShipping'Status Issuing'cardShipping'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"tracking_number" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= Issuing'cardShipping' -> Maybe Text
issuing'cardShipping'TrackingNumber Issuing'cardShipping'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"tracking_url" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= Issuing'cardShipping' -> Maybe Text
issuing'cardShipping'TrackingUrl Issuing'cardShipping'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"type" Text -> Maybe Issuing'cardShipping'Type' -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= Issuing'cardShipping' -> Maybe Issuing'cardShipping'Type'
issuing'cardShipping'Type Issuing'cardShipping'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: [Pair]
forall a. Monoid a => a
GHC.Base.mempty)
toEncoding :: Issuing'cardShipping' -> Encoding
toEncoding Issuing'cardShipping'
obj = Series -> Encoding
Data.Aeson.Encoding.Internal.pairs ((Text
"address" Text -> Maybe Address -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= Issuing'cardShipping' -> Maybe Address
issuing'cardShipping'Address Issuing'cardShipping'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"carrier" Text -> Maybe Issuing'cardShipping'Carrier' -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= Issuing'cardShipping' -> Maybe Issuing'cardShipping'Carrier'
issuing'cardShipping'Carrier Issuing'cardShipping'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"eta" Text -> Maybe Int -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= Issuing'cardShipping' -> Maybe Int
issuing'cardShipping'Eta Issuing'cardShipping'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"name" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= Issuing'cardShipping' -> Maybe Text
issuing'cardShipping'Name Issuing'cardShipping'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"service" Text -> Maybe Issuing'cardShipping'Service' -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= Issuing'cardShipping' -> Maybe Issuing'cardShipping'Service'
issuing'cardShipping'Service Issuing'cardShipping'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"status" Text -> Maybe Issuing'cardShipping'Status' -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= Issuing'cardShipping' -> Maybe Issuing'cardShipping'Status'
issuing'cardShipping'Status Issuing'cardShipping'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"tracking_number" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= Issuing'cardShipping' -> Maybe Text
issuing'cardShipping'TrackingNumber Issuing'cardShipping'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"tracking_url" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= Issuing'cardShipping' -> Maybe Text
issuing'cardShipping'TrackingUrl Issuing'cardShipping'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> (Text
"type" Text -> Maybe Issuing'cardShipping'Type' -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= Issuing'cardShipping' -> Maybe Issuing'cardShipping'Type'
issuing'cardShipping'Type Issuing'cardShipping'
obj)))))))))
instance Data.Aeson.Types.FromJSON.FromJSON Issuing'cardShipping' where
parseJSON :: Value -> Parser Issuing'cardShipping'
parseJSON = String
-> (Object -> Parser Issuing'cardShipping')
-> Value
-> Parser Issuing'cardShipping'
forall a. String -> (Object -> Parser a) -> Value -> Parser a
Data.Aeson.Types.FromJSON.withObject String
"Issuing'cardShipping'" (\Object
obj -> (((((((((Maybe Address
-> Maybe Issuing'cardShipping'Carrier'
-> Maybe Int
-> Maybe Text
-> Maybe Issuing'cardShipping'Service'
-> Maybe Issuing'cardShipping'Status'
-> Maybe Text
-> Maybe Text
-> Maybe Issuing'cardShipping'Type'
-> Issuing'cardShipping')
-> Parser
(Maybe Address
-> Maybe Issuing'cardShipping'Carrier'
-> Maybe Int
-> Maybe Text
-> Maybe Issuing'cardShipping'Service'
-> Maybe Issuing'cardShipping'Status'
-> Maybe Text
-> Maybe Text
-> Maybe Issuing'cardShipping'Type'
-> Issuing'cardShipping')
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure Maybe Address
-> Maybe Issuing'cardShipping'Carrier'
-> Maybe Int
-> Maybe Text
-> Maybe Issuing'cardShipping'Service'
-> Maybe Issuing'cardShipping'Status'
-> Maybe Text
-> Maybe Text
-> Maybe Issuing'cardShipping'Type'
-> Issuing'cardShipping'
Issuing'cardShipping' Parser
(Maybe Address
-> Maybe Issuing'cardShipping'Carrier'
-> Maybe Int
-> Maybe Text
-> Maybe Issuing'cardShipping'Service'
-> Maybe Issuing'cardShipping'Status'
-> Maybe Text
-> Maybe Text
-> Maybe Issuing'cardShipping'Type'
-> Issuing'cardShipping')
-> Parser (Maybe Address)
-> Parser
(Maybe Issuing'cardShipping'Carrier'
-> Maybe Int
-> Maybe Text
-> Maybe Issuing'cardShipping'Service'
-> Maybe Issuing'cardShipping'Status'
-> Maybe Text
-> Maybe Text
-> Maybe Issuing'cardShipping'Type'
-> Issuing'cardShipping')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Address)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"address")) Parser
(Maybe Issuing'cardShipping'Carrier'
-> Maybe Int
-> Maybe Text
-> Maybe Issuing'cardShipping'Service'
-> Maybe Issuing'cardShipping'Status'
-> Maybe Text
-> Maybe Text
-> Maybe Issuing'cardShipping'Type'
-> Issuing'cardShipping')
-> Parser (Maybe Issuing'cardShipping'Carrier')
-> Parser
(Maybe Int
-> Maybe Text
-> Maybe Issuing'cardShipping'Service'
-> Maybe Issuing'cardShipping'Status'
-> Maybe Text
-> Maybe Text
-> Maybe Issuing'cardShipping'Type'
-> Issuing'cardShipping')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Issuing'cardShipping'Carrier')
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"carrier")) Parser
(Maybe Int
-> Maybe Text
-> Maybe Issuing'cardShipping'Service'
-> Maybe Issuing'cardShipping'Status'
-> Maybe Text
-> Maybe Text
-> Maybe Issuing'cardShipping'Type'
-> Issuing'cardShipping')
-> Parser (Maybe Int)
-> Parser
(Maybe Text
-> Maybe Issuing'cardShipping'Service'
-> Maybe Issuing'cardShipping'Status'
-> Maybe Text
-> Maybe Text
-> Maybe Issuing'cardShipping'Type'
-> Issuing'cardShipping')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Int)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"eta")) Parser
(Maybe Text
-> Maybe Issuing'cardShipping'Service'
-> Maybe Issuing'cardShipping'Status'
-> Maybe Text
-> Maybe Text
-> Maybe Issuing'cardShipping'Type'
-> Issuing'cardShipping')
-> Parser (Maybe Text)
-> Parser
(Maybe Issuing'cardShipping'Service'
-> Maybe Issuing'cardShipping'Status'
-> Maybe Text
-> Maybe Text
-> Maybe Issuing'cardShipping'Type'
-> Issuing'cardShipping')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"name")) Parser
(Maybe Issuing'cardShipping'Service'
-> Maybe Issuing'cardShipping'Status'
-> Maybe Text
-> Maybe Text
-> Maybe Issuing'cardShipping'Type'
-> Issuing'cardShipping')
-> Parser (Maybe Issuing'cardShipping'Service')
-> Parser
(Maybe Issuing'cardShipping'Status'
-> Maybe Text
-> Maybe Text
-> Maybe Issuing'cardShipping'Type'
-> Issuing'cardShipping')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Issuing'cardShipping'Service')
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"service")) Parser
(Maybe Issuing'cardShipping'Status'
-> Maybe Text
-> Maybe Text
-> Maybe Issuing'cardShipping'Type'
-> Issuing'cardShipping')
-> Parser (Maybe Issuing'cardShipping'Status')
-> Parser
(Maybe Text
-> Maybe Text
-> Maybe Issuing'cardShipping'Type'
-> Issuing'cardShipping')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Issuing'cardShipping'Status')
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"status")) Parser
(Maybe Text
-> Maybe Text
-> Maybe Issuing'cardShipping'Type'
-> Issuing'cardShipping')
-> Parser (Maybe Text)
-> Parser
(Maybe Text
-> Maybe Issuing'cardShipping'Type' -> Issuing'cardShipping')
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
"tracking_number")) Parser
(Maybe Text
-> Maybe Issuing'cardShipping'Type' -> Issuing'cardShipping')
-> Parser (Maybe Text)
-> Parser
(Maybe Issuing'cardShipping'Type' -> Issuing'cardShipping')
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
"tracking_url")) Parser (Maybe Issuing'cardShipping'Type' -> Issuing'cardShipping')
-> Parser (Maybe Issuing'cardShipping'Type')
-> Parser Issuing'cardShipping'
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Issuing'cardShipping'Type')
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"type"))
mkIssuing'cardShipping' :: Issuing'cardShipping'
mkIssuing'cardShipping' :: Issuing'cardShipping'
mkIssuing'cardShipping' =
Issuing'cardShipping' :: Maybe Address
-> Maybe Issuing'cardShipping'Carrier'
-> Maybe Int
-> Maybe Text
-> Maybe Issuing'cardShipping'Service'
-> Maybe Issuing'cardShipping'Status'
-> Maybe Text
-> Maybe Text
-> Maybe Issuing'cardShipping'Type'
-> Issuing'cardShipping'
Issuing'cardShipping'
{ issuing'cardShipping'Address :: Maybe Address
issuing'cardShipping'Address = Maybe Address
forall a. Maybe a
GHC.Maybe.Nothing,
issuing'cardShipping'Carrier :: Maybe Issuing'cardShipping'Carrier'
issuing'cardShipping'Carrier = Maybe Issuing'cardShipping'Carrier'
forall a. Maybe a
GHC.Maybe.Nothing,
issuing'cardShipping'Eta :: Maybe Int
issuing'cardShipping'Eta = Maybe Int
forall a. Maybe a
GHC.Maybe.Nothing,
issuing'cardShipping'Name :: Maybe Text
issuing'cardShipping'Name = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
issuing'cardShipping'Service :: Maybe Issuing'cardShipping'Service'
issuing'cardShipping'Service = Maybe Issuing'cardShipping'Service'
forall a. Maybe a
GHC.Maybe.Nothing,
issuing'cardShipping'Status :: Maybe Issuing'cardShipping'Status'
issuing'cardShipping'Status = Maybe Issuing'cardShipping'Status'
forall a. Maybe a
GHC.Maybe.Nothing,
issuing'cardShipping'TrackingNumber :: Maybe Text
issuing'cardShipping'TrackingNumber = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
issuing'cardShipping'TrackingUrl :: Maybe Text
issuing'cardShipping'TrackingUrl = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
issuing'cardShipping'Type :: Maybe Issuing'cardShipping'Type'
issuing'cardShipping'Type = Maybe Issuing'cardShipping'Type'
forall a. Maybe a
GHC.Maybe.Nothing
}
data Issuing'cardShipping'Carrier'
=
Issuing'cardShipping'Carrier'Other Data.Aeson.Types.Internal.Value
|
Issuing'cardShipping'Carrier'Typed Data.Text.Internal.Text
|
Issuing'cardShipping'Carrier'EnumDhl
|
Issuing'cardShipping'Carrier'EnumFedex
|
Issuing'cardShipping'Carrier'EnumRoyalMail
|
Issuing'cardShipping'Carrier'EnumUsps
deriving (Int -> Issuing'cardShipping'Carrier' -> ShowS
[Issuing'cardShipping'Carrier'] -> ShowS
Issuing'cardShipping'Carrier' -> String
(Int -> Issuing'cardShipping'Carrier' -> ShowS)
-> (Issuing'cardShipping'Carrier' -> String)
-> ([Issuing'cardShipping'Carrier'] -> ShowS)
-> Show Issuing'cardShipping'Carrier'
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [Issuing'cardShipping'Carrier'] -> ShowS
$cshowList :: [Issuing'cardShipping'Carrier'] -> ShowS
show :: Issuing'cardShipping'Carrier' -> String
$cshow :: Issuing'cardShipping'Carrier' -> String
showsPrec :: Int -> Issuing'cardShipping'Carrier' -> ShowS
$cshowsPrec :: Int -> Issuing'cardShipping'Carrier' -> ShowS
GHC.Show.Show, Issuing'cardShipping'Carrier'
-> Issuing'cardShipping'Carrier' -> Bool
(Issuing'cardShipping'Carrier'
-> Issuing'cardShipping'Carrier' -> Bool)
-> (Issuing'cardShipping'Carrier'
-> Issuing'cardShipping'Carrier' -> Bool)
-> Eq Issuing'cardShipping'Carrier'
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: Issuing'cardShipping'Carrier'
-> Issuing'cardShipping'Carrier' -> Bool
$c/= :: Issuing'cardShipping'Carrier'
-> Issuing'cardShipping'Carrier' -> Bool
== :: Issuing'cardShipping'Carrier'
-> Issuing'cardShipping'Carrier' -> Bool
$c== :: Issuing'cardShipping'Carrier'
-> Issuing'cardShipping'Carrier' -> Bool
GHC.Classes.Eq)
instance Data.Aeson.Types.ToJSON.ToJSON Issuing'cardShipping'Carrier' where
toJSON :: Issuing'cardShipping'Carrier' -> Value
toJSON (Issuing'cardShipping'Carrier'Other Value
val) = Value
val
toJSON (Issuing'cardShipping'Carrier'Typed Text
val) = Text -> Value
forall a. ToJSON a => a -> Value
Data.Aeson.Types.ToJSON.toJSON Text
val
toJSON (Issuing'cardShipping'Carrier'
Issuing'cardShipping'Carrier'EnumDhl) = Value
"dhl"
toJSON (Issuing'cardShipping'Carrier'
Issuing'cardShipping'Carrier'EnumFedex) = Value
"fedex"
toJSON (Issuing'cardShipping'Carrier'
Issuing'cardShipping'Carrier'EnumRoyalMail) = Value
"royal_mail"
toJSON (Issuing'cardShipping'Carrier'
Issuing'cardShipping'Carrier'EnumUsps) = Value
"usps"
instance Data.Aeson.Types.FromJSON.FromJSON Issuing'cardShipping'Carrier' where
parseJSON :: Value -> Parser Issuing'cardShipping'Carrier'
parseJSON Value
val =
Issuing'cardShipping'Carrier'
-> Parser Issuing'cardShipping'Carrier'
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure
( if
| Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"dhl" -> Issuing'cardShipping'Carrier'
Issuing'cardShipping'Carrier'EnumDhl
| Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"fedex" -> Issuing'cardShipping'Carrier'
Issuing'cardShipping'Carrier'EnumFedex
| Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"royal_mail" -> Issuing'cardShipping'Carrier'
Issuing'cardShipping'Carrier'EnumRoyalMail
| Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"usps" -> Issuing'cardShipping'Carrier'
Issuing'cardShipping'Carrier'EnumUsps
| Bool
GHC.Base.otherwise -> Value -> Issuing'cardShipping'Carrier'
Issuing'cardShipping'Carrier'Other Value
val
)
data Issuing'cardShipping'Service'
=
Issuing'cardShipping'Service'Other Data.Aeson.Types.Internal.Value
|
Issuing'cardShipping'Service'Typed Data.Text.Internal.Text
|
Issuing'cardShipping'Service'EnumExpress
|
Issuing'cardShipping'Service'EnumPriority
|
Issuing'cardShipping'Service'EnumStandard
deriving (Int -> Issuing'cardShipping'Service' -> ShowS
[Issuing'cardShipping'Service'] -> ShowS
Issuing'cardShipping'Service' -> String
(Int -> Issuing'cardShipping'Service' -> ShowS)
-> (Issuing'cardShipping'Service' -> String)
-> ([Issuing'cardShipping'Service'] -> ShowS)
-> Show Issuing'cardShipping'Service'
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [Issuing'cardShipping'Service'] -> ShowS
$cshowList :: [Issuing'cardShipping'Service'] -> ShowS
show :: Issuing'cardShipping'Service' -> String
$cshow :: Issuing'cardShipping'Service' -> String
showsPrec :: Int -> Issuing'cardShipping'Service' -> ShowS
$cshowsPrec :: Int -> Issuing'cardShipping'Service' -> ShowS
GHC.Show.Show, Issuing'cardShipping'Service'
-> Issuing'cardShipping'Service' -> Bool
(Issuing'cardShipping'Service'
-> Issuing'cardShipping'Service' -> Bool)
-> (Issuing'cardShipping'Service'
-> Issuing'cardShipping'Service' -> Bool)
-> Eq Issuing'cardShipping'Service'
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: Issuing'cardShipping'Service'
-> Issuing'cardShipping'Service' -> Bool
$c/= :: Issuing'cardShipping'Service'
-> Issuing'cardShipping'Service' -> Bool
== :: Issuing'cardShipping'Service'
-> Issuing'cardShipping'Service' -> Bool
$c== :: Issuing'cardShipping'Service'
-> Issuing'cardShipping'Service' -> Bool
GHC.Classes.Eq)
instance Data.Aeson.Types.ToJSON.ToJSON Issuing'cardShipping'Service' where
toJSON :: Issuing'cardShipping'Service' -> Value
toJSON (Issuing'cardShipping'Service'Other Value
val) = Value
val
toJSON (Issuing'cardShipping'Service'Typed Text
val) = Text -> Value
forall a. ToJSON a => a -> Value
Data.Aeson.Types.ToJSON.toJSON Text
val
toJSON (Issuing'cardShipping'Service'
Issuing'cardShipping'Service'EnumExpress) = Value
"express"
toJSON (Issuing'cardShipping'Service'
Issuing'cardShipping'Service'EnumPriority) = Value
"priority"
toJSON (Issuing'cardShipping'Service'
Issuing'cardShipping'Service'EnumStandard) = Value
"standard"
instance Data.Aeson.Types.FromJSON.FromJSON Issuing'cardShipping'Service' where
parseJSON :: Value -> Parser Issuing'cardShipping'Service'
parseJSON Value
val =
Issuing'cardShipping'Service'
-> Parser Issuing'cardShipping'Service'
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure
( if
| Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"express" -> Issuing'cardShipping'Service'
Issuing'cardShipping'Service'EnumExpress
| Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"priority" -> Issuing'cardShipping'Service'
Issuing'cardShipping'Service'EnumPriority
| Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"standard" -> Issuing'cardShipping'Service'
Issuing'cardShipping'Service'EnumStandard
| Bool
GHC.Base.otherwise -> Value -> Issuing'cardShipping'Service'
Issuing'cardShipping'Service'Other Value
val
)
data Issuing'cardShipping'Status'
=
Issuing'cardShipping'Status'Other Data.Aeson.Types.Internal.Value
|
Issuing'cardShipping'Status'Typed Data.Text.Internal.Text
|
Issuing'cardShipping'Status'EnumCanceled
|
Issuing'cardShipping'Status'EnumDelivered
|
Issuing'cardShipping'Status'EnumFailure
|
Issuing'cardShipping'Status'EnumPending
|
Issuing'cardShipping'Status'EnumReturned
|
Issuing'cardShipping'Status'EnumShipped
deriving (Int -> Issuing'cardShipping'Status' -> ShowS
[Issuing'cardShipping'Status'] -> ShowS
Issuing'cardShipping'Status' -> String
(Int -> Issuing'cardShipping'Status' -> ShowS)
-> (Issuing'cardShipping'Status' -> String)
-> ([Issuing'cardShipping'Status'] -> ShowS)
-> Show Issuing'cardShipping'Status'
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [Issuing'cardShipping'Status'] -> ShowS
$cshowList :: [Issuing'cardShipping'Status'] -> ShowS
show :: Issuing'cardShipping'Status' -> String
$cshow :: Issuing'cardShipping'Status' -> String
showsPrec :: Int -> Issuing'cardShipping'Status' -> ShowS
$cshowsPrec :: Int -> Issuing'cardShipping'Status' -> ShowS
GHC.Show.Show, Issuing'cardShipping'Status'
-> Issuing'cardShipping'Status' -> Bool
(Issuing'cardShipping'Status'
-> Issuing'cardShipping'Status' -> Bool)
-> (Issuing'cardShipping'Status'
-> Issuing'cardShipping'Status' -> Bool)
-> Eq Issuing'cardShipping'Status'
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: Issuing'cardShipping'Status'
-> Issuing'cardShipping'Status' -> Bool
$c/= :: Issuing'cardShipping'Status'
-> Issuing'cardShipping'Status' -> Bool
== :: Issuing'cardShipping'Status'
-> Issuing'cardShipping'Status' -> Bool
$c== :: Issuing'cardShipping'Status'
-> Issuing'cardShipping'Status' -> Bool
GHC.Classes.Eq)
instance Data.Aeson.Types.ToJSON.ToJSON Issuing'cardShipping'Status' where
toJSON :: Issuing'cardShipping'Status' -> Value
toJSON (Issuing'cardShipping'Status'Other Value
val) = Value
val
toJSON (Issuing'cardShipping'Status'Typed Text
val) = Text -> Value
forall a. ToJSON a => a -> Value
Data.Aeson.Types.ToJSON.toJSON Text
val
toJSON (Issuing'cardShipping'Status'
Issuing'cardShipping'Status'EnumCanceled) = Value
"canceled"
toJSON (Issuing'cardShipping'Status'
Issuing'cardShipping'Status'EnumDelivered) = Value
"delivered"
toJSON (Issuing'cardShipping'Status'
Issuing'cardShipping'Status'EnumFailure) = Value
"failure"
toJSON (Issuing'cardShipping'Status'
Issuing'cardShipping'Status'EnumPending) = Value
"pending"
toJSON (Issuing'cardShipping'Status'
Issuing'cardShipping'Status'EnumReturned) = Value
"returned"
toJSON (Issuing'cardShipping'Status'
Issuing'cardShipping'Status'EnumShipped) = Value
"shipped"
instance Data.Aeson.Types.FromJSON.FromJSON Issuing'cardShipping'Status' where
parseJSON :: Value -> Parser Issuing'cardShipping'Status'
parseJSON Value
val =
Issuing'cardShipping'Status' -> Parser Issuing'cardShipping'Status'
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure
( if
| Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"canceled" -> Issuing'cardShipping'Status'
Issuing'cardShipping'Status'EnumCanceled
| Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"delivered" -> Issuing'cardShipping'Status'
Issuing'cardShipping'Status'EnumDelivered
| Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"failure" -> Issuing'cardShipping'Status'
Issuing'cardShipping'Status'EnumFailure
| Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"pending" -> Issuing'cardShipping'Status'
Issuing'cardShipping'Status'EnumPending
| Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"returned" -> Issuing'cardShipping'Status'
Issuing'cardShipping'Status'EnumReturned
| Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"shipped" -> Issuing'cardShipping'Status'
Issuing'cardShipping'Status'EnumShipped
| Bool
GHC.Base.otherwise -> Value -> Issuing'cardShipping'Status'
Issuing'cardShipping'Status'Other Value
val
)
data Issuing'cardShipping'Type'
=
Issuing'cardShipping'Type'Other Data.Aeson.Types.Internal.Value
|
Issuing'cardShipping'Type'Typed Data.Text.Internal.Text
|
Issuing'cardShipping'Type'EnumBulk
|
Issuing'cardShipping'Type'EnumIndividual
deriving (Int -> Issuing'cardShipping'Type' -> ShowS
[Issuing'cardShipping'Type'] -> ShowS
Issuing'cardShipping'Type' -> String
(Int -> Issuing'cardShipping'Type' -> ShowS)
-> (Issuing'cardShipping'Type' -> String)
-> ([Issuing'cardShipping'Type'] -> ShowS)
-> Show Issuing'cardShipping'Type'
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [Issuing'cardShipping'Type'] -> ShowS
$cshowList :: [Issuing'cardShipping'Type'] -> ShowS
show :: Issuing'cardShipping'Type' -> String
$cshow :: Issuing'cardShipping'Type' -> String
showsPrec :: Int -> Issuing'cardShipping'Type' -> ShowS
$cshowsPrec :: Int -> Issuing'cardShipping'Type' -> ShowS
GHC.Show.Show, Issuing'cardShipping'Type' -> Issuing'cardShipping'Type' -> Bool
(Issuing'cardShipping'Type' -> Issuing'cardShipping'Type' -> Bool)
-> (Issuing'cardShipping'Type'
-> Issuing'cardShipping'Type' -> Bool)
-> Eq Issuing'cardShipping'Type'
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: Issuing'cardShipping'Type' -> Issuing'cardShipping'Type' -> Bool
$c/= :: Issuing'cardShipping'Type' -> Issuing'cardShipping'Type' -> Bool
== :: Issuing'cardShipping'Type' -> Issuing'cardShipping'Type' -> Bool
$c== :: Issuing'cardShipping'Type' -> Issuing'cardShipping'Type' -> Bool
GHC.Classes.Eq)
instance Data.Aeson.Types.ToJSON.ToJSON Issuing'cardShipping'Type' where
toJSON :: Issuing'cardShipping'Type' -> Value
toJSON (Issuing'cardShipping'Type'Other Value
val) = Value
val
toJSON (Issuing'cardShipping'Type'Typed Text
val) = Text -> Value
forall a. ToJSON a => a -> Value
Data.Aeson.Types.ToJSON.toJSON Text
val
toJSON (Issuing'cardShipping'Type'
Issuing'cardShipping'Type'EnumBulk) = Value
"bulk"
toJSON (Issuing'cardShipping'Type'
Issuing'cardShipping'Type'EnumIndividual) = Value
"individual"
instance Data.Aeson.Types.FromJSON.FromJSON Issuing'cardShipping'Type' where
parseJSON :: Value -> Parser Issuing'cardShipping'Type'
parseJSON Value
val =
Issuing'cardShipping'Type' -> Parser Issuing'cardShipping'Type'
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure
( if
| Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"bulk" -> Issuing'cardShipping'Type'
Issuing'cardShipping'Type'EnumBulk
| Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"individual" -> Issuing'cardShipping'Type'
Issuing'cardShipping'Type'EnumIndividual
| Bool
GHC.Base.otherwise -> Value -> Issuing'cardShipping'Type'
Issuing'cardShipping'Type'Other Value
val
)
data Issuing'cardStatus'
=
Issuing'cardStatus'Other Data.Aeson.Types.Internal.Value
|
Issuing'cardStatus'Typed Data.Text.Internal.Text
|
Issuing'cardStatus'EnumActive
|
Issuing'cardStatus'EnumCanceled
|
Issuing'cardStatus'EnumInactive
deriving (Int -> Issuing'cardStatus' -> ShowS
[Issuing'cardStatus'] -> ShowS
Issuing'cardStatus' -> String
(Int -> Issuing'cardStatus' -> ShowS)
-> (Issuing'cardStatus' -> String)
-> ([Issuing'cardStatus'] -> ShowS)
-> Show Issuing'cardStatus'
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [Issuing'cardStatus'] -> ShowS
$cshowList :: [Issuing'cardStatus'] -> ShowS
show :: Issuing'cardStatus' -> String
$cshow :: Issuing'cardStatus' -> String
showsPrec :: Int -> Issuing'cardStatus' -> ShowS
$cshowsPrec :: Int -> Issuing'cardStatus' -> ShowS
GHC.Show.Show, Issuing'cardStatus' -> Issuing'cardStatus' -> Bool
(Issuing'cardStatus' -> Issuing'cardStatus' -> Bool)
-> (Issuing'cardStatus' -> Issuing'cardStatus' -> Bool)
-> Eq Issuing'cardStatus'
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: Issuing'cardStatus' -> Issuing'cardStatus' -> Bool
$c/= :: Issuing'cardStatus' -> Issuing'cardStatus' -> Bool
== :: Issuing'cardStatus' -> Issuing'cardStatus' -> Bool
$c== :: Issuing'cardStatus' -> Issuing'cardStatus' -> Bool
GHC.Classes.Eq)
instance Data.Aeson.Types.ToJSON.ToJSON Issuing'cardStatus' where
toJSON :: Issuing'cardStatus' -> Value
toJSON (Issuing'cardStatus'Other Value
val) = Value
val
toJSON (Issuing'cardStatus'Typed Text
val) = Text -> Value
forall a. ToJSON a => a -> Value
Data.Aeson.Types.ToJSON.toJSON Text
val
toJSON (Issuing'cardStatus'
Issuing'cardStatus'EnumActive) = Value
"active"
toJSON (Issuing'cardStatus'
Issuing'cardStatus'EnumCanceled) = Value
"canceled"
toJSON (Issuing'cardStatus'
Issuing'cardStatus'EnumInactive) = Value
"inactive"
instance Data.Aeson.Types.FromJSON.FromJSON Issuing'cardStatus' where
parseJSON :: Value -> Parser Issuing'cardStatus'
parseJSON Value
val =
Issuing'cardStatus' -> Parser Issuing'cardStatus'
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure
( if
| Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"active" -> Issuing'cardStatus'
Issuing'cardStatus'EnumActive
| Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"canceled" -> Issuing'cardStatus'
Issuing'cardStatus'EnumCanceled
| Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"inactive" -> Issuing'cardStatus'
Issuing'cardStatus'EnumInactive
| Bool
GHC.Base.otherwise -> Value -> Issuing'cardStatus'
Issuing'cardStatus'Other Value
val
)
data Issuing'cardType'
=
Issuing'cardType'Other Data.Aeson.Types.Internal.Value
|
Issuing'cardType'Typed Data.Text.Internal.Text
|
Issuing'cardType'EnumPhysical
|
Issuing'cardType'EnumVirtual
deriving (Int -> Issuing'cardType' -> ShowS
[Issuing'cardType'] -> ShowS
Issuing'cardType' -> String
(Int -> Issuing'cardType' -> ShowS)
-> (Issuing'cardType' -> String)
-> ([Issuing'cardType'] -> ShowS)
-> Show Issuing'cardType'
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [Issuing'cardType'] -> ShowS
$cshowList :: [Issuing'cardType'] -> ShowS
show :: Issuing'cardType' -> String
$cshow :: Issuing'cardType' -> String
showsPrec :: Int -> Issuing'cardType' -> ShowS
$cshowsPrec :: Int -> Issuing'cardType' -> ShowS
GHC.Show.Show, Issuing'cardType' -> Issuing'cardType' -> Bool
(Issuing'cardType' -> Issuing'cardType' -> Bool)
-> (Issuing'cardType' -> Issuing'cardType' -> Bool)
-> Eq Issuing'cardType'
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: Issuing'cardType' -> Issuing'cardType' -> Bool
$c/= :: Issuing'cardType' -> Issuing'cardType' -> Bool
== :: Issuing'cardType' -> Issuing'cardType' -> Bool
$c== :: Issuing'cardType' -> Issuing'cardType' -> Bool
GHC.Classes.Eq)
instance Data.Aeson.Types.ToJSON.ToJSON Issuing'cardType' where
toJSON :: Issuing'cardType' -> Value
toJSON (Issuing'cardType'Other Value
val) = Value
val
toJSON (Issuing'cardType'Typed Text
val) = Text -> Value
forall a. ToJSON a => a -> Value
Data.Aeson.Types.ToJSON.toJSON Text
val
toJSON (Issuing'cardType'
Issuing'cardType'EnumPhysical) = Value
"physical"
toJSON (Issuing'cardType'
Issuing'cardType'EnumVirtual) = Value
"virtual"
instance Data.Aeson.Types.FromJSON.FromJSON Issuing'cardType' where
parseJSON :: Value -> Parser Issuing'cardType'
parseJSON Value
val =
Issuing'cardType' -> Parser Issuing'cardType'
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure
( if
| Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"physical" -> Issuing'cardType'
Issuing'cardType'EnumPhysical
| Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"virtual" -> Issuing'cardType'
Issuing'cardType'EnumVirtual
| Bool
GHC.Base.otherwise -> Value -> Issuing'cardType'
Issuing'cardType'Other Value
val
)