{-# LANGUAGE ExplicitForAll #-}
{-# LANGUAGE MultiWayIf #-}
{-# LANGUAGE OverloadedStrings #-}
module StripeAPI.Operations.PostBillingPortalConfigurations where
import qualified Control.Monad.Fail
import qualified Control.Monad.Trans.Reader
import qualified Data.Aeson
import qualified Data.Aeson as Data.Aeson.Encoding.Internal
import qualified Data.Aeson as Data.Aeson.Types
import qualified Data.Aeson as Data.Aeson.Types.FromJSON
import qualified Data.Aeson as Data.Aeson.Types.Internal
import qualified Data.Aeson as Data.Aeson.Types.ToJSON
import qualified Data.ByteString.Char8
import qualified Data.ByteString.Char8 as Data.ByteString.Internal
import qualified Data.Either
import qualified Data.Functor
import qualified Data.Scientific
import qualified Data.Text
import qualified Data.Text.Internal
import qualified Data.Time.Calendar as Data.Time.Calendar.Days
import qualified Data.Time.LocalTime as Data.Time.LocalTime.Internal.ZonedTime
import qualified Data.Vector
import qualified GHC.Base
import qualified GHC.Classes
import qualified GHC.Int
import qualified GHC.Show
import qualified GHC.Types
import qualified Network.HTTP.Client
import qualified Network.HTTP.Client as Network.HTTP.Client.Request
import qualified Network.HTTP.Client as Network.HTTP.Client.Types
import qualified Network.HTTP.Simple
import qualified Network.HTTP.Types
import qualified Network.HTTP.Types as Network.HTTP.Types.Status
import qualified Network.HTTP.Types as Network.HTTP.Types.URI
import qualified StripeAPI.Common
import StripeAPI.Types
import qualified Prelude as GHC.Integer.Type
import qualified Prelude as GHC.Maybe
postBillingPortalConfigurations ::
forall m.
StripeAPI.Common.MonadHTTP m =>
PostBillingPortalConfigurationsRequestBody ->
StripeAPI.Common.StripeT m (Network.HTTP.Client.Types.Response PostBillingPortalConfigurationsResponse)
postBillingPortalConfigurations :: PostBillingPortalConfigurationsRequestBody
-> StripeT m (Response PostBillingPortalConfigurationsResponse)
postBillingPortalConfigurations PostBillingPortalConfigurationsRequestBody
body =
(Response ByteString
-> Response PostBillingPortalConfigurationsResponse)
-> StripeT m (Response ByteString)
-> StripeT m (Response PostBillingPortalConfigurationsResponse)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
GHC.Base.fmap
( \Response ByteString
response_0 ->
(ByteString -> PostBillingPortalConfigurationsResponse)
-> Response ByteString
-> Response PostBillingPortalConfigurationsResponse
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
GHC.Base.fmap
( (String -> PostBillingPortalConfigurationsResponse)
-> (PostBillingPortalConfigurationsResponse
-> PostBillingPortalConfigurationsResponse)
-> Either String PostBillingPortalConfigurationsResponse
-> PostBillingPortalConfigurationsResponse
forall a c b. (a -> c) -> (b -> c) -> Either a b -> c
Data.Either.either String -> PostBillingPortalConfigurationsResponse
PostBillingPortalConfigurationsResponseError PostBillingPortalConfigurationsResponse
-> PostBillingPortalConfigurationsResponse
forall a. a -> a
GHC.Base.id
(Either String PostBillingPortalConfigurationsResponse
-> PostBillingPortalConfigurationsResponse)
-> (ByteString
-> Either String PostBillingPortalConfigurationsResponse)
-> ByteString
-> PostBillingPortalConfigurationsResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
GHC.Base.. ( \Response ByteString
response ByteString
body ->
if
| (\Status
status_1 -> Status -> Int
Network.HTTP.Types.Status.statusCode Status
status_1 Int -> Int -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Int
200) (Response ByteString -> Status
forall body. Response body -> Status
Network.HTTP.Client.Types.responseStatus Response ByteString
response) ->
BillingPortal'configuration
-> PostBillingPortalConfigurationsResponse
PostBillingPortalConfigurationsResponse200
(BillingPortal'configuration
-> PostBillingPortalConfigurationsResponse)
-> Either String BillingPortal'configuration
-> Either String PostBillingPortalConfigurationsResponse
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Data.Functor.<$> ( ByteString -> Either String BillingPortal'configuration
forall a. FromJSON a => ByteString -> Either String a
Data.Aeson.eitherDecodeStrict ByteString
body ::
Data.Either.Either
GHC.Base.String
BillingPortal'configuration
)
| Bool -> Status -> Bool
forall a b. a -> b -> a
GHC.Base.const Bool
GHC.Types.True (Response ByteString -> Status
forall body. Response body -> Status
Network.HTTP.Client.Types.responseStatus Response ByteString
response) ->
Error -> PostBillingPortalConfigurationsResponse
PostBillingPortalConfigurationsResponseDefault
(Error -> PostBillingPortalConfigurationsResponse)
-> Either String Error
-> Either String PostBillingPortalConfigurationsResponse
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Data.Functor.<$> ( ByteString -> Either String Error
forall a. FromJSON a => ByteString -> Either String a
Data.Aeson.eitherDecodeStrict ByteString
body ::
Data.Either.Either
GHC.Base.String
Error
)
| Bool
GHC.Base.otherwise -> String -> Either String PostBillingPortalConfigurationsResponse
forall a b. a -> Either a b
Data.Either.Left String
"Missing default response type"
)
Response ByteString
response_0
)
Response ByteString
response_0
)
(Text
-> Text
-> [QueryParameter]
-> Maybe PostBillingPortalConfigurationsRequestBody
-> RequestBodyEncoding
-> StripeT m (Response ByteString)
forall (m :: * -> *) body.
(MonadHTTP m, ToJSON body) =>
Text
-> Text
-> [QueryParameter]
-> Maybe body
-> RequestBodyEncoding
-> StripeT m (Response ByteString)
StripeAPI.Common.doBodyCallWithConfigurationM (Text -> Text
Data.Text.toUpper (Text -> Text) -> Text -> Text
forall a b. (a -> b) -> a -> b
GHC.Base.$ String -> Text
Data.Text.pack String
"POST") (String -> Text
Data.Text.pack String
"/v1/billing_portal/configurations") [QueryParameter]
forall a. Monoid a => a
GHC.Base.mempty (PostBillingPortalConfigurationsRequestBody
-> Maybe PostBillingPortalConfigurationsRequestBody
forall a. a -> Maybe a
GHC.Maybe.Just PostBillingPortalConfigurationsRequestBody
body) RequestBodyEncoding
StripeAPI.Common.RequestBodyEncodingFormData)
data PostBillingPortalConfigurationsRequestBody = PostBillingPortalConfigurationsRequestBody
{
PostBillingPortalConfigurationsRequestBody
-> PostBillingPortalConfigurationsRequestBodyBusinessProfile'
postBillingPortalConfigurationsRequestBodyBusinessProfile :: PostBillingPortalConfigurationsRequestBodyBusinessProfile',
PostBillingPortalConfigurationsRequestBody
-> Maybe
PostBillingPortalConfigurationsRequestBodyDefaultReturnUrl'Variants
postBillingPortalConfigurationsRequestBodyDefaultReturnUrl :: (GHC.Maybe.Maybe PostBillingPortalConfigurationsRequestBodyDefaultReturnUrl'Variants),
PostBillingPortalConfigurationsRequestBody -> Maybe [Text]
postBillingPortalConfigurationsRequestBodyExpand :: (GHC.Maybe.Maybe ([Data.Text.Internal.Text])),
PostBillingPortalConfigurationsRequestBody
-> PostBillingPortalConfigurationsRequestBodyFeatures'
postBillingPortalConfigurationsRequestBodyFeatures :: PostBillingPortalConfigurationsRequestBodyFeatures'
}
deriving
( Int -> PostBillingPortalConfigurationsRequestBody -> ShowS
[PostBillingPortalConfigurationsRequestBody] -> ShowS
PostBillingPortalConfigurationsRequestBody -> String
(Int -> PostBillingPortalConfigurationsRequestBody -> ShowS)
-> (PostBillingPortalConfigurationsRequestBody -> String)
-> ([PostBillingPortalConfigurationsRequestBody] -> ShowS)
-> Show PostBillingPortalConfigurationsRequestBody
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PostBillingPortalConfigurationsRequestBody] -> ShowS
$cshowList :: [PostBillingPortalConfigurationsRequestBody] -> ShowS
show :: PostBillingPortalConfigurationsRequestBody -> String
$cshow :: PostBillingPortalConfigurationsRequestBody -> String
showsPrec :: Int -> PostBillingPortalConfigurationsRequestBody -> ShowS
$cshowsPrec :: Int -> PostBillingPortalConfigurationsRequestBody -> ShowS
GHC.Show.Show,
PostBillingPortalConfigurationsRequestBody
-> PostBillingPortalConfigurationsRequestBody -> Bool
(PostBillingPortalConfigurationsRequestBody
-> PostBillingPortalConfigurationsRequestBody -> Bool)
-> (PostBillingPortalConfigurationsRequestBody
-> PostBillingPortalConfigurationsRequestBody -> Bool)
-> Eq PostBillingPortalConfigurationsRequestBody
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostBillingPortalConfigurationsRequestBody
-> PostBillingPortalConfigurationsRequestBody -> Bool
$c/= :: PostBillingPortalConfigurationsRequestBody
-> PostBillingPortalConfigurationsRequestBody -> Bool
== :: PostBillingPortalConfigurationsRequestBody
-> PostBillingPortalConfigurationsRequestBody -> Bool
$c== :: PostBillingPortalConfigurationsRequestBody
-> PostBillingPortalConfigurationsRequestBody -> Bool
GHC.Classes.Eq
)
instance Data.Aeson.Types.ToJSON.ToJSON PostBillingPortalConfigurationsRequestBody where
toJSON :: PostBillingPortalConfigurationsRequestBody -> Value
toJSON PostBillingPortalConfigurationsRequestBody
obj = [Pair] -> Value
Data.Aeson.Types.Internal.object (Text
"business_profile" Text
-> PostBillingPortalConfigurationsRequestBodyBusinessProfile'
-> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostBillingPortalConfigurationsRequestBody
-> PostBillingPortalConfigurationsRequestBodyBusinessProfile'
postBillingPortalConfigurationsRequestBodyBusinessProfile PostBillingPortalConfigurationsRequestBody
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"default_return_url" Text
-> Maybe
PostBillingPortalConfigurationsRequestBodyDefaultReturnUrl'Variants
-> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostBillingPortalConfigurationsRequestBody
-> Maybe
PostBillingPortalConfigurationsRequestBodyDefaultReturnUrl'Variants
postBillingPortalConfigurationsRequestBodyDefaultReturnUrl PostBillingPortalConfigurationsRequestBody
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"expand" Text -> Maybe [Text] -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostBillingPortalConfigurationsRequestBody -> Maybe [Text]
postBillingPortalConfigurationsRequestBodyExpand PostBillingPortalConfigurationsRequestBody
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"features" Text -> PostBillingPortalConfigurationsRequestBodyFeatures' -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostBillingPortalConfigurationsRequestBody
-> PostBillingPortalConfigurationsRequestBodyFeatures'
postBillingPortalConfigurationsRequestBodyFeatures PostBillingPortalConfigurationsRequestBody
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: [Pair]
forall a. Monoid a => a
GHC.Base.mempty)
toEncoding :: PostBillingPortalConfigurationsRequestBody -> Encoding
toEncoding PostBillingPortalConfigurationsRequestBody
obj = Series -> Encoding
Data.Aeson.Encoding.Internal.pairs ((Text
"business_profile" Text
-> PostBillingPortalConfigurationsRequestBodyBusinessProfile'
-> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostBillingPortalConfigurationsRequestBody
-> PostBillingPortalConfigurationsRequestBodyBusinessProfile'
postBillingPortalConfigurationsRequestBodyBusinessProfile PostBillingPortalConfigurationsRequestBody
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"default_return_url" Text
-> Maybe
PostBillingPortalConfigurationsRequestBodyDefaultReturnUrl'Variants
-> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostBillingPortalConfigurationsRequestBody
-> Maybe
PostBillingPortalConfigurationsRequestBodyDefaultReturnUrl'Variants
postBillingPortalConfigurationsRequestBodyDefaultReturnUrl PostBillingPortalConfigurationsRequestBody
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"expand" Text -> Maybe [Text] -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostBillingPortalConfigurationsRequestBody -> Maybe [Text]
postBillingPortalConfigurationsRequestBodyExpand PostBillingPortalConfigurationsRequestBody
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> (Text
"features" Text
-> PostBillingPortalConfigurationsRequestBodyFeatures' -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostBillingPortalConfigurationsRequestBody
-> PostBillingPortalConfigurationsRequestBodyFeatures'
postBillingPortalConfigurationsRequestBodyFeatures PostBillingPortalConfigurationsRequestBody
obj))))
instance Data.Aeson.Types.FromJSON.FromJSON PostBillingPortalConfigurationsRequestBody where
parseJSON :: Value -> Parser PostBillingPortalConfigurationsRequestBody
parseJSON = String
-> (Object -> Parser PostBillingPortalConfigurationsRequestBody)
-> Value
-> Parser PostBillingPortalConfigurationsRequestBody
forall a. String -> (Object -> Parser a) -> Value -> Parser a
Data.Aeson.Types.FromJSON.withObject String
"PostBillingPortalConfigurationsRequestBody" (\Object
obj -> ((((PostBillingPortalConfigurationsRequestBodyBusinessProfile'
-> Maybe
PostBillingPortalConfigurationsRequestBodyDefaultReturnUrl'Variants
-> Maybe [Text]
-> PostBillingPortalConfigurationsRequestBodyFeatures'
-> PostBillingPortalConfigurationsRequestBody)
-> Parser
(PostBillingPortalConfigurationsRequestBodyBusinessProfile'
-> Maybe
PostBillingPortalConfigurationsRequestBodyDefaultReturnUrl'Variants
-> Maybe [Text]
-> PostBillingPortalConfigurationsRequestBodyFeatures'
-> PostBillingPortalConfigurationsRequestBody)
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure PostBillingPortalConfigurationsRequestBodyBusinessProfile'
-> Maybe
PostBillingPortalConfigurationsRequestBodyDefaultReturnUrl'Variants
-> Maybe [Text]
-> PostBillingPortalConfigurationsRequestBodyFeatures'
-> PostBillingPortalConfigurationsRequestBody
PostBillingPortalConfigurationsRequestBody Parser
(PostBillingPortalConfigurationsRequestBodyBusinessProfile'
-> Maybe
PostBillingPortalConfigurationsRequestBodyDefaultReturnUrl'Variants
-> Maybe [Text]
-> PostBillingPortalConfigurationsRequestBodyFeatures'
-> PostBillingPortalConfigurationsRequestBody)
-> Parser
PostBillingPortalConfigurationsRequestBodyBusinessProfile'
-> Parser
(Maybe
PostBillingPortalConfigurationsRequestBodyDefaultReturnUrl'Variants
-> Maybe [Text]
-> PostBillingPortalConfigurationsRequestBodyFeatures'
-> PostBillingPortalConfigurationsRequestBody)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object
-> Text
-> Parser
PostBillingPortalConfigurationsRequestBodyBusinessProfile'
forall a. FromJSON a => Object -> Text -> Parser a
Data.Aeson.Types.FromJSON..: Text
"business_profile")) Parser
(Maybe
PostBillingPortalConfigurationsRequestBodyDefaultReturnUrl'Variants
-> Maybe [Text]
-> PostBillingPortalConfigurationsRequestBodyFeatures'
-> PostBillingPortalConfigurationsRequestBody)
-> Parser
(Maybe
PostBillingPortalConfigurationsRequestBodyDefaultReturnUrl'Variants)
-> Parser
(Maybe [Text]
-> PostBillingPortalConfigurationsRequestBodyFeatures'
-> PostBillingPortalConfigurationsRequestBody)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object
-> Text
-> Parser
(Maybe
PostBillingPortalConfigurationsRequestBodyDefaultReturnUrl'Variants)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"default_return_url")) Parser
(Maybe [Text]
-> PostBillingPortalConfigurationsRequestBodyFeatures'
-> PostBillingPortalConfigurationsRequestBody)
-> Parser (Maybe [Text])
-> Parser
(PostBillingPortalConfigurationsRequestBodyFeatures'
-> PostBillingPortalConfigurationsRequestBody)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe [Text])
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"expand")) Parser
(PostBillingPortalConfigurationsRequestBodyFeatures'
-> PostBillingPortalConfigurationsRequestBody)
-> Parser PostBillingPortalConfigurationsRequestBodyFeatures'
-> Parser PostBillingPortalConfigurationsRequestBody
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object
-> Text
-> Parser PostBillingPortalConfigurationsRequestBodyFeatures'
forall a. FromJSON a => Object -> Text -> Parser a
Data.Aeson.Types.FromJSON..: Text
"features"))
mkPostBillingPortalConfigurationsRequestBody ::
PostBillingPortalConfigurationsRequestBodyBusinessProfile' ->
PostBillingPortalConfigurationsRequestBodyFeatures' ->
PostBillingPortalConfigurationsRequestBody
mkPostBillingPortalConfigurationsRequestBody :: PostBillingPortalConfigurationsRequestBodyBusinessProfile'
-> PostBillingPortalConfigurationsRequestBodyFeatures'
-> PostBillingPortalConfigurationsRequestBody
mkPostBillingPortalConfigurationsRequestBody PostBillingPortalConfigurationsRequestBodyBusinessProfile'
postBillingPortalConfigurationsRequestBodyBusinessProfile PostBillingPortalConfigurationsRequestBodyFeatures'
postBillingPortalConfigurationsRequestBodyFeatures =
PostBillingPortalConfigurationsRequestBody :: PostBillingPortalConfigurationsRequestBodyBusinessProfile'
-> Maybe
PostBillingPortalConfigurationsRequestBodyDefaultReturnUrl'Variants
-> Maybe [Text]
-> PostBillingPortalConfigurationsRequestBodyFeatures'
-> PostBillingPortalConfigurationsRequestBody
PostBillingPortalConfigurationsRequestBody
{ postBillingPortalConfigurationsRequestBodyBusinessProfile :: PostBillingPortalConfigurationsRequestBodyBusinessProfile'
postBillingPortalConfigurationsRequestBodyBusinessProfile = PostBillingPortalConfigurationsRequestBodyBusinessProfile'
postBillingPortalConfigurationsRequestBodyBusinessProfile,
postBillingPortalConfigurationsRequestBodyDefaultReturnUrl :: Maybe
PostBillingPortalConfigurationsRequestBodyDefaultReturnUrl'Variants
postBillingPortalConfigurationsRequestBodyDefaultReturnUrl = Maybe
PostBillingPortalConfigurationsRequestBodyDefaultReturnUrl'Variants
forall a. Maybe a
GHC.Maybe.Nothing,
postBillingPortalConfigurationsRequestBodyExpand :: Maybe [Text]
postBillingPortalConfigurationsRequestBodyExpand = Maybe [Text]
forall a. Maybe a
GHC.Maybe.Nothing,
postBillingPortalConfigurationsRequestBodyFeatures :: PostBillingPortalConfigurationsRequestBodyFeatures'
postBillingPortalConfigurationsRequestBodyFeatures = PostBillingPortalConfigurationsRequestBodyFeatures'
postBillingPortalConfigurationsRequestBodyFeatures
}
data PostBillingPortalConfigurationsRequestBodyBusinessProfile' = PostBillingPortalConfigurationsRequestBodyBusinessProfile'
{
PostBillingPortalConfigurationsRequestBodyBusinessProfile'
-> Maybe Text
postBillingPortalConfigurationsRequestBodyBusinessProfile'Headline :: (GHC.Maybe.Maybe Data.Text.Internal.Text),
PostBillingPortalConfigurationsRequestBodyBusinessProfile' -> Text
postBillingPortalConfigurationsRequestBodyBusinessProfile'PrivacyPolicyUrl :: Data.Text.Internal.Text,
PostBillingPortalConfigurationsRequestBodyBusinessProfile' -> Text
postBillingPortalConfigurationsRequestBodyBusinessProfile'TermsOfServiceUrl :: Data.Text.Internal.Text
}
deriving
( Int
-> PostBillingPortalConfigurationsRequestBodyBusinessProfile'
-> ShowS
[PostBillingPortalConfigurationsRequestBodyBusinessProfile']
-> ShowS
PostBillingPortalConfigurationsRequestBodyBusinessProfile'
-> String
(Int
-> PostBillingPortalConfigurationsRequestBodyBusinessProfile'
-> ShowS)
-> (PostBillingPortalConfigurationsRequestBodyBusinessProfile'
-> String)
-> ([PostBillingPortalConfigurationsRequestBodyBusinessProfile']
-> ShowS)
-> Show PostBillingPortalConfigurationsRequestBodyBusinessProfile'
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PostBillingPortalConfigurationsRequestBodyBusinessProfile']
-> ShowS
$cshowList :: [PostBillingPortalConfigurationsRequestBodyBusinessProfile']
-> ShowS
show :: PostBillingPortalConfigurationsRequestBodyBusinessProfile'
-> String
$cshow :: PostBillingPortalConfigurationsRequestBodyBusinessProfile'
-> String
showsPrec :: Int
-> PostBillingPortalConfigurationsRequestBodyBusinessProfile'
-> ShowS
$cshowsPrec :: Int
-> PostBillingPortalConfigurationsRequestBodyBusinessProfile'
-> ShowS
GHC.Show.Show,
PostBillingPortalConfigurationsRequestBodyBusinessProfile'
-> PostBillingPortalConfigurationsRequestBodyBusinessProfile'
-> Bool
(PostBillingPortalConfigurationsRequestBodyBusinessProfile'
-> PostBillingPortalConfigurationsRequestBodyBusinessProfile'
-> Bool)
-> (PostBillingPortalConfigurationsRequestBodyBusinessProfile'
-> PostBillingPortalConfigurationsRequestBodyBusinessProfile'
-> Bool)
-> Eq PostBillingPortalConfigurationsRequestBodyBusinessProfile'
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostBillingPortalConfigurationsRequestBodyBusinessProfile'
-> PostBillingPortalConfigurationsRequestBodyBusinessProfile'
-> Bool
$c/= :: PostBillingPortalConfigurationsRequestBodyBusinessProfile'
-> PostBillingPortalConfigurationsRequestBodyBusinessProfile'
-> Bool
== :: PostBillingPortalConfigurationsRequestBodyBusinessProfile'
-> PostBillingPortalConfigurationsRequestBodyBusinessProfile'
-> Bool
$c== :: PostBillingPortalConfigurationsRequestBodyBusinessProfile'
-> PostBillingPortalConfigurationsRequestBodyBusinessProfile'
-> Bool
GHC.Classes.Eq
)
instance Data.Aeson.Types.ToJSON.ToJSON PostBillingPortalConfigurationsRequestBodyBusinessProfile' where
toJSON :: PostBillingPortalConfigurationsRequestBodyBusinessProfile' -> Value
toJSON PostBillingPortalConfigurationsRequestBodyBusinessProfile'
obj = [Pair] -> Value
Data.Aeson.Types.Internal.object (Text
"headline" Text -> Maybe Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostBillingPortalConfigurationsRequestBodyBusinessProfile'
-> Maybe Text
postBillingPortalConfigurationsRequestBodyBusinessProfile'Headline PostBillingPortalConfigurationsRequestBodyBusinessProfile'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"privacy_policy_url" Text -> Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostBillingPortalConfigurationsRequestBodyBusinessProfile' -> Text
postBillingPortalConfigurationsRequestBodyBusinessProfile'PrivacyPolicyUrl PostBillingPortalConfigurationsRequestBodyBusinessProfile'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"terms_of_service_url" Text -> Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostBillingPortalConfigurationsRequestBodyBusinessProfile' -> Text
postBillingPortalConfigurationsRequestBodyBusinessProfile'TermsOfServiceUrl PostBillingPortalConfigurationsRequestBodyBusinessProfile'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: [Pair]
forall a. Monoid a => a
GHC.Base.mempty)
toEncoding :: PostBillingPortalConfigurationsRequestBodyBusinessProfile'
-> Encoding
toEncoding PostBillingPortalConfigurationsRequestBodyBusinessProfile'
obj = Series -> Encoding
Data.Aeson.Encoding.Internal.pairs ((Text
"headline" Text -> Maybe Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostBillingPortalConfigurationsRequestBodyBusinessProfile'
-> Maybe Text
postBillingPortalConfigurationsRequestBodyBusinessProfile'Headline PostBillingPortalConfigurationsRequestBodyBusinessProfile'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"privacy_policy_url" Text -> Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostBillingPortalConfigurationsRequestBodyBusinessProfile' -> Text
postBillingPortalConfigurationsRequestBodyBusinessProfile'PrivacyPolicyUrl PostBillingPortalConfigurationsRequestBodyBusinessProfile'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> (Text
"terms_of_service_url" Text -> Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostBillingPortalConfigurationsRequestBodyBusinessProfile' -> Text
postBillingPortalConfigurationsRequestBodyBusinessProfile'TermsOfServiceUrl PostBillingPortalConfigurationsRequestBodyBusinessProfile'
obj)))
instance Data.Aeson.Types.FromJSON.FromJSON PostBillingPortalConfigurationsRequestBodyBusinessProfile' where
parseJSON :: Value
-> Parser
PostBillingPortalConfigurationsRequestBodyBusinessProfile'
parseJSON = String
-> (Object
-> Parser
PostBillingPortalConfigurationsRequestBodyBusinessProfile')
-> Value
-> Parser
PostBillingPortalConfigurationsRequestBodyBusinessProfile'
forall a. String -> (Object -> Parser a) -> Value -> Parser a
Data.Aeson.Types.FromJSON.withObject String
"PostBillingPortalConfigurationsRequestBodyBusinessProfile'" (\Object
obj -> (((Maybe Text
-> Text
-> Text
-> PostBillingPortalConfigurationsRequestBodyBusinessProfile')
-> Parser
(Maybe Text
-> Text
-> Text
-> PostBillingPortalConfigurationsRequestBodyBusinessProfile')
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure Maybe Text
-> Text
-> Text
-> PostBillingPortalConfigurationsRequestBodyBusinessProfile'
PostBillingPortalConfigurationsRequestBodyBusinessProfile' Parser
(Maybe Text
-> Text
-> Text
-> PostBillingPortalConfigurationsRequestBodyBusinessProfile')
-> Parser (Maybe Text)
-> Parser
(Text
-> Text
-> PostBillingPortalConfigurationsRequestBodyBusinessProfile')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"headline")) Parser
(Text
-> Text
-> PostBillingPortalConfigurationsRequestBodyBusinessProfile')
-> Parser Text
-> Parser
(Text
-> PostBillingPortalConfigurationsRequestBodyBusinessProfile')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser Text
forall a. FromJSON a => Object -> Text -> Parser a
Data.Aeson.Types.FromJSON..: Text
"privacy_policy_url")) Parser
(Text
-> PostBillingPortalConfigurationsRequestBodyBusinessProfile')
-> Parser Text
-> Parser
PostBillingPortalConfigurationsRequestBodyBusinessProfile'
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser Text
forall a. FromJSON a => Object -> Text -> Parser a
Data.Aeson.Types.FromJSON..: Text
"terms_of_service_url"))
mkPostBillingPortalConfigurationsRequestBodyBusinessProfile' ::
Data.Text.Internal.Text ->
Data.Text.Internal.Text ->
PostBillingPortalConfigurationsRequestBodyBusinessProfile'
mkPostBillingPortalConfigurationsRequestBodyBusinessProfile' :: Text
-> Text
-> PostBillingPortalConfigurationsRequestBodyBusinessProfile'
mkPostBillingPortalConfigurationsRequestBodyBusinessProfile' Text
postBillingPortalConfigurationsRequestBodyBusinessProfile'PrivacyPolicyUrl Text
postBillingPortalConfigurationsRequestBodyBusinessProfile'TermsOfServiceUrl =
PostBillingPortalConfigurationsRequestBodyBusinessProfile' :: Maybe Text
-> Text
-> Text
-> PostBillingPortalConfigurationsRequestBodyBusinessProfile'
PostBillingPortalConfigurationsRequestBodyBusinessProfile'
{ postBillingPortalConfigurationsRequestBodyBusinessProfile'Headline :: Maybe Text
postBillingPortalConfigurationsRequestBodyBusinessProfile'Headline = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing,
postBillingPortalConfigurationsRequestBodyBusinessProfile'PrivacyPolicyUrl :: Text
postBillingPortalConfigurationsRequestBodyBusinessProfile'PrivacyPolicyUrl = Text
postBillingPortalConfigurationsRequestBodyBusinessProfile'PrivacyPolicyUrl,
postBillingPortalConfigurationsRequestBodyBusinessProfile'TermsOfServiceUrl :: Text
postBillingPortalConfigurationsRequestBodyBusinessProfile'TermsOfServiceUrl = Text
postBillingPortalConfigurationsRequestBodyBusinessProfile'TermsOfServiceUrl
}
data PostBillingPortalConfigurationsRequestBodyDefaultReturnUrl'Variants
=
PostBillingPortalConfigurationsRequestBodyDefaultReturnUrl'EmptyString
| PostBillingPortalConfigurationsRequestBodyDefaultReturnUrl'Text Data.Text.Internal.Text
deriving (Int
-> PostBillingPortalConfigurationsRequestBodyDefaultReturnUrl'Variants
-> ShowS
[PostBillingPortalConfigurationsRequestBodyDefaultReturnUrl'Variants]
-> ShowS
PostBillingPortalConfigurationsRequestBodyDefaultReturnUrl'Variants
-> String
(Int
-> PostBillingPortalConfigurationsRequestBodyDefaultReturnUrl'Variants
-> ShowS)
-> (PostBillingPortalConfigurationsRequestBodyDefaultReturnUrl'Variants
-> String)
-> ([PostBillingPortalConfigurationsRequestBodyDefaultReturnUrl'Variants]
-> ShowS)
-> Show
PostBillingPortalConfigurationsRequestBodyDefaultReturnUrl'Variants
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PostBillingPortalConfigurationsRequestBodyDefaultReturnUrl'Variants]
-> ShowS
$cshowList :: [PostBillingPortalConfigurationsRequestBodyDefaultReturnUrl'Variants]
-> ShowS
show :: PostBillingPortalConfigurationsRequestBodyDefaultReturnUrl'Variants
-> String
$cshow :: PostBillingPortalConfigurationsRequestBodyDefaultReturnUrl'Variants
-> String
showsPrec :: Int
-> PostBillingPortalConfigurationsRequestBodyDefaultReturnUrl'Variants
-> ShowS
$cshowsPrec :: Int
-> PostBillingPortalConfigurationsRequestBodyDefaultReturnUrl'Variants
-> ShowS
GHC.Show.Show, PostBillingPortalConfigurationsRequestBodyDefaultReturnUrl'Variants
-> PostBillingPortalConfigurationsRequestBodyDefaultReturnUrl'Variants
-> Bool
(PostBillingPortalConfigurationsRequestBodyDefaultReturnUrl'Variants
-> PostBillingPortalConfigurationsRequestBodyDefaultReturnUrl'Variants
-> Bool)
-> (PostBillingPortalConfigurationsRequestBodyDefaultReturnUrl'Variants
-> PostBillingPortalConfigurationsRequestBodyDefaultReturnUrl'Variants
-> Bool)
-> Eq
PostBillingPortalConfigurationsRequestBodyDefaultReturnUrl'Variants
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostBillingPortalConfigurationsRequestBodyDefaultReturnUrl'Variants
-> PostBillingPortalConfigurationsRequestBodyDefaultReturnUrl'Variants
-> Bool
$c/= :: PostBillingPortalConfigurationsRequestBodyDefaultReturnUrl'Variants
-> PostBillingPortalConfigurationsRequestBodyDefaultReturnUrl'Variants
-> Bool
== :: PostBillingPortalConfigurationsRequestBodyDefaultReturnUrl'Variants
-> PostBillingPortalConfigurationsRequestBodyDefaultReturnUrl'Variants
-> Bool
$c== :: PostBillingPortalConfigurationsRequestBodyDefaultReturnUrl'Variants
-> PostBillingPortalConfigurationsRequestBodyDefaultReturnUrl'Variants
-> Bool
GHC.Classes.Eq)
instance Data.Aeson.Types.ToJSON.ToJSON PostBillingPortalConfigurationsRequestBodyDefaultReturnUrl'Variants where
toJSON :: PostBillingPortalConfigurationsRequestBodyDefaultReturnUrl'Variants
-> Value
toJSON (PostBillingPortalConfigurationsRequestBodyDefaultReturnUrl'Text Text
a) = Text -> Value
forall a. ToJSON a => a -> Value
Data.Aeson.Types.ToJSON.toJSON Text
a
toJSON (PostBillingPortalConfigurationsRequestBodyDefaultReturnUrl'Variants
PostBillingPortalConfigurationsRequestBodyDefaultReturnUrl'EmptyString) = Value
""
instance Data.Aeson.Types.FromJSON.FromJSON PostBillingPortalConfigurationsRequestBodyDefaultReturnUrl'Variants where
parseJSON :: Value
-> Parser
PostBillingPortalConfigurationsRequestBodyDefaultReturnUrl'Variants
parseJSON Value
val =
if
| Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"" -> PostBillingPortalConfigurationsRequestBodyDefaultReturnUrl'Variants
-> Parser
PostBillingPortalConfigurationsRequestBodyDefaultReturnUrl'Variants
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure PostBillingPortalConfigurationsRequestBodyDefaultReturnUrl'Variants
PostBillingPortalConfigurationsRequestBodyDefaultReturnUrl'EmptyString
| Bool
GHC.Base.otherwise -> case (Text
-> PostBillingPortalConfigurationsRequestBodyDefaultReturnUrl'Variants
PostBillingPortalConfigurationsRequestBodyDefaultReturnUrl'Text (Text
-> PostBillingPortalConfigurationsRequestBodyDefaultReturnUrl'Variants)
-> Result Text
-> Result
PostBillingPortalConfigurationsRequestBodyDefaultReturnUrl'Variants
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Data.Functor.<$> Value -> Result Text
forall a. FromJSON a => Value -> Result a
Data.Aeson.Types.FromJSON.fromJSON Value
val) Result
PostBillingPortalConfigurationsRequestBodyDefaultReturnUrl'Variants
-> Result
PostBillingPortalConfigurationsRequestBodyDefaultReturnUrl'Variants
-> Result
PostBillingPortalConfigurationsRequestBodyDefaultReturnUrl'Variants
forall (f :: * -> *) a. Alternative f => f a -> f a -> f a
GHC.Base.<|> String
-> Result
PostBillingPortalConfigurationsRequestBodyDefaultReturnUrl'Variants
forall a. String -> Result a
Data.Aeson.Types.Internal.Error String
"No variant matched" of
Data.Aeson.Types.Internal.Success PostBillingPortalConfigurationsRequestBodyDefaultReturnUrl'Variants
a -> PostBillingPortalConfigurationsRequestBodyDefaultReturnUrl'Variants
-> Parser
PostBillingPortalConfigurationsRequestBodyDefaultReturnUrl'Variants
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure PostBillingPortalConfigurationsRequestBodyDefaultReturnUrl'Variants
a
Data.Aeson.Types.Internal.Error String
a -> String
-> Parser
PostBillingPortalConfigurationsRequestBodyDefaultReturnUrl'Variants
forall (m :: * -> *) a. MonadFail m => String -> m a
Control.Monad.Fail.fail String
a
data PostBillingPortalConfigurationsRequestBodyFeatures' = PostBillingPortalConfigurationsRequestBodyFeatures'
{
PostBillingPortalConfigurationsRequestBodyFeatures'
-> Maybe
PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'
postBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate :: (GHC.Maybe.Maybe PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'),
PostBillingPortalConfigurationsRequestBodyFeatures'
-> Maybe
PostBillingPortalConfigurationsRequestBodyFeatures'InvoiceHistory'
postBillingPortalConfigurationsRequestBodyFeatures'InvoiceHistory :: (GHC.Maybe.Maybe PostBillingPortalConfigurationsRequestBodyFeatures'InvoiceHistory'),
PostBillingPortalConfigurationsRequestBodyFeatures'
-> Maybe
PostBillingPortalConfigurationsRequestBodyFeatures'PaymentMethodUpdate'
postBillingPortalConfigurationsRequestBodyFeatures'PaymentMethodUpdate :: (GHC.Maybe.Maybe PostBillingPortalConfigurationsRequestBodyFeatures'PaymentMethodUpdate'),
PostBillingPortalConfigurationsRequestBodyFeatures'
-> Maybe
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'
postBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel :: (GHC.Maybe.Maybe PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'),
PostBillingPortalConfigurationsRequestBodyFeatures'
-> Maybe
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionPause'
postBillingPortalConfigurationsRequestBodyFeatures'SubscriptionPause :: (GHC.Maybe.Maybe PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionPause'),
PostBillingPortalConfigurationsRequestBodyFeatures'
-> Maybe
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'
postBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate :: (GHC.Maybe.Maybe PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate')
}
deriving
( Int -> PostBillingPortalConfigurationsRequestBodyFeatures' -> ShowS
[PostBillingPortalConfigurationsRequestBodyFeatures'] -> ShowS
PostBillingPortalConfigurationsRequestBodyFeatures' -> String
(Int
-> PostBillingPortalConfigurationsRequestBodyFeatures' -> ShowS)
-> (PostBillingPortalConfigurationsRequestBodyFeatures' -> String)
-> ([PostBillingPortalConfigurationsRequestBodyFeatures'] -> ShowS)
-> Show PostBillingPortalConfigurationsRequestBodyFeatures'
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PostBillingPortalConfigurationsRequestBodyFeatures'] -> ShowS
$cshowList :: [PostBillingPortalConfigurationsRequestBodyFeatures'] -> ShowS
show :: PostBillingPortalConfigurationsRequestBodyFeatures' -> String
$cshow :: PostBillingPortalConfigurationsRequestBodyFeatures' -> String
showsPrec :: Int -> PostBillingPortalConfigurationsRequestBodyFeatures' -> ShowS
$cshowsPrec :: Int -> PostBillingPortalConfigurationsRequestBodyFeatures' -> ShowS
GHC.Show.Show,
PostBillingPortalConfigurationsRequestBodyFeatures'
-> PostBillingPortalConfigurationsRequestBodyFeatures' -> Bool
(PostBillingPortalConfigurationsRequestBodyFeatures'
-> PostBillingPortalConfigurationsRequestBodyFeatures' -> Bool)
-> (PostBillingPortalConfigurationsRequestBodyFeatures'
-> PostBillingPortalConfigurationsRequestBodyFeatures' -> Bool)
-> Eq PostBillingPortalConfigurationsRequestBodyFeatures'
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostBillingPortalConfigurationsRequestBodyFeatures'
-> PostBillingPortalConfigurationsRequestBodyFeatures' -> Bool
$c/= :: PostBillingPortalConfigurationsRequestBodyFeatures'
-> PostBillingPortalConfigurationsRequestBodyFeatures' -> Bool
== :: PostBillingPortalConfigurationsRequestBodyFeatures'
-> PostBillingPortalConfigurationsRequestBodyFeatures' -> Bool
$c== :: PostBillingPortalConfigurationsRequestBodyFeatures'
-> PostBillingPortalConfigurationsRequestBodyFeatures' -> Bool
GHC.Classes.Eq
)
instance Data.Aeson.Types.ToJSON.ToJSON PostBillingPortalConfigurationsRequestBodyFeatures' where
toJSON :: PostBillingPortalConfigurationsRequestBodyFeatures' -> Value
toJSON PostBillingPortalConfigurationsRequestBodyFeatures'
obj = [Pair] -> Value
Data.Aeson.Types.Internal.object (Text
"customer_update" Text
-> Maybe
PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'
-> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostBillingPortalConfigurationsRequestBodyFeatures'
-> Maybe
PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'
postBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate PostBillingPortalConfigurationsRequestBodyFeatures'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"invoice_history" Text
-> Maybe
PostBillingPortalConfigurationsRequestBodyFeatures'InvoiceHistory'
-> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostBillingPortalConfigurationsRequestBodyFeatures'
-> Maybe
PostBillingPortalConfigurationsRequestBodyFeatures'InvoiceHistory'
postBillingPortalConfigurationsRequestBodyFeatures'InvoiceHistory PostBillingPortalConfigurationsRequestBodyFeatures'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"payment_method_update" Text
-> Maybe
PostBillingPortalConfigurationsRequestBodyFeatures'PaymentMethodUpdate'
-> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostBillingPortalConfigurationsRequestBodyFeatures'
-> Maybe
PostBillingPortalConfigurationsRequestBodyFeatures'PaymentMethodUpdate'
postBillingPortalConfigurationsRequestBodyFeatures'PaymentMethodUpdate PostBillingPortalConfigurationsRequestBodyFeatures'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"subscription_cancel" Text
-> Maybe
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'
-> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostBillingPortalConfigurationsRequestBodyFeatures'
-> Maybe
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'
postBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel PostBillingPortalConfigurationsRequestBodyFeatures'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"subscription_pause" Text
-> Maybe
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionPause'
-> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostBillingPortalConfigurationsRequestBodyFeatures'
-> Maybe
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionPause'
postBillingPortalConfigurationsRequestBodyFeatures'SubscriptionPause PostBillingPortalConfigurationsRequestBodyFeatures'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"subscription_update" Text
-> Maybe
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'
-> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostBillingPortalConfigurationsRequestBodyFeatures'
-> Maybe
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'
postBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate PostBillingPortalConfigurationsRequestBodyFeatures'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: [Pair]
forall a. Monoid a => a
GHC.Base.mempty)
toEncoding :: PostBillingPortalConfigurationsRequestBodyFeatures' -> Encoding
toEncoding PostBillingPortalConfigurationsRequestBodyFeatures'
obj = Series -> Encoding
Data.Aeson.Encoding.Internal.pairs ((Text
"customer_update" Text
-> Maybe
PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'
-> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostBillingPortalConfigurationsRequestBodyFeatures'
-> Maybe
PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'
postBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate PostBillingPortalConfigurationsRequestBodyFeatures'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"invoice_history" Text
-> Maybe
PostBillingPortalConfigurationsRequestBodyFeatures'InvoiceHistory'
-> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostBillingPortalConfigurationsRequestBodyFeatures'
-> Maybe
PostBillingPortalConfigurationsRequestBodyFeatures'InvoiceHistory'
postBillingPortalConfigurationsRequestBodyFeatures'InvoiceHistory PostBillingPortalConfigurationsRequestBodyFeatures'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"payment_method_update" Text
-> Maybe
PostBillingPortalConfigurationsRequestBodyFeatures'PaymentMethodUpdate'
-> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostBillingPortalConfigurationsRequestBodyFeatures'
-> Maybe
PostBillingPortalConfigurationsRequestBodyFeatures'PaymentMethodUpdate'
postBillingPortalConfigurationsRequestBodyFeatures'PaymentMethodUpdate PostBillingPortalConfigurationsRequestBodyFeatures'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"subscription_cancel" Text
-> Maybe
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'
-> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostBillingPortalConfigurationsRequestBodyFeatures'
-> Maybe
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'
postBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel PostBillingPortalConfigurationsRequestBodyFeatures'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"subscription_pause" Text
-> Maybe
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionPause'
-> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostBillingPortalConfigurationsRequestBodyFeatures'
-> Maybe
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionPause'
postBillingPortalConfigurationsRequestBodyFeatures'SubscriptionPause PostBillingPortalConfigurationsRequestBodyFeatures'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> (Text
"subscription_update" Text
-> Maybe
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'
-> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostBillingPortalConfigurationsRequestBodyFeatures'
-> Maybe
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'
postBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate PostBillingPortalConfigurationsRequestBodyFeatures'
obj))))))
instance Data.Aeson.Types.FromJSON.FromJSON PostBillingPortalConfigurationsRequestBodyFeatures' where
parseJSON :: Value -> Parser PostBillingPortalConfigurationsRequestBodyFeatures'
parseJSON = String
-> (Object
-> Parser PostBillingPortalConfigurationsRequestBodyFeatures')
-> Value
-> Parser PostBillingPortalConfigurationsRequestBodyFeatures'
forall a. String -> (Object -> Parser a) -> Value -> Parser a
Data.Aeson.Types.FromJSON.withObject String
"PostBillingPortalConfigurationsRequestBodyFeatures'" (\Object
obj -> ((((((Maybe
PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'
-> Maybe
PostBillingPortalConfigurationsRequestBodyFeatures'InvoiceHistory'
-> Maybe
PostBillingPortalConfigurationsRequestBodyFeatures'PaymentMethodUpdate'
-> Maybe
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'
-> Maybe
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionPause'
-> Maybe
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'
-> PostBillingPortalConfigurationsRequestBodyFeatures')
-> Parser
(Maybe
PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'
-> Maybe
PostBillingPortalConfigurationsRequestBodyFeatures'InvoiceHistory'
-> Maybe
PostBillingPortalConfigurationsRequestBodyFeatures'PaymentMethodUpdate'
-> Maybe
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'
-> Maybe
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionPause'
-> Maybe
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'
-> PostBillingPortalConfigurationsRequestBodyFeatures')
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure Maybe
PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'
-> Maybe
PostBillingPortalConfigurationsRequestBodyFeatures'InvoiceHistory'
-> Maybe
PostBillingPortalConfigurationsRequestBodyFeatures'PaymentMethodUpdate'
-> Maybe
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'
-> Maybe
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionPause'
-> Maybe
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'
-> PostBillingPortalConfigurationsRequestBodyFeatures'
PostBillingPortalConfigurationsRequestBodyFeatures' Parser
(Maybe
PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'
-> Maybe
PostBillingPortalConfigurationsRequestBodyFeatures'InvoiceHistory'
-> Maybe
PostBillingPortalConfigurationsRequestBodyFeatures'PaymentMethodUpdate'
-> Maybe
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'
-> Maybe
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionPause'
-> Maybe
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'
-> PostBillingPortalConfigurationsRequestBodyFeatures')
-> Parser
(Maybe
PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate')
-> Parser
(Maybe
PostBillingPortalConfigurationsRequestBodyFeatures'InvoiceHistory'
-> Maybe
PostBillingPortalConfigurationsRequestBodyFeatures'PaymentMethodUpdate'
-> Maybe
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'
-> Maybe
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionPause'
-> Maybe
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'
-> PostBillingPortalConfigurationsRequestBodyFeatures')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object
-> Text
-> Parser
(Maybe
PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate')
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"customer_update")) Parser
(Maybe
PostBillingPortalConfigurationsRequestBodyFeatures'InvoiceHistory'
-> Maybe
PostBillingPortalConfigurationsRequestBodyFeatures'PaymentMethodUpdate'
-> Maybe
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'
-> Maybe
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionPause'
-> Maybe
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'
-> PostBillingPortalConfigurationsRequestBodyFeatures')
-> Parser
(Maybe
PostBillingPortalConfigurationsRequestBodyFeatures'InvoiceHistory')
-> Parser
(Maybe
PostBillingPortalConfigurationsRequestBodyFeatures'PaymentMethodUpdate'
-> Maybe
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'
-> Maybe
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionPause'
-> Maybe
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'
-> PostBillingPortalConfigurationsRequestBodyFeatures')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object
-> Text
-> Parser
(Maybe
PostBillingPortalConfigurationsRequestBodyFeatures'InvoiceHistory')
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"invoice_history")) Parser
(Maybe
PostBillingPortalConfigurationsRequestBodyFeatures'PaymentMethodUpdate'
-> Maybe
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'
-> Maybe
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionPause'
-> Maybe
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'
-> PostBillingPortalConfigurationsRequestBodyFeatures')
-> Parser
(Maybe
PostBillingPortalConfigurationsRequestBodyFeatures'PaymentMethodUpdate')
-> Parser
(Maybe
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'
-> Maybe
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionPause'
-> Maybe
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'
-> PostBillingPortalConfigurationsRequestBodyFeatures')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object
-> Text
-> Parser
(Maybe
PostBillingPortalConfigurationsRequestBodyFeatures'PaymentMethodUpdate')
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"payment_method_update")) Parser
(Maybe
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'
-> Maybe
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionPause'
-> Maybe
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'
-> PostBillingPortalConfigurationsRequestBodyFeatures')
-> Parser
(Maybe
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel')
-> Parser
(Maybe
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionPause'
-> Maybe
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'
-> PostBillingPortalConfigurationsRequestBodyFeatures')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object
-> Text
-> Parser
(Maybe
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel')
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"subscription_cancel")) Parser
(Maybe
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionPause'
-> Maybe
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'
-> PostBillingPortalConfigurationsRequestBodyFeatures')
-> Parser
(Maybe
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionPause')
-> Parser
(Maybe
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'
-> PostBillingPortalConfigurationsRequestBodyFeatures')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object
-> Text
-> Parser
(Maybe
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionPause')
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"subscription_pause")) Parser
(Maybe
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'
-> PostBillingPortalConfigurationsRequestBodyFeatures')
-> Parser
(Maybe
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate')
-> Parser PostBillingPortalConfigurationsRequestBodyFeatures'
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object
-> Text
-> Parser
(Maybe
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate')
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"subscription_update"))
mkPostBillingPortalConfigurationsRequestBodyFeatures' :: PostBillingPortalConfigurationsRequestBodyFeatures'
mkPostBillingPortalConfigurationsRequestBodyFeatures' :: PostBillingPortalConfigurationsRequestBodyFeatures'
mkPostBillingPortalConfigurationsRequestBodyFeatures' =
PostBillingPortalConfigurationsRequestBodyFeatures' :: Maybe
PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'
-> Maybe
PostBillingPortalConfigurationsRequestBodyFeatures'InvoiceHistory'
-> Maybe
PostBillingPortalConfigurationsRequestBodyFeatures'PaymentMethodUpdate'
-> Maybe
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'
-> Maybe
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionPause'
-> Maybe
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'
-> PostBillingPortalConfigurationsRequestBodyFeatures'
PostBillingPortalConfigurationsRequestBodyFeatures'
{ postBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate :: Maybe
PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'
postBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate = Maybe
PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'
forall a. Maybe a
GHC.Maybe.Nothing,
postBillingPortalConfigurationsRequestBodyFeatures'InvoiceHistory :: Maybe
PostBillingPortalConfigurationsRequestBodyFeatures'InvoiceHistory'
postBillingPortalConfigurationsRequestBodyFeatures'InvoiceHistory = Maybe
PostBillingPortalConfigurationsRequestBodyFeatures'InvoiceHistory'
forall a. Maybe a
GHC.Maybe.Nothing,
postBillingPortalConfigurationsRequestBodyFeatures'PaymentMethodUpdate :: Maybe
PostBillingPortalConfigurationsRequestBodyFeatures'PaymentMethodUpdate'
postBillingPortalConfigurationsRequestBodyFeatures'PaymentMethodUpdate = Maybe
PostBillingPortalConfigurationsRequestBodyFeatures'PaymentMethodUpdate'
forall a. Maybe a
GHC.Maybe.Nothing,
postBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel :: Maybe
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'
postBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel = Maybe
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'
forall a. Maybe a
GHC.Maybe.Nothing,
postBillingPortalConfigurationsRequestBodyFeatures'SubscriptionPause :: Maybe
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionPause'
postBillingPortalConfigurationsRequestBodyFeatures'SubscriptionPause = Maybe
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionPause'
forall a. Maybe a
GHC.Maybe.Nothing,
postBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate :: Maybe
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'
postBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate = Maybe
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'
forall a. Maybe a
GHC.Maybe.Nothing
}
data PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate' = PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'
{
PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'
-> PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'AllowedUpdates'Variants
postBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'AllowedUpdates :: PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'AllowedUpdates'Variants,
PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'
-> Bool
postBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'Enabled :: GHC.Types.Bool
}
deriving
( Int
-> PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'
-> ShowS
[PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate']
-> ShowS
PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'
-> String
(Int
-> PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'
-> ShowS)
-> (PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'
-> String)
-> ([PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate']
-> ShowS)
-> Show
PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate']
-> ShowS
$cshowList :: [PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate']
-> ShowS
show :: PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'
-> String
$cshow :: PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'
-> String
showsPrec :: Int
-> PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'
-> ShowS
$cshowsPrec :: Int
-> PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'
-> ShowS
GHC.Show.Show,
PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'
-> PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'
-> Bool
(PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'
-> PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'
-> Bool)
-> (PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'
-> PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'
-> Bool)
-> Eq
PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'
-> PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'
-> Bool
$c/= :: PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'
-> PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'
-> Bool
== :: PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'
-> PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'
-> Bool
$c== :: PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'
-> PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'
-> Bool
GHC.Classes.Eq
)
instance Data.Aeson.Types.ToJSON.ToJSON PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate' where
toJSON :: PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'
-> Value
toJSON PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'
obj = [Pair] -> Value
Data.Aeson.Types.Internal.object (Text
"allowed_updates" Text
-> PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'AllowedUpdates'Variants
-> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'
-> PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'AllowedUpdates'Variants
postBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'AllowedUpdates PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"enabled" Text -> Bool -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'
-> Bool
postBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'Enabled PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: [Pair]
forall a. Monoid a => a
GHC.Base.mempty)
toEncoding :: PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'
-> Encoding
toEncoding PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'
obj = Series -> Encoding
Data.Aeson.Encoding.Internal.pairs ((Text
"allowed_updates" Text
-> PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'AllowedUpdates'Variants
-> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'
-> PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'AllowedUpdates'Variants
postBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'AllowedUpdates PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> (Text
"enabled" Text -> Bool -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'
-> Bool
postBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'Enabled PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'
obj))
instance Data.Aeson.Types.FromJSON.FromJSON PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate' where
parseJSON :: Value
-> Parser
PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'
parseJSON = String
-> (Object
-> Parser
PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate')
-> Value
-> Parser
PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'
forall a. String -> (Object -> Parser a) -> Value -> Parser a
Data.Aeson.Types.FromJSON.withObject String
"PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'" (\Object
obj -> ((PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'AllowedUpdates'Variants
-> Bool
-> PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate')
-> Parser
(PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'AllowedUpdates'Variants
-> Bool
-> PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate')
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'AllowedUpdates'Variants
-> Bool
-> PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'
PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate' Parser
(PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'AllowedUpdates'Variants
-> Bool
-> PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate')
-> Parser
PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'AllowedUpdates'Variants
-> Parser
(Bool
-> PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object
-> Text
-> Parser
PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'AllowedUpdates'Variants
forall a. FromJSON a => Object -> Text -> Parser a
Data.Aeson.Types.FromJSON..: Text
"allowed_updates")) Parser
(Bool
-> PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate')
-> Parser Bool
-> Parser
PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser Bool
forall a. FromJSON a => Object -> Text -> Parser a
Data.Aeson.Types.FromJSON..: Text
"enabled"))
mkPostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate' ::
PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'AllowedUpdates'Variants ->
GHC.Types.Bool ->
PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'
mkPostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate' :: PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'AllowedUpdates'Variants
-> Bool
-> PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'
mkPostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate' PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'AllowedUpdates'Variants
postBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'AllowedUpdates Bool
postBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'Enabled =
PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate' :: PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'AllowedUpdates'Variants
-> Bool
-> PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'
PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'
{ postBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'AllowedUpdates :: PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'AllowedUpdates'Variants
postBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'AllowedUpdates = PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'AllowedUpdates'Variants
postBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'AllowedUpdates,
postBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'Enabled :: Bool
postBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'Enabled = Bool
postBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'Enabled
}
data PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'AllowedUpdates'OneOf1
=
PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'AllowedUpdates'OneOf1Other Data.Aeson.Types.Internal.Value
|
PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'AllowedUpdates'OneOf1Typed Data.Text.Internal.Text
|
PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'AllowedUpdates'OneOf1EnumAddress
|
PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'AllowedUpdates'OneOf1EnumEmail
|
PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'AllowedUpdates'OneOf1EnumPhone
|
PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'AllowedUpdates'OneOf1EnumShipping
|
PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'AllowedUpdates'OneOf1EnumTaxId
deriving (Int
-> PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'AllowedUpdates'OneOf1
-> ShowS
[PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'AllowedUpdates'OneOf1]
-> ShowS
PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'AllowedUpdates'OneOf1
-> String
(Int
-> PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'AllowedUpdates'OneOf1
-> ShowS)
-> (PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'AllowedUpdates'OneOf1
-> String)
-> ([PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'AllowedUpdates'OneOf1]
-> ShowS)
-> Show
PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'AllowedUpdates'OneOf1
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'AllowedUpdates'OneOf1]
-> ShowS
$cshowList :: [PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'AllowedUpdates'OneOf1]
-> ShowS
show :: PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'AllowedUpdates'OneOf1
-> String
$cshow :: PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'AllowedUpdates'OneOf1
-> String
showsPrec :: Int
-> PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'AllowedUpdates'OneOf1
-> ShowS
$cshowsPrec :: Int
-> PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'AllowedUpdates'OneOf1
-> ShowS
GHC.Show.Show, PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'AllowedUpdates'OneOf1
-> PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'AllowedUpdates'OneOf1
-> Bool
(PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'AllowedUpdates'OneOf1
-> PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'AllowedUpdates'OneOf1
-> Bool)
-> (PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'AllowedUpdates'OneOf1
-> PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'AllowedUpdates'OneOf1
-> Bool)
-> Eq
PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'AllowedUpdates'OneOf1
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'AllowedUpdates'OneOf1
-> PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'AllowedUpdates'OneOf1
-> Bool
$c/= :: PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'AllowedUpdates'OneOf1
-> PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'AllowedUpdates'OneOf1
-> Bool
== :: PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'AllowedUpdates'OneOf1
-> PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'AllowedUpdates'OneOf1
-> Bool
$c== :: PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'AllowedUpdates'OneOf1
-> PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'AllowedUpdates'OneOf1
-> Bool
GHC.Classes.Eq)
instance Data.Aeson.Types.ToJSON.ToJSON PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'AllowedUpdates'OneOf1 where
toJSON :: PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'AllowedUpdates'OneOf1
-> Value
toJSON (PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'AllowedUpdates'OneOf1Other Value
val) = Value
val
toJSON (PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'AllowedUpdates'OneOf1Typed Text
val) = Text -> Value
forall a. ToJSON a => a -> Value
Data.Aeson.Types.ToJSON.toJSON Text
val
toJSON (PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'AllowedUpdates'OneOf1
PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'AllowedUpdates'OneOf1EnumAddress) = Value
"address"
toJSON (PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'AllowedUpdates'OneOf1
PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'AllowedUpdates'OneOf1EnumEmail) = Value
"email"
toJSON (PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'AllowedUpdates'OneOf1
PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'AllowedUpdates'OneOf1EnumPhone) = Value
"phone"
toJSON (PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'AllowedUpdates'OneOf1
PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'AllowedUpdates'OneOf1EnumShipping) = Value
"shipping"
toJSON (PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'AllowedUpdates'OneOf1
PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'AllowedUpdates'OneOf1EnumTaxId) = Value
"tax_id"
instance Data.Aeson.Types.FromJSON.FromJSON PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'AllowedUpdates'OneOf1 where
parseJSON :: Value
-> Parser
PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'AllowedUpdates'OneOf1
parseJSON Value
val =
PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'AllowedUpdates'OneOf1
-> Parser
PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'AllowedUpdates'OneOf1
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure
( if
| Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"address" -> PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'AllowedUpdates'OneOf1
PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'AllowedUpdates'OneOf1EnumAddress
| Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"email" -> PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'AllowedUpdates'OneOf1
PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'AllowedUpdates'OneOf1EnumEmail
| Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"phone" -> PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'AllowedUpdates'OneOf1
PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'AllowedUpdates'OneOf1EnumPhone
| Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"shipping" -> PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'AllowedUpdates'OneOf1
PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'AllowedUpdates'OneOf1EnumShipping
| Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"tax_id" -> PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'AllowedUpdates'OneOf1
PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'AllowedUpdates'OneOf1EnumTaxId
| Bool
GHC.Base.otherwise -> Value
-> PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'AllowedUpdates'OneOf1
PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'AllowedUpdates'OneOf1Other Value
val
)
data PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'AllowedUpdates'Variants
=
PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'AllowedUpdates'EmptyString
| PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'AllowedUpdates'ListTPostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'AllowedUpdates'OneOf1 ([PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'AllowedUpdates'OneOf1])
deriving (Int
-> PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'AllowedUpdates'Variants
-> ShowS
[PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'AllowedUpdates'Variants]
-> ShowS
PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'AllowedUpdates'Variants
-> String
(Int
-> PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'AllowedUpdates'Variants
-> ShowS)
-> (PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'AllowedUpdates'Variants
-> String)
-> ([PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'AllowedUpdates'Variants]
-> ShowS)
-> Show
PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'AllowedUpdates'Variants
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'AllowedUpdates'Variants]
-> ShowS
$cshowList :: [PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'AllowedUpdates'Variants]
-> ShowS
show :: PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'AllowedUpdates'Variants
-> String
$cshow :: PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'AllowedUpdates'Variants
-> String
showsPrec :: Int
-> PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'AllowedUpdates'Variants
-> ShowS
$cshowsPrec :: Int
-> PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'AllowedUpdates'Variants
-> ShowS
GHC.Show.Show, PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'AllowedUpdates'Variants
-> PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'AllowedUpdates'Variants
-> Bool
(PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'AllowedUpdates'Variants
-> PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'AllowedUpdates'Variants
-> Bool)
-> (PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'AllowedUpdates'Variants
-> PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'AllowedUpdates'Variants
-> Bool)
-> Eq
PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'AllowedUpdates'Variants
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'AllowedUpdates'Variants
-> PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'AllowedUpdates'Variants
-> Bool
$c/= :: PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'AllowedUpdates'Variants
-> PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'AllowedUpdates'Variants
-> Bool
== :: PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'AllowedUpdates'Variants
-> PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'AllowedUpdates'Variants
-> Bool
$c== :: PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'AllowedUpdates'Variants
-> PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'AllowedUpdates'Variants
-> Bool
GHC.Classes.Eq)
instance Data.Aeson.Types.ToJSON.ToJSON PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'AllowedUpdates'Variants where
toJSON :: PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'AllowedUpdates'Variants
-> Value
toJSON (PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'AllowedUpdates'ListTPostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'AllowedUpdates'OneOf1 [PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'AllowedUpdates'OneOf1]
a) = [PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'AllowedUpdates'OneOf1]
-> Value
forall a. ToJSON a => a -> Value
Data.Aeson.Types.ToJSON.toJSON [PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'AllowedUpdates'OneOf1]
a
toJSON (PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'AllowedUpdates'Variants
PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'AllowedUpdates'EmptyString) = Value
""
instance Data.Aeson.Types.FromJSON.FromJSON PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'AllowedUpdates'Variants where
parseJSON :: Value
-> Parser
PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'AllowedUpdates'Variants
parseJSON Value
val =
if
| Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"" -> PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'AllowedUpdates'Variants
-> Parser
PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'AllowedUpdates'Variants
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'AllowedUpdates'Variants
PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'AllowedUpdates'EmptyString
| Bool
GHC.Base.otherwise -> case ([PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'AllowedUpdates'OneOf1]
-> PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'AllowedUpdates'Variants
PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'AllowedUpdates'ListTPostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'AllowedUpdates'OneOf1 ([PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'AllowedUpdates'OneOf1]
-> PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'AllowedUpdates'Variants)
-> Result
[PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'AllowedUpdates'OneOf1]
-> Result
PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'AllowedUpdates'Variants
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Data.Functor.<$> Value
-> Result
[PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'AllowedUpdates'OneOf1]
forall a. FromJSON a => Value -> Result a
Data.Aeson.Types.FromJSON.fromJSON Value
val) Result
PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'AllowedUpdates'Variants
-> Result
PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'AllowedUpdates'Variants
-> Result
PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'AllowedUpdates'Variants
forall (f :: * -> *) a. Alternative f => f a -> f a -> f a
GHC.Base.<|> String
-> Result
PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'AllowedUpdates'Variants
forall a. String -> Result a
Data.Aeson.Types.Internal.Error String
"No variant matched" of
Data.Aeson.Types.Internal.Success PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'AllowedUpdates'Variants
a -> PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'AllowedUpdates'Variants
-> Parser
PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'AllowedUpdates'Variants
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'AllowedUpdates'Variants
a
Data.Aeson.Types.Internal.Error String
a -> String
-> Parser
PostBillingPortalConfigurationsRequestBodyFeatures'CustomerUpdate'AllowedUpdates'Variants
forall (m :: * -> *) a. MonadFail m => String -> m a
Control.Monad.Fail.fail String
a
data PostBillingPortalConfigurationsRequestBodyFeatures'InvoiceHistory' = PostBillingPortalConfigurationsRequestBodyFeatures'InvoiceHistory'
{
PostBillingPortalConfigurationsRequestBodyFeatures'InvoiceHistory'
-> Bool
postBillingPortalConfigurationsRequestBodyFeatures'InvoiceHistory'Enabled :: GHC.Types.Bool
}
deriving
( Int
-> PostBillingPortalConfigurationsRequestBodyFeatures'InvoiceHistory'
-> ShowS
[PostBillingPortalConfigurationsRequestBodyFeatures'InvoiceHistory']
-> ShowS
PostBillingPortalConfigurationsRequestBodyFeatures'InvoiceHistory'
-> String
(Int
-> PostBillingPortalConfigurationsRequestBodyFeatures'InvoiceHistory'
-> ShowS)
-> (PostBillingPortalConfigurationsRequestBodyFeatures'InvoiceHistory'
-> String)
-> ([PostBillingPortalConfigurationsRequestBodyFeatures'InvoiceHistory']
-> ShowS)
-> Show
PostBillingPortalConfigurationsRequestBodyFeatures'InvoiceHistory'
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PostBillingPortalConfigurationsRequestBodyFeatures'InvoiceHistory']
-> ShowS
$cshowList :: [PostBillingPortalConfigurationsRequestBodyFeatures'InvoiceHistory']
-> ShowS
show :: PostBillingPortalConfigurationsRequestBodyFeatures'InvoiceHistory'
-> String
$cshow :: PostBillingPortalConfigurationsRequestBodyFeatures'InvoiceHistory'
-> String
showsPrec :: Int
-> PostBillingPortalConfigurationsRequestBodyFeatures'InvoiceHistory'
-> ShowS
$cshowsPrec :: Int
-> PostBillingPortalConfigurationsRequestBodyFeatures'InvoiceHistory'
-> ShowS
GHC.Show.Show,
PostBillingPortalConfigurationsRequestBodyFeatures'InvoiceHistory'
-> PostBillingPortalConfigurationsRequestBodyFeatures'InvoiceHistory'
-> Bool
(PostBillingPortalConfigurationsRequestBodyFeatures'InvoiceHistory'
-> PostBillingPortalConfigurationsRequestBodyFeatures'InvoiceHistory'
-> Bool)
-> (PostBillingPortalConfigurationsRequestBodyFeatures'InvoiceHistory'
-> PostBillingPortalConfigurationsRequestBodyFeatures'InvoiceHistory'
-> Bool)
-> Eq
PostBillingPortalConfigurationsRequestBodyFeatures'InvoiceHistory'
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostBillingPortalConfigurationsRequestBodyFeatures'InvoiceHistory'
-> PostBillingPortalConfigurationsRequestBodyFeatures'InvoiceHistory'
-> Bool
$c/= :: PostBillingPortalConfigurationsRequestBodyFeatures'InvoiceHistory'
-> PostBillingPortalConfigurationsRequestBodyFeatures'InvoiceHistory'
-> Bool
== :: PostBillingPortalConfigurationsRequestBodyFeatures'InvoiceHistory'
-> PostBillingPortalConfigurationsRequestBodyFeatures'InvoiceHistory'
-> Bool
$c== :: PostBillingPortalConfigurationsRequestBodyFeatures'InvoiceHistory'
-> PostBillingPortalConfigurationsRequestBodyFeatures'InvoiceHistory'
-> Bool
GHC.Classes.Eq
)
instance Data.Aeson.Types.ToJSON.ToJSON PostBillingPortalConfigurationsRequestBodyFeatures'InvoiceHistory' where
toJSON :: PostBillingPortalConfigurationsRequestBodyFeatures'InvoiceHistory'
-> Value
toJSON PostBillingPortalConfigurationsRequestBodyFeatures'InvoiceHistory'
obj = [Pair] -> Value
Data.Aeson.Types.Internal.object (Text
"enabled" Text -> Bool -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostBillingPortalConfigurationsRequestBodyFeatures'InvoiceHistory'
-> Bool
postBillingPortalConfigurationsRequestBodyFeatures'InvoiceHistory'Enabled PostBillingPortalConfigurationsRequestBodyFeatures'InvoiceHistory'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: [Pair]
forall a. Monoid a => a
GHC.Base.mempty)
toEncoding :: PostBillingPortalConfigurationsRequestBodyFeatures'InvoiceHistory'
-> Encoding
toEncoding PostBillingPortalConfigurationsRequestBodyFeatures'InvoiceHistory'
obj = Series -> Encoding
Data.Aeson.Encoding.Internal.pairs (Text
"enabled" Text -> Bool -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostBillingPortalConfigurationsRequestBodyFeatures'InvoiceHistory'
-> Bool
postBillingPortalConfigurationsRequestBodyFeatures'InvoiceHistory'Enabled PostBillingPortalConfigurationsRequestBodyFeatures'InvoiceHistory'
obj)
instance Data.Aeson.Types.FromJSON.FromJSON PostBillingPortalConfigurationsRequestBodyFeatures'InvoiceHistory' where
parseJSON :: Value
-> Parser
PostBillingPortalConfigurationsRequestBodyFeatures'InvoiceHistory'
parseJSON = String
-> (Object
-> Parser
PostBillingPortalConfigurationsRequestBodyFeatures'InvoiceHistory')
-> Value
-> Parser
PostBillingPortalConfigurationsRequestBodyFeatures'InvoiceHistory'
forall a. String -> (Object -> Parser a) -> Value -> Parser a
Data.Aeson.Types.FromJSON.withObject String
"PostBillingPortalConfigurationsRequestBodyFeatures'InvoiceHistory'" (\Object
obj -> (Bool
-> PostBillingPortalConfigurationsRequestBodyFeatures'InvoiceHistory')
-> Parser
(Bool
-> PostBillingPortalConfigurationsRequestBodyFeatures'InvoiceHistory')
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure Bool
-> PostBillingPortalConfigurationsRequestBodyFeatures'InvoiceHistory'
PostBillingPortalConfigurationsRequestBodyFeatures'InvoiceHistory' Parser
(Bool
-> PostBillingPortalConfigurationsRequestBodyFeatures'InvoiceHistory')
-> Parser Bool
-> Parser
PostBillingPortalConfigurationsRequestBodyFeatures'InvoiceHistory'
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser Bool
forall a. FromJSON a => Object -> Text -> Parser a
Data.Aeson.Types.FromJSON..: Text
"enabled"))
mkPostBillingPortalConfigurationsRequestBodyFeatures'InvoiceHistory' ::
GHC.Types.Bool ->
PostBillingPortalConfigurationsRequestBodyFeatures'InvoiceHistory'
mkPostBillingPortalConfigurationsRequestBodyFeatures'InvoiceHistory' :: Bool
-> PostBillingPortalConfigurationsRequestBodyFeatures'InvoiceHistory'
mkPostBillingPortalConfigurationsRequestBodyFeatures'InvoiceHistory' Bool
postBillingPortalConfigurationsRequestBodyFeatures'InvoiceHistory'Enabled = PostBillingPortalConfigurationsRequestBodyFeatures'InvoiceHistory' :: Bool
-> PostBillingPortalConfigurationsRequestBodyFeatures'InvoiceHistory'
PostBillingPortalConfigurationsRequestBodyFeatures'InvoiceHistory' {postBillingPortalConfigurationsRequestBodyFeatures'InvoiceHistory'Enabled :: Bool
postBillingPortalConfigurationsRequestBodyFeatures'InvoiceHistory'Enabled = Bool
postBillingPortalConfigurationsRequestBodyFeatures'InvoiceHistory'Enabled}
data PostBillingPortalConfigurationsRequestBodyFeatures'PaymentMethodUpdate' = PostBillingPortalConfigurationsRequestBodyFeatures'PaymentMethodUpdate'
{
PostBillingPortalConfigurationsRequestBodyFeatures'PaymentMethodUpdate'
-> Bool
postBillingPortalConfigurationsRequestBodyFeatures'PaymentMethodUpdate'Enabled :: GHC.Types.Bool
}
deriving
( Int
-> PostBillingPortalConfigurationsRequestBodyFeatures'PaymentMethodUpdate'
-> ShowS
[PostBillingPortalConfigurationsRequestBodyFeatures'PaymentMethodUpdate']
-> ShowS
PostBillingPortalConfigurationsRequestBodyFeatures'PaymentMethodUpdate'
-> String
(Int
-> PostBillingPortalConfigurationsRequestBodyFeatures'PaymentMethodUpdate'
-> ShowS)
-> (PostBillingPortalConfigurationsRequestBodyFeatures'PaymentMethodUpdate'
-> String)
-> ([PostBillingPortalConfigurationsRequestBodyFeatures'PaymentMethodUpdate']
-> ShowS)
-> Show
PostBillingPortalConfigurationsRequestBodyFeatures'PaymentMethodUpdate'
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PostBillingPortalConfigurationsRequestBodyFeatures'PaymentMethodUpdate']
-> ShowS
$cshowList :: [PostBillingPortalConfigurationsRequestBodyFeatures'PaymentMethodUpdate']
-> ShowS
show :: PostBillingPortalConfigurationsRequestBodyFeatures'PaymentMethodUpdate'
-> String
$cshow :: PostBillingPortalConfigurationsRequestBodyFeatures'PaymentMethodUpdate'
-> String
showsPrec :: Int
-> PostBillingPortalConfigurationsRequestBodyFeatures'PaymentMethodUpdate'
-> ShowS
$cshowsPrec :: Int
-> PostBillingPortalConfigurationsRequestBodyFeatures'PaymentMethodUpdate'
-> ShowS
GHC.Show.Show,
PostBillingPortalConfigurationsRequestBodyFeatures'PaymentMethodUpdate'
-> PostBillingPortalConfigurationsRequestBodyFeatures'PaymentMethodUpdate'
-> Bool
(PostBillingPortalConfigurationsRequestBodyFeatures'PaymentMethodUpdate'
-> PostBillingPortalConfigurationsRequestBodyFeatures'PaymentMethodUpdate'
-> Bool)
-> (PostBillingPortalConfigurationsRequestBodyFeatures'PaymentMethodUpdate'
-> PostBillingPortalConfigurationsRequestBodyFeatures'PaymentMethodUpdate'
-> Bool)
-> Eq
PostBillingPortalConfigurationsRequestBodyFeatures'PaymentMethodUpdate'
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostBillingPortalConfigurationsRequestBodyFeatures'PaymentMethodUpdate'
-> PostBillingPortalConfigurationsRequestBodyFeatures'PaymentMethodUpdate'
-> Bool
$c/= :: PostBillingPortalConfigurationsRequestBodyFeatures'PaymentMethodUpdate'
-> PostBillingPortalConfigurationsRequestBodyFeatures'PaymentMethodUpdate'
-> Bool
== :: PostBillingPortalConfigurationsRequestBodyFeatures'PaymentMethodUpdate'
-> PostBillingPortalConfigurationsRequestBodyFeatures'PaymentMethodUpdate'
-> Bool
$c== :: PostBillingPortalConfigurationsRequestBodyFeatures'PaymentMethodUpdate'
-> PostBillingPortalConfigurationsRequestBodyFeatures'PaymentMethodUpdate'
-> Bool
GHC.Classes.Eq
)
instance Data.Aeson.Types.ToJSON.ToJSON PostBillingPortalConfigurationsRequestBodyFeatures'PaymentMethodUpdate' where
toJSON :: PostBillingPortalConfigurationsRequestBodyFeatures'PaymentMethodUpdate'
-> Value
toJSON PostBillingPortalConfigurationsRequestBodyFeatures'PaymentMethodUpdate'
obj = [Pair] -> Value
Data.Aeson.Types.Internal.object (Text
"enabled" Text -> Bool -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostBillingPortalConfigurationsRequestBodyFeatures'PaymentMethodUpdate'
-> Bool
postBillingPortalConfigurationsRequestBodyFeatures'PaymentMethodUpdate'Enabled PostBillingPortalConfigurationsRequestBodyFeatures'PaymentMethodUpdate'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: [Pair]
forall a. Monoid a => a
GHC.Base.mempty)
toEncoding :: PostBillingPortalConfigurationsRequestBodyFeatures'PaymentMethodUpdate'
-> Encoding
toEncoding PostBillingPortalConfigurationsRequestBodyFeatures'PaymentMethodUpdate'
obj = Series -> Encoding
Data.Aeson.Encoding.Internal.pairs (Text
"enabled" Text -> Bool -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostBillingPortalConfigurationsRequestBodyFeatures'PaymentMethodUpdate'
-> Bool
postBillingPortalConfigurationsRequestBodyFeatures'PaymentMethodUpdate'Enabled PostBillingPortalConfigurationsRequestBodyFeatures'PaymentMethodUpdate'
obj)
instance Data.Aeson.Types.FromJSON.FromJSON PostBillingPortalConfigurationsRequestBodyFeatures'PaymentMethodUpdate' where
parseJSON :: Value
-> Parser
PostBillingPortalConfigurationsRequestBodyFeatures'PaymentMethodUpdate'
parseJSON = String
-> (Object
-> Parser
PostBillingPortalConfigurationsRequestBodyFeatures'PaymentMethodUpdate')
-> Value
-> Parser
PostBillingPortalConfigurationsRequestBodyFeatures'PaymentMethodUpdate'
forall a. String -> (Object -> Parser a) -> Value -> Parser a
Data.Aeson.Types.FromJSON.withObject String
"PostBillingPortalConfigurationsRequestBodyFeatures'PaymentMethodUpdate'" (\Object
obj -> (Bool
-> PostBillingPortalConfigurationsRequestBodyFeatures'PaymentMethodUpdate')
-> Parser
(Bool
-> PostBillingPortalConfigurationsRequestBodyFeatures'PaymentMethodUpdate')
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure Bool
-> PostBillingPortalConfigurationsRequestBodyFeatures'PaymentMethodUpdate'
PostBillingPortalConfigurationsRequestBodyFeatures'PaymentMethodUpdate' Parser
(Bool
-> PostBillingPortalConfigurationsRequestBodyFeatures'PaymentMethodUpdate')
-> Parser Bool
-> Parser
PostBillingPortalConfigurationsRequestBodyFeatures'PaymentMethodUpdate'
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser Bool
forall a. FromJSON a => Object -> Text -> Parser a
Data.Aeson.Types.FromJSON..: Text
"enabled"))
mkPostBillingPortalConfigurationsRequestBodyFeatures'PaymentMethodUpdate' ::
GHC.Types.Bool ->
PostBillingPortalConfigurationsRequestBodyFeatures'PaymentMethodUpdate'
mkPostBillingPortalConfigurationsRequestBodyFeatures'PaymentMethodUpdate' :: Bool
-> PostBillingPortalConfigurationsRequestBodyFeatures'PaymentMethodUpdate'
mkPostBillingPortalConfigurationsRequestBodyFeatures'PaymentMethodUpdate' Bool
postBillingPortalConfigurationsRequestBodyFeatures'PaymentMethodUpdate'Enabled = PostBillingPortalConfigurationsRequestBodyFeatures'PaymentMethodUpdate' :: Bool
-> PostBillingPortalConfigurationsRequestBodyFeatures'PaymentMethodUpdate'
PostBillingPortalConfigurationsRequestBodyFeatures'PaymentMethodUpdate' {postBillingPortalConfigurationsRequestBodyFeatures'PaymentMethodUpdate'Enabled :: Bool
postBillingPortalConfigurationsRequestBodyFeatures'PaymentMethodUpdate'Enabled = Bool
postBillingPortalConfigurationsRequestBodyFeatures'PaymentMethodUpdate'Enabled}
data PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel' = PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'
{
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'
-> Bool
postBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'Enabled :: GHC.Types.Bool,
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'
-> Maybe
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'Mode'
postBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'Mode :: (GHC.Maybe.Maybe PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'Mode'),
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'
-> Maybe
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'ProrationBehavior'
postBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'ProrationBehavior :: (GHC.Maybe.Maybe PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'ProrationBehavior')
}
deriving
( Int
-> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'
-> ShowS
[PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel']
-> ShowS
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'
-> String
(Int
-> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'
-> ShowS)
-> (PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'
-> String)
-> ([PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel']
-> ShowS)
-> Show
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel']
-> ShowS
$cshowList :: [PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel']
-> ShowS
show :: PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'
-> String
$cshow :: PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'
-> String
showsPrec :: Int
-> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'
-> ShowS
$cshowsPrec :: Int
-> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'
-> ShowS
GHC.Show.Show,
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'
-> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'
-> Bool
(PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'
-> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'
-> Bool)
-> (PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'
-> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'
-> Bool)
-> Eq
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'
-> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'
-> Bool
$c/= :: PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'
-> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'
-> Bool
== :: PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'
-> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'
-> Bool
$c== :: PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'
-> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'
-> Bool
GHC.Classes.Eq
)
instance Data.Aeson.Types.ToJSON.ToJSON PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel' where
toJSON :: PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'
-> Value
toJSON PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'
obj = [Pair] -> Value
Data.Aeson.Types.Internal.object (Text
"enabled" Text -> Bool -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'
-> Bool
postBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'Enabled PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"mode" Text
-> Maybe
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'Mode'
-> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'
-> Maybe
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'Mode'
postBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'Mode PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"proration_behavior" Text
-> Maybe
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'ProrationBehavior'
-> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'
-> Maybe
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'ProrationBehavior'
postBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'ProrationBehavior PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: [Pair]
forall a. Monoid a => a
GHC.Base.mempty)
toEncoding :: PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'
-> Encoding
toEncoding PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'
obj = Series -> Encoding
Data.Aeson.Encoding.Internal.pairs ((Text
"enabled" Text -> Bool -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'
-> Bool
postBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'Enabled PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"mode" Text
-> Maybe
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'Mode'
-> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'
-> Maybe
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'Mode'
postBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'Mode PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> (Text
"proration_behavior" Text
-> Maybe
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'ProrationBehavior'
-> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'
-> Maybe
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'ProrationBehavior'
postBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'ProrationBehavior PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'
obj)))
instance Data.Aeson.Types.FromJSON.FromJSON PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel' where
parseJSON :: Value
-> Parser
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'
parseJSON = String
-> (Object
-> Parser
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel')
-> Value
-> Parser
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'
forall a. String -> (Object -> Parser a) -> Value -> Parser a
Data.Aeson.Types.FromJSON.withObject String
"PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'" (\Object
obj -> (((Bool
-> Maybe
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'Mode'
-> Maybe
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'ProrationBehavior'
-> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel')
-> Parser
(Bool
-> Maybe
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'Mode'
-> Maybe
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'ProrationBehavior'
-> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel')
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure Bool
-> Maybe
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'Mode'
-> Maybe
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'ProrationBehavior'
-> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel' Parser
(Bool
-> Maybe
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'Mode'
-> Maybe
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'ProrationBehavior'
-> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel')
-> Parser Bool
-> Parser
(Maybe
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'Mode'
-> Maybe
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'ProrationBehavior'
-> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser Bool
forall a. FromJSON a => Object -> Text -> Parser a
Data.Aeson.Types.FromJSON..: Text
"enabled")) Parser
(Maybe
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'Mode'
-> Maybe
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'ProrationBehavior'
-> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel')
-> Parser
(Maybe
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'Mode')
-> Parser
(Maybe
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'ProrationBehavior'
-> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object
-> Text
-> Parser
(Maybe
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'Mode')
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"mode")) Parser
(Maybe
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'ProrationBehavior'
-> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel')
-> Parser
(Maybe
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'ProrationBehavior')
-> Parser
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object
-> Text
-> Parser
(Maybe
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'ProrationBehavior')
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"proration_behavior"))
mkPostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel' ::
GHC.Types.Bool ->
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'
mkPostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel' :: Bool
-> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'
mkPostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel' Bool
postBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'Enabled =
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel' :: Bool
-> Maybe
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'Mode'
-> Maybe
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'ProrationBehavior'
-> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'
{ postBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'Enabled :: Bool
postBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'Enabled = Bool
postBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'Enabled,
postBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'Mode :: Maybe
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'Mode'
postBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'Mode = Maybe
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'Mode'
forall a. Maybe a
GHC.Maybe.Nothing,
postBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'ProrationBehavior :: Maybe
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'ProrationBehavior'
postBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'ProrationBehavior = Maybe
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'ProrationBehavior'
forall a. Maybe a
GHC.Maybe.Nothing
}
data PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'Mode'
=
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'Mode'Other Data.Aeson.Types.Internal.Value
|
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'Mode'Typed Data.Text.Internal.Text
|
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'Mode'EnumAtPeriodEnd
|
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'Mode'EnumImmediately
deriving (Int
-> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'Mode'
-> ShowS
[PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'Mode']
-> ShowS
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'Mode'
-> String
(Int
-> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'Mode'
-> ShowS)
-> (PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'Mode'
-> String)
-> ([PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'Mode']
-> ShowS)
-> Show
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'Mode'
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'Mode']
-> ShowS
$cshowList :: [PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'Mode']
-> ShowS
show :: PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'Mode'
-> String
$cshow :: PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'Mode'
-> String
showsPrec :: Int
-> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'Mode'
-> ShowS
$cshowsPrec :: Int
-> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'Mode'
-> ShowS
GHC.Show.Show, PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'Mode'
-> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'Mode'
-> Bool
(PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'Mode'
-> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'Mode'
-> Bool)
-> (PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'Mode'
-> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'Mode'
-> Bool)
-> Eq
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'Mode'
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'Mode'
-> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'Mode'
-> Bool
$c/= :: PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'Mode'
-> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'Mode'
-> Bool
== :: PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'Mode'
-> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'Mode'
-> Bool
$c== :: PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'Mode'
-> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'Mode'
-> Bool
GHC.Classes.Eq)
instance Data.Aeson.Types.ToJSON.ToJSON PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'Mode' where
toJSON :: PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'Mode'
-> Value
toJSON (PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'Mode'Other Value
val) = Value
val
toJSON (PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'Mode'Typed Text
val) = Text -> Value
forall a. ToJSON a => a -> Value
Data.Aeson.Types.ToJSON.toJSON Text
val
toJSON (PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'Mode'
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'Mode'EnumAtPeriodEnd) = Value
"at_period_end"
toJSON (PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'Mode'
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'Mode'EnumImmediately) = Value
"immediately"
instance Data.Aeson.Types.FromJSON.FromJSON PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'Mode' where
parseJSON :: Value
-> Parser
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'Mode'
parseJSON Value
val =
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'Mode'
-> Parser
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'Mode'
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure
( if
| Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"at_period_end" -> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'Mode'
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'Mode'EnumAtPeriodEnd
| Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"immediately" -> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'Mode'
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'Mode'EnumImmediately
| Bool
GHC.Base.otherwise -> Value
-> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'Mode'
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'Mode'Other Value
val
)
data PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'ProrationBehavior'
=
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'ProrationBehavior'Other Data.Aeson.Types.Internal.Value
|
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'ProrationBehavior'Typed Data.Text.Internal.Text
|
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'ProrationBehavior'EnumAlwaysInvoice
|
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'ProrationBehavior'EnumCreateProrations
|
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'ProrationBehavior'EnumNone
deriving (Int
-> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'ProrationBehavior'
-> ShowS
[PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'ProrationBehavior']
-> ShowS
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'ProrationBehavior'
-> String
(Int
-> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'ProrationBehavior'
-> ShowS)
-> (PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'ProrationBehavior'
-> String)
-> ([PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'ProrationBehavior']
-> ShowS)
-> Show
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'ProrationBehavior'
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'ProrationBehavior']
-> ShowS
$cshowList :: [PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'ProrationBehavior']
-> ShowS
show :: PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'ProrationBehavior'
-> String
$cshow :: PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'ProrationBehavior'
-> String
showsPrec :: Int
-> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'ProrationBehavior'
-> ShowS
$cshowsPrec :: Int
-> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'ProrationBehavior'
-> ShowS
GHC.Show.Show, PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'ProrationBehavior'
-> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'ProrationBehavior'
-> Bool
(PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'ProrationBehavior'
-> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'ProrationBehavior'
-> Bool)
-> (PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'ProrationBehavior'
-> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'ProrationBehavior'
-> Bool)
-> Eq
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'ProrationBehavior'
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'ProrationBehavior'
-> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'ProrationBehavior'
-> Bool
$c/= :: PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'ProrationBehavior'
-> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'ProrationBehavior'
-> Bool
== :: PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'ProrationBehavior'
-> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'ProrationBehavior'
-> Bool
$c== :: PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'ProrationBehavior'
-> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'ProrationBehavior'
-> Bool
GHC.Classes.Eq)
instance Data.Aeson.Types.ToJSON.ToJSON PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'ProrationBehavior' where
toJSON :: PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'ProrationBehavior'
-> Value
toJSON (PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'ProrationBehavior'Other Value
val) = Value
val
toJSON (PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'ProrationBehavior'Typed Text
val) = Text -> Value
forall a. ToJSON a => a -> Value
Data.Aeson.Types.ToJSON.toJSON Text
val
toJSON (PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'ProrationBehavior'
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'ProrationBehavior'EnumAlwaysInvoice) = Value
"always_invoice"
toJSON (PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'ProrationBehavior'
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'ProrationBehavior'EnumCreateProrations) = Value
"create_prorations"
toJSON (PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'ProrationBehavior'
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'ProrationBehavior'EnumNone) = Value
"none"
instance Data.Aeson.Types.FromJSON.FromJSON PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'ProrationBehavior' where
parseJSON :: Value
-> Parser
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'ProrationBehavior'
parseJSON Value
val =
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'ProrationBehavior'
-> Parser
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'ProrationBehavior'
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure
( if
| Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"always_invoice" -> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'ProrationBehavior'
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'ProrationBehavior'EnumAlwaysInvoice
| Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"create_prorations" -> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'ProrationBehavior'
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'ProrationBehavior'EnumCreateProrations
| Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"none" -> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'ProrationBehavior'
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'ProrationBehavior'EnumNone
| Bool
GHC.Base.otherwise -> Value
-> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'ProrationBehavior'
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionCancel'ProrationBehavior'Other Value
val
)
data PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionPause' = PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionPause'
{
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionPause'
-> Maybe Bool
postBillingPortalConfigurationsRequestBodyFeatures'SubscriptionPause'Enabled :: (GHC.Maybe.Maybe GHC.Types.Bool)
}
deriving
( Int
-> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionPause'
-> ShowS
[PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionPause']
-> ShowS
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionPause'
-> String
(Int
-> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionPause'
-> ShowS)
-> (PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionPause'
-> String)
-> ([PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionPause']
-> ShowS)
-> Show
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionPause'
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionPause']
-> ShowS
$cshowList :: [PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionPause']
-> ShowS
show :: PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionPause'
-> String
$cshow :: PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionPause'
-> String
showsPrec :: Int
-> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionPause'
-> ShowS
$cshowsPrec :: Int
-> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionPause'
-> ShowS
GHC.Show.Show,
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionPause'
-> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionPause'
-> Bool
(PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionPause'
-> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionPause'
-> Bool)
-> (PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionPause'
-> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionPause'
-> Bool)
-> Eq
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionPause'
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionPause'
-> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionPause'
-> Bool
$c/= :: PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionPause'
-> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionPause'
-> Bool
== :: PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionPause'
-> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionPause'
-> Bool
$c== :: PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionPause'
-> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionPause'
-> Bool
GHC.Classes.Eq
)
instance Data.Aeson.Types.ToJSON.ToJSON PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionPause' where
toJSON :: PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionPause'
-> Value
toJSON PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionPause'
obj = [Pair] -> Value
Data.Aeson.Types.Internal.object (Text
"enabled" Text -> Maybe Bool -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionPause'
-> Maybe Bool
postBillingPortalConfigurationsRequestBodyFeatures'SubscriptionPause'Enabled PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionPause'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: [Pair]
forall a. Monoid a => a
GHC.Base.mempty)
toEncoding :: PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionPause'
-> Encoding
toEncoding PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionPause'
obj = Series -> Encoding
Data.Aeson.Encoding.Internal.pairs (Text
"enabled" Text -> Maybe Bool -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionPause'
-> Maybe Bool
postBillingPortalConfigurationsRequestBodyFeatures'SubscriptionPause'Enabled PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionPause'
obj)
instance Data.Aeson.Types.FromJSON.FromJSON PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionPause' where
parseJSON :: Value
-> Parser
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionPause'
parseJSON = String
-> (Object
-> Parser
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionPause')
-> Value
-> Parser
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionPause'
forall a. String -> (Object -> Parser a) -> Value -> Parser a
Data.Aeson.Types.FromJSON.withObject String
"PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionPause'" (\Object
obj -> (Maybe Bool
-> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionPause')
-> Parser
(Maybe Bool
-> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionPause')
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure Maybe Bool
-> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionPause'
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionPause' Parser
(Maybe Bool
-> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionPause')
-> Parser (Maybe Bool)
-> Parser
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionPause'
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser (Maybe Bool)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"enabled"))
mkPostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionPause' :: PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionPause'
mkPostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionPause' :: PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionPause'
mkPostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionPause' = PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionPause' :: Maybe Bool
-> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionPause'
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionPause' {postBillingPortalConfigurationsRequestBodyFeatures'SubscriptionPause'Enabled :: Maybe Bool
postBillingPortalConfigurationsRequestBodyFeatures'SubscriptionPause'Enabled = Maybe Bool
forall a. Maybe a
GHC.Maybe.Nothing}
data PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate' = PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'
{
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'
-> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'DefaultAllowedUpdates'Variants
postBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'DefaultAllowedUpdates :: PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'DefaultAllowedUpdates'Variants,
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'
-> Bool
postBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Enabled :: GHC.Types.Bool,
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'
-> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Products'Variants
postBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Products :: PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Products'Variants,
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'
-> Maybe
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'ProrationBehavior'
postBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'ProrationBehavior :: (GHC.Maybe.Maybe PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'ProrationBehavior')
}
deriving
( Int
-> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'
-> ShowS
[PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate']
-> ShowS
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'
-> String
(Int
-> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'
-> ShowS)
-> (PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'
-> String)
-> ([PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate']
-> ShowS)
-> Show
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate']
-> ShowS
$cshowList :: [PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate']
-> ShowS
show :: PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'
-> String
$cshow :: PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'
-> String
showsPrec :: Int
-> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'
-> ShowS
$cshowsPrec :: Int
-> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'
-> ShowS
GHC.Show.Show,
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'
-> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'
-> Bool
(PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'
-> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'
-> Bool)
-> (PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'
-> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'
-> Bool)
-> Eq
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'
-> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'
-> Bool
$c/= :: PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'
-> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'
-> Bool
== :: PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'
-> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'
-> Bool
$c== :: PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'
-> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'
-> Bool
GHC.Classes.Eq
)
instance Data.Aeson.Types.ToJSON.ToJSON PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate' where
toJSON :: PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'
-> Value
toJSON PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'
obj = [Pair] -> Value
Data.Aeson.Types.Internal.object (Text
"default_allowed_updates" Text
-> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'DefaultAllowedUpdates'Variants
-> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'
-> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'DefaultAllowedUpdates'Variants
postBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'DefaultAllowedUpdates PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"enabled" Text -> Bool -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'
-> Bool
postBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Enabled PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"products" Text
-> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Products'Variants
-> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'
-> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Products'Variants
postBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Products PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"proration_behavior" Text
-> Maybe
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'ProrationBehavior'
-> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'
-> Maybe
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'ProrationBehavior'
postBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'ProrationBehavior PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: [Pair]
forall a. Monoid a => a
GHC.Base.mempty)
toEncoding :: PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'
-> Encoding
toEncoding PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'
obj = Series -> Encoding
Data.Aeson.Encoding.Internal.pairs ((Text
"default_allowed_updates" Text
-> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'DefaultAllowedUpdates'Variants
-> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'
-> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'DefaultAllowedUpdates'Variants
postBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'DefaultAllowedUpdates PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"enabled" Text -> Bool -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'
-> Bool
postBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Enabled PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> ((Text
"products" Text
-> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Products'Variants
-> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'
-> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Products'Variants
postBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Products PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> (Text
"proration_behavior" Text
-> Maybe
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'ProrationBehavior'
-> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'
-> Maybe
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'ProrationBehavior'
postBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'ProrationBehavior PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'
obj))))
instance Data.Aeson.Types.FromJSON.FromJSON PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate' where
parseJSON :: Value
-> Parser
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'
parseJSON = String
-> (Object
-> Parser
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate')
-> Value
-> Parser
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'
forall a. String -> (Object -> Parser a) -> Value -> Parser a
Data.Aeson.Types.FromJSON.withObject String
"PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'" (\Object
obj -> ((((PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'DefaultAllowedUpdates'Variants
-> Bool
-> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Products'Variants
-> Maybe
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'ProrationBehavior'
-> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate')
-> Parser
(PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'DefaultAllowedUpdates'Variants
-> Bool
-> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Products'Variants
-> Maybe
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'ProrationBehavior'
-> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate')
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'DefaultAllowedUpdates'Variants
-> Bool
-> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Products'Variants
-> Maybe
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'ProrationBehavior'
-> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate' Parser
(PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'DefaultAllowedUpdates'Variants
-> Bool
-> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Products'Variants
-> Maybe
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'ProrationBehavior'
-> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate')
-> Parser
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'DefaultAllowedUpdates'Variants
-> Parser
(Bool
-> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Products'Variants
-> Maybe
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'ProrationBehavior'
-> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object
-> Text
-> Parser
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'DefaultAllowedUpdates'Variants
forall a. FromJSON a => Object -> Text -> Parser a
Data.Aeson.Types.FromJSON..: Text
"default_allowed_updates")) Parser
(Bool
-> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Products'Variants
-> Maybe
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'ProrationBehavior'
-> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate')
-> Parser Bool
-> Parser
(PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Products'Variants
-> Maybe
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'ProrationBehavior'
-> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser Bool
forall a. FromJSON a => Object -> Text -> Parser a
Data.Aeson.Types.FromJSON..: Text
"enabled")) Parser
(PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Products'Variants
-> Maybe
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'ProrationBehavior'
-> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate')
-> Parser
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Products'Variants
-> Parser
(Maybe
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'ProrationBehavior'
-> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate')
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object
-> Text
-> Parser
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Products'Variants
forall a. FromJSON a => Object -> Text -> Parser a
Data.Aeson.Types.FromJSON..: Text
"products")) Parser
(Maybe
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'ProrationBehavior'
-> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate')
-> Parser
(Maybe
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'ProrationBehavior')
-> Parser
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object
-> Text
-> Parser
(Maybe
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'ProrationBehavior')
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Text
"proration_behavior"))
mkPostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate' ::
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'DefaultAllowedUpdates'Variants ->
GHC.Types.Bool ->
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Products'Variants ->
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'
mkPostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate' :: PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'DefaultAllowedUpdates'Variants
-> Bool
-> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Products'Variants
-> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'
mkPostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate' PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'DefaultAllowedUpdates'Variants
postBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'DefaultAllowedUpdates Bool
postBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Enabled PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Products'Variants
postBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Products =
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate' :: PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'DefaultAllowedUpdates'Variants
-> Bool
-> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Products'Variants
-> Maybe
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'ProrationBehavior'
-> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'
{ postBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'DefaultAllowedUpdates :: PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'DefaultAllowedUpdates'Variants
postBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'DefaultAllowedUpdates = PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'DefaultAllowedUpdates'Variants
postBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'DefaultAllowedUpdates,
postBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Enabled :: Bool
postBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Enabled = Bool
postBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Enabled,
postBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Products :: PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Products'Variants
postBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Products = PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Products'Variants
postBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Products,
postBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'ProrationBehavior :: Maybe
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'ProrationBehavior'
postBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'ProrationBehavior = Maybe
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'ProrationBehavior'
forall a. Maybe a
GHC.Maybe.Nothing
}
data PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'DefaultAllowedUpdates'OneOf1
=
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'DefaultAllowedUpdates'OneOf1Other Data.Aeson.Types.Internal.Value
|
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'DefaultAllowedUpdates'OneOf1Typed Data.Text.Internal.Text
|
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'DefaultAllowedUpdates'OneOf1EnumPrice
|
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'DefaultAllowedUpdates'OneOf1EnumPromotionCode
|
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'DefaultAllowedUpdates'OneOf1EnumQuantity
deriving (Int
-> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'DefaultAllowedUpdates'OneOf1
-> ShowS
[PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'DefaultAllowedUpdates'OneOf1]
-> ShowS
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'DefaultAllowedUpdates'OneOf1
-> String
(Int
-> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'DefaultAllowedUpdates'OneOf1
-> ShowS)
-> (PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'DefaultAllowedUpdates'OneOf1
-> String)
-> ([PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'DefaultAllowedUpdates'OneOf1]
-> ShowS)
-> Show
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'DefaultAllowedUpdates'OneOf1
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'DefaultAllowedUpdates'OneOf1]
-> ShowS
$cshowList :: [PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'DefaultAllowedUpdates'OneOf1]
-> ShowS
show :: PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'DefaultAllowedUpdates'OneOf1
-> String
$cshow :: PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'DefaultAllowedUpdates'OneOf1
-> String
showsPrec :: Int
-> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'DefaultAllowedUpdates'OneOf1
-> ShowS
$cshowsPrec :: Int
-> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'DefaultAllowedUpdates'OneOf1
-> ShowS
GHC.Show.Show, PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'DefaultAllowedUpdates'OneOf1
-> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'DefaultAllowedUpdates'OneOf1
-> Bool
(PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'DefaultAllowedUpdates'OneOf1
-> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'DefaultAllowedUpdates'OneOf1
-> Bool)
-> (PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'DefaultAllowedUpdates'OneOf1
-> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'DefaultAllowedUpdates'OneOf1
-> Bool)
-> Eq
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'DefaultAllowedUpdates'OneOf1
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'DefaultAllowedUpdates'OneOf1
-> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'DefaultAllowedUpdates'OneOf1
-> Bool
$c/= :: PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'DefaultAllowedUpdates'OneOf1
-> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'DefaultAllowedUpdates'OneOf1
-> Bool
== :: PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'DefaultAllowedUpdates'OneOf1
-> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'DefaultAllowedUpdates'OneOf1
-> Bool
$c== :: PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'DefaultAllowedUpdates'OneOf1
-> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'DefaultAllowedUpdates'OneOf1
-> Bool
GHC.Classes.Eq)
instance Data.Aeson.Types.ToJSON.ToJSON PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'DefaultAllowedUpdates'OneOf1 where
toJSON :: PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'DefaultAllowedUpdates'OneOf1
-> Value
toJSON (PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'DefaultAllowedUpdates'OneOf1Other Value
val) = Value
val
toJSON (PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'DefaultAllowedUpdates'OneOf1Typed Text
val) = Text -> Value
forall a. ToJSON a => a -> Value
Data.Aeson.Types.ToJSON.toJSON Text
val
toJSON (PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'DefaultAllowedUpdates'OneOf1
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'DefaultAllowedUpdates'OneOf1EnumPrice) = Value
"price"
toJSON (PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'DefaultAllowedUpdates'OneOf1
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'DefaultAllowedUpdates'OneOf1EnumPromotionCode) = Value
"promotion_code"
toJSON (PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'DefaultAllowedUpdates'OneOf1
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'DefaultAllowedUpdates'OneOf1EnumQuantity) = Value
"quantity"
instance Data.Aeson.Types.FromJSON.FromJSON PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'DefaultAllowedUpdates'OneOf1 where
parseJSON :: Value
-> Parser
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'DefaultAllowedUpdates'OneOf1
parseJSON Value
val =
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'DefaultAllowedUpdates'OneOf1
-> Parser
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'DefaultAllowedUpdates'OneOf1
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure
( if
| Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"price" -> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'DefaultAllowedUpdates'OneOf1
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'DefaultAllowedUpdates'OneOf1EnumPrice
| Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"promotion_code" -> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'DefaultAllowedUpdates'OneOf1
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'DefaultAllowedUpdates'OneOf1EnumPromotionCode
| Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"quantity" -> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'DefaultAllowedUpdates'OneOf1
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'DefaultAllowedUpdates'OneOf1EnumQuantity
| Bool
GHC.Base.otherwise -> Value
-> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'DefaultAllowedUpdates'OneOf1
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'DefaultAllowedUpdates'OneOf1Other Value
val
)
data PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'DefaultAllowedUpdates'Variants
=
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'DefaultAllowedUpdates'EmptyString
| PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'DefaultAllowedUpdates'ListTPostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'DefaultAllowedUpdates'OneOf1 ([PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'DefaultAllowedUpdates'OneOf1])
deriving (Int
-> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'DefaultAllowedUpdates'Variants
-> ShowS
[PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'DefaultAllowedUpdates'Variants]
-> ShowS
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'DefaultAllowedUpdates'Variants
-> String
(Int
-> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'DefaultAllowedUpdates'Variants
-> ShowS)
-> (PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'DefaultAllowedUpdates'Variants
-> String)
-> ([PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'DefaultAllowedUpdates'Variants]
-> ShowS)
-> Show
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'DefaultAllowedUpdates'Variants
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'DefaultAllowedUpdates'Variants]
-> ShowS
$cshowList :: [PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'DefaultAllowedUpdates'Variants]
-> ShowS
show :: PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'DefaultAllowedUpdates'Variants
-> String
$cshow :: PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'DefaultAllowedUpdates'Variants
-> String
showsPrec :: Int
-> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'DefaultAllowedUpdates'Variants
-> ShowS
$cshowsPrec :: Int
-> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'DefaultAllowedUpdates'Variants
-> ShowS
GHC.Show.Show, PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'DefaultAllowedUpdates'Variants
-> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'DefaultAllowedUpdates'Variants
-> Bool
(PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'DefaultAllowedUpdates'Variants
-> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'DefaultAllowedUpdates'Variants
-> Bool)
-> (PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'DefaultAllowedUpdates'Variants
-> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'DefaultAllowedUpdates'Variants
-> Bool)
-> Eq
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'DefaultAllowedUpdates'Variants
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'DefaultAllowedUpdates'Variants
-> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'DefaultAllowedUpdates'Variants
-> Bool
$c/= :: PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'DefaultAllowedUpdates'Variants
-> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'DefaultAllowedUpdates'Variants
-> Bool
== :: PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'DefaultAllowedUpdates'Variants
-> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'DefaultAllowedUpdates'Variants
-> Bool
$c== :: PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'DefaultAllowedUpdates'Variants
-> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'DefaultAllowedUpdates'Variants
-> Bool
GHC.Classes.Eq)
instance Data.Aeson.Types.ToJSON.ToJSON PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'DefaultAllowedUpdates'Variants where
toJSON :: PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'DefaultAllowedUpdates'Variants
-> Value
toJSON (PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'DefaultAllowedUpdates'ListTPostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'DefaultAllowedUpdates'OneOf1 [PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'DefaultAllowedUpdates'OneOf1]
a) = [PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'DefaultAllowedUpdates'OneOf1]
-> Value
forall a. ToJSON a => a -> Value
Data.Aeson.Types.ToJSON.toJSON [PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'DefaultAllowedUpdates'OneOf1]
a
toJSON (PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'DefaultAllowedUpdates'Variants
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'DefaultAllowedUpdates'EmptyString) = Value
""
instance Data.Aeson.Types.FromJSON.FromJSON PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'DefaultAllowedUpdates'Variants where
parseJSON :: Value
-> Parser
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'DefaultAllowedUpdates'Variants
parseJSON Value
val =
if
| Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"" -> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'DefaultAllowedUpdates'Variants
-> Parser
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'DefaultAllowedUpdates'Variants
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'DefaultAllowedUpdates'Variants
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'DefaultAllowedUpdates'EmptyString
| Bool
GHC.Base.otherwise -> case ([PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'DefaultAllowedUpdates'OneOf1]
-> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'DefaultAllowedUpdates'Variants
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'DefaultAllowedUpdates'ListTPostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'DefaultAllowedUpdates'OneOf1 ([PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'DefaultAllowedUpdates'OneOf1]
-> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'DefaultAllowedUpdates'Variants)
-> Result
[PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'DefaultAllowedUpdates'OneOf1]
-> Result
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'DefaultAllowedUpdates'Variants
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Data.Functor.<$> Value
-> Result
[PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'DefaultAllowedUpdates'OneOf1]
forall a. FromJSON a => Value -> Result a
Data.Aeson.Types.FromJSON.fromJSON Value
val) Result
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'DefaultAllowedUpdates'Variants
-> Result
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'DefaultAllowedUpdates'Variants
-> Result
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'DefaultAllowedUpdates'Variants
forall (f :: * -> *) a. Alternative f => f a -> f a -> f a
GHC.Base.<|> String
-> Result
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'DefaultAllowedUpdates'Variants
forall a. String -> Result a
Data.Aeson.Types.Internal.Error String
"No variant matched" of
Data.Aeson.Types.Internal.Success PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'DefaultAllowedUpdates'Variants
a -> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'DefaultAllowedUpdates'Variants
-> Parser
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'DefaultAllowedUpdates'Variants
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'DefaultAllowedUpdates'Variants
a
Data.Aeson.Types.Internal.Error String
a -> String
-> Parser
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'DefaultAllowedUpdates'Variants
forall (m :: * -> *) a. MonadFail m => String -> m a
Control.Monad.Fail.fail String
a
data PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Products'OneOf1 = PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Products'OneOf1
{
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Products'OneOf1
-> [Text]
postBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Products'OneOf1Prices :: ([Data.Text.Internal.Text]),
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Products'OneOf1
-> Text
postBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Products'OneOf1Product :: Data.Text.Internal.Text
}
deriving
( Int
-> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Products'OneOf1
-> ShowS
[PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Products'OneOf1]
-> ShowS
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Products'OneOf1
-> String
(Int
-> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Products'OneOf1
-> ShowS)
-> (PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Products'OneOf1
-> String)
-> ([PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Products'OneOf1]
-> ShowS)
-> Show
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Products'OneOf1
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Products'OneOf1]
-> ShowS
$cshowList :: [PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Products'OneOf1]
-> ShowS
show :: PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Products'OneOf1
-> String
$cshow :: PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Products'OneOf1
-> String
showsPrec :: Int
-> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Products'OneOf1
-> ShowS
$cshowsPrec :: Int
-> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Products'OneOf1
-> ShowS
GHC.Show.Show,
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Products'OneOf1
-> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Products'OneOf1
-> Bool
(PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Products'OneOf1
-> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Products'OneOf1
-> Bool)
-> (PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Products'OneOf1
-> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Products'OneOf1
-> Bool)
-> Eq
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Products'OneOf1
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Products'OneOf1
-> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Products'OneOf1
-> Bool
$c/= :: PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Products'OneOf1
-> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Products'OneOf1
-> Bool
== :: PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Products'OneOf1
-> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Products'OneOf1
-> Bool
$c== :: PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Products'OneOf1
-> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Products'OneOf1
-> Bool
GHC.Classes.Eq
)
instance Data.Aeson.Types.ToJSON.ToJSON PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Products'OneOf1 where
toJSON :: PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Products'OneOf1
-> Value
toJSON PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Products'OneOf1
obj = [Pair] -> Value
Data.Aeson.Types.Internal.object (Text
"prices" Text -> [Text] -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Products'OneOf1
-> [Text]
postBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Products'OneOf1Prices PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Products'OneOf1
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: Text
"product" Text -> Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Products'OneOf1
-> Text
postBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Products'OneOf1Product PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Products'OneOf1
obj Pair -> [Pair] -> [Pair]
forall a. a -> [a] -> [a]
: [Pair]
forall a. Monoid a => a
GHC.Base.mempty)
toEncoding :: PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Products'OneOf1
-> Encoding
toEncoding PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Products'OneOf1
obj = Series -> Encoding
Data.Aeson.Encoding.Internal.pairs ((Text
"prices" Text -> [Text] -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Products'OneOf1
-> [Text]
postBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Products'OneOf1Prices PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Products'OneOf1
obj) Series -> Series -> Series
forall a. Semigroup a => a -> a -> a
GHC.Base.<> (Text
"product" Text -> Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Data.Aeson.Types.ToJSON..= PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Products'OneOf1
-> Text
postBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Products'OneOf1Product PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Products'OneOf1
obj))
instance Data.Aeson.Types.FromJSON.FromJSON PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Products'OneOf1 where
parseJSON :: Value
-> Parser
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Products'OneOf1
parseJSON = String
-> (Object
-> Parser
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Products'OneOf1)
-> Value
-> Parser
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Products'OneOf1
forall a. String -> (Object -> Parser a) -> Value -> Parser a
Data.Aeson.Types.FromJSON.withObject String
"PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Products'OneOf1" (\Object
obj -> (([Text]
-> Text
-> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Products'OneOf1)
-> Parser
([Text]
-> Text
-> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Products'OneOf1)
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure [Text]
-> Text
-> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Products'OneOf1
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Products'OneOf1 Parser
([Text]
-> Text
-> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Products'OneOf1)
-> Parser [Text]
-> Parser
(Text
-> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Products'OneOf1)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser [Text]
forall a. FromJSON a => Object -> Text -> Parser a
Data.Aeson.Types.FromJSON..: Text
"prices")) Parser
(Text
-> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Products'OneOf1)
-> Parser Text
-> Parser
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Products'OneOf1
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Text -> Parser Text
forall a. FromJSON a => Object -> Text -> Parser a
Data.Aeson.Types.FromJSON..: Text
"product"))
mkPostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Products'OneOf1 ::
[Data.Text.Internal.Text] ->
Data.Text.Internal.Text ->
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Products'OneOf1
mkPostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Products'OneOf1 :: [Text]
-> Text
-> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Products'OneOf1
mkPostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Products'OneOf1 [Text]
postBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Products'OneOf1Prices Text
postBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Products'OneOf1Product =
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Products'OneOf1 :: [Text]
-> Text
-> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Products'OneOf1
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Products'OneOf1
{ postBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Products'OneOf1Prices :: [Text]
postBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Products'OneOf1Prices = [Text]
postBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Products'OneOf1Prices,
postBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Products'OneOf1Product :: Text
postBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Products'OneOf1Product = Text
postBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Products'OneOf1Product
}
data PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Products'Variants
=
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Products'EmptyString
| PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Products'ListTPostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Products'OneOf1 ([PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Products'OneOf1])
deriving (Int
-> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Products'Variants
-> ShowS
[PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Products'Variants]
-> ShowS
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Products'Variants
-> String
(Int
-> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Products'Variants
-> ShowS)
-> (PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Products'Variants
-> String)
-> ([PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Products'Variants]
-> ShowS)
-> Show
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Products'Variants
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Products'Variants]
-> ShowS
$cshowList :: [PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Products'Variants]
-> ShowS
show :: PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Products'Variants
-> String
$cshow :: PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Products'Variants
-> String
showsPrec :: Int
-> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Products'Variants
-> ShowS
$cshowsPrec :: Int
-> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Products'Variants
-> ShowS
GHC.Show.Show, PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Products'Variants
-> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Products'Variants
-> Bool
(PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Products'Variants
-> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Products'Variants
-> Bool)
-> (PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Products'Variants
-> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Products'Variants
-> Bool)
-> Eq
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Products'Variants
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Products'Variants
-> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Products'Variants
-> Bool
$c/= :: PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Products'Variants
-> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Products'Variants
-> Bool
== :: PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Products'Variants
-> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Products'Variants
-> Bool
$c== :: PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Products'Variants
-> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Products'Variants
-> Bool
GHC.Classes.Eq)
instance Data.Aeson.Types.ToJSON.ToJSON PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Products'Variants where
toJSON :: PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Products'Variants
-> Value
toJSON (PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Products'ListTPostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Products'OneOf1 [PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Products'OneOf1]
a) = [PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Products'OneOf1]
-> Value
forall a. ToJSON a => a -> Value
Data.Aeson.Types.ToJSON.toJSON [PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Products'OneOf1]
a
toJSON (PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Products'Variants
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Products'EmptyString) = Value
""
instance Data.Aeson.Types.FromJSON.FromJSON PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Products'Variants where
parseJSON :: Value
-> Parser
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Products'Variants
parseJSON Value
val =
if
| Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"" -> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Products'Variants
-> Parser
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Products'Variants
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Products'Variants
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Products'EmptyString
| Bool
GHC.Base.otherwise -> case ([PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Products'OneOf1]
-> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Products'Variants
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Products'ListTPostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Products'OneOf1 ([PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Products'OneOf1]
-> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Products'Variants)
-> Result
[PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Products'OneOf1]
-> Result
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Products'Variants
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Data.Functor.<$> Value
-> Result
[PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Products'OneOf1]
forall a. FromJSON a => Value -> Result a
Data.Aeson.Types.FromJSON.fromJSON Value
val) Result
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Products'Variants
-> Result
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Products'Variants
-> Result
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Products'Variants
forall (f :: * -> *) a. Alternative f => f a -> f a -> f a
GHC.Base.<|> String
-> Result
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Products'Variants
forall a. String -> Result a
Data.Aeson.Types.Internal.Error String
"No variant matched" of
Data.Aeson.Types.Internal.Success PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Products'Variants
a -> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Products'Variants
-> Parser
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Products'Variants
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Products'Variants
a
Data.Aeson.Types.Internal.Error String
a -> String
-> Parser
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'Products'Variants
forall (m :: * -> *) a. MonadFail m => String -> m a
Control.Monad.Fail.fail String
a
data PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'ProrationBehavior'
=
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'ProrationBehavior'Other Data.Aeson.Types.Internal.Value
|
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'ProrationBehavior'Typed Data.Text.Internal.Text
|
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'ProrationBehavior'EnumAlwaysInvoice
|
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'ProrationBehavior'EnumCreateProrations
|
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'ProrationBehavior'EnumNone
deriving (Int
-> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'ProrationBehavior'
-> ShowS
[PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'ProrationBehavior']
-> ShowS
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'ProrationBehavior'
-> String
(Int
-> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'ProrationBehavior'
-> ShowS)
-> (PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'ProrationBehavior'
-> String)
-> ([PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'ProrationBehavior']
-> ShowS)
-> Show
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'ProrationBehavior'
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'ProrationBehavior']
-> ShowS
$cshowList :: [PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'ProrationBehavior']
-> ShowS
show :: PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'ProrationBehavior'
-> String
$cshow :: PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'ProrationBehavior'
-> String
showsPrec :: Int
-> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'ProrationBehavior'
-> ShowS
$cshowsPrec :: Int
-> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'ProrationBehavior'
-> ShowS
GHC.Show.Show, PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'ProrationBehavior'
-> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'ProrationBehavior'
-> Bool
(PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'ProrationBehavior'
-> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'ProrationBehavior'
-> Bool)
-> (PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'ProrationBehavior'
-> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'ProrationBehavior'
-> Bool)
-> Eq
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'ProrationBehavior'
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'ProrationBehavior'
-> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'ProrationBehavior'
-> Bool
$c/= :: PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'ProrationBehavior'
-> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'ProrationBehavior'
-> Bool
== :: PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'ProrationBehavior'
-> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'ProrationBehavior'
-> Bool
$c== :: PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'ProrationBehavior'
-> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'ProrationBehavior'
-> Bool
GHC.Classes.Eq)
instance Data.Aeson.Types.ToJSON.ToJSON PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'ProrationBehavior' where
toJSON :: PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'ProrationBehavior'
-> Value
toJSON (PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'ProrationBehavior'Other Value
val) = Value
val
toJSON (PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'ProrationBehavior'Typed Text
val) = Text -> Value
forall a. ToJSON a => a -> Value
Data.Aeson.Types.ToJSON.toJSON Text
val
toJSON (PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'ProrationBehavior'
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'ProrationBehavior'EnumAlwaysInvoice) = Value
"always_invoice"
toJSON (PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'ProrationBehavior'
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'ProrationBehavior'EnumCreateProrations) = Value
"create_prorations"
toJSON (PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'ProrationBehavior'
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'ProrationBehavior'EnumNone) = Value
"none"
instance Data.Aeson.Types.FromJSON.FromJSON PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'ProrationBehavior' where
parseJSON :: Value
-> Parser
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'ProrationBehavior'
parseJSON Value
val =
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'ProrationBehavior'
-> Parser
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'ProrationBehavior'
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure
( if
| Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"always_invoice" -> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'ProrationBehavior'
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'ProrationBehavior'EnumAlwaysInvoice
| Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"create_prorations" -> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'ProrationBehavior'
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'ProrationBehavior'EnumCreateProrations
| Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"none" -> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'ProrationBehavior'
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'ProrationBehavior'EnumNone
| Bool
GHC.Base.otherwise -> Value
-> PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'ProrationBehavior'
PostBillingPortalConfigurationsRequestBodyFeatures'SubscriptionUpdate'ProrationBehavior'Other Value
val
)
data PostBillingPortalConfigurationsResponse
=
PostBillingPortalConfigurationsResponseError GHC.Base.String
|
PostBillingPortalConfigurationsResponse200 BillingPortal'configuration
|
PostBillingPortalConfigurationsResponseDefault Error
deriving (Int -> PostBillingPortalConfigurationsResponse -> ShowS
[PostBillingPortalConfigurationsResponse] -> ShowS
PostBillingPortalConfigurationsResponse -> String
(Int -> PostBillingPortalConfigurationsResponse -> ShowS)
-> (PostBillingPortalConfigurationsResponse -> String)
-> ([PostBillingPortalConfigurationsResponse] -> ShowS)
-> Show PostBillingPortalConfigurationsResponse
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PostBillingPortalConfigurationsResponse] -> ShowS
$cshowList :: [PostBillingPortalConfigurationsResponse] -> ShowS
show :: PostBillingPortalConfigurationsResponse -> String
$cshow :: PostBillingPortalConfigurationsResponse -> String
showsPrec :: Int -> PostBillingPortalConfigurationsResponse -> ShowS
$cshowsPrec :: Int -> PostBillingPortalConfigurationsResponse -> ShowS
GHC.Show.Show, PostBillingPortalConfigurationsResponse
-> PostBillingPortalConfigurationsResponse -> Bool
(PostBillingPortalConfigurationsResponse
-> PostBillingPortalConfigurationsResponse -> Bool)
-> (PostBillingPortalConfigurationsResponse
-> PostBillingPortalConfigurationsResponse -> Bool)
-> Eq PostBillingPortalConfigurationsResponse
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PostBillingPortalConfigurationsResponse
-> PostBillingPortalConfigurationsResponse -> Bool
$c/= :: PostBillingPortalConfigurationsResponse
-> PostBillingPortalConfigurationsResponse -> Bool
== :: PostBillingPortalConfigurationsResponse
-> PostBillingPortalConfigurationsResponse -> Bool
$c== :: PostBillingPortalConfigurationsResponse
-> PostBillingPortalConfigurationsResponse -> Bool
GHC.Classes.Eq)