console: Get and render tax info for customer. #376

* Define additional fields and types.

* Render them.

* Factor Stripe API array wrapper out into separate type ArrayWrapper.

Author: epost

console/src/Statebox/Console.purs

@@ -133,6 +133,19 @@ customerHtml c =
         , tr [] [ th [] [ text "balance" ]
                 , td [] [ text $ c.currency <> " " <> show c.balance <> " cents" ]
                 ]
+        , tr [] [ th [] [ text "tax" ]
+                , td [] [ taxIdsHtml c.tax_ids ]
+                ]
+        ]
+
+taxIdsHtml :: ∀ m. MonadAff m => Stripe.ArrayWrapper Stripe.TaxIdData -> ComponentHTML Action ChildSlots m
+taxIdsHtml x =
+  table [] (taxIdDataHtml <$> x.data)
+
+taxIdDataHtml :: ∀ m. MonadAff m => Stripe.TaxIdData -> ComponentHTML Action ChildSlots m
+taxIdDataHtml x =
+  tr [] [ td [] [ text x.value ]
+        , td [] [ text x.type ]
         ]
 
 --------------------------------------------------------------------------------

console/src/Statebox/Console/DAO.purs

@@ -19,12 +19,7 @@ mkUrl suffix = "http://localhost" <> suffix
 
 --------------------------------------------------------------------------------
 
-type InvoicesResponse =
-  { object :: String
-  , "data" :: Array Stripe.Invoice
-  }
-
-listInvoices :: Aff (Affjax.Error \/ String \/ InvoicesResponse)
+listInvoices :: Aff (Affjax.Error \/ String \/ Stripe.ArrayWrapper Stripe.Invoice)
 listInvoices = listInvoices' # map (map (_.body >>> spy "invoices body dump" >>> decodeJson))
 
 listInvoices' :: Aff (Affjax.Error \/ Response Json)
@@ -48,14 +43,7 @@ fetchCustomer' =
 
 --------------------------------------------------------------------------------
 
-type PaymentMethodsResponse =
-  { object   :: Stripe.ObjectTag
-  , "data"   :: Array Stripe.PaymentMethod
-  , has_more :: Boolean
-  , url      :: Stripe.URLSuffix
-  }
-
-listPaymentMethods :: Aff (Affjax.Error \/ String \/ PaymentMethodsResponse)
+listPaymentMethods :: Aff (Affjax.Error \/ String \/ Stripe.ArrayWrapper Stripe.PaymentMethod)
 listPaymentMethods = listPaymentMethods' # map (map (_.body >>> spy "paymentMethods dump" >>> decodeJson))
 
 listPaymentMethods' :: Aff (Affjax.Error \/ Response Json)

console/src/Stripe.purs

@@ -2,12 +2,6 @@ module Stripe where
 
 import Data.Maybe (Maybe)
 
-
--- | Stripe populates this with things like `"customer"`, `"object"`, `"list"` and so on.
-type ObjectTag = String
-
---------------------------------------------------------------------------------
-
 -- | https://stripe.com/docs/api/customers/object
 type Customer =
   { object           :: ObjectTag
@@ -20,8 +14,10 @@ type Customer =
   , currency         :: Currency
   , invoice_prefix   :: String
   , invoice_settings :: InvoiceSettings
-  , subscriptions    :: SubscriptionsInfo
+  , subscriptions    :: { | ArrayWrapperRow Subscription ( total_count :: Int ) }
   , delinquent       :: Boolean
+  , tax_ids          :: ArrayWrapper TaxIdData
+  , tax_exempt       :: TaxExemptType
   }
 
 type CustomerId = String
@@ -94,16 +90,6 @@ type InvoiceId = String
 
 --------------------------------------------------------------------------------
 
-type SubscriptionsInfo =
-  { object      :: ObjectTag
-  , has_more    :: Boolean
-  , total_count :: Int
-  , url         :: URLSuffix -- ^ e.g. "/v1/customers/:customerId:/subscriptions"
-  , data        :: Array Subscription
-  }
-
---------------------------------------------------------------------------------
-
 type Subscription =
   { id                   :: SubscriptionId
   , customer             :: CustomerId
@@ -112,11 +98,7 @@ type Subscription =
   , current_period_start :: Timestamp
   , current_period_end   :: Timestamp
   , latest_invoice       :: Maybe InvoiceId
-  , items                :: { object    :: ObjectTag
-                            , data      :: Array SubscriptionItem
-                            , url       :: URLSuffix
-                            , has_more  :: Boolean
-                            }
+  , items                :: ArrayWrapper SubscriptionItem
   }
 
 type SubscriptionId = String
@@ -161,6 +143,23 @@ type ProductId = String
 
 --------------------------------------------------------------------------------
 
+type TaxIdData =
+  { type  :: TaxIdType
+  , value :: String
+  }
+
+-- | One of `"eu_vat"` | `"nz_gst"` | `"au_abn"` | `"in_gst"` | `"no_vat"` |
+-- |        `"za_vat"` | `"ch_vat"` | `"mx_rfc"` | `"sg_uen"` | `"ru_inn"` |
+-- |        `"ca_bn"` | `"hk_br"` | `"es_cif"` | `"tw_vat"` | `"th_vat"` |
+-- |        `"jp_cn"` | `"li_uid"` | `"my_itn"` | `"us_ein"` | `"kr_brn"` |
+-- |        `"ca_qst"` | `"my_sst"`.
+type TaxIdType = String
+
+-- | One of `"none"`, `"exempt"`, or `"reverse`".
+type TaxExemptType = String
+
+--------------------------------------------------------------------------------
+
 type Address =
   { postal_code :: Maybe PostalCode
   , city        :: Maybe String
@@ -203,3 +202,19 @@ type MonthNr = Int
 
 -- | Year, starting from zero, i.e. the year 2020 is represented as `2020`.
 type Year = Int
+
+--------------------------------------------------------------------------------
+
+-- | Stripe populates this with things like `"customer"`, `"object"`,
+-- | `"list"` and so on.
+type ObjectTag = String
+
+type ArrayWrapperRow a r =
+  ( object   :: ObjectTag
+  , data     :: Array a
+  , has_more :: Boolean
+  , url      :: URLSuffix
+  | r
+  )
+
+type ArrayWrapper a = { | ArrayWrapperRow a () }