Stripe.cancelSubscription

Author: functora

pub/stripe-hs/src/Stripe/Client.hs

@@ -47,6 +47,7 @@ module Stripe.Client
     SubscriptionCreateItem (..),
     createSubscription,
     retrieveSubscription,
+    cancelSubscription,
     listSubscriptions,
 
     -- * Customer Portal
@@ -153,6 +154,7 @@ EP (listPrices, Maybe T.Text, (StripeList Price))
 
 EP (createSubscription, SubscriptionCreate, Subscription)
 EP (retrieveSubscription, SubscriptionId, Subscription)
+EP (cancelSubscription, SubscriptionId, Subscription)
 EP (listSubscriptions, Maybe CustomerId, (StripeList Subscription))
 
 EP (createCheckoutSession, CheckoutSessionCreate, CheckoutSession)
@@ -166,7 +168,11 @@ EP (listEvents, Maybe EventId, (StripeList Event))
 (createCustomer' :<|> retrieveCustomer' :<|> updateCustomer' :<|> listCustomers')
   :<|> (createProduct' :<|> retrieveProduct')
   :<|> (createPrice' :<|> retrievePrice' :<|> listPrices')
-  :<|> (createSubscription' :<|> retrieveSubscription' :<|> listSubscriptions')
+  :<|> ( createSubscription'
+          :<|> retrieveSubscription'
+          :<|> cancelSubscription'
+          :<|> listSubscriptions'
+        )
   :<|> (createCheckoutSession' :<|> retrieveCheckoutSession')
   :<|> (createCustomerPortal')
   :<|> (retrieveEvent' :<|> listEvents') =

pub/stripe-servant/src/Stripe/Api.hs

@@ -54,6 +54,9 @@ type SubscriptionApi =
     :<|> StripeAuth
       :> Capture ":subscription_id" SubscriptionId
       :> Get '[JSON] Subscription
+    :<|> StripeAuth
+      :> Capture ":subscription_id" SubscriptionId
+      :> Delete '[JSON] Subscription
     :<|> StripeAuth
       :> QueryParam "customer" CustomerId
       :> Get '[JSON] (StripeList Subscription)