stripe-http-streams 2.0.0 → 2.0.1
raw patch · 2 files changed
+18/−49 lines, 2 filesdep −freedep −hspecdep −stripe-http-streamsdep ~HsOpenSSLPVP ok
version bump matches the API change (PVP)
Dependencies removed: free, hspec, stripe-http-streams, stripe-tests
Dependency ranges changed: HsOpenSSL
API changes (from Hackage documentation)
Files
- stripe-http-streams.cabal +18/−17
- tests/Main.hs +0/−32
stripe-http-streams.cabal view
@@ -1,10 +1,11 @@ name: stripe-http-streams-version: 2.0.0+version: 2.0.1 license: MIT license-file: LICENSE-author: David Johnson+author: David Johnson, Jeremy Shaw+synopsis: Stripe API for Haskell - http-streams backend maintainer: djohnson.m@gmail.com-copyright: Copyright (c) 2014 David M. Johnson+copyright: Copyright (c) 2016 David M. Johnson, Jeremy Shaw category: Web build-type: Simple cabal-version: >=1.10@@ -30,20 +31,20 @@ , text >= 1.1 && < 1.3 ghc-options: -Wall -Test-Suite tests- type: exitcode-stdio-1.0- main-is: Main.hs- hs-source-dirs: tests- build-depends: HsOpenSSL- , base >= 4.7 && < 5- , free >= 4.10 && < 4.13- , hspec >= 2.1.0 && < 2.3- , http-streams >= 0.7 && < 0.9- , stripe-core >= 2.0 && < 2.1- , stripe-http-streams >= 2.0 && < 2.1- , stripe-tests >= 2.0 && < 2.1- default-language: Haskell2010- ghc-options: -Wall -threaded -rtsopts+-- Test-Suite tests+-- type: exitcode-stdio-1.0+-- main-is: Main.hs+-- hs-source-dirs: tests+-- build-depends: HsOpenSSL+-- , base >= 4.7 && < 5+-- , free >= 4.10 && < 4.13+-- , hspec >= 2.1.0 && < 2.3+-- , http-streams >= 0.7 && < 0.9+-- , stripe-core >= 2.0 && < 2.1+-- , stripe-http-streams >= 2.0 && < 2.1+-- , stripe-tests >= 2.0 && < 2.1+-- default-language: Haskell2010+-- ghc-options: -Wall -threaded -rtsopts source-repository head type: git
− tests/Main.hs
@@ -1,32 +0,0 @@-module Main where--import Control.Monad.Trans.Free (FreeF(..), FreeT(..))-import Network.Http.Client (Connection)-import Web.Stripe.Client (StripeConfig(..), StripeError(..))-import Web.Stripe.Client.HttpStreams (withConnection, callAPI)-import Web.Stripe.Test.AllTests (allTests)-import Web.Stripe.Test.Prelude (Stripe, StripeRequestF(..))--main :: IO ()-main = allTests runStripe--runStripe :: StripeConfig- -> Stripe a- -> IO (Either StripeError a)-runStripe config stripe =- withConnection $ \conn ->- runStripe' conn config stripe--runStripe' :: Connection- -> StripeConfig- -> Stripe a- -> IO (Either StripeError a)-runStripe' conn config (FreeT m) =- do f <- m- case f of- (Pure a) -> return (Right a)- (Free (StripeRequestF req decode')) ->- do r <- callAPI conn decode' config req- case r of- (Left e) -> return (Left e)- (Right next) -> runStripe' conn config next