console: More work on Stripe Customer, Card, and BillingDetails. #376

Author: epost

console/src/Statebox/Console.purs

@@ -11,7 +11,7 @@ import Effect.Aff.Class (class MonadAff)
 import Effect.Console (log)
 import Halogen as H
 import Halogen (ComponentHTML)
-import Halogen.HTML (HTML, p, text, div, ul, li, h2, table, tr, th, td)
+import Halogen.HTML (HTML, p, text, br, div, ul, li, h2, h3, table, tr, th, td)
 import Halogen.Query.HalogenM (HalogenM)
 
 import Statebox.Console.DAO as DAO
@@ -100,6 +100,8 @@ render state =
       [ p [] [ text $ if state.status == Ok then "" else "status: " <> show state.status ]
       , h2 [] [ text "Customer" ]
       , div [] (maybe [] (pure <<< customerHtml) state.customer)
+      , h3 [] [ text "Customer's payment methods" ]
+      , div [] (state.paymentMethods <#> paymentMethodHtml)
       , h2 [] [ text "Invoices" ]
       , div []
             (state.accounts <#> \account -> table []
@@ -122,14 +124,17 @@ customerHtml c =
                 , td [] [ text $ fold c.name ]
                 ]
         , tr [] [ th [] [ text "email" ]
-                , td [] [ text $ c.email ]
+                , td [] [ text $ fold c.email ]
                 ]
         , tr [] [ th [] [ text "phone" ]
                 , td [] [ text $ fold c.phone ]
                 ]
         , tr [] [ th [] [ text "description" ]
                 , td [] [ text $ fold c.description ]
                 ]
+        , tr [] [ th [] [ text "address" ]
+                , td [] [ maybe (text "no address") addressHtml c.address ]
+                ]
         , tr [] [ th [] [ text "balance" ]
                 , td [] [ text $ c.currency <> " " <> show c.balance <> " cents" ]
                 ]
@@ -148,6 +153,67 @@ taxIdDataHtml x =
         , td [] [ text x.type ]
         ]
 
+paymentMethodHtml :: ∀ m. MonadAff m => Stripe.PaymentMethod -> ComponentHTML Action ChildSlots m
+paymentMethodHtml pm =
+  table []
+        [ tr [] [ td [] [ text "type" ]
+                , td [] [ text pm.type ]
+                ]
+        , tr [] [ td [] [ text "card" ]
+                , td [] [ maybe (text "no card") cardHtml pm.card ]
+                ]
+        ]
+
+billingDetailsHtml :: ∀ m. MonadAff m => Stripe.BillingDetails -> ComponentHTML Action ChildSlots m
+billingDetailsHtml bd =
+  table []
+        [ tr [] [ th [] [ text "name" ]
+                , td [] [ text $ fold bd.name ]
+                ]
+        , tr [] [ th [] [ text "email" ]
+                , td [] [ text $ fold bd.email ]
+                ]
+        , tr [] [ th [] [ text "phone" ]
+                , td [] [ text $ fold bd.phone ]
+                ]
+        , tr [] [ th [] [ text "address" ]
+                , td [] [ maybe (text "no address") addressHtml bd.address ]
+                ]
+        ]
+
+addressHtml :: ∀ m. MonadAff m => Stripe.Address -> ComponentHTML Action ChildSlots m
+addressHtml a =
+  table []
+        [ tr [] [ th [] [ text "address" ]
+                , td [] [ text $ fold a.line1, br [], text $ fold a.line2 ]
+                ]
+        , tr [] [ th [] [ text "city" ]
+                , td [] [ text $ fold a.city ]
+                ]
+        , tr [] [ th [] [ text "postal code" ]
+                , td [] [ text $ fold a.postal_code ]
+                ]
+        , tr [] [ th [] [ text "state" ]
+                , td [] [ text $ fold a.state ]
+                ]
+        , tr [] [ th [] [ text "country" ]
+                , td [] [ text $ fold a.country ]
+                ]
+        ]
+
+cardHtml :: ∀ m. MonadAff m => Stripe.Card -> ComponentHTML Action ChildSlots m
+cardHtml c =
+  text $ c.country <> " " <> c.brand <> " " <>
+         formatCCNumber c <>
+         " EXP " <> formatExpiryDate c <>
+         " (" <> c.funding <> ")"
+  where
+    formatCCNumber :: Stripe.Card -> String
+    formatCCNumber card = "**** **** **** " <> card.last4
+
+    formatExpiryDate :: Stripe.Card -> String
+    formatExpiryDate card = show c.exp_month <> "/" <> show c.exp_year
+
 --------------------------------------------------------------------------------
 
 spyM :: ∀ m a. Applicative m => String -> a -> m Unit

console/src/Stripe.purs

@@ -8,8 +8,9 @@ type Customer =
   , id               :: CustomerId
   , name             :: Maybe String
   , description      :: Maybe String
-  , email            :: Email
+  , email            :: Maybe Email
   , phone            :: Maybe String
+  , address          :: Maybe Address
   , balance          :: Amount
   , currency         :: Currency
   , invoice_prefix   :: String
@@ -44,21 +45,25 @@ type PaymentMethodId = String
 type PaymentMethodType = String
 
 type BillingDetails =
-  { name    :: Maybe String
-  , phone   :: Maybe Phone
-  , email   :: Maybe Email
-  , address :: Maybe Address
+  { name     :: Maybe String
+  , phone    :: Maybe Phone
+  , email    :: Maybe Email
+  , address  :: Maybe Address
   }
 
+type BillingDetailsId = String
+
+-- | https://stripe.com/docs/api/cards
 type Card =
- { fingerprint :: String
- , brand       :: CardBrand
- , last4       :: String -- ^ last four digits of the card number.
- , exp_month   :: MonthNr
- , exp_year    :: Year
- , country     :: Country
- , funding     :: String
- }
+  { fingerprint :: String
+  , brand       :: CardBrand
+  , last4       :: String -- ^ last four digits of the card number.
+  , exp_month   :: MonthNr
+  , exp_year    :: Year
+  , country     :: Country
+  , funding     :: String
+  }
+
 
 -- | Uniquely identifies this particular card number. You can use this attribute to check whether two
 -- | customers who’ve signed up with you are using the same card number, for example.
@@ -70,6 +75,9 @@ type CardBrand = String
 -- | One of `"credit"` | `"debit"` | `"prepeaid"` | `"unknown"`.
 type Funding = String
 
+-- | If a CVC was provided, results of the check: `"pass"` | `"fail"` | `"unavailable"` | `"unchecked"`.
+type CVCCheckType = String
+
 --------------------------------------------------------------------------------
 
 -- | https://stripe.com/docs/api/invoices/object