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

Web.Stripe.Dispute

Contents

API
Types

Description

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"

Synopsis

API

data UpdateDispute #

Instances

StripeHasParam UpdateDispute MetaData #

StripeHasParam UpdateDispute Evidence #

type StripeReturn UpdateDispute #
type StripeReturn UpdateDispute = Dispute

updateDispute #

Arguments

:: ChargeId	The ID of the Charge being disputed
-> StripeRequest UpdateDispute

Dispute to be updated

data CloseDispute #

Instances

type StripeReturn CloseDispute #
type StripeReturn CloseDispute = Dispute

closeDispute #

Arguments

:: ChargeId	The ID of the Charge being disputed
-> StripeRequest CloseDispute

Dispute to be closed

Types

newtype ChargeId #

ChargeId associated with a Charge

Constructors

ChargeId Text

Instances

Eq ChargeId #
Methods (==) :: ChargeId -> ChargeId -> Bool # (/=) :: ChargeId -> ChargeId -> Bool #
Data ChargeId #
Methods gfoldl :: (forall d b. Data d => c (d -> b) -> d -> c b) -> (forall g. g -> c g) -> ChargeId -> c ChargeId # gunfold :: (forall b r. Data b => c (b -> r) -> c r) -> (forall r. r -> c r) -> Constr -> c ChargeId # toConstr :: ChargeId -> Constr # dataTypeOf :: ChargeId -> DataType # dataCast1 :: Typeable (* -> ) t => (forall d. Data d => c (t d)) -> Maybe (c ChargeId) # dataCast2 :: Typeable ( -> * -> *) t => (forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c ChargeId) # gmapT :: (forall b. Data b => b -> b) -> ChargeId -> ChargeId # gmapQl :: (r -> r' -> r) -> r -> (forall d. Data d => d -> r') -> ChargeId -> r # gmapQr :: (r' -> r -> r) -> r -> (forall d. Data d => d -> r') -> ChargeId -> r # gmapQ :: (forall d. Data d => d -> u) -> ChargeId -> [u] # gmapQi :: Int -> (forall d. Data d => d -> u) -> ChargeId -> u # gmapM :: Monad m => (forall d. Data d => d -> m d) -> ChargeId -> m ChargeId # gmapMp :: MonadPlus m => (forall d. Data d => d -> m d) -> ChargeId -> m ChargeId # gmapMo :: MonadPlus m => (forall d. Data d => d -> m d) -> ChargeId -> m ChargeId #
Ord ChargeId #
Methods compare :: ChargeId -> ChargeId -> Ordering # (<) :: ChargeId -> ChargeId -> Bool # (<=) :: ChargeId -> ChargeId -> Bool # (>) :: ChargeId -> ChargeId -> Bool # (>=) :: ChargeId -> ChargeId -> Bool # max :: ChargeId -> ChargeId -> ChargeId # min :: ChargeId -> ChargeId -> ChargeId #
Read ChargeId #
Methods readsPrec :: Int -> ReadS ChargeId # readList :: ReadS [ChargeId] # readPrec :: ReadPrec ChargeId # readListPrec :: ReadPrec [ChargeId] #
Show ChargeId #
Methods showsPrec :: Int -> ChargeId -> ShowS # show :: ChargeId -> String # showList :: [ChargeId] -> ShowS #
FromJSON ChargeId #	JSON Instance for `ChargeId`
Methods parseJSON :: Value -> Parser ChargeId # parseJSONList :: Value -> Parser [ChargeId] #
ToStripeParam ChargeId #
Methods toStripeParam :: ChargeId -> [(ByteString, ByteString)] -> [(ByteString, ByteString)] #
StripeHasParam GetApplicationFees ChargeId #

StripeHasParam GetCharges (EndingBefore ChargeId) #

StripeHasParam GetCharges (StartingAfter ChargeId) #

type ExpandsTo ChargeId #
type ExpandsTo ChargeId = Charge

data Dispute #

Dispute Object

Constructors

Dispute

Fields

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

Instances

Eq Dispute #
Methods (==) :: Dispute -> Dispute -> Bool # (/=) :: Dispute -> Dispute -> Bool #
Data Dispute #
Methods gfoldl :: (forall d b. Data d => c (d -> b) -> d -> c b) -> (forall g. g -> c g) -> Dispute -> c Dispute # gunfold :: (forall b r. Data b => c (b -> r) -> c r) -> (forall r. r -> c r) -> Constr -> c Dispute # toConstr :: Dispute -> Constr # dataTypeOf :: Dispute -> DataType # dataCast1 :: Typeable (* -> ) t => (forall d. Data d => c (t d)) -> Maybe (c Dispute) # dataCast2 :: Typeable ( -> * -> *) t => (forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c Dispute) # gmapT :: (forall b. Data b => b -> b) -> Dispute -> Dispute # gmapQl :: (r -> r' -> r) -> r -> (forall d. Data d => d -> r') -> Dispute -> r # gmapQr :: (r' -> r -> r) -> r -> (forall d. Data d => d -> r') -> Dispute -> r # gmapQ :: (forall d. Data d => d -> u) -> Dispute -> [u] # gmapQi :: Int -> (forall d. Data d => d -> u) -> Dispute -> u # gmapM :: Monad m => (forall d. Data d => d -> m d) -> Dispute -> m Dispute # gmapMp :: MonadPlus m => (forall d. Data d => d -> m d) -> Dispute -> m Dispute # gmapMo :: MonadPlus m => (forall d. Data d => d -> m d) -> Dispute -> m Dispute #
Ord Dispute #
Methods compare :: Dispute -> Dispute -> Ordering # (<) :: Dispute -> Dispute -> Bool # (<=) :: Dispute -> Dispute -> Bool # (>) :: Dispute -> Dispute -> Bool # (>=) :: Dispute -> Dispute -> Bool # max :: Dispute -> Dispute -> Dispute # min :: Dispute -> Dispute -> Dispute #
Read Dispute #
Methods readsPrec :: Int -> ReadS Dispute # readList :: ReadS [Dispute] # readPrec :: ReadPrec Dispute # readListPrec :: ReadPrec [Dispute] #
Show Dispute #
Methods showsPrec :: Int -> Dispute -> ShowS # show :: Dispute -> String # showList :: [Dispute] -> ShowS #
FromJSON Dispute #	JSON Instance for `Dispute`
Methods parseJSON :: Value -> Parser Dispute # parseJSONList :: Value -> Parser [Dispute] #

data DisputeReason #

Reason of a Dispute

Constructors

Duplicate
Fraudulent
SubscriptionCanceled
ProductUnacceptable
ProductNotReceived
Unrecognized
CreditNotProcessed
General

Instances

Eq DisputeReason #
Methods (==) :: DisputeReason -> DisputeReason -> Bool # (/=) :: DisputeReason -> DisputeReason -> Bool #
Data DisputeReason #
Methods gfoldl :: (forall d b. Data d => c (d -> b) -> d -> c b) -> (forall g. g -> c g) -> DisputeReason -> c DisputeReason # gunfold :: (forall b r. Data b => c (b -> r) -> c r) -> (forall r. r -> c r) -> Constr -> c DisputeReason # toConstr :: DisputeReason -> Constr # dataTypeOf :: DisputeReason -> DataType # dataCast1 :: Typeable (* -> ) t => (forall d. Data d => c (t d)) -> Maybe (c DisputeReason) # dataCast2 :: Typeable ( -> * -> *) t => (forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c DisputeReason) # gmapT :: (forall b. Data b => b -> b) -> DisputeReason -> DisputeReason # gmapQl :: (r -> r' -> r) -> r -> (forall d. Data d => d -> r') -> DisputeReason -> r # gmapQr :: (r' -> r -> r) -> r -> (forall d. Data d => d -> r') -> DisputeReason -> r # gmapQ :: (forall d. Data d => d -> u) -> DisputeReason -> [u] # gmapQi :: Int -> (forall d. Data d => d -> u) -> DisputeReason -> u # gmapM :: Monad m => (forall d. Data d => d -> m d) -> DisputeReason -> m DisputeReason # gmapMp :: MonadPlus m => (forall d. Data d => d -> m d) -> DisputeReason -> m DisputeReason # gmapMo :: MonadPlus m => (forall d. Data d => d -> m d) -> DisputeReason -> m DisputeReason #
Ord DisputeReason #
Methods compare :: DisputeReason -> DisputeReason -> Ordering # (<) :: DisputeReason -> DisputeReason -> Bool # (<=) :: DisputeReason -> DisputeReason -> Bool # (>) :: DisputeReason -> DisputeReason -> Bool # (>=) :: DisputeReason -> DisputeReason -> Bool # max :: DisputeReason -> DisputeReason -> DisputeReason # min :: DisputeReason -> DisputeReason -> DisputeReason #
Read DisputeReason #
Methods readsPrec :: Int -> ReadS DisputeReason # readList :: ReadS [DisputeReason] # readPrec :: ReadPrec DisputeReason # readListPrec :: ReadPrec [DisputeReason] #
Show DisputeReason #
Methods showsPrec :: Int -> DisputeReason -> ShowS # show :: DisputeReason -> String # showList :: [DisputeReason] -> ShowS #
FromJSON DisputeReason #	JSON Instance for `DisputeReason`
Methods parseJSON :: Value -> Parser DisputeReason # parseJSONList :: Value -> Parser [DisputeReason] #

data DisputeStatus #

Status of a Dispute

Constructors

WarningNeedsResponse
WarningUnderReview
NeedsResponse
UnderReview
ChargeRefunded
Won
Lost

Instances

Eq DisputeStatus #
Methods (==) :: DisputeStatus -> DisputeStatus -> Bool # (/=) :: DisputeStatus -> DisputeStatus -> Bool #
Data DisputeStatus #
Methods gfoldl :: (forall d b. Data d => c (d -> b) -> d -> c b) -> (forall g. g -> c g) -> DisputeStatus -> c DisputeStatus # gunfold :: (forall b r. Data b => c (b -> r) -> c r) -> (forall r. r -> c r) -> Constr -> c DisputeStatus # toConstr :: DisputeStatus -> Constr # dataTypeOf :: DisputeStatus -> DataType # dataCast1 :: Typeable (* -> ) t => (forall d. Data d => c (t d)) -> Maybe (c DisputeStatus) # dataCast2 :: Typeable ( -> * -> *) t => (forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c DisputeStatus) # gmapT :: (forall b. Data b => b -> b) -> DisputeStatus -> DisputeStatus # gmapQl :: (r -> r' -> r) -> r -> (forall d. Data d => d -> r') -> DisputeStatus -> r # gmapQr :: (r' -> r -> r) -> r -> (forall d. Data d => d -> r') -> DisputeStatus -> r # gmapQ :: (forall d. Data d => d -> u) -> DisputeStatus -> [u] # gmapQi :: Int -> (forall d. Data d => d -> u) -> DisputeStatus -> u # gmapM :: Monad m => (forall d. Data d => d -> m d) -> DisputeStatus -> m DisputeStatus # gmapMp :: MonadPlus m => (forall d. Data d => d -> m d) -> DisputeStatus -> m DisputeStatus # gmapMo :: MonadPlus m => (forall d. Data d => d -> m d) -> DisputeStatus -> m DisputeStatus #
Ord DisputeStatus #
Methods compare :: DisputeStatus -> DisputeStatus -> Ordering # (<) :: DisputeStatus -> DisputeStatus -> Bool # (<=) :: DisputeStatus -> DisputeStatus -> Bool # (>) :: DisputeStatus -> DisputeStatus -> Bool # (>=) :: DisputeStatus -> DisputeStatus -> Bool # max :: DisputeStatus -> DisputeStatus -> DisputeStatus # min :: DisputeStatus -> DisputeStatus -> DisputeStatus #
Read DisputeStatus #
Methods readsPrec :: Int -> ReadS DisputeStatus # readList :: ReadS [DisputeStatus] # readPrec :: ReadPrec DisputeStatus # readListPrec :: ReadPrec [DisputeStatus] #
Show DisputeStatus #
Methods showsPrec :: Int -> DisputeStatus -> ShowS # show :: DisputeStatus -> String # showList :: [DisputeStatus] -> ShowS #
FromJSON DisputeStatus #	JSON Instance for `DisputeStatus`
Methods parseJSON :: Value -> Parser DisputeStatus # parseJSONList :: Value -> Parser [DisputeStatus] #

newtype Evidence #

Evidence associated with a Dispute

Constructors

Evidence Text

Instances

Eq Evidence #
Methods (==) :: Evidence -> Evidence -> Bool # (/=) :: Evidence -> Evidence -> Bool #
Data Evidence #
Methods gfoldl :: (forall d b. Data d => c (d -> b) -> d -> c b) -> (forall g. g -> c g) -> Evidence -> c Evidence # gunfold :: (forall b r. Data b => c (b -> r) -> c r) -> (forall r. r -> c r) -> Constr -> c Evidence # toConstr :: Evidence -> Constr # dataTypeOf :: Evidence -> DataType # dataCast1 :: Typeable (* -> ) t => (forall d. Data d => c (t d)) -> Maybe (c Evidence) # dataCast2 :: Typeable ( -> * -> *) t => (forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c Evidence) # gmapT :: (forall b. Data b => b -> b) -> Evidence -> Evidence # gmapQl :: (r -> r' -> r) -> r -> (forall d. Data d => d -> r') -> Evidence -> r # gmapQr :: (r' -> r -> r) -> r -> (forall d. Data d => d -> r') -> Evidence -> r # gmapQ :: (forall d. Data d => d -> u) -> Evidence -> [u] # gmapQi :: Int -> (forall d. Data d => d -> u) -> Evidence -> u # gmapM :: Monad m => (forall d. Data d => d -> m d) -> Evidence -> m Evidence # gmapMp :: MonadPlus m => (forall d. Data d => d -> m d) -> Evidence -> m Evidence # gmapMo :: MonadPlus m => (forall d. Data d => d -> m d) -> Evidence -> m Evidence #
Ord Evidence #
Methods compare :: Evidence -> Evidence -> Ordering # (<) :: Evidence -> Evidence -> Bool # (<=) :: Evidence -> Evidence -> Bool # (>) :: Evidence -> Evidence -> Bool # (>=) :: Evidence -> Evidence -> Bool # max :: Evidence -> Evidence -> Evidence # min :: Evidence -> Evidence -> Evidence #
Read Evidence #
Methods readsPrec :: Int -> ReadS Evidence # readList :: ReadS [Evidence] # readPrec :: ReadPrec Evidence # readListPrec :: ReadPrec [Evidence] #
Show Evidence #
Methods showsPrec :: Int -> Evidence -> ShowS # show :: Evidence -> String # showList :: [Evidence] -> ShowS #
ToStripeParam Evidence #
Methods toStripeParam :: Evidence -> [(ByteString, ByteString)] -> [(ByteString, ByteString)] #
StripeHasParam UpdateDispute Evidence #

newtype MetaData #

Type of MetaData for use on Stripe objects

Constructors

MetaData [(Text, Text)]

Instances

Eq MetaData #
Methods (==) :: MetaData -> MetaData -> Bool # (/=) :: MetaData -> MetaData -> Bool #
Data MetaData #
Methods gfoldl :: (forall d b. Data d => c (d -> b) -> d -> c b) -> (forall g. g -> c g) -> MetaData -> c MetaData # gunfold :: (forall b r. Data b => c (b -> r) -> c r) -> (forall r. r -> c r) -> Constr -> c MetaData # toConstr :: MetaData -> Constr # dataTypeOf :: MetaData -> DataType # dataCast1 :: Typeable (* -> ) t => (forall d. Data d => c (t d)) -> Maybe (c MetaData) # dataCast2 :: Typeable ( -> * -> *) t => (forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c MetaData) # gmapT :: (forall b. Data b => b -> b) -> MetaData -> MetaData # gmapQl :: (r -> r' -> r) -> r -> (forall d. Data d => d -> r') -> MetaData -> r # gmapQr :: (r' -> r -> r) -> r -> (forall d. Data d => d -> r') -> MetaData -> r # gmapQ :: (forall d. Data d => d -> u) -> MetaData -> [u] # gmapQi :: Int -> (forall d. Data d => d -> u) -> MetaData -> u # gmapM :: Monad m => (forall d. Data d => d -> m d) -> MetaData -> m MetaData # gmapMp :: MonadPlus m => (forall d. Data d => d -> m d) -> MetaData -> m MetaData # gmapMo :: MonadPlus m => (forall d. Data d => d -> m d) -> MetaData -> m MetaData #
Ord MetaData #
Methods compare :: MetaData -> MetaData -> Ordering # (<) :: MetaData -> MetaData -> Bool # (<=) :: MetaData -> MetaData -> Bool # (>) :: MetaData -> MetaData -> Bool # (>=) :: MetaData -> MetaData -> Bool # max :: MetaData -> MetaData -> MetaData # min :: MetaData -> MetaData -> MetaData #
Read MetaData #
Methods readsPrec :: Int -> ReadS MetaData # readList :: ReadS [MetaData] # readPrec :: ReadPrec MetaData # readListPrec :: ReadPrec [MetaData] #
Show MetaData #
Methods showsPrec :: Int -> MetaData -> ShowS # show :: MetaData -> String # showList :: [MetaData] -> ShowS #
FromJSON MetaData #
Methods parseJSON :: Value -> Parser MetaData # parseJSONList :: Value -> Parser [MetaData] #
ToStripeParam MetaData #
Methods toStripeParam :: MetaData -> [(ByteString, ByteString)] -> [(ByteString, ByteString)] #
StripeHasParam UpdateTransfer MetaData #

StripeHasParam CreateTransfer MetaData #

StripeHasParam UpdateSubscription MetaData #

StripeHasParam CreateSubscription MetaData #

StripeHasParam UpdateRefund MetaData #

StripeHasParam CreateRefund MetaData #

StripeHasParam UpdateRecipient MetaData #

StripeHasParam CreateRecipient MetaData #

StripeHasParam UpdatePlan MetaData #

StripeHasParam CreatePlan MetaData #

StripeHasParam UpdateInvoiceItem MetaData #

StripeHasParam CreateInvoiceItem MetaData #

StripeHasParam UpdateInvoice MetaData #

StripeHasParam CreateInvoice MetaData #

StripeHasParam UpdateDispute MetaData #

StripeHasParam UpdateCustomer MetaData #

StripeHasParam CreateCustomer MetaData #

StripeHasParam UpdateCoupon MetaData #

StripeHasParam CreateCoupon MetaData #

StripeHasParam UpdateCharge MetaData #

StripeHasParam CreateCharge MetaData #

StripeHasParam UpdateApplicationFeeRefund MetaData #

StripeHasParam CreateApplicationFeeRefund MetaData #