module TD.Query.GetPremiumGiftPaymentOptions
  (GetPremiumGiftPaymentOptions(..)
  ) where

import qualified Data.Aeson as A
import qualified Data.Aeson.Types as AT
import qualified TD.Lib.Internal as I

-- | Returns available options for gifting Telegram Premium to a user. Returns 'TD.Data.PremiumGiftPaymentOptions.PremiumGiftPaymentOptions'
data GetPremiumGiftPaymentOptions
  = GetPremiumGiftPaymentOptions
  deriving (GetPremiumGiftPaymentOptions
-> GetPremiumGiftPaymentOptions -> Bool
(GetPremiumGiftPaymentOptions
 -> GetPremiumGiftPaymentOptions -> Bool)
-> (GetPremiumGiftPaymentOptions
    -> GetPremiumGiftPaymentOptions -> Bool)
-> Eq GetPremiumGiftPaymentOptions
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: GetPremiumGiftPaymentOptions
-> GetPremiumGiftPaymentOptions -> Bool
== :: GetPremiumGiftPaymentOptions
-> GetPremiumGiftPaymentOptions -> Bool
$c/= :: GetPremiumGiftPaymentOptions
-> GetPremiumGiftPaymentOptions -> Bool
/= :: GetPremiumGiftPaymentOptions
-> GetPremiumGiftPaymentOptions -> Bool
Eq, Int -> GetPremiumGiftPaymentOptions -> ShowS
[GetPremiumGiftPaymentOptions] -> ShowS
GetPremiumGiftPaymentOptions -> String
(Int -> GetPremiumGiftPaymentOptions -> ShowS)
-> (GetPremiumGiftPaymentOptions -> String)
-> ([GetPremiumGiftPaymentOptions] -> ShowS)
-> Show GetPremiumGiftPaymentOptions
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> GetPremiumGiftPaymentOptions -> ShowS
showsPrec :: Int -> GetPremiumGiftPaymentOptions -> ShowS
$cshow :: GetPremiumGiftPaymentOptions -> String
show :: GetPremiumGiftPaymentOptions -> String
$cshowList :: [GetPremiumGiftPaymentOptions] -> ShowS
showList :: [GetPremiumGiftPaymentOptions] -> ShowS
Show)

instance I.ShortShow GetPremiumGiftPaymentOptions where
  shortShow :: GetPremiumGiftPaymentOptions -> String
shortShow
    GetPremiumGiftPaymentOptions
GetPremiumGiftPaymentOptions
        = String
"GetPremiumGiftPaymentOptions"

instance AT.ToJSON GetPremiumGiftPaymentOptions where
  toJSON :: GetPremiumGiftPaymentOptions -> Value
toJSON
    GetPremiumGiftPaymentOptions
GetPremiumGiftPaymentOptions
        = [Pair] -> Value
A.object
          [ Key
"@type" Key -> Value -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
forall v. ToJSON v => Key -> v -> Pair
A..= Text -> Value
AT.String Text
"getPremiumGiftPaymentOptions"
          ]