Copyright | (c) David Johnson, 2014 |
---|---|
Maintainer | djohnson.m@gmail.com |
Stability | experimental |
Portability | POSIX |
Safe Haskell | None |
Language | Haskell2010 |
https://stripe.com/docs/api#discounts
{-# LANGUAGE OverloadedStrings #-} import Web.Stripe import Web.Stripe.Discount import Web.Stripe.Customer main :: IO () main = do let config = StripeConfig (StripeKey "secret_key") result <- stripe config $ deleteCustomerDiscount (CustomerId "customer_id") case result of Right deleteResult -> print deleteResult Left stripeError -> print stripeError
- data DeleteCustomerDiscount
- deleteCustomerDiscount :: CustomerId -> StripeRequest DeleteCustomerDiscount
- data DeleteSubscriptionDiscount
- deleteSubscriptionDiscount :: CustomerId -> SubscriptionId -> StripeRequest DeleteSubscriptionDiscount
- data StripeDeleteResult = StripeDeleteResult {}
- newtype CustomerId = CustomerId Text
- newtype SubscriptionId = SubscriptionId {}
- data Discount = Discount {}
API
:: CustomerId | The |
-> StripeRequest DeleteCustomerDiscount |
Delete Customer
Discount
by CustomerId
deleteSubscriptionDiscount Source
:: CustomerId | The |
-> SubscriptionId | The |
-> StripeRequest DeleteSubscriptionDiscount |
Delete Subscription
Discount
by CustomerId
and SubscriptionId
Types
data StripeDeleteResult Source
JSON returned from a Stripe
deletion request
newtype CustomerId Source
CustomerId
for a Customer
newtype SubscriptionId Source
SubscriptionId
for a Subscription