module TD.Query.GetOnRampPaymentAvailability
  (GetOnRampPaymentAvailability(..)
  , defaultGetOnRampPaymentAvailability
  ) where

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

-- | Returns the available on-ramp payment methods based on the current user location. Returns 'TD.Data.OnRampPaymentAvailability.OnRampPaymentAvailability'
data GetOnRampPaymentAvailability
  = GetOnRampPaymentAvailability
    { GetOnRampPaymentAvailability -> Maybe Text
provider_id    :: Maybe T.Text -- ^ Unique identifier of the on-ramp provider
    , GetOnRampPaymentAvailability -> Maybe Text
cryptocurrency :: Maybe T.Text -- ^ The cryptocurrency that will be bought
    , GetOnRampPaymentAvailability -> Maybe Text
base_currency  :: Maybe T.Text -- ^ ISO 4217 currency code of the currency that will be used for the purchase; pass an empty string if unknown
    }
  deriving (GetOnRampPaymentAvailability
-> GetOnRampPaymentAvailability -> Bool
(GetOnRampPaymentAvailability
 -> GetOnRampPaymentAvailability -> Bool)
-> (GetOnRampPaymentAvailability
    -> GetOnRampPaymentAvailability -> Bool)
-> Eq GetOnRampPaymentAvailability
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: GetOnRampPaymentAvailability
-> GetOnRampPaymentAvailability -> Bool
== :: GetOnRampPaymentAvailability
-> GetOnRampPaymentAvailability -> Bool
$c/= :: GetOnRampPaymentAvailability
-> GetOnRampPaymentAvailability -> Bool
/= :: GetOnRampPaymentAvailability
-> GetOnRampPaymentAvailability -> Bool
Eq, Int -> GetOnRampPaymentAvailability -> ShowS
[GetOnRampPaymentAvailability] -> ShowS
GetOnRampPaymentAvailability -> String
(Int -> GetOnRampPaymentAvailability -> ShowS)
-> (GetOnRampPaymentAvailability -> String)
-> ([GetOnRampPaymentAvailability] -> ShowS)
-> Show GetOnRampPaymentAvailability
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> GetOnRampPaymentAvailability -> ShowS
showsPrec :: Int -> GetOnRampPaymentAvailability -> ShowS
$cshow :: GetOnRampPaymentAvailability -> String
show :: GetOnRampPaymentAvailability -> String
$cshowList :: [GetOnRampPaymentAvailability] -> ShowS
showList :: [GetOnRampPaymentAvailability] -> ShowS
Show)

instance I.ShortShow GetOnRampPaymentAvailability where
  shortShow :: GetOnRampPaymentAvailability -> String
shortShow
    GetOnRampPaymentAvailability
      { provider_id :: GetOnRampPaymentAvailability -> Maybe Text
provider_id    = Maybe Text
provider_id_
      , cryptocurrency :: GetOnRampPaymentAvailability -> Maybe Text
cryptocurrency = Maybe Text
cryptocurrency_
      , base_currency :: GetOnRampPaymentAvailability -> Maybe Text
base_currency  = Maybe Text
base_currency_
      }
        = String
"GetOnRampPaymentAvailability"
          String -> ShowS
forall a. [a] -> [a] -> [a]
++ [String] -> String
I.cc
          [ String
"provider_id"    String -> Maybe Text -> String
forall a. ShortShow a => String -> Maybe a -> String
`I.p` Maybe Text
provider_id_
          , String
"cryptocurrency" String -> Maybe Text -> String
forall a. ShortShow a => String -> Maybe a -> String
`I.p` Maybe Text
cryptocurrency_
          , String
"base_currency"  String -> Maybe Text -> String
forall a. ShortShow a => String -> Maybe a -> String
`I.p` Maybe Text
base_currency_
          ]

instance AT.ToJSON GetOnRampPaymentAvailability where
  toJSON :: GetOnRampPaymentAvailability -> Value
toJSON
    GetOnRampPaymentAvailability
      { provider_id :: GetOnRampPaymentAvailability -> Maybe Text
provider_id    = Maybe Text
provider_id_
      , cryptocurrency :: GetOnRampPaymentAvailability -> Maybe Text
cryptocurrency = Maybe Text
cryptocurrency_
      , base_currency :: GetOnRampPaymentAvailability -> Maybe Text
base_currency  = Maybe Text
base_currency_
      }
        = [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
"getOnRampPaymentAvailability"
          , Key
"provider_id"    Key -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
forall v. ToJSON v => Key -> v -> Pair
A..= Maybe Text
provider_id_
          , Key
"cryptocurrency" Key -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
forall v. ToJSON v => Key -> v -> Pair
A..= Maybe Text
cryptocurrency_
          , Key
"base_currency"  Key -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
forall v. ToJSON v => Key -> v -> Pair
A..= Maybe Text
base_currency_
          ]

defaultGetOnRampPaymentAvailability :: GetOnRampPaymentAvailability
defaultGetOnRampPaymentAvailability :: GetOnRampPaymentAvailability
defaultGetOnRampPaymentAvailability =
  GetOnRampPaymentAvailability
    { provider_id :: Maybe Text
provider_id    = Maybe Text
forall a. Maybe a
Nothing
    , cryptocurrency :: Maybe Text
cryptocurrency = Maybe Text
forall a. Maybe a
Nothing
    , base_currency :: Maybe Text
base_currency  = Maybe Text
forall a. Maybe a
Nothing
    }