console: Factor out common fields form Stripe data structures. #376

Author: epost

console/src/Statebox/Console.purs

@@ -170,19 +170,22 @@ paymentMethodHtml pm =
         ]
 
 billingDetailsHtml :: ∀ m. MonadAff m => Stripe.BillingDetails -> ComponentHTML Action ChildSlots m
-billingDetailsHtml bd =
+billingDetailsHtml bd = nameAddressPhoneHtml bd
+
+nameAddressPhoneHtml :: ∀ r m. MonadAff m => { | Stripe.NameAddressPhoneRow () } -> ComponentHTML Action ChildSlots m
+nameAddressPhoneHtml x =
   table []
         [ tr [] [ th [] [ text "name" ]
-                , td [] [ text $ fold bd.name ]
+                , td [] [ text $ fold x.name ]
                 ]
         , tr [] [ th [] [ text "email" ]
-                , td [] [ text $ fold bd.email ]
+                , td [] [ text $ fold x.email ]
                 ]
         , tr [] [ th [] [ text "phone" ]
-                , td [] [ text $ fold bd.phone ]
+                , td [] [ text $ fold x.phone ]
                 ]
         , tr [] [ th [] [ text "address" ]
-                , td [] [ maybe (text "no address") addressHtml bd.address ]
+                , td [] [ maybe (text "no address") addressHtml x.address ]
                 ]
         ]
 

console/src/Stripe.purs

@@ -6,11 +6,7 @@ import Data.Maybe (Maybe)
 type Customer =
   { object           :: ObjectTag
   , id               :: CustomerId
-  , name             :: Maybe String
   , description      :: Maybe String
-  , email            :: Maybe Email
-  , phone            :: Maybe String
-  , address          :: Maybe Address
   , balance          :: Amount
   , currency         :: Currency
   , invoice_prefix   :: String
@@ -19,6 +15,7 @@ type Customer =
   , delinquent       :: Boolean
   , tax_ids          :: ArrayWrapper TaxIdData
   , tax_exempt       :: TaxExemptType
+  | NameAddressPhoneRow ()
   }
 
 type CustomerId = String
@@ -44,12 +41,7 @@ type PaymentMethodId = String
 -- | One of `"card"` | `"fpx"` | `"ideal"` | `"sepa_debit"`. See https://stripe.com/docs/api/payment_methods/object.
 type PaymentMethodType = String
 
-type BillingDetails =
-  { name     :: Maybe String
-  , phone    :: Maybe Phone
-  , email    :: Maybe Email
-  , address  :: Maybe Address
-  }
+type BillingDetails = { | NameAddressPhoneRow () }
 
 type BillingDetailsId = String
 
@@ -168,6 +160,17 @@ type TaxExemptType = String
 
 --------------------------------------------------------------------------------
 
+-- TODO include or exclude 'name' field?
+type NameAddressPhoneRow r =
+  ( name     :: Maybe String
+  , phone    :: Maybe Phone
+  , email    :: Maybe Email
+  , address  :: Maybe Address
+  | r
+  )
+
+--------------------------------------------------------------------------------
+
 type Address =
   { postal_code :: Maybe PostalCode
   , city        :: Maybe String