module TD.Data.PaymentFormType
  (PaymentFormType(..)) where

import qualified Data.Aeson as A
import qualified Data.Aeson.Types as AT
import qualified TD.Lib.Internal as I
import qualified TD.Data.Invoice as Invoice
import qualified TD.Data.PaymentProvider as PaymentProvider
import qualified TD.Data.PaymentOption as PaymentOption
import qualified TD.Data.OrderInfo as OrderInfo
import qualified TD.Data.SavedCredentials as SavedCredentials
import qualified TD.Data.StarSubscriptionPricing as StarSubscriptionPricing

-- | Describes type of payment form
data PaymentFormType
  = PaymentFormTypeRegular -- ^ The payment form is for a regular payment
    { PaymentFormType -> Maybe Invoice
invoice                    :: Maybe Invoice.Invoice                     -- ^ Full information about the invoice
    , PaymentFormType -> Maybe Int
payment_provider_user_id   :: Maybe Int                                 -- ^ User identifier of the payment provider bot
    , PaymentFormType -> Maybe PaymentProvider
payment_provider           :: Maybe PaymentProvider.PaymentProvider     -- ^ Information about the payment provider
    , PaymentFormType -> Maybe [PaymentOption]
additional_payment_options :: Maybe [PaymentOption.PaymentOption]       -- ^ The list of additional payment options
    , PaymentFormType -> Maybe OrderInfo
saved_order_info           :: Maybe OrderInfo.OrderInfo                 -- ^ Saved server-side order information; may be null
    , PaymentFormType -> Maybe [SavedCredentials]
saved_credentials          :: Maybe [SavedCredentials.SavedCredentials] -- ^ The list of saved payment credentials
    , PaymentFormType -> Maybe Bool
can_save_credentials       :: Maybe Bool                                -- ^ True, if the user can choose to save credentials
    , PaymentFormType -> Maybe Bool
need_password              :: Maybe Bool                                -- ^ True, if the user will be able to save credentials, if sets up a 2-step verification password
    }
  | PaymentFormTypeStars -- ^ The payment form is for a payment in Telegram Stars
    { PaymentFormType -> Maybe Int
star_count :: Maybe Int -- ^ Number of Telegram Stars that will be paid
    }
  | PaymentFormTypeStarSubscription -- ^ The payment form is for a payment in Telegram Stars for subscription
    { PaymentFormType -> Maybe StarSubscriptionPricing
pricing :: Maybe StarSubscriptionPricing.StarSubscriptionPricing -- ^ Information about subscription plan
    }
  deriving (PaymentFormType -> PaymentFormType -> Bool
(PaymentFormType -> PaymentFormType -> Bool)
-> (PaymentFormType -> PaymentFormType -> Bool)
-> Eq PaymentFormType
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: PaymentFormType -> PaymentFormType -> Bool
== :: PaymentFormType -> PaymentFormType -> Bool
$c/= :: PaymentFormType -> PaymentFormType -> Bool
/= :: PaymentFormType -> PaymentFormType -> Bool
Eq, Int -> PaymentFormType -> ShowS
[PaymentFormType] -> ShowS
PaymentFormType -> String
(Int -> PaymentFormType -> ShowS)
-> (PaymentFormType -> String)
-> ([PaymentFormType] -> ShowS)
-> Show PaymentFormType
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> PaymentFormType -> ShowS
showsPrec :: Int -> PaymentFormType -> ShowS
$cshow :: PaymentFormType -> String
show :: PaymentFormType -> String
$cshowList :: [PaymentFormType] -> ShowS
showList :: [PaymentFormType] -> ShowS
Show)

instance I.ShortShow PaymentFormType where
  shortShow :: PaymentFormType -> String
shortShow PaymentFormTypeRegular
    { invoice :: PaymentFormType -> Maybe Invoice
invoice                    = Maybe Invoice
invoice_
    , payment_provider_user_id :: PaymentFormType -> Maybe Int
payment_provider_user_id   = Maybe Int
payment_provider_user_id_
    , payment_provider :: PaymentFormType -> Maybe PaymentProvider
payment_provider           = Maybe PaymentProvider
payment_provider_
    , additional_payment_options :: PaymentFormType -> Maybe [PaymentOption]
additional_payment_options = Maybe [PaymentOption]
additional_payment_options_
    , saved_order_info :: PaymentFormType -> Maybe OrderInfo
saved_order_info           = Maybe OrderInfo
saved_order_info_
    , saved_credentials :: PaymentFormType -> Maybe [SavedCredentials]
saved_credentials          = Maybe [SavedCredentials]
saved_credentials_
    , can_save_credentials :: PaymentFormType -> Maybe Bool
can_save_credentials       = Maybe Bool
can_save_credentials_
    , need_password :: PaymentFormType -> Maybe Bool
need_password              = Maybe Bool
need_password_
    }
      = String
"PaymentFormTypeRegular"
        String -> ShowS
forall a. [a] -> [a] -> [a]
++ [String] -> String
I.cc
        [ String
"invoice"                    String -> Maybe Invoice -> String
forall a. ShortShow a => String -> Maybe a -> String
`I.p` Maybe Invoice
invoice_
        , String
"payment_provider_user_id"   String -> Maybe Int -> String
forall a. ShortShow a => String -> Maybe a -> String
`I.p` Maybe Int
payment_provider_user_id_
        , String
"payment_provider"           String -> Maybe PaymentProvider -> String
forall a. ShortShow a => String -> Maybe a -> String
`I.p` Maybe PaymentProvider
payment_provider_
        , String
"additional_payment_options" String -> Maybe [PaymentOption] -> String
forall a. ShortShow a => String -> Maybe a -> String
`I.p` Maybe [PaymentOption]
additional_payment_options_
        , String
"saved_order_info"           String -> Maybe OrderInfo -> String
forall a. ShortShow a => String -> Maybe a -> String
`I.p` Maybe OrderInfo
saved_order_info_
        , String
"saved_credentials"          String -> Maybe [SavedCredentials] -> String
forall a. ShortShow a => String -> Maybe a -> String
`I.p` Maybe [SavedCredentials]
saved_credentials_
        , String
"can_save_credentials"       String -> Maybe Bool -> String
forall a. ShortShow a => String -> Maybe a -> String
`I.p` Maybe Bool
can_save_credentials_
        , String
"need_password"              String -> Maybe Bool -> String
forall a. ShortShow a => String -> Maybe a -> String
`I.p` Maybe Bool
need_password_
        ]
  shortShow PaymentFormTypeStars
    { star_count :: PaymentFormType -> Maybe Int
star_count = Maybe Int
star_count_
    }
      = String
"PaymentFormTypeStars"
        String -> ShowS
forall a. [a] -> [a] -> [a]
++ [String] -> String
I.cc
        [ String
"star_count" String -> Maybe Int -> String
forall a. ShortShow a => String -> Maybe a -> String
`I.p` Maybe Int
star_count_
        ]
  shortShow PaymentFormTypeStarSubscription
    { pricing :: PaymentFormType -> Maybe StarSubscriptionPricing
pricing = Maybe StarSubscriptionPricing
pricing_
    }
      = String
"PaymentFormTypeStarSubscription"
        String -> ShowS
forall a. [a] -> [a] -> [a]
++ [String] -> String
I.cc
        [ String
"pricing" String -> Maybe StarSubscriptionPricing -> String
forall a. ShortShow a => String -> Maybe a -> String
`I.p` Maybe StarSubscriptionPricing
pricing_
        ]

instance AT.FromJSON PaymentFormType where
  parseJSON :: Value -> Parser PaymentFormType
parseJSON v :: Value
v@(AT.Object Object
obj) = do
    String
t <- Object
obj Object -> Key -> Parser String
forall a. FromJSON a => Object -> Key -> Parser a
A..: Key
"@type" :: AT.Parser String

    case String
t of
      String
"paymentFormTypeRegular"          -> Value -> Parser PaymentFormType
parsePaymentFormTypeRegular Value
v
      String
"paymentFormTypeStars"            -> Value -> Parser PaymentFormType
parsePaymentFormTypeStars Value
v
      String
"paymentFormTypeStarSubscription" -> Value -> Parser PaymentFormType
parsePaymentFormTypeStarSubscription Value
v
      String
_                                 -> Parser PaymentFormType
forall a. Monoid a => a
mempty
    
    where
      parsePaymentFormTypeRegular :: A.Value -> AT.Parser PaymentFormType
      parsePaymentFormTypeRegular :: Value -> Parser PaymentFormType
parsePaymentFormTypeRegular = String
-> (Object -> Parser PaymentFormType)
-> Value
-> Parser PaymentFormType
forall a. String -> (Object -> Parser a) -> Value -> Parser a
A.withObject String
"PaymentFormTypeRegular" ((Object -> Parser PaymentFormType)
 -> Value -> Parser PaymentFormType)
-> (Object -> Parser PaymentFormType)
-> Value
-> Parser PaymentFormType
forall a b. (a -> b) -> a -> b
$ \Object
o -> do
        Maybe Invoice
invoice_                    <- Object
o Object -> Key -> Parser (Maybe Invoice)
forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
A..:?  Key
"invoice"
        Maybe Int
payment_provider_user_id_   <- Object
o Object -> Key -> Parser (Maybe Int)
forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
A..:?  Key
"payment_provider_user_id"
        Maybe PaymentProvider
payment_provider_           <- Object
o Object -> Key -> Parser (Maybe PaymentProvider)
forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
A..:?  Key
"payment_provider"
        Maybe [PaymentOption]
additional_payment_options_ <- Object
o Object -> Key -> Parser (Maybe [PaymentOption])
forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
A..:?  Key
"additional_payment_options"
        Maybe OrderInfo
saved_order_info_           <- Object
o Object -> Key -> Parser (Maybe OrderInfo)
forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
A..:?  Key
"saved_order_info"
        Maybe [SavedCredentials]
saved_credentials_          <- Object
o Object -> Key -> Parser (Maybe [SavedCredentials])
forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
A..:?  Key
"saved_credentials"
        Maybe Bool
can_save_credentials_       <- Object
o Object -> Key -> Parser (Maybe Bool)
forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
A..:?  Key
"can_save_credentials"
        Maybe Bool
need_password_              <- Object
o Object -> Key -> Parser (Maybe Bool)
forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
A..:?  Key
"need_password"
        PaymentFormType -> Parser PaymentFormType
forall a. a -> Parser a
forall (f :: * -> *) a. Applicative f => a -> f a
pure (PaymentFormType -> Parser PaymentFormType)
-> PaymentFormType -> Parser PaymentFormType
forall a b. (a -> b) -> a -> b
$ PaymentFormTypeRegular
          { invoice :: Maybe Invoice
invoice                    = Maybe Invoice
invoice_
          , payment_provider_user_id :: Maybe Int
payment_provider_user_id   = Maybe Int
payment_provider_user_id_
          , payment_provider :: Maybe PaymentProvider
payment_provider           = Maybe PaymentProvider
payment_provider_
          , additional_payment_options :: Maybe [PaymentOption]
additional_payment_options = Maybe [PaymentOption]
additional_payment_options_
          , saved_order_info :: Maybe OrderInfo
saved_order_info           = Maybe OrderInfo
saved_order_info_
          , saved_credentials :: Maybe [SavedCredentials]
saved_credentials          = Maybe [SavedCredentials]
saved_credentials_
          , can_save_credentials :: Maybe Bool
can_save_credentials       = Maybe Bool
can_save_credentials_
          , need_password :: Maybe Bool
need_password              = Maybe Bool
need_password_
          }
      parsePaymentFormTypeStars :: A.Value -> AT.Parser PaymentFormType
      parsePaymentFormTypeStars :: Value -> Parser PaymentFormType
parsePaymentFormTypeStars = String
-> (Object -> Parser PaymentFormType)
-> Value
-> Parser PaymentFormType
forall a. String -> (Object -> Parser a) -> Value -> Parser a
A.withObject String
"PaymentFormTypeStars" ((Object -> Parser PaymentFormType)
 -> Value -> Parser PaymentFormType)
-> (Object -> Parser PaymentFormType)
-> Value
-> Parser PaymentFormType
forall a b. (a -> b) -> a -> b
$ \Object
o -> do
        Maybe Int
star_count_ <- Object
o Object -> Key -> Parser (Maybe Int)
forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
A..:?  Key
"star_count"
        PaymentFormType -> Parser PaymentFormType
forall a. a -> Parser a
forall (f :: * -> *) a. Applicative f => a -> f a
pure (PaymentFormType -> Parser PaymentFormType)
-> PaymentFormType -> Parser PaymentFormType
forall a b. (a -> b) -> a -> b
$ PaymentFormTypeStars
          { star_count :: Maybe Int
star_count = Maybe Int
star_count_
          }
      parsePaymentFormTypeStarSubscription :: A.Value -> AT.Parser PaymentFormType
      parsePaymentFormTypeStarSubscription :: Value -> Parser PaymentFormType
parsePaymentFormTypeStarSubscription = String
-> (Object -> Parser PaymentFormType)
-> Value
-> Parser PaymentFormType
forall a. String -> (Object -> Parser a) -> Value -> Parser a
A.withObject String
"PaymentFormTypeStarSubscription" ((Object -> Parser PaymentFormType)
 -> Value -> Parser PaymentFormType)
-> (Object -> Parser PaymentFormType)
-> Value
-> Parser PaymentFormType
forall a b. (a -> b) -> a -> b
$ \Object
o -> do
        Maybe StarSubscriptionPricing
pricing_ <- Object
o Object -> Key -> Parser (Maybe StarSubscriptionPricing)
forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
A..:?  Key
"pricing"
        PaymentFormType -> Parser PaymentFormType
forall a. a -> Parser a
forall (f :: * -> *) a. Applicative f => a -> f a
pure (PaymentFormType -> Parser PaymentFormType)
-> PaymentFormType -> Parser PaymentFormType
forall a b. (a -> b) -> a -> b
$ PaymentFormTypeStarSubscription
          { pricing :: Maybe StarSubscriptionPricing
pricing = Maybe StarSubscriptionPricing
pricing_
          }
  parseJSON Value
_ = Parser PaymentFormType
forall a. Monoid a => a
mempty