Copyright | (c) David Johnson 2014 |
---|---|
Maintainer | djohnson.m@gmail.com |
Stability | experimental |
Portability | POSIX |
Safe Haskell | None |
Language | Haskell2010 |
https://stripe.com/docs/api#diputes
{-# LANGUAGE OverloadedStrings #-} import Web.Stripe import Web.Stripe.Charge import Web.Stripe.Dispute main :: IO () main = do let config = StripeConfig (StripeKey "secret_key") result <- stripe config $ getCharge (ChargeId "charge_id") case result of (Left stripeError) -> print stripeError (Right (Charge { chargeDispute = dispute })) -> case dispute of (Just dispute) -> print dispute Nothing -> print "no dispute on this charge"
- data UpdateDispute
- updateDispute :: ChargeId -> StripeRequest UpdateDispute
- data CloseDispute
- closeDispute :: ChargeId -> StripeRequest CloseDispute
- newtype ChargeId = ChargeId Text
- data Dispute = Dispute {
- disputeChargeId :: Expandable ChargeId
- disputeAmount :: Int
- disputeCreated :: UTCTime
- disputeStatus :: DisputeStatus
- disputeLiveMode :: Bool
- disputeCurrency :: Currency
- disputeObject :: Text
- disputeReason :: DisputeReason
- disputeIsChargeRefundable :: Bool
- disputeBalanceTransactions :: [BalanceTransaction]
- disputeEvidenceDueBy :: UTCTime
- disputeEvidence :: Maybe Evidence
- disputeMetaData :: MetaData
- data DisputeReason
- data DisputeStatus
- newtype Evidence = Evidence Text
- newtype MetaData = MetaData [(Text, Text)]
API
data UpdateDispute Source #
:: ChargeId | The ID of the Charge being disputed |
-> StripeRequest UpdateDispute |
Dispute
to be updated
data CloseDispute Source #
type StripeReturn CloseDispute Source # | |
:: ChargeId | The ID of the Charge being disputed |
-> StripeRequest CloseDispute |
Dispute
to be closed
Types
Dispute
Object
data DisputeReason Source #
Reason of a Dispute
Duplicate | |
Fraudulent | |
SubscriptionCanceled | |
ProductUnacceptable | |
ProductNotReceived | |
Unrecognized | |
CreditNotProcessed | |
General |
Eq DisputeReason Source # | |
Data DisputeReason Source # | |
Ord DisputeReason Source # | |
Read DisputeReason Source # | |
Show DisputeReason Source # | |
FromJSON DisputeReason Source # | JSON Instance for |
data DisputeStatus Source #
Status of a Dispute
Eq DisputeStatus Source # | |
Data DisputeStatus Source # | |
Ord DisputeStatus Source # | |
Read DisputeStatus Source # | |
Show DisputeStatus Source # | |
FromJSON DisputeStatus Source # | JSON Instance for |
Type of MetaData for use on Stripe
objects