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 Source #

Instances

StripeHasParam UpdateDispute MetaData Source #

StripeHasParam UpdateDispute Evidence Source #

type StripeReturn UpdateDispute Source #
type StripeReturn UpdateDispute = Dispute

updateDispute Source #

Arguments

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

Dispute to be updated

data CloseDispute Source #

Instances

type StripeReturn CloseDispute Source #
type StripeReturn CloseDispute = Dispute

closeDispute Source #

Arguments

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

Dispute to be closed

Types

newtype ChargeId Source #

ChargeId associated with a Charge

Constructors

ChargeId Text

Instances

Eq ChargeId Source #
Methods (==) :: ChargeId -> ChargeId -> Bool # (/=) :: ChargeId -> ChargeId -> Bool #
Data ChargeId Source #
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 Source #
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 Source #
Methods readsPrec :: Int -> ReadS ChargeId # readList :: ReadS [ChargeId] # readPrec :: ReadPrec ChargeId # readListPrec :: ReadPrec [ChargeId] #
Show ChargeId Source #
Methods showsPrec :: Int -> ChargeId -> ShowS # show :: ChargeId -> String # showList :: [ChargeId] -> ShowS #
FromJSON ChargeId Source #	JSON Instance for `ChargeId`
Methods parseJSON :: Value -> Parser ChargeId #
ToStripeParam ChargeId Source #
Methods toStripeParam :: ChargeId -> [(ByteString, ByteString)] -> [(ByteString, ByteString)] Source #
StripeHasParam GetApplicationFees ChargeId Source #

StripeHasParam GetCharges (EndingBefore ChargeId) Source #

StripeHasParam GetCharges (StartingAfter ChargeId) Source #

type ExpandsTo ChargeId Source #
type ExpandsTo ChargeId = Charge

data Dispute Source #

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 Source #
Methods (==) :: Dispute -> Dispute -> Bool # (/=) :: Dispute -> Dispute -> Bool #
Data Dispute Source #
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 Source #
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 Source #
Methods readsPrec :: Int -> ReadS Dispute # readList :: ReadS [Dispute] # readPrec :: ReadPrec Dispute # readListPrec :: ReadPrec [Dispute] #
Show Dispute Source #
Methods showsPrec :: Int -> Dispute -> ShowS # show :: Dispute -> String # showList :: [Dispute] -> ShowS #
FromJSON Dispute Source #	JSON Instance for `Dispute`
Methods parseJSON :: Value -> Parser Dispute #

data DisputeReason Source #

Reason of a Dispute

Constructors

Duplicate
Fraudulent
SubscriptionCanceled
ProductUnacceptable
ProductNotReceived
Unrecognized
CreditNotProcessed
General

Instances

Eq DisputeReason Source #
Methods (==) :: DisputeReason -> DisputeReason -> Bool # (/=) :: DisputeReason -> DisputeReason -> Bool #
Data DisputeReason Source #
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 Source #
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 Source #
Methods readsPrec :: Int -> ReadS DisputeReason # readList :: ReadS [DisputeReason] # readPrec :: ReadPrec DisputeReason # readListPrec :: ReadPrec [DisputeReason] #
Show DisputeReason Source #
Methods showsPrec :: Int -> DisputeReason -> ShowS # show :: DisputeReason -> String # showList :: [DisputeReason] -> ShowS #
FromJSON DisputeReason Source #	JSON Instance for `DisputeReason`
Methods parseJSON :: Value -> Parser DisputeReason #

data DisputeStatus Source #

Status of a Dispute

Constructors

WarningNeedsResponse
WarningUnderReview
NeedsResponse
UnderReview
ChargeRefunded
Won
Lost

Instances

Eq DisputeStatus Source #
Methods (==) :: DisputeStatus -> DisputeStatus -> Bool # (/=) :: DisputeStatus -> DisputeStatus -> Bool #
Data DisputeStatus Source #
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 Source #
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 Source #
Methods readsPrec :: Int -> ReadS DisputeStatus # readList :: ReadS [DisputeStatus] # readPrec :: ReadPrec DisputeStatus # readListPrec :: ReadPrec [DisputeStatus] #
Show DisputeStatus Source #
Methods showsPrec :: Int -> DisputeStatus -> ShowS # show :: DisputeStatus -> String # showList :: [DisputeStatus] -> ShowS #
FromJSON DisputeStatus Source #	JSON Instance for `DisputeStatus`
Methods parseJSON :: Value -> Parser DisputeStatus #

newtype Evidence Source #

Evidence associated with a Dispute

Constructors

Evidence Text

Instances

Eq Evidence Source #
Methods (==) :: Evidence -> Evidence -> Bool # (/=) :: Evidence -> Evidence -> Bool #
Data Evidence Source #
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 Source #
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 Source #
Methods readsPrec :: Int -> ReadS Evidence # readList :: ReadS [Evidence] # readPrec :: ReadPrec Evidence # readListPrec :: ReadPrec [Evidence] #
Show Evidence Source #
Methods showsPrec :: Int -> Evidence -> ShowS # show :: Evidence -> String # showList :: [Evidence] -> ShowS #
ToStripeParam Evidence Source #
Methods toStripeParam :: Evidence -> [(ByteString, ByteString)] -> [(ByteString, ByteString)] Source #
StripeHasParam UpdateDispute Evidence Source #

newtype MetaData Source #

Type of MetaData for use on Stripe objects

Constructors

MetaData [(Text, Text)]

Instances

Eq MetaData Source #
Methods (==) :: MetaData -> MetaData -> Bool # (/=) :: MetaData -> MetaData -> Bool #
Data MetaData Source #
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 Source #
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 Source #
Methods readsPrec :: Int -> ReadS MetaData # readList :: ReadS [MetaData] # readPrec :: ReadPrec MetaData # readListPrec :: ReadPrec [MetaData] #
Show MetaData Source #
Methods showsPrec :: Int -> MetaData -> ShowS # show :: MetaData -> String # showList :: [MetaData] -> ShowS #
FromJSON MetaData Source #
Methods parseJSON :: Value -> Parser MetaData #
ToStripeParam MetaData Source #
Methods toStripeParam :: MetaData -> [(ByteString, ByteString)] -> [(ByteString, ByteString)] Source #
StripeHasParam UpdateApplicationFeeRefund MetaData Source #

StripeHasParam CreateApplicationFeeRefund MetaData Source #

StripeHasParam UpdateCharge MetaData Source #

StripeHasParam CreateCharge MetaData Source #

StripeHasParam UpdateCoupon MetaData Source #

StripeHasParam CreateCoupon MetaData Source #

StripeHasParam UpdateCustomer MetaData Source #

StripeHasParam CreateCustomer MetaData Source #

StripeHasParam UpdateDispute MetaData Source #

StripeHasParam UpdateInvoice MetaData Source #

StripeHasParam CreateInvoice MetaData Source #

StripeHasParam UpdateInvoiceItem MetaData Source #

StripeHasParam CreateInvoiceItem MetaData Source #

StripeHasParam UpdatePlan MetaData Source #

StripeHasParam CreatePlan MetaData Source #

StripeHasParam UpdateRecipient MetaData Source #

StripeHasParam CreateRecipient MetaData Source #

StripeHasParam UpdateRefund MetaData Source #

StripeHasParam CreateRefund MetaData Source #

StripeHasParam UpdateSubscription MetaData Source #

StripeHasParam CreateSubscription MetaData Source #

StripeHasParam UpdateTransfer MetaData Source #

StripeHasParam CreateTransfer MetaData Source #