Web.Stripe.Card

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

import Web.Stripe         
import Web.Stripe.Customer 
import Web.Stripe.Card

main :: IO ()
main = do
  let config = SecretKey "secret_key"
      credit = CardNumber "4242424242424242"
      em  = ExpMonth 12
      ey  = ExpYear 2015
      cvc = CVC "123"
  result <- stripe config $ do
         Customer { customerId = cid } <- createEmptyCustomer
         card <- createCustomerCard cid credit em ey cvc
         return card
  case result of
    Right card -> print card
    Left  stripeError -> print stripeError

API

Customers

Create Customer Card

createCustomerCard

Arguments

:: CustomerId

Customer to which the card will be added

-> CardNumber

Card digits

-> ExpMonth

Card expiration month

-> ExpYear

Card expiration year

-> CVC

Card cvc number

-> Stripe Card

Add a Card on a Customer

createCustomerCardByToken

Arguments

:: CustomerId

The Customer to which the card will be added

-> TokenId

The Token representative of the card

-> Stripe Card

Create a Customer card using a Token

Get Customer Card(s)

getCustomerCard

Arguments

:: CustomerId

CustomerId of the Card to retrieve

-> CardId

CardId of the card to retrieve

-> Stripe Card

Get card by CustomerId and CardId

getCustomerCardExpandable

Arguments

:: CustomerId

CustomerId of the Card to retrieve

-> CardId

CardId of the card to retrieve

-> ExpandParams

ExpandParams of the card to retrieve

-> Stripe Card

Get card by CustomerId and CardId with ExpandParams

getCustomerCards

Arguments

:: CustomerId

The CustomerId associated with the cards

-> Maybe Limit

Defaults to 10 if Nothing specified

-> StartingAfter CardId

Paginate starting after the following CardId

-> EndingBefore CardId

Paginate ending before the following CardId

-> Stripe (StripeList Card)

Retrieve all cards associated with a Customer

getCustomerCardsExpandable

Arguments

:: CustomerId

The CustomerId associated with the cards

-> Maybe Limit

Defaults to 10 if Nothing specified

-> StartingAfter CardId

Paginate starting after the following CardId

-> EndingBefore CardId

Paginate ending before the following CardId

-> ExpandParams

Expansion on Card

-> Stripe (StripeList Card)

Retrieve all cards associated with a Customer

Update Customer Card

updateCustomerCard

Arguments

:: CustomerId

CustomerId associated with the Card to be updated

-> CardId

The CardId associated with the Card to be updated

-> Maybe Name

Name of Recipient or Customer to be used for Card

-> Maybe AddressCity

City associated with Card

-> Maybe AddressCountry

Country associated with Card

-> Maybe AddressLine1

Address Line 1 associated with Card

-> Maybe AddressLine2

Address Line 2 associated with Card

-> Maybe AddressState

Address State 2 associated with Card

-> Maybe AddressZip

Address Zip associated with Card

-> Stripe Card

Update a Customer Card

Delete Card

deleteCustomerCard

Arguments

:: CustomerId

CustomerId of the Card to retrieve

-> CardId

CardId associated with Card to be deleted

-> Stripe StripeDeleteResult

Removes a card from a Customer

Recipients

Create Recipient Card

createRecipientCard

Arguments

:: RecipientId

Recipient to which the card will be added

-> CardNumber

Card digits

-> ExpMonth

Card expiration month

-> ExpYear

Card expiration year

-> CVC

Card cvc number

-> Stripe RecipientCard

Create a Recipient Card by CardNumber

createRecipientCardByToken

Arguments

:: RecipientId

The Customer to which the card will be added

-> TokenId

The Token representative of the card

-> Stripe RecipientCard

Create a Recipient card using a Token

Get Recipient Card(s)

getRecipientCard

Arguments

:: RecipientId

RecipientId of the Card to retrieve

-> RecipientCardId

CardId of the Recipient Card to retrieve

-> Stripe RecipientCard

Get card by RecipientId and CardId

getRecipientCardExpandable

Arguments

:: RecipientId

RecipientId of the Card to retrieve

-> RecipientCardId

CardId of the Recipient Card to retrieve

-> ExpandParams

ExpandParams of the Recipient Card to retrieve

-> Stripe RecipientCard

Get card by RecipientId and CardId

getRecipientCards

Arguments

:: RecipientId

The RecipientId associated with the cards

-> Maybe Limit

Defaults to 10 if Nothing specified

-> StartingAfter RecipientCardId

Paginate starting after the following CardId

-> EndingBefore RecipientCardId

Paginate ending before the following CardId

-> Stripe (StripeList RecipientCard)

Retrieve all cards associated with a Recipient

getRecipientCardsExpandable

Arguments

:: RecipientId

The RecipientId associated with the cards

-> Maybe Limit

Defaults to 10 if Nothing specified

-> StartingAfter RecipientCardId

Paginate starting after the following CardId

-> EndingBefore RecipientCardId

Paginate ending before the following CardId

-> ExpandParams

The ExpandParams of the object to be expanded

-> Stripe (StripeList RecipientCard)

Retrieve all cards associated with a Recipient

Updated Recipient Card

updateRecipientCard

Arguments

:: RecipientId

RecipientId associated with the Card to be updated

-> RecipientCardId

The CardId associated with the Card to be updated

-> Maybe Name

Name of Recipient or Customer to be used for Card

-> Maybe AddressCity

City associated with Card

-> Maybe AddressCountry

Country associated with Card

-> Maybe AddressLine1

Address Line 1 associated with Card

-> Maybe AddressLine2

Address Line 2 associated with Card

-> Maybe AddressState

Address State 2 associated with Card

-> Maybe AddressZip

Address Zip associated with Card

-> Stripe RecipientCard

Update a Recipient Card

Delete Recipient Card

deleteRecipientCard

Arguments

:: RecipientId

The RecipientId associated with the Card to be removed

-> RecipientCardId

The CardId of the Card to be removed

-> Stripe StripeDeleteResult

Removes a card from a Customer

Types

data Brand

Credit / Debit Card Brand

Constructors

Visa

AMEX

MasterCard

Discover

JCB

DinersClub

Unknown

Instances

Eq Brand

Show Brand

FromJSON Brand

JSON Instance for Brand

data Card

Card Object

Constructors

Card

Fields

cardId :: CardId

cardObject :: Text

cardLastFour :: Text

cardBrand :: Brand

cardFunding :: Text

cardExpMonth :: ExpMonth

cardExpYear :: ExpYear

cardFingerprint :: Text

cardCountry :: Text

cardName :: Maybe Name

cardAddressLine1 :: Maybe AddressLine1

cardAddressLine2 :: Maybe AddressLine2

cardAddressCity :: Maybe AddressCity

cardAddressState :: Maybe AddressState

cardAddressZip :: Maybe AddressZip

cardAddressCountry :: Maybe AddressCountry

cardCVCCheck :: Maybe Text

cardAddressLine1Check :: Maybe Text

cardAddressZipCheck :: Maybe Text

cardCustomerId :: Maybe CustomerId

Instances

Eq Card

Show Card

FromJSON Card

JSON Instance for Card

data RecipientCard

RecipientCard object

Constructors

RecipientCard

Fields

recipientCardId :: RecipientCardId

recipientCardLastFour :: Text

recipientCardBrand :: Brand

recipientCardFunding :: Text

recipientCardExpMonth :: ExpMonth

recipientCardExpYear :: ExpYear

recipientCardFingerprint :: Text

recipientCardCountry :: Country

recipientCardName :: Maybe Name

recipientCardAddressLine1 :: Maybe AddressLine1

recipientCardAddressLine2 :: Maybe AddressLine2

recipientCardAddressCity :: Maybe AddressCity

recipientCardAddressState :: Maybe AddressState

recipientCardAddressZip :: Maybe AddressZip

recipientCardAddressCountry :: Maybe AddressCountry

recipientCardCVCCheck :: Maybe Text

recipientCardAddressLine1Check :: Maybe Text

recipientCardAddressZipCheck :: Maybe Text

recipientCardRecipientId :: Maybe RecipientId

Instances

Eq RecipientCard

Show RecipientCard

FromJSON RecipientCard

JSON Instance for RecipientCard

data CardId

CardId for a Customer

Constructors

CardId Text

ExpandedCard Card

Instances

Eq CardId

Show CardId

FromJSON CardId

JSON Instance for CardId

data RecipientCardId

CardId for a Recipient

Constructors

RecipientCardId Text

ExpandedRecipientCard RecipientCard

Instances

Eq RecipientCardId

Show RecipientCardId

newtype CardNumber

Number associated with a Card

Constructors

CardNumber Text

Instances

Eq CardNumber

Show CardNumber

newtype ExpMonth

Expiration Month for a Card

Constructors

ExpMonth Int

Instances

Eq ExpMonth

Show ExpMonth

newtype ExpYear

Expiration Year for a Card

Constructors

ExpYear Int

Instances

Eq ExpYear

Show ExpYear

newtype CVC

CVC for a Card

Constructors

CVC Text

Instances

Eq CVC

Show CVC

type Name = Text

Generic URL for use in constructing API Calls

newtype AddressLine1

Address Line One for a Card

Constructors

AddressLine1 Text

Instances

Eq AddressLine1

Show AddressLine1

newtype AddressLine2

Address Line Two for a Card

Constructors

AddressLine2 Text

Instances

Eq AddressLine2

Show AddressLine2

newtype AddressCity

City address for a Card

Constructors

AddressCity Text

Instances

Eq AddressCity

Show AddressCity

newtype AddressCountry

Country address for a Card

Constructors

AddressCountry Text

Instances

Eq AddressCountry

Show AddressCountry

newtype AddressState

Address State for a Card

Constructors

AddressState Text

Instances

Eq AddressState

Show AddressState

newtype AddressZip

Address Zip Code for a Card

Constructors

AddressZip Text

Instances

Eq AddressZip

Show AddressZip

data RecipientId

RecipientId for a Recipient

Constructors

RecipientId Text

ExpandedRecipient Recipient

Instances

Eq RecipientId

Show RecipientId

FromJSON RecipientId

JSON Instance for RecipientId