WIP: More SCA upgrades

stripe-core/src/Web/Stripe/Client.hs

@@ -93,17 +93,17 @@ handleStream
 handleStream decodeValue statusCode r =
   case statusCode of
     200 -> case r of
-      Error message -> parseFail message
+      Error message -> parseFail message Nothing
       (Success value) ->
         case decodeValue value of
-          (Error message) -> parseFail message
+          (Error message) -> parseFail message (Just value)
           (Success a)     -> (Right a)
     code | code >= 400 ->
       case r of
-      Error message -> parseFail message
+      Error message -> parseFail message Nothing
       (Success value) ->
         case fromJSON value of
-          (Error message) -> parseFail message
+          (Error message) -> parseFail message (Just value)
           (Success stripeError) ->
             Left $ setErrorHTTP code stripeError
     _ -> unknownCode
@@ -119,16 +119,17 @@ attemptDecode code = code == 200 || code >= 400
 -- | lift a parser error to be a StripeError
 parseFail
     :: String  -- ^ error message
+    -> Maybe Value
     -> Either StripeError a
-parseFail errorMessage  =
-      Left $ StripeError ParseFailure (T.pack errorMessage) Nothing Nothing Nothing
+parseFail errorMessage mval =
+      Left $ StripeError ParseFailure (T.pack errorMessage) Nothing Nothing Nothing mval
 
 ------------------------------------------------------------------------------
 -- | `StripeError` to return when we don't know what to do with the
 -- received HTTP status code.
 unknownCode :: Either StripeError a
 unknownCode =
-      Left $ StripeError UnknownErrorType mempty Nothing Nothing Nothing
+      Left $ StripeError UnknownErrorType mempty Nothing Nothing Nothing Nothing
 
 ------------------------------------------------------------------------------
 -- | set the `errorHTTP` field of the `StripeError` based on the HTTP

stripe-core/src/Web/Stripe/Error.hs

@@ -69,6 +69,7 @@ data StripeError = StripeError {
     , errorCode  :: Maybe StripeErrorCode
     , errorParam :: Maybe Text
     , errorHTTP  :: Maybe StripeErrorHTTPCode
+    , errorValue :: Maybe Value
     } deriving (Show, Typeable)
 
 instance Exception StripeError
@@ -109,5 +110,6 @@ instance FromJSON StripeError where
         msg   <- e .: "message"
         code  <- fmap toErrorCode <$> e .:? "code"
         param <- e .:? "param"
-        return $ StripeError typ msg code param Nothing
+        value <- e .:? "value"
+        return $ StripeError typ msg code param Nothing value
     parseJSON _ = mzero

stripe-core/src/Web/Stripe/Event.hs

@@ -84,4 +84,4 @@ instance StripeHasParam GetEvents Created
 instance StripeHasParam GetEvents (EndingBefore EventId)
 instance StripeHasParam GetEvents Limit
 instance StripeHasParam GetEvents (StartingAfter EventId)
--- instance StripeHasParam GetEvents EventType -- FIXME
+instance StripeHasParam GetEvents EventType

stripe-core/src/Web/Stripe/PaymentIntent.hs

@@ -0,0 +1,189 @@
+{-# LANGUAGE FlexibleInstances     #-}
+{-# LANGUAGE MultiParamTypeClasses #-}
+{-# LANGUAGE OverloadedStrings     #-}
+{-# LANGUAGE TypeFamilies          #-}
+-------------------------------------------
+-- |
+-- Module      : Web.Stripe.PaymentIntent
+-- Copyright   : (c) David Johnson, 2014
+-- Maintainer  : djohnson.m@gmail.com
+-- Stability   : experimental
+-- Portability : POSIX
+module Web.Stripe.PaymentIntent
+    ( -- * API
+      CreatePaymentIntent
+    , createPaymentIntent
+    , GetPaymentIntent
+    , getPaymentIntent
+    , UpdatePaymentIntent
+    , updatePaymentIntent
+    , ConfirmPaymentIntent
+    , confirmPaymentIntent
+    , CapturePaymentIntent
+    , capturePaymentIntent
+    , CancelPaymentIntent
+    , cancelPaymentIntent
+    , GetPaymentIntents
+    , getPaymentIntents
+      -- * Types
+    , Amount       (..)
+    , CardId       (..)
+    , Charge       (..)
+    , ChargeId     (..)
+    , Currency     (..)
+    , CustomerId   (..)
+    , Description  (..)
+    , EndingBefore (..)
+    , ExpandParams (..)
+    , Confirm      (..)
+    , OffSession   (..)
+    , PaymentIntent       (..)
+    , PaymentIntentId     (..)
+    , PaymentMethodId     (..)
+    , PaymentMethodTypes  (..)
+    , PaymentMethodType   (..)
+    , PaymentIntentUsage    (..)
+    , Usage    (..)
+    , StripeList   (..)
+    , Token (..)
+    ) where
+
+import           Web.Stripe.StripeRequest   (Method (GET, POST),
+                                             StripeHasParam, StripeReturn,
+                                             StripeRequest (..), toStripeParam, mkStripeRequest)
+import           Web.Stripe.Util            ((</>))
+import           Web.Stripe.Types           (Amount(..), Charge (..), CardId (..), ChargeId (..),
+                                             Confirm(..), Currency(..), CustomerId(..),
+                                             Description(..), EndingBefore(..), Limit(..),
+                                             MetaData(..), PaymentIntent (..), PaymentMethodId (..), PaymentMethodTypes(..), PaymentMethodType(..),
+                                             PaymentIntentId (..), OffSession(..), ReceiptEmail(..),
+                                             PaymentIntentUsage(..), Usage (..), StartingAfter(..), ExpandParams(..),
+                                             StripeList (..), Token (..))
+
+------------------------------------------------------------------------------
+-- | create a `PaymentIntent`
+createPaymentIntent
+    :: Amount
+    -> Currency
+    -> StripeRequest CreatePaymentIntent
+createPaymentIntent
+    amount
+    currency    = request
+  where request = mkStripeRequest POST url params
+        url     = "payment_intents"
+        params  = toStripeParam amount $
+                  toStripeParam currency $
+                  []
+
+data CreatePaymentIntent
+type instance StripeReturn CreatePaymentIntent = PaymentIntent
+instance StripeHasParam CreatePaymentIntent CustomerId
+instance StripeHasParam CreatePaymentIntent Description
+instance StripeHasParam CreatePaymentIntent ReceiptEmail
+instance StripeHasParam CreatePaymentIntent PaymentMethodTypes
+instance StripeHasParam CreatePaymentIntent PaymentIntentUsage
+instance StripeHasParam CreatePaymentIntent PaymentMethodId
+instance StripeHasParam CreatePaymentIntent Confirm
+instance StripeHasParam CreatePaymentIntent MetaData
+instance StripeHasParam CreatePaymentIntent OffSession
+
+------------------------------------------------------------------------------
+-- | Retrieve a `PaymentIntent` by `ChargeId` and `PaymentIntentId`
+getPaymentIntent
+    :: PaymentIntentId -- ^ `PaymentIntentId` associated with the `PaymentIntent` to be retrieved
+    -> StripeRequest GetPaymentIntent
+getPaymentIntent
+   (PaymentIntentId paymentIntentid) = request
+   where request = mkStripeRequest GET url params
+         url     = "payment_intents" </> paymentIntentid
+         params  = []
+
+data GetPaymentIntent
+type instance StripeReturn GetPaymentIntent = PaymentIntent
+instance StripeHasParam GetPaymentIntent ExpandParams
+
+------------------------------------------------------------------------------
+-- | Update a `PaymentIntent` by `ChargeId` and `PaymentIntentId`
+updatePaymentIntent
+    :: PaymentIntentId -- ^ `PaymentIntentId` associated with the `PaymentIntent` to be retrieved
+    -> StripeRequest UpdatePaymentIntent
+updatePaymentIntent
+   (PaymentIntentId paymentIntentid)
+                = request
+  where request = mkStripeRequest POST url params
+        url     = "payment_intents" </> paymentIntentid
+        params  = []
+
+data UpdatePaymentIntent
+type instance StripeReturn UpdatePaymentIntent = PaymentIntent
+instance StripeHasParam UpdatePaymentIntent MetaData
+instance StripeHasParam UpdatePaymentIntent PaymentMethodId
+instance StripeHasParam UpdatePaymentIntent Amount
+instance StripeHasParam UpdatePaymentIntent Currency
+instance StripeHasParam UpdatePaymentIntent CustomerId
+instance StripeHasParam UpdatePaymentIntent Description
+instance StripeHasParam UpdatePaymentIntent PaymentMethodTypes
+instance StripeHasParam UpdatePaymentIntent ReceiptEmail
+instance StripeHasParam UpdatePaymentIntent PaymentIntentUsage
+-- TODO shipping, statement descriptor, statement descriptor suffix
+
+confirmPaymentIntent
+    :: PaymentIntentId
+    -> StripeRequest ConfirmPaymentIntent
+confirmPaymentIntent
+    (PaymentIntentId paymentIntentid)
+              = request
+  where request = mkStripeRequest POST url params
+        url     = "payment_intents" </> paymentIntentid </> "confirm"
+        params  = []
+
+data ConfirmPaymentIntent
+type instance StripeReturn ConfirmPaymentIntent = PaymentIntent
+instance StripeHasParam ConfirmPaymentIntent MetaData
+instance StripeHasParam ConfirmPaymentIntent OffSession
+instance StripeHasParam ConfirmPaymentIntent PaymentMethodId
+
+capturePaymentIntent
+    :: PaymentIntentId
+    -> StripeRequest CapturePaymentIntent
+capturePaymentIntent
+    (PaymentIntentId paymentIntentid)
+              = request
+  where request = mkStripeRequest POST url params
+        url     = "payment_intents" </> paymentIntentid </> "capture"
+        params  = []
+
+data CapturePaymentIntent
+type instance StripeReturn CapturePaymentIntent = PaymentIntent
+instance StripeHasParam CapturePaymentIntent MetaData
+
+cancelPaymentIntent
+    :: PaymentIntentId
+    -> StripeRequest CancelPaymentIntent
+cancelPaymentIntent
+    (PaymentIntentId paymentIntentid)
+              = request
+  where request = mkStripeRequest POST url params
+        url     = "payment_intents" </> paymentIntentid </> "cancel"
+        params  = []
+
+data CancelPaymentIntent
+type instance StripeReturn CancelPaymentIntent = PaymentIntent
+instance StripeHasParam CancelPaymentIntent MetaData
+
+------------------------------------------------------------------------------
+-- | Retrieve a list of PaymentIntents
+getPaymentIntents
+    :: StripeRequest GetPaymentIntents
+getPaymentIntents
+        = request
+  where request = mkStripeRequest GET url params
+        url     = "payment_intents"
+        params  = []
+
+data GetPaymentIntents
+type instance StripeReturn GetPaymentIntents = StripeList PaymentIntent
+instance StripeHasParam GetPaymentIntents ExpandParams
+instance StripeHasParam GetPaymentIntents (EndingBefore PaymentIntentId)
+instance StripeHasParam GetPaymentIntents Limit
+instance StripeHasParam GetPaymentIntents (StartingAfter PaymentIntentId)