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