stripe invoices api

Author: functora

nix/shell.nix

@@ -19,6 +19,7 @@ in
         pkgs.gleam
         pkgs.erlang
         pkgs.elixir
+        pkgs.libwebp
         newpkgs.litecli
         misc.nix-bundle
         bak.bak-status

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

@@ -65,6 +65,14 @@ module Stripe.Client
     createCheckoutSession,
     retrieveCheckoutSession,
 
+    -- * Invoices
+    InvoiceId (..),
+    InvoiceStatus (..),
+    Invoice (..),
+    retrieveInvoice,
+    cancelInvoice,
+    listInvoices,
+
     -- * Events
     retrieveEvent,
     listEvents,
@@ -157,6 +165,10 @@ EP (retrieveSubscription, SubscriptionId, Subscription)
 EP (cancelSubscription, SubscriptionId, Subscription)
 EP (listSubscriptions, Maybe CustomerId, (StripeList Subscription))
 
+EP (retrieveInvoice, InvoiceId, Invoice)
+EP (cancelInvoice, InvoiceId, Invoice)
+EP (listInvoices, Maybe CustomerId, (StripeList Invoice))
+
 EP (createCheckoutSession, CheckoutSessionCreate, CheckoutSession)
 EP (retrieveCheckoutSession, CheckoutSessionId, CheckoutSession)
 
@@ -173,6 +185,10 @@ EP (listEvents, Maybe EventId, (StripeList Event))
           :<|> cancelSubscription'
           :<|> listSubscriptions'
         )
+  :<|> ( retrieveInvoice'
+          :<|> cancelInvoice'
+          :<|> listInvoices'
+        )
   :<|> (createCheckoutSession' :<|> retrieveCheckoutSession')
   :<|> (createCustomerPortal')
   :<|> (retrieveEvent' :<|> listEvents') =

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

@@ -15,6 +15,7 @@ type StripeApiInternal =
     :<|> "products" :> ProductApi
     :<|> "prices" :> PriceApi
     :<|> "subscriptions" :> SubscriptionApi
+    :<|> "invoices" :> InvoicesApi
     :<|> "checkout" :> "sessions" :> CheckoutApi
     :<|> "billing_portal" :> "sessions" :> CustomerPortalApi
     :<|> "events" :> EventApi
@@ -61,6 +62,17 @@ type SubscriptionApi =
       :> QueryParam "customer" CustomerId
       :> Get '[JSON] (StripeList Subscription)
 
+type InvoicesApi =
+  StripeAuth
+    :> Capture ":invoice_id" InvoiceId
+    :> Get '[JSON] Invoice
+    :<|> StripeAuth
+      :> Capture ":invoice_id" InvoiceId
+      :> Delete '[JSON] Invoice
+    :<|> StripeAuth
+      :> QueryParam "customer" CustomerId
+      :> Get '[JSON] (StripeList Invoice)
+
 type CheckoutApi =
   StripeAuth
     :> ReqBody '[FormUrlEncoded] CheckoutSessionCreate

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

@@ -45,6 +45,11 @@ module Stripe.Resources
     CheckoutSessionCreate (..),
     CheckoutSessionCreateLineItem (..),
 
+    -- * Invoices
+    InvoiceId (..),
+    InvoiceStatus (..),
+    Invoice (..),
+
     -- * Events
     EventId (..),
     Event (..),
@@ -314,6 +319,30 @@ data CustomerPortalCreate = CustomerPortalCreate
   }
   deriving (Eq, Ord, Show, Read, Data, Generic)
 
+newtype InvoiceId = InvoiceId
+  { unInvoiceId :: T.Text
+  }
+  deriving (Eq, Ord, Show, Read, Data, Generic, ToJSON, FromJSON, ToHttpApiData)
+
+data InvoiceStatus
+  = -- Tmp
+    InvDraft
+  | InvOpen
+  | -- Fin
+    InvPaid
+  | InvUncollectible
+  | InvVoid
+  deriving stock (Eq, Ord, Show, Read, Data, Generic, Enum, Bounded)
+
+data Invoice = Invoice
+  { invId :: InvoiceId,
+    invCustomer :: CustomerId,
+    invAmountPaid :: Int,
+    invCurrency :: T.Text,
+    invStatus :: InvoiceStatus
+  }
+  deriving (Eq, Ord, Show, Read, Data, Generic)
+
 $(deriveJSON (jsonOpts 2) ''StripeList)
 $(deriveJSON (jsonOpts 1) ''Customer)
 $(deriveJSON (jsonOpts 2) ''EventData)
@@ -327,6 +356,8 @@ $(deriveJSON (jsonOpts 2) ''SubscriptionItem)
 $(deriveJSON (jsonOpts 2) ''SubscriptionStatus)
 $(deriveJSON (jsonOpts 1) ''Subscription)
 $(deriveJSON (jsonOpts 2) ''CustomerPortal)
+$(deriveJSON (jsonOpts 3) ''InvoiceStatus)
+$(deriveJSON (jsonOpts 3) ''Invoice)
 
 instance ToForm CustomerCreate where
   toForm = genericToForm (formOptions 2)