stripe 0.4.0.0 → 0.5.0.0
raw patch · 3 files changed
+5/−5 lines, 3 filesdep ~http-conduit
Dependency ranges changed: http-conduit
Files
- src/Web/Stripe/Card.hs +1/−1
- src/Web/Stripe/Client.hs +2/−2
- stripe.cabal +2/−2
src/Web/Stripe/Card.hs view
@@ -17,7 +17,7 @@ -- | Represents a credit card in the Stripe system. data Card = Card { cardType :: T.Text- , cardCountry :: T.Text+ , cardCountry :: Maybe T.Text , cardLastFour :: T.Text , cardExpMonth :: Int , cardExpYear :: Int
src/Web/Stripe/Client.hs view
@@ -246,7 +246,7 @@ query_ :: MonadIO m => StripeRequest -> StripeT m () query_ req = query' req >> return () -setUserAgent :: C8.ByteString -> Request m -> Request m+setUserAgent :: C8.ByteString -> Request -> Request setUserAgent ua req = req { requestHeaders = ("User-Agent", ua) : filteredHeaders } where filteredHeaders = filter ((/= "User-Agent") . fst) $ requestHeaders req@@ -255,7 +255,7 @@ -- make an authenticated query to the Stripe server. -- _TODO there is lots of sloppy Text <-> String stuff here.. should fix -prepRq :: Monad m => StripeConfig -> StripeRequest -> Maybe (Request m)+prepRq :: StripeConfig -> StripeRequest -> Maybe Request prepRq StripeConfig{..} StripeRequest{..} = flip fmap mReq $ \req -> applyBasicAuth k p $ (addBodyUa req) { queryString = renderQuery False qs
stripe.cabal view
@@ -1,5 +1,5 @@ Name: stripe-Version: 0.4.0.0+Version: 0.5.0.0 Synopsis: A Haskell implementation of the Stripe API. Description: This is an implementation of the Stripe API as it is documented at https:\/\/stripe.com\/docs\/api@@ -37,7 +37,7 @@ , aeson >= 0.6.1 && < 0.7 , unordered-containers >= 0.1.4.6 && < 0.3 , time >= 1.0.0 && < 1.5- , http-conduit >= 1.4.1.2 && < 2.0+ , http-conduit >= 2.0.0 && < 2.0.1 , http-types >= 0.6.11 && < 0.9 , bytestring >= 0.9 && < 0.11 , mtl >= 2.1 && < 2.2