about summary refs log tree commit diff
path: root/website/sandbox/learnpianochords/src/server/API.hs
diff options
context:
space:
mode:
authorWilliam Carroll <wpcarro@gmail.com>2020-08-13T17·09+0100
committerWilliam Carroll <wpcarro@gmail.com>2020-08-20T10·26+0100
commit81aa32fe71a0b8a822673b36a2ded9a427855286 (patch)
treedc505bcfa51ce2b332ba9f576711f6cc22692ece /website/sandbox/learnpianochords/src/server/API.hs
parentde723c142b31afe6061fca243917dee88cc6c625 (diff)
Support POST /create-payment-intent
Interact with Stripe's payment_intents API endpoint.

I'm not committing the index.html that contains client-side code that interacts
with the /create-payment-intent endpoint, but it contains sensitive information,
so I'm omitting it for now.

TL;DR:
- Define POST /create-payment-intent endpoint
- Include envStripeAPIKey in Context record
- Define a top-level Stripe module for making API calls
- Define types and instances that align with Stripes request and response types
- Depend on the Req library: a higher-level library than http-client
Diffstat (limited to 'website/sandbox/learnpianochords/src/server/API.hs')
-rw-r--r--website/sandbox/learnpianochords/src/server/API.hs3
1 files changed, 3 insertions, 0 deletions
diff --git a/website/sandbox/learnpianochords/src/server/API.hs b/website/sandbox/learnpianochords/src/server/API.hs
index aebfd92aab6c..fe3671e7aa3e 100644
--- a/website/sandbox/learnpianochords/src/server/API.hs
+++ b/website/sandbox/learnpianochords/src/server/API.hs
@@ -11,3 +11,6 @@ import qualified Types as T
 type API = "verify"
            :> ReqBody '[JSON] T.VerifyGoogleSignInRequest
            :> Post '[JSON] NoContent
+      :<|> "create-payment-intent"
+           :> ReqBody '[JSON] T.PaymentIntent
+           :> Post '[JSON] T.CreatePaymentIntentResponse