Make subscriptions optional

dmjio · Aug 9, 2019 · 753967b · 753967b
1 parent 7410fba
commit 753967b
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/stripe-core/src/Web/Stripe/Types.hs b/stripe-core/src/Web/Stripe/Types.hs
@@ -251,7 +251,7 @@ data Customer = Customer {
     , customerDescription    :: Maybe Description
     , customerEmail          :: Maybe Email
     , customerDelinquent     :: Bool
-    , customerSubscriptions  :: StripeList Subscription
+    , customerSubscriptions  :: Maybe (StripeList Subscription)
     , customerDiscount       :: Maybe Discount
     , customerAccountBalance :: Int
     , customerCards          :: StripeList Card
@@ -278,7 +278,7 @@ instance FromJSON Customer where
            <*> o .:? "description"
            <*> (fmap Email <$> o .:? "email")
            <*> o .: "delinquent"
-           <*> o .: "subscriptions"
+           <*> o .:? "subscriptions"
            <*> o .:? "discount"
            <*> o .: "account_balance"
            <*> o .: "cards"