Copyright | (c) David Johnson, 2014 |
---|---|
Maintainer | djohnson.m@gmail.com |
Stability | experimental |
Portability | POSIX |
Safe Haskell | None |
Language | Haskell2010 |
https://stripe.com/docs/api#fee_refunds
{-# LANGUAGE OverloadedStrings #-} import Web.Stripe import Web.Stripe.ApplicationFeeRefund main :: IO () main = do let config = StripeConfig (StripeKey "secret_key") result <- stripe config $ getApplicationFeeRefund (FeeId "fee_id") (RefundId "refund_id") case result of Right applicationFeeRefund -> print applicationFeeRefund Left stripeError -> print stripeError
- data CreateApplicationFeeRefund
- createApplicationFeeRefund :: FeeId -> StripeRequest CreateApplicationFeeRefund
- data GetApplicationFeeRefund
- getApplicationFeeRefund :: FeeId -> RefundId -> StripeRequest GetApplicationFeeRefund
- data UpdateApplicationFeeRefund
- updateApplicationFeeRefund :: FeeId -> RefundId -> StripeRequest UpdateApplicationFeeRefund
- data GetApplicationFeeRefunds
- getApplicationFeeRefunds :: FeeId -> StripeRequest GetApplicationFeeRefunds
- newtype FeeId = FeeId Text
- newtype RefundId = RefundId Text
- data ApplicationFee = ApplicationFee {
- applicationFeeId :: ApplicationFeeId
- applicationFeeObjecet :: Text
- applicationFeeCreated :: UTCTime
- applicationFeeLiveMode :: Bool
- applicationFeeAmount :: Int
- applicationFeeCurrency :: Currency
- applicationFeeRefunded :: Bool
- applicationFeeAmountRefunded :: Int
- applicationFeeRefunds :: StripeList Refund
- applicationFeeBalanceTransaction :: Expandable TransactionId
- applicationFeeAccountId :: Expandable AccountId
- applicationFeeApplicationId :: ApplicationId
- applicationFeeChargeId :: Expandable ChargeId
- applicationFeeMetaData :: MetaData
- data ApplicationFeeRefund = ApplicationFeeRefund {
- applicationFeeRefundId :: RefundId
- applicationFeeRefundAmount :: Int
- applicationFeeRefundCurrency :: Currency
- applicationFeeRefundCreated :: UTCTime
- applicationFeeRefundObject :: Text
- applicationFeeRefundBalanceTransaction :: Maybe (Expandable TransactionId)
- applicationFeeRefundFee :: FeeId
- applicationFeeRefundMetaData :: MetaData
- data StripeList a = StripeList {}
- newtype EndingBefore a = EndingBefore a
- newtype StartingAfter a = StartingAfter a
- newtype Limit = Limit Int
- newtype ExpandParams = ExpandParams {
- getExpandParams :: [Text]
- newtype MetaData = MetaData [(Text, Text)]
- newtype Amount = Amount {}
API
createApplicationFeeRefund Source
:: FeeId | The |
-> StripeRequest CreateApplicationFeeRefund |
Create a new ApplicationFeeRefund
getApplicationFeeRefund Source
:: FeeId | The |
-> RefundId | The |
-> StripeRequest GetApplicationFeeRefund |
Retrieve an existing ApplicationFeeRefund
updateApplicationFeeRefund Source
:: FeeId | The |
-> RefundId | The |
-> StripeRequest UpdateApplicationFeeRefund |
Update an ApplicationFeeRefund
for a given Application FeeId
and RefundId
data GetApplicationFeeRefunds Source
getApplicationFeeRefunds Source
:: FeeId | The |
-> StripeRequest GetApplicationFeeRefunds |
Retrieve a list of all ApplicationFeeRefund
s for a given Application FeeId
Types
FeeId
for objects with Fees
data ApplicationFee Source
ApplicationFee Object
data ApplicationFeeRefund Source
Application Fee Refunds
data StripeList a Source
Generic handling of Stripe JSON arrays
Eq a => Eq (StripeList a) Source | |
Data a => Data (StripeList a) Source | |
Ord a => Ord (StripeList a) Source | |
Read a => Read (StripeList a) Source | |
Show a => Show (StripeList a) Source | |
FromJSON a => FromJSON (StripeList a) Source | JSON Instance for |
newtype EndingBefore a Source
Pagination Option for StripeList
newtype StartingAfter a Source
Pagination Option for StripeList
Pagination Option for StripeList
newtype ExpandParams Source
Type of Expansion Parameters for use on Stripe
objects
Type of MetaData for use on Stripe
objects
Amount representing a monetary value. Stripe represents pennies as whole numbers i.e. 100 = $1