stripe-http-client 2.4.1 → 2.5.0

raw patch · 2 files changed

+8/−5 lines, 2 files

Files

• src/Web/Stripe/Client/HttpClient.hs +7/−4
• stripe-http-client.cabal +1/−1

@@ -21,6 +21,7 @@  import qualified Control.Arrow import qualified Data.ByteString.Lazy     as BSL+import           Data.Maybe import qualified Data.Text.Encoding       as TE import qualified Network.HTTP.Types       as Http @@ -38,9 +39,11 @@  import Web.Stripe.Client (APIVersion (..), StripeConfig (..),                           StripeError (..), StripeKey (..),+                          defaultEndpoint, Endpoint (..),                           StripeRequest, StripeReturn,                           attemptDecode, handleStream,-                          parseFail, toBytestring, unknownCode)+                          parseFail, toBytestring,+                          unknownCode, Protocol (..))   -- | Create a request to 'Stripe's API.@@ -118,9 +121,9 @@         let req = Http.applyBasicAuth (getStripeKey (secretKey config)) mempty $                   defaultRequest {                     Http.method = m2m (S.method stripeRequest)-                  , Http.secure = True-                  , Http.host = "api.stripe.com"-                  , Http.port = 443+                  , Http.secure = endpointProtocol (fromMaybe defaultEndpoint (stripeEndpoint config)) == HTTPS+                  , Http.host = endpointUrl $ fromMaybe defaultEndpoint (stripeEndpoint config)+                  , Http.port = endpointPort $ fromMaybe defaultEndpoint (stripeEndpoint config)                   , Http.path = "/v1/" <> TE.encodeUtf8 (S.endpoint stripeRequest)                   , Http.requestHeaders = [                         ("Stripe-Version", toBytestring stripeVersion)

@@ -1,5 +1,5 @@ name:                stripe-http-client-version:             2.4.1+version:             2.5.0 license:             MIT license-file:        LICENSE author:              Christopher Reichert