Copyright	(c) David Johnson, 2014
Maintainer	djohnson.m@gmail.com
Stability	experimental
Portability	POSIX
Safe Haskell	None
Language	Haskell2010

Web.Stripe.Discount

Contents

API
Types

Description

https://stripe.com/docs/api#discounts

import Web.Stripe         
import Web.Stripe.Discount
import Web.Stripe.Customer

main :: IO ()
main = do
  let config = SecretKey "secret_key"
  result <- stripe config $ deleteCustomerDiscount (CustomerId "customer_id")
  case result of
    Right deleteResult -> print deleteResult
    Left  stripeError  -> print stripeError

Synopsis

API

deleteCustomerDiscount Source

Arguments

:: CustomerId	The `Customer` upon which to remove the `Discount`
-> Stripe StripeDeleteResult

Delete Customer Discount by CustomerId

deleteSubscriptionDiscount Source

Arguments

:: CustomerId	The `Customer` to remove the `Discount` from
-> SubscriptionId	The `Subscription` to remove the `Discount` from
-> Stripe StripeDeleteResult

Delete Subscription Discount by CustomerId and SubscriptionId

Types

data StripeDeleteResult Source

JSON returned from a Stripe deletion request

Constructors

StripeDeleteResult
Fields deleted :: Bool deletedId :: Maybe Text

Instances

Eq StripeDeleteResult
Show StripeDeleteResult
FromJSON StripeDeleteResult	JSON Instance for `StripeDeleteResult`

data CustomerId Source

CustomerId for a Customer

Constructors

CustomerId Text
ExpandedCustomer Customer

Instances

Eq CustomerId
Show CustomerId
FromJSON CustomerId	JSON Instance for `CustomerId`

newtype SubscriptionId Source

SubscriptionId for a Subscription

Constructors

SubscriptionId Text

Instances

Eq SubscriptionId
Show SubscriptionId

data Discount Source

Discount for Coupon

Constructors

Discount
Fields discountCoupon :: Coupon discountStart :: UTCTime discountEnd :: Maybe UTCTime discountCustomer :: CustomerId discountObject :: Text discountSubscription :: Maybe SubscriptionId

Instances

Eq Discount
Show Discount
FromJSON Discount	JSON Instance for `Discount`