{-# 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 SourceTypeKlarna
module StripeAPI.Types.SourceTypeKlarna 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.source_type_klarna@ in the specification.
data SourceTypeKlarna = SourceTypeKlarna
  { -- | background_image_url
    sourceTypeKlarnaBackgroundImageUrl :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | client_token
    sourceTypeKlarnaClientToken :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | first_name
    sourceTypeKlarnaFirstName :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | last_name
    sourceTypeKlarnaLastName :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | locale
    sourceTypeKlarnaLocale :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | logo_url
    sourceTypeKlarnaLogoUrl :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | page_title
    sourceTypeKlarnaPageTitle :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | pay_later_asset_urls_descriptive
    sourceTypeKlarnaPayLaterAssetUrlsDescriptive :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | pay_later_asset_urls_standard
    sourceTypeKlarnaPayLaterAssetUrlsStandard :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | pay_later_name
    sourceTypeKlarnaPayLaterName :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | pay_later_redirect_url
    sourceTypeKlarnaPayLaterRedirectUrl :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | pay_now_asset_urls_descriptive
    sourceTypeKlarnaPayNowAssetUrlsDescriptive :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | pay_now_asset_urls_standard
    sourceTypeKlarnaPayNowAssetUrlsStandard :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | pay_now_name
    sourceTypeKlarnaPayNowName :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | pay_now_redirect_url
    sourceTypeKlarnaPayNowRedirectUrl :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | pay_over_time_asset_urls_descriptive
    sourceTypeKlarnaPayOverTimeAssetUrlsDescriptive :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | pay_over_time_asset_urls_standard
    sourceTypeKlarnaPayOverTimeAssetUrlsStandard :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | pay_over_time_name
    sourceTypeKlarnaPayOverTimeName :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | pay_over_time_redirect_url
    sourceTypeKlarnaPayOverTimeRedirectUrl :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | payment_method_categories
    sourceTypeKlarnaPaymentMethodCategories :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | purchase_country
    sourceTypeKlarnaPurchaseCountry :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | purchase_type
    sourceTypeKlarnaPurchaseType :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | redirect_url
    sourceTypeKlarnaRedirectUrl :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | shipping_delay
    sourceTypeKlarnaShippingDelay :: (GHC.Maybe.Maybe GHC.Types.Int),
    -- | shipping_first_name
    sourceTypeKlarnaShippingFirstName :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
    -- | shipping_last_name
    sourceTypeKlarnaShippingLastName :: (GHC.Maybe.Maybe Data.Text.Internal.Text)
  }
  deriving
    ( GHC.Show.Show,
      GHC.Classes.Eq
    )

instance Data.Aeson.Types.ToJSON.ToJSON SourceTypeKlarna where
  toJSON obj = Data.Aeson.Types.Internal.object ("background_image_url" Data.Aeson.Types.ToJSON..= sourceTypeKlarnaBackgroundImageUrl obj : "client_token" Data.Aeson.Types.ToJSON..= sourceTypeKlarnaClientToken obj : "first_name" Data.Aeson.Types.ToJSON..= sourceTypeKlarnaFirstName obj : "last_name" Data.Aeson.Types.ToJSON..= sourceTypeKlarnaLastName obj : "locale" Data.Aeson.Types.ToJSON..= sourceTypeKlarnaLocale obj : "logo_url" Data.Aeson.Types.ToJSON..= sourceTypeKlarnaLogoUrl obj : "page_title" Data.Aeson.Types.ToJSON..= sourceTypeKlarnaPageTitle obj : "pay_later_asset_urls_descriptive" Data.Aeson.Types.ToJSON..= sourceTypeKlarnaPayLaterAssetUrlsDescriptive obj : "pay_later_asset_urls_standard" Data.Aeson.Types.ToJSON..= sourceTypeKlarnaPayLaterAssetUrlsStandard obj : "pay_later_name" Data.Aeson.Types.ToJSON..= sourceTypeKlarnaPayLaterName obj : "pay_later_redirect_url" Data.Aeson.Types.ToJSON..= sourceTypeKlarnaPayLaterRedirectUrl obj : "pay_now_asset_urls_descriptive" Data.Aeson.Types.ToJSON..= sourceTypeKlarnaPayNowAssetUrlsDescriptive obj : "pay_now_asset_urls_standard" Data.Aeson.Types.ToJSON..= sourceTypeKlarnaPayNowAssetUrlsStandard obj : "pay_now_name" Data.Aeson.Types.ToJSON..= sourceTypeKlarnaPayNowName obj : "pay_now_redirect_url" Data.Aeson.Types.ToJSON..= sourceTypeKlarnaPayNowRedirectUrl obj : "pay_over_time_asset_urls_descriptive" Data.Aeson.Types.ToJSON..= sourceTypeKlarnaPayOverTimeAssetUrlsDescriptive obj : "pay_over_time_asset_urls_standard" Data.Aeson.Types.ToJSON..= sourceTypeKlarnaPayOverTimeAssetUrlsStandard obj : "pay_over_time_name" Data.Aeson.Types.ToJSON..= sourceTypeKlarnaPayOverTimeName obj : "pay_over_time_redirect_url" Data.Aeson.Types.ToJSON..= sourceTypeKlarnaPayOverTimeRedirectUrl obj : "payment_method_categories" Data.Aeson.Types.ToJSON..= sourceTypeKlarnaPaymentMethodCategories obj : "purchase_country" Data.Aeson.Types.ToJSON..= sourceTypeKlarnaPurchaseCountry obj : "purchase_type" Data.Aeson.Types.ToJSON..= sourceTypeKlarnaPurchaseType obj : "redirect_url" Data.Aeson.Types.ToJSON..= sourceTypeKlarnaRedirectUrl obj : "shipping_delay" Data.Aeson.Types.ToJSON..= sourceTypeKlarnaShippingDelay obj : "shipping_first_name" Data.Aeson.Types.ToJSON..= sourceTypeKlarnaShippingFirstName obj : "shipping_last_name" Data.Aeson.Types.ToJSON..= sourceTypeKlarnaShippingLastName obj : GHC.Base.mempty)
  toEncoding obj = Data.Aeson.Encoding.Internal.pairs (("background_image_url" Data.Aeson.Types.ToJSON..= sourceTypeKlarnaBackgroundImageUrl obj) GHC.Base.<> (("client_token" Data.Aeson.Types.ToJSON..= sourceTypeKlarnaClientToken obj) GHC.Base.<> (("first_name" Data.Aeson.Types.ToJSON..= sourceTypeKlarnaFirstName obj) GHC.Base.<> (("last_name" Data.Aeson.Types.ToJSON..= sourceTypeKlarnaLastName obj) GHC.Base.<> (("locale" Data.Aeson.Types.ToJSON..= sourceTypeKlarnaLocale obj) GHC.Base.<> (("logo_url" Data.Aeson.Types.ToJSON..= sourceTypeKlarnaLogoUrl obj) GHC.Base.<> (("page_title" Data.Aeson.Types.ToJSON..= sourceTypeKlarnaPageTitle obj) GHC.Base.<> (("pay_later_asset_urls_descriptive" Data.Aeson.Types.ToJSON..= sourceTypeKlarnaPayLaterAssetUrlsDescriptive obj) GHC.Base.<> (("pay_later_asset_urls_standard" Data.Aeson.Types.ToJSON..= sourceTypeKlarnaPayLaterAssetUrlsStandard obj) GHC.Base.<> (("pay_later_name" Data.Aeson.Types.ToJSON..= sourceTypeKlarnaPayLaterName obj) GHC.Base.<> (("pay_later_redirect_url" Data.Aeson.Types.ToJSON..= sourceTypeKlarnaPayLaterRedirectUrl obj) GHC.Base.<> (("pay_now_asset_urls_descriptive" Data.Aeson.Types.ToJSON..= sourceTypeKlarnaPayNowAssetUrlsDescriptive obj) GHC.Base.<> (("pay_now_asset_urls_standard" Data.Aeson.Types.ToJSON..= sourceTypeKlarnaPayNowAssetUrlsStandard obj) GHC.Base.<> (("pay_now_name" Data.Aeson.Types.ToJSON..= sourceTypeKlarnaPayNowName obj) GHC.Base.<> (("pay_now_redirect_url" Data.Aeson.Types.ToJSON..= sourceTypeKlarnaPayNowRedirectUrl obj) GHC.Base.<> (("pay_over_time_asset_urls_descriptive" Data.Aeson.Types.ToJSON..= sourceTypeKlarnaPayOverTimeAssetUrlsDescriptive obj) GHC.Base.<> (("pay_over_time_asset_urls_standard" Data.Aeson.Types.ToJSON..= sourceTypeKlarnaPayOverTimeAssetUrlsStandard obj) GHC.Base.<> (("pay_over_time_name" Data.Aeson.Types.ToJSON..= sourceTypeKlarnaPayOverTimeName obj) GHC.Base.<> (("pay_over_time_redirect_url" Data.Aeson.Types.ToJSON..= sourceTypeKlarnaPayOverTimeRedirectUrl obj) GHC.Base.<> (("payment_method_categories" Data.Aeson.Types.ToJSON..= sourceTypeKlarnaPaymentMethodCategories obj) GHC.Base.<> (("purchase_country" Data.Aeson.Types.ToJSON..= sourceTypeKlarnaPurchaseCountry obj) GHC.Base.<> (("purchase_type" Data.Aeson.Types.ToJSON..= sourceTypeKlarnaPurchaseType obj) GHC.Base.<> (("redirect_url" Data.Aeson.Types.ToJSON..= sourceTypeKlarnaRedirectUrl obj) GHC.Base.<> (("shipping_delay" Data.Aeson.Types.ToJSON..= sourceTypeKlarnaShippingDelay obj) GHC.Base.<> (("shipping_first_name" Data.Aeson.Types.ToJSON..= sourceTypeKlarnaShippingFirstName obj) GHC.Base.<> ("shipping_last_name" Data.Aeson.Types.ToJSON..= sourceTypeKlarnaShippingLastName obj))))))))))))))))))))))))))

instance Data.Aeson.Types.FromJSON.FromJSON SourceTypeKlarna where
  parseJSON = Data.Aeson.Types.FromJSON.withObject "SourceTypeKlarna" (\obj -> (((((((((((((((((((((((((GHC.Base.pure SourceTypeKlarna GHC.Base.<*> (obj Data.Aeson.Types.FromJSON..:? "background_image_url")) GHC.Base.<*> (obj Data.Aeson.Types.FromJSON..:? "client_token")) GHC.Base.<*> (obj Data.Aeson.Types.FromJSON..:? "first_name")) GHC.Base.<*> (obj Data.Aeson.Types.FromJSON..:? "last_name")) GHC.Base.<*> (obj Data.Aeson.Types.FromJSON..:? "locale")) GHC.Base.<*> (obj Data.Aeson.Types.FromJSON..:? "logo_url")) GHC.Base.<*> (obj Data.Aeson.Types.FromJSON..:? "page_title")) GHC.Base.<*> (obj Data.Aeson.Types.FromJSON..:? "pay_later_asset_urls_descriptive")) GHC.Base.<*> (obj Data.Aeson.Types.FromJSON..:? "pay_later_asset_urls_standard")) GHC.Base.<*> (obj Data.Aeson.Types.FromJSON..:? "pay_later_name")) GHC.Base.<*> (obj Data.Aeson.Types.FromJSON..:? "pay_later_redirect_url")) GHC.Base.<*> (obj Data.Aeson.Types.FromJSON..:? "pay_now_asset_urls_descriptive")) GHC.Base.<*> (obj Data.Aeson.Types.FromJSON..:? "pay_now_asset_urls_standard")) GHC.Base.<*> (obj Data.Aeson.Types.FromJSON..:? "pay_now_name")) GHC.Base.<*> (obj Data.Aeson.Types.FromJSON..:? "pay_now_redirect_url")) GHC.Base.<*> (obj Data.Aeson.Types.FromJSON..:? "pay_over_time_asset_urls_descriptive")) GHC.Base.<*> (obj Data.Aeson.Types.FromJSON..:? "pay_over_time_asset_urls_standard")) GHC.Base.<*> (obj Data.Aeson.Types.FromJSON..:? "pay_over_time_name")) GHC.Base.<*> (obj Data.Aeson.Types.FromJSON..:? "pay_over_time_redirect_url")) GHC.Base.<*> (obj Data.Aeson.Types.FromJSON..:? "payment_method_categories")) GHC.Base.<*> (obj Data.Aeson.Types.FromJSON..:? "purchase_country")) GHC.Base.<*> (obj Data.Aeson.Types.FromJSON..:? "purchase_type")) GHC.Base.<*> (obj Data.Aeson.Types.FromJSON..:? "redirect_url")) GHC.Base.<*> (obj Data.Aeson.Types.FromJSON..:? "shipping_delay")) GHC.Base.<*> (obj Data.Aeson.Types.FromJSON..:? "shipping_first_name")) GHC.Base.<*> (obj Data.Aeson.Types.FromJSON..:? "shipping_last_name"))

-- | Create a new 'SourceTypeKlarna' with all required fields.
mkSourceTypeKlarna :: SourceTypeKlarna
mkSourceTypeKlarna =
  SourceTypeKlarna
    { sourceTypeKlarnaBackgroundImageUrl = GHC.Maybe.Nothing,
      sourceTypeKlarnaClientToken = GHC.Maybe.Nothing,
      sourceTypeKlarnaFirstName = GHC.Maybe.Nothing,
      sourceTypeKlarnaLastName = GHC.Maybe.Nothing,
      sourceTypeKlarnaLocale = GHC.Maybe.Nothing,
      sourceTypeKlarnaLogoUrl = GHC.Maybe.Nothing,
      sourceTypeKlarnaPageTitle = GHC.Maybe.Nothing,
      sourceTypeKlarnaPayLaterAssetUrlsDescriptive = GHC.Maybe.Nothing,
      sourceTypeKlarnaPayLaterAssetUrlsStandard = GHC.Maybe.Nothing,
      sourceTypeKlarnaPayLaterName = GHC.Maybe.Nothing,
      sourceTypeKlarnaPayLaterRedirectUrl = GHC.Maybe.Nothing,
      sourceTypeKlarnaPayNowAssetUrlsDescriptive = GHC.Maybe.Nothing,
      sourceTypeKlarnaPayNowAssetUrlsStandard = GHC.Maybe.Nothing,
      sourceTypeKlarnaPayNowName = GHC.Maybe.Nothing,
      sourceTypeKlarnaPayNowRedirectUrl = GHC.Maybe.Nothing,
      sourceTypeKlarnaPayOverTimeAssetUrlsDescriptive = GHC.Maybe.Nothing,
      sourceTypeKlarnaPayOverTimeAssetUrlsStandard = GHC.Maybe.Nothing,
      sourceTypeKlarnaPayOverTimeName = GHC.Maybe.Nothing,
      sourceTypeKlarnaPayOverTimeRedirectUrl = GHC.Maybe.Nothing,
      sourceTypeKlarnaPaymentMethodCategories = GHC.Maybe.Nothing,
      sourceTypeKlarnaPurchaseCountry = GHC.Maybe.Nothing,
      sourceTypeKlarnaPurchaseType = GHC.Maybe.Nothing,
      sourceTypeKlarnaRedirectUrl = GHC.Maybe.Nothing,
      sourceTypeKlarnaShippingDelay = GHC.Maybe.Nothing,
      sourceTypeKlarnaShippingFirstName = GHC.Maybe.Nothing,
      sourceTypeKlarnaShippingLastName = GHC.Maybe.Nothing
    }