website/sandbox/learnpianochords/src/server/API.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

{-# LANGUAGE DataKinds #-}
{-# LANGUAGE TypeOperators #-}
--------------------------------------------------------------------------------
module API where
--------------------------------------------------------------------------------
import Servant.API

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