Copyright | (c) David Johnson 2014 |
---|---|
Maintainer | djohnson.m@gmail.com |
Stability | experimental |
Portability | POSIX |
Safe Haskell | None |
Language | Haskell2010 |
https://stripe.com/docs/api#plans
{-# LANGUAGE OverloadedStrings #-} import Web.Stripe import Web.Stripe.Plan main :: IO () main = do let config = StripeConfig (StripeKey "secret_key") result <- stripe config $ do createPlan (PlanId "free plan") (Amount 0) USD Month (PlanName "a sample free plan") case result of Right plan -> print plan Left stripeError -> print stripeError
Synopsis
- data CreatePlan
- createPlan :: PlanId -> Amount -> Currency -> Interval -> PlanName -> StripeRequest CreatePlan
- data GetPlan
- getPlan :: PlanId -> StripeRequest GetPlan
- data UpdatePlan
- updatePlan :: PlanId -> StripeRequest UpdatePlan
- data DeletePlan
- deletePlan :: PlanId -> StripeRequest DeletePlan
- data GetPlans
- getPlans :: StripeRequest GetPlans
- newtype Amount = Amount {}
- data Currency
- = AED
- | AFN
- | ALL
- | AMD
- | ANG
- | AOA
- | ARS
- | AUD
- | AWG
- | AZN
- | BAM
- | BBD
- | BDT
- | BGN
- | BIF
- | BMD
- | BND
- | BOB
- | BRL
- | BSD
- | BWP
- | BZD
- | CAD
- | CDF
- | CHF
- | CLP
- | CNY
- | COP
- | CRC
- | CVE
- | CZK
- | DJF
- | DKK
- | DOP
- | DZD
- | EEK
- | EGP
- | ETB
- | EUR
- | FJD
- | FKP
- | GBP
- | GEL
- | GIP
- | GMD
- | GNF
- | GTQ
- | GYD
- | HKD
- | HNL
- | HRK
- | HTG
- | HUF
- | IDR
- | ILS
- | INR
- | ISK
- | JMD
- | JPY
- | KES
- | KGS
- | KHR
- | KMF
- | KRW
- | KYD
- | KZT
- | LAK
- | LBP
- | LKR
- | LRD
- | LSL
- | LTL
- | LVL
- | MAD
- | MDL
- | MGA
- | MKD
- | MNT
- | MOP
- | MRO
- | MUR
- | MVR
- | MWK
- | MXN
- | MYR
- | MZN
- | NAD
- | NGN
- | NIO
- | NOK
- | NPR
- | NZD
- | PAB
- | PEN
- | PGK
- | PHP
- | PKR
- | PLN
- | PYG
- | QAR
- | RON
- | RSD
- | RUB
- | RWF
- | SAR
- | SBD
- | SCR
- | SEK
- | SGD
- | SHP
- | SLL
- | SOS
- | SRD
- | STD
- | SVC
- | SZL
- | THB
- | TJS
- | TOP
- | TRY
- | TTD
- | TWD
- | TZS
- | UAH
- | UGX
- | USD
- | UYU
- | UZS
- | VND
- | VUV
- | WST
- | XAF
- | XCD
- | XOF
- | XPF
- | YER
- | ZAR
- | ZMW
- | UnknownCurrency
- newtype EndingBefore a = EndingBefore a
- data Interval
- newtype IntervalCount = IntervalCount Int
- newtype Limit = Limit Int
- newtype MetaData = MetaData [(Text, Text)]
- data Plan = Plan {}
- newtype PlanId = PlanId Text
- newtype PlanName = PlanName {
- getPlanName :: Text
- newtype StartingAfter a = StartingAfter a
- newtype StatementDescription = StatementDescription Text
- data StripeDeleteResult = StripeDeleteResult {}
- data StripeList a = StripeList {}
- newtype TrialPeriodDays = TrialPeriodDays Int
API
data CreatePlan Source #
Instances
StripeHasParam CreatePlan MetaData Source # | |
Defined in Web.Stripe.Plan | |
StripeHasParam CreatePlan TrialPeriodDays Source # | |
Defined in Web.Stripe.Plan | |
StripeHasParam CreatePlan IntervalCount Source # | |
Defined in Web.Stripe.Plan | |
StripeHasParam CreatePlan StatementDescription Source # | |
Defined in Web.Stripe.Plan | |
type StripeReturn CreatePlan Source # | |
Defined in Web.Stripe.Plan |
:: PlanId | Unique string used to identify |
-> Amount | Positive integer in cents representing how much to charge on a recurring basis |
-> Currency | |
-> Interval | |
-> PlanName | Name of |
-> StripeRequest CreatePlan |
Create a Plan
Instances
type StripeReturn GetPlan Source # | |
Defined in Web.Stripe.Plan |
data UpdatePlan Source #
Instances
StripeHasParam UpdatePlan PlanName Source # | |
Defined in Web.Stripe.Plan | |
StripeHasParam UpdatePlan MetaData Source # | |
Defined in Web.Stripe.Plan | |
StripeHasParam UpdatePlan StatementDescription Source # | |
Defined in Web.Stripe.Plan | |
type StripeReturn UpdatePlan Source # | |
Defined in Web.Stripe.Plan |
data DeletePlan Source #
Instances
type StripeReturn DeletePlan Source # | |
Defined in Web.Stripe.Plan |
Instances
StripeHasParam GetPlans Limit Source # | |
Defined in Web.Stripe.Plan | |
StripeHasParam GetPlans (EndingBefore PlanId) Source # | |
Defined in Web.Stripe.Plan | |
StripeHasParam GetPlans (StartingAfter PlanId) Source # | |
Defined in Web.Stripe.Plan | |
type StripeReturn GetPlans Source # | |
Defined in Web.Stripe.Plan |
Types
Amount representing a monetary value. Stripe represents pennies as whole numbers i.e. 100 = $1
Instances
Stripe supports 138 currencies
AED | United Arab Emirates Dirham |
AFN | Afghan Afghani |
ALL | Albanian Lek |
AMD | Armenian Dram |
ANG | Netherlands Antillean Gulden |
AOA | Angolan Kwanza |
ARS | Argentine Peso |
AUD | Australian Dollar |
AWG | Aruban Florin |
AZN | Azerbaijani Manat |
BAM | Bosnia & Herzegovina Convertible Mark |
BBD | Barbadian Dollar |
BDT | Bangladeshi Taka |
BGN | Bulgarian Lev |
BIF | Burundian Franc |
BMD | Bermudian Dollar |
BND | Brunei Dollar |
BOB | Bolivian Boliviano |
BRL | Brazilian Real |
BSD | Bahamian Dollar |
BWP | Botswana Pula |
BZD | Belize Dollar |
CAD | Canadian Dollar |
CDF | Congolese Franc |
CHF | Swiss Franc |
CLP | Chilean Peso |
CNY | Chinese Renminbi Yuan |
COP | Colombian Peso |
CRC | Costa Rican Colón |
CVE | Cape Verdean Escudo |
CZK | Czech Koruna |
DJF | Djiboutian Franc |
DKK | Danish Krone |
DOP | Dominican Peso |
DZD | Algerian Dinar |
EEK | Estonian Kroon |
EGP | Egyptian Pound |
ETB | Ethiopian Birr |
EUR | Euro |
FJD | Fijian Dollar |
FKP | Falkland Islands Pound |
GBP | British Pound |
GEL | Georgian Lari |
GIP | Gibraltar Pound |
GMD | Gambian Dalasi |
GNF | Guinean Franc |
GTQ | Guatemalan Quetzal |
GYD | Guyanese Dollar |
HKD | Hong Kong Dollar |
HNL | Honduran Lempira |
HRK | Croatian Kuna |
HTG | Haitian Gourde |
HUF | Hungarian Forint |
IDR | Indonesian Rupiah |
ILS | Israeli New Sheqel |
INR | Indian Rupee |
ISK | Icelandic Króna |
JMD | Jamaican Dollar |
JPY | Japanese Yen |
KES | Kenyan Shilling |
KGS | Kyrgyzstani Som |
KHR | Cambodian Riel |
KMF | Comorian Franc |
KRW | South Korean Won |
KYD | Cayman Islands Dollar |
KZT | Kazakhstani Tenge |
LAK | Lao Kip |
LBP | Lebanese Pound |
LKR | Sri Lankan Rupee |
LRD | Liberian Dollar |
LSL | Lesotho Loti |
LTL | Lithuanian Litas |
LVL | Latvian Lats |
MAD | Moroccan Dirham |
MDL | Moldovan Leu |
MGA | Malagasy Ariary |
MKD | Macedonian Denar |
MNT | Mongolian Tögrög |
MOP | Macanese Pataca |
MRO | Mauritanian Ouguiya |
MUR | Mauritian Rupee |
MVR | Maldivian Rufiyaa |
MWK | Malawian Kwacha |
MXN | Mexican Peso |
MYR | Malaysian Ringgit |
MZN | Mozambican Metical |
NAD | Namibian Dollar |
NGN | Nigerian Naira |
NIO | Nicaraguan Córdoba |
NOK | Norwegian Krone |
NPR | Nepalese Rupee |
NZD | New Zealand Dollar |
PAB | Panamanian Balboa |
PEN | Peruvian Nuevo Sol |
PGK | Papua New Guinean Kina |
PHP | Philippine Peso |
PKR | Pakistani Rupee |
PLN | Polish Złoty |
PYG | Paraguayan Guaraní |
QAR | Qatari Riyal |
RON | Romanian Leu |
RSD | Serbian Dinar |
RUB | Russian Ruble |
RWF | Rwandan Franc |
SAR | Saudi Riyal |
SBD | Solomon Islands Dollar |
SCR | Seychellois Rupee |
SEK | Swedish Krona |
SGD | Singapore Dollar |
SHP | Saint Helenian Pound |
SLL | Sierra Leonean Leone |
SOS | Somali Shilling |
SRD | Surinamese Dollar |
STD | São Tomé and Príncipe Dobra |
SVC | Salvadoran Colón |
SZL | Swazi Lilangeni |
THB | Thai Baht |
TJS | Tajikistani Somoni |
TOP | Tongan Paʻanga |
TRY | Turkish Lira |
TTD | Trinidad and Tobago Dollar |
TWD | New Taiwan Dollar |
TZS | Tanzanian Shilling |
UAH | Ukrainian Hryvnia |
UGX | Ugandan Shilling |
USD | United States Dollar |
UYU | Uruguayan Peso |
UZS | Uzbekistani Som |
VND | Vietnamese Đồng |
VUV | Vanuatu Vatu |
WST | Samoan Tala |
XAF | Central African Cfa Franc |
XCD | East Caribbean Dollar |
XOF | West African Cfa Franc |
XPF | Cfp Franc |
YER | Yemeni Rial |
ZAR | South African Rand |
ZMW | Zambian Kwacha |
UnknownCurrency | Unknown Currency |
Instances
Eq Currency Source # | |
Data Currency Source # | |
Defined in Web.Stripe.Types gfoldl :: (forall d b. Data d => c (d -> b) -> d -> c b) -> (forall g. g -> c g) -> Currency -> c Currency # gunfold :: (forall b r. Data b => c (b -> r) -> c r) -> (forall r. r -> c r) -> Constr -> c Currency # toConstr :: Currency -> Constr # dataTypeOf :: Currency -> DataType # dataCast1 :: Typeable t => (forall d. Data d => c (t d)) -> Maybe (c Currency) # dataCast2 :: Typeable t => (forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c Currency) # gmapT :: (forall b. Data b => b -> b) -> Currency -> Currency # gmapQl :: (r -> r' -> r) -> r -> (forall d. Data d => d -> r') -> Currency -> r # gmapQr :: (r' -> r -> r) -> r -> (forall d. Data d => d -> r') -> Currency -> r # gmapQ :: (forall d. Data d => d -> u) -> Currency -> [u] # gmapQi :: Int -> (forall d. Data d => d -> u) -> Currency -> u # gmapM :: Monad m => (forall d. Data d => d -> m d) -> Currency -> m Currency # gmapMp :: MonadPlus m => (forall d. Data d => d -> m d) -> Currency -> m Currency # gmapMo :: MonadPlus m => (forall d. Data d => d -> m d) -> Currency -> m Currency # | |
Ord Currency Source # | |
Defined in Web.Stripe.Types | |
Read Currency Source # | |
Show Currency Source # | |
FromJSON Currency Source # |
|
ToStripeParam Currency Source # | |
Defined in Web.Stripe.StripeRequest toStripeParam :: Currency -> [(ByteString, ByteString)] -> [(ByteString, ByteString)] Source # | |
StripeHasParam CreateCoupon Currency Source # | |
Defined in Web.Stripe.Coupon | |
StripeHasParam GetBalanceTransactionHistory Currency Source # | |
Defined in Web.Stripe.Balance |
newtype EndingBefore a Source #
Pagination Option for StripeList
Instances
Interval for Plan
s
Instances
Eq Interval Source # | |
Data Interval Source # | |
Defined in Web.Stripe.Types gfoldl :: (forall d b. Data d => c (d -> b) -> d -> c b) -> (forall g. g -> c g) -> Interval -> c Interval # gunfold :: (forall b r. Data b => c (b -> r) -> c r) -> (forall r. r -> c r) -> Constr -> c Interval # toConstr :: Interval -> Constr # dataTypeOf :: Interval -> DataType # dataCast1 :: Typeable t => (forall d. Data d => c (t d)) -> Maybe (c Interval) # dataCast2 :: Typeable t => (forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c Interval) # gmapT :: (forall b. Data b => b -> b) -> Interval -> Interval # gmapQl :: (r -> r' -> r) -> r -> (forall d. Data d => d -> r') -> Interval -> r # gmapQr :: (r' -> r -> r) -> r -> (forall d. Data d => d -> r') -> Interval -> r # gmapQ :: (forall d. Data d => d -> u) -> Interval -> [u] # gmapQi :: Int -> (forall d. Data d => d -> u) -> Interval -> u # gmapM :: Monad m => (forall d. Data d => d -> m d) -> Interval -> m Interval # gmapMp :: MonadPlus m => (forall d. Data d => d -> m d) -> Interval -> m Interval # gmapMo :: MonadPlus m => (forall d. Data d => d -> m d) -> Interval -> m Interval # | |
Ord Interval Source # | |
Defined in Web.Stripe.Types | |
Read Interval Source # | |
Show Interval Source # | |
FromJSON Interval Source # | JSON Instance for |
ToStripeParam Interval Source # | |
Defined in Web.Stripe.StripeRequest toStripeParam :: Interval -> [(ByteString, ByteString)] -> [(ByteString, ByteString)] Source # |
newtype IntervalCount Source #
IntervalCount
for a Coupon
Instances
Pagination Option for StripeList
Instances
Type of MetaData for use on Stripe
objects
Instances
Plan object
Plan | |
|
Instances
Eq Plan Source # | |
Data Plan Source # | |
Defined in Web.Stripe.Types gfoldl :: (forall d b. Data d => c (d -> b) -> d -> c b) -> (forall g. g -> c g) -> Plan -> c Plan # gunfold :: (forall b r. Data b => c (b -> r) -> c r) -> (forall r. r -> c r) -> Constr -> c Plan # dataTypeOf :: Plan -> DataType # dataCast1 :: Typeable t => (forall d. Data d => c (t d)) -> Maybe (c Plan) # dataCast2 :: Typeable t => (forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c Plan) # gmapT :: (forall b. Data b => b -> b) -> Plan -> Plan # gmapQl :: (r -> r' -> r) -> r -> (forall d. Data d => d -> r') -> Plan -> r # gmapQr :: (r' -> r -> r) -> r -> (forall d. Data d => d -> r') -> Plan -> r # gmapQ :: (forall d. Data d => d -> u) -> Plan -> [u] # gmapQi :: Int -> (forall d. Data d => d -> u) -> Plan -> u # gmapM :: Monad m => (forall d. Data d => d -> m d) -> Plan -> m Plan # gmapMp :: MonadPlus m => (forall d. Data d => d -> m d) -> Plan -> m Plan # gmapMo :: MonadPlus m => (forall d. Data d => d -> m d) -> Plan -> m Plan # | |
Ord Plan Source # | |
Read Plan Source # | |
Show Plan Source # | |
FromJSON Plan Source # | JSON Instance for |
Instances
a plan name
Instances
Eq PlanName Source # | |
Data PlanName Source # | |
Defined in Web.Stripe.Types gfoldl :: (forall d b. Data d => c (d -> b) -> d -> c b) -> (forall g. g -> c g) -> PlanName -> c PlanName # gunfold :: (forall b r. Data b => c (b -> r) -> c r) -> (forall r. r -> c r) -> Constr -> c PlanName # toConstr :: PlanName -> Constr # dataTypeOf :: PlanName -> DataType # dataCast1 :: Typeable t => (forall d. Data d => c (t d)) -> Maybe (c PlanName) # dataCast2 :: Typeable t => (forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c PlanName) # gmapT :: (forall b. Data b => b -> b) -> PlanName -> PlanName # gmapQl :: (r -> r' -> r) -> r -> (forall d. Data d => d -> r') -> PlanName -> r # gmapQr :: (r' -> r -> r) -> r -> (forall d. Data d => d -> r') -> PlanName -> r # gmapQ :: (forall d. Data d => d -> u) -> PlanName -> [u] # gmapQi :: Int -> (forall d. Data d => d -> u) -> PlanName -> u # gmapM :: Monad m => (forall d. Data d => d -> m d) -> PlanName -> m PlanName # gmapMp :: MonadPlus m => (forall d. Data d => d -> m d) -> PlanName -> m PlanName # gmapMo :: MonadPlus m => (forall d. Data d => d -> m d) -> PlanName -> m PlanName # | |
Ord PlanName Source # | |
Defined in Web.Stripe.Types | |
Read PlanName Source # | |
Show PlanName Source # | |
FromJSON PlanName Source # | |
ToStripeParam PlanName Source # | |
Defined in Web.Stripe.StripeRequest toStripeParam :: PlanName -> [(ByteString, ByteString)] -> [(ByteString, ByteString)] Source # | |
StripeHasParam UpdatePlan PlanName Source # | |
Defined in Web.Stripe.Plan |
newtype StartingAfter a Source #
Pagination Option for StripeList
Instances
newtype StatementDescription Source #
StatementDescription
to be added to a Charge
Instances
data StripeDeleteResult Source #
JSON returned from a Stripe
deletion request
Instances
data StripeList a Source #
Generic handling of Stripe JSON arrays
Instances
newtype TrialPeriodDays Source #
TrialPeriodDays
for a Coupon