From 663324a80ee36fe51d960103e6d4f5817aca4470 Mon Sep 17 00:00:00 2001
From: Marc Scholten <marc@digitallyinduced.com>
Date: Thu, 13 Jan 2022 22:24:17 +0100
Subject: [PATCH] Added docs on how to deal with cancellations in the stripe
 api

---
 Guide/stripe.markdown | 41 +++++++++++++++++++++++++++++++++++++++++
 1 file changed, 41 insertions(+)

diff --git a/Guide/stripe.markdown b/Guide/stripe.markdown
index 90632f9a0..281d04d44 100644
--- a/Guide/stripe.markdown
+++ b/Guide/stripe.markdown
@@ -332,6 +332,47 @@ To test it out [install the Stripe CLI](https://stripe.com/docs/stripe-cli). Run
 
 On the first start this command will print out a webhook secret key (starting with `whsec_`). Copy the key and open `start`. Inside the `start` script set the `export STRIPE_WEBHOOK_SECRET_KEY=""` line to this key. After this restart your app.
 
+### Handling Unsubscribes
+
+To automatically deal with customers that unsubscribe, add the following handler to `Web/Controller/StripeWebhook.hs`:
+
+```haskell
+on CustomerSubscriptionUpdated { subscriptionId, cancelAtPeriodEnd, currentPeriodEnd } = do
+    maybeSubscription <- query @Subscription
+            |> filterWhere (#stripeSubscriptionId, subscriptionId)
+            |> fetchOneOrNothing
+    case maybeSubscription of
+        Just subscription -> do
+            subscription 
+                |> set #endsAt (if cancelAtPeriodEnd
+                        then currentPeriodEnd
+                        else Nothing)
+                |> updateRecord
+            pure ()
+        Nothing -> pure ()
+
+on CustomerSubscriptionDeleted { subscriptionId } = do
+    maybeSubscription <- query @Subscription
+            |> filterWhere (#stripeSubscriptionId, subscriptionId)
+            |> fetchOneOrNothing
+    case maybeSubscription of
+        Just subscription -> do
+            now <- getCurrentTime
+            subscription 
+                |> set #endsAt now
+                |> set #isActive False
+                |> updateRecord
+
+            user <- fetch (get #userId subscription)
+            user
+                |> set #planId Nothing
+                |> set #subscriptionId Nothing
+                |> updateRecord
+        Nothing -> pure ()
+````
+
+This will set the `endsAt` date on the subscription, will mark the subscription as not active anymore and then sets the `planId` of the user to `null`.
+
 ## Billing Portal
 
 To integrate the Stripe Billing Portal, add an action like this to your app: