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 = Dispute 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
data DisputeStatus Source
Status of a Dispute
Type of MetaData for use on Stripe
objects