stripe-tests 2.6.1 → 2.6.2

raw patch · 2 files changed

+2/−17 lines, 2 files

Files

• stripe-tests.cabal +1/−1
• tests/Web/Stripe/Test/Config.hs +1/−16

@@ -1,5 +1,5 @@ name:                stripe-tests-version:             2.6.1+version:             2.6.2 synopsis:            Tests for Stripe API bindings for Haskell license:             MIT license-file:        LICENSE

@@ -13,21 +13,6 @@ import           Web.Stripe.Test.Prelude (Stripe, stripeLift)  getConfig :: (forall a. StripeConfig -> Stripe a -> IO (Either StripeError a)) -> IO StripeConfig-getConfig stripe = maybe enterKey foundKey =<< lookupEnv "STRIPEKEY"+getConfig stripe = maybe exitSuccess foundKey =<< lookupEnv "STRIPEKEY"   where     foundKey = return . flip StripeConfig Nothing . StripeKey . B8.pack-    enterKey = do-      putStrLn "Please enter your Stripe *TEST* account"-      config <- StripeConfig-               <$> do StripeKey . B8.pack <$> getLine-               <*> pure Nothing-      result <- stripe config (stripeLift getBalance)-      case result of-       Left err -> print err >> exitFailure-       Right Balance{..} ->-         case balanceLiveMode of-         False -> return config-         True  -> do putStrLn "You entered your production credentials, woops :)"-                     exitFailure--