{-# LANGUAGE MultiWayIf #-}
-- CHANGE WITH CAUTION: This is a generated code file generated by https://github.com/Haskell-OpenAPI-Code-Generator/Haskell-OpenAPI-Client-Code-Generator.
{-# LANGUAGE OverloadedStrings #-}

-- | Contains the types generated from the schema AccountAcquisitionUpdate
module RecurlyClient.Types.AccountAcquisitionUpdate where

import qualified Control.Monad.Fail
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
import qualified Data.ByteString as Data.ByteString.Internal
import qualified Data.Foldable
import qualified Data.Functor
import qualified Data.Maybe
import qualified Data.Scientific
import qualified Data.Text
import qualified Data.Text as 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 GHC.Base
import qualified GHC.Classes
import qualified GHC.Int
import qualified GHC.Show
import qualified GHC.Types
import qualified RecurlyClient.Common
import RecurlyClient.TypeAlias
import qualified Prelude as GHC.Integer.Type
import qualified Prelude as GHC.Maybe

-- | Defines the object schema located at @components.schemas.AccountAcquisitionUpdate@ in the specification.
data AccountAcquisitionUpdate = AccountAcquisitionUpdate
    { AccountAcquisitionUpdate -> Maybe Text
accountAcquisitionUpdateCampaign :: (GHC.Maybe.Maybe Data.Text.Internal.Text)
    -- ^ campaign: An arbitrary identifier for the marketing campaign that led to the acquisition of this account.
    , AccountAcquisitionUpdate -> Maybe AccountAcquisitionUpdateChannel
accountAcquisitionUpdateChannel :: (GHC.Maybe.Maybe AccountAcquisitionUpdateChannel)
    -- ^ channel: The channel through which the account was acquired.
    , AccountAcquisitionUpdate -> Maybe AccountAcquisitionUpdateCost
accountAcquisitionUpdateCost :: (GHC.Maybe.Maybe AccountAcquisitionUpdateCost)
    -- ^ cost
    , AccountAcquisitionUpdate -> Maybe Text
accountAcquisitionUpdateSubchannel :: (GHC.Maybe.Maybe Data.Text.Internal.Text)
    -- ^ subchannel: An arbitrary subchannel string representing a distinction\/subcategory within a broader channel.
    }
    deriving
        ( Int -> AccountAcquisitionUpdate -> ShowS
[AccountAcquisitionUpdate] -> ShowS
AccountAcquisitionUpdate -> String
(Int -> AccountAcquisitionUpdate -> ShowS)
-> (AccountAcquisitionUpdate -> String)
-> ([AccountAcquisitionUpdate] -> ShowS)
-> Show AccountAcquisitionUpdate
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> AccountAcquisitionUpdate -> ShowS
showsPrec :: Int -> AccountAcquisitionUpdate -> ShowS
$cshow :: AccountAcquisitionUpdate -> String
show :: AccountAcquisitionUpdate -> String
$cshowList :: [AccountAcquisitionUpdate] -> ShowS
showList :: [AccountAcquisitionUpdate] -> ShowS
GHC.Show.Show
        , AccountAcquisitionUpdate -> AccountAcquisitionUpdate -> Bool
(AccountAcquisitionUpdate -> AccountAcquisitionUpdate -> Bool)
-> (AccountAcquisitionUpdate -> AccountAcquisitionUpdate -> Bool)
-> Eq AccountAcquisitionUpdate
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: AccountAcquisitionUpdate -> AccountAcquisitionUpdate -> Bool
== :: AccountAcquisitionUpdate -> AccountAcquisitionUpdate -> Bool
$c/= :: AccountAcquisitionUpdate -> AccountAcquisitionUpdate -> Bool
/= :: AccountAcquisitionUpdate -> AccountAcquisitionUpdate -> Bool
GHC.Classes.Eq
        )

instance Data.Aeson.Types.ToJSON.ToJSON AccountAcquisitionUpdate where
    toJSON :: AccountAcquisitionUpdate -> Value
toJSON AccountAcquisitionUpdate
obj = [Pair] -> Value
Data.Aeson.Types.Internal.object ([[Pair]] -> [Pair]
forall (t :: * -> *) a. Foldable t => t [a] -> [a]
Data.Foldable.concat ([Pair] -> (Text -> [Pair]) -> Maybe Text -> [Pair]
forall b a. b -> (a -> b) -> Maybe a -> b
Data.Maybe.maybe [Pair]
forall a. Monoid a => a
GHC.Base.mempty (Pair -> [Pair]
forall a. a -> [a]
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure (Pair -> [Pair]) -> (Text -> Pair) -> Text -> [Pair]
forall b c a. (b -> c) -> (a -> b) -> a -> c
GHC.Base.. (Key
"campaign" Key -> Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
forall v. ToJSON v => Key -> v -> Pair
Data.Aeson.Types.ToJSON..=)) (AccountAcquisitionUpdate -> Maybe Text
accountAcquisitionUpdateCampaign AccountAcquisitionUpdate
obj) [Pair] -> [[Pair]] -> [[Pair]]
forall a. a -> [a] -> [a]
: [Pair]
-> (AccountAcquisitionUpdateChannel -> [Pair])
-> Maybe AccountAcquisitionUpdateChannel
-> [Pair]
forall b a. b -> (a -> b) -> Maybe a -> b
Data.Maybe.maybe [Pair]
forall a. Monoid a => a
GHC.Base.mempty (Pair -> [Pair]
forall a. a -> [a]
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure (Pair -> [Pair])
-> (AccountAcquisitionUpdateChannel -> Pair)
-> AccountAcquisitionUpdateChannel
-> [Pair]
forall b c a. (b -> c) -> (a -> b) -> a -> c
GHC.Base.. (Key
"channel" Key -> AccountAcquisitionUpdateChannel -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
forall v. ToJSON v => Key -> v -> Pair
Data.Aeson.Types.ToJSON..=)) (AccountAcquisitionUpdate -> Maybe AccountAcquisitionUpdateChannel
accountAcquisitionUpdateChannel AccountAcquisitionUpdate
obj) [Pair] -> [[Pair]] -> [[Pair]]
forall a. a -> [a] -> [a]
: [Pair]
-> (AccountAcquisitionUpdateCost -> [Pair])
-> Maybe AccountAcquisitionUpdateCost
-> [Pair]
forall b a. b -> (a -> b) -> Maybe a -> b
Data.Maybe.maybe [Pair]
forall a. Monoid a => a
GHC.Base.mempty (Pair -> [Pair]
forall a. a -> [a]
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure (Pair -> [Pair])
-> (AccountAcquisitionUpdateCost -> Pair)
-> AccountAcquisitionUpdateCost
-> [Pair]
forall b c a. (b -> c) -> (a -> b) -> a -> c
GHC.Base.. (Key
"cost" Key -> AccountAcquisitionUpdateCost -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
forall v. ToJSON v => Key -> v -> Pair
Data.Aeson.Types.ToJSON..=)) (AccountAcquisitionUpdate -> Maybe AccountAcquisitionUpdateCost
accountAcquisitionUpdateCost AccountAcquisitionUpdate
obj) [Pair] -> [[Pair]] -> [[Pair]]
forall a. a -> [a] -> [a]
: [Pair] -> (Text -> [Pair]) -> Maybe Text -> [Pair]
forall b a. b -> (a -> b) -> Maybe a -> b
Data.Maybe.maybe [Pair]
forall a. Monoid a => a
GHC.Base.mempty (Pair -> [Pair]
forall a. a -> [a]
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure (Pair -> [Pair]) -> (Text -> Pair) -> Text -> [Pair]
forall b c a. (b -> c) -> (a -> b) -> a -> c
GHC.Base.. (Key
"subchannel" Key -> Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
forall v. ToJSON v => Key -> v -> Pair
Data.Aeson.Types.ToJSON..=)) (AccountAcquisitionUpdate -> Maybe Text
accountAcquisitionUpdateSubchannel AccountAcquisitionUpdate
obj) [Pair] -> [[Pair]] -> [[Pair]]
forall a. a -> [a] -> [a]
: [[Pair]]
forall a. Monoid a => a
GHC.Base.mempty))
    toEncoding :: AccountAcquisitionUpdate -> Encoding
toEncoding AccountAcquisitionUpdate
obj = Series -> Encoding
Data.Aeson.Encoding.Internal.pairs ([Series] -> Series
forall a. Monoid a => [a] -> a
GHC.Base.mconcat ([[Series]] -> [Series]
forall (t :: * -> *) a. Foldable t => t [a] -> [a]
Data.Foldable.concat ([Series] -> (Text -> [Series]) -> Maybe Text -> [Series]
forall b a. b -> (a -> b) -> Maybe a -> b
Data.Maybe.maybe [Series]
forall a. Monoid a => a
GHC.Base.mempty (Series -> [Series]
forall a. a -> [a]
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure (Series -> [Series]) -> (Text -> Series) -> Text -> [Series]
forall b c a. (b -> c) -> (a -> b) -> a -> c
GHC.Base.. (Key
"campaign" Key -> Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
forall v. ToJSON v => Key -> v -> Series
Data.Aeson.Types.ToJSON..=)) (AccountAcquisitionUpdate -> Maybe Text
accountAcquisitionUpdateCampaign AccountAcquisitionUpdate
obj) [Series] -> [[Series]] -> [[Series]]
forall a. a -> [a] -> [a]
: [Series]
-> (AccountAcquisitionUpdateChannel -> [Series])
-> Maybe AccountAcquisitionUpdateChannel
-> [Series]
forall b a. b -> (a -> b) -> Maybe a -> b
Data.Maybe.maybe [Series]
forall a. Monoid a => a
GHC.Base.mempty (Series -> [Series]
forall a. a -> [a]
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure (Series -> [Series])
-> (AccountAcquisitionUpdateChannel -> Series)
-> AccountAcquisitionUpdateChannel
-> [Series]
forall b c a. (b -> c) -> (a -> b) -> a -> c
GHC.Base.. (Key
"channel" Key -> AccountAcquisitionUpdateChannel -> Series
forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
forall v. ToJSON v => Key -> v -> Series
Data.Aeson.Types.ToJSON..=)) (AccountAcquisitionUpdate -> Maybe AccountAcquisitionUpdateChannel
accountAcquisitionUpdateChannel AccountAcquisitionUpdate
obj) [Series] -> [[Series]] -> [[Series]]
forall a. a -> [a] -> [a]
: [Series]
-> (AccountAcquisitionUpdateCost -> [Series])
-> Maybe AccountAcquisitionUpdateCost
-> [Series]
forall b a. b -> (a -> b) -> Maybe a -> b
Data.Maybe.maybe [Series]
forall a. Monoid a => a
GHC.Base.mempty (Series -> [Series]
forall a. a -> [a]
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure (Series -> [Series])
-> (AccountAcquisitionUpdateCost -> Series)
-> AccountAcquisitionUpdateCost
-> [Series]
forall b c a. (b -> c) -> (a -> b) -> a -> c
GHC.Base.. (Key
"cost" Key -> AccountAcquisitionUpdateCost -> Series
forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
forall v. ToJSON v => Key -> v -> Series
Data.Aeson.Types.ToJSON..=)) (AccountAcquisitionUpdate -> Maybe AccountAcquisitionUpdateCost
accountAcquisitionUpdateCost AccountAcquisitionUpdate
obj) [Series] -> [[Series]] -> [[Series]]
forall a. a -> [a] -> [a]
: [Series] -> (Text -> [Series]) -> Maybe Text -> [Series]
forall b a. b -> (a -> b) -> Maybe a -> b
Data.Maybe.maybe [Series]
forall a. Monoid a => a
GHC.Base.mempty (Series -> [Series]
forall a. a -> [a]
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure (Series -> [Series]) -> (Text -> Series) -> Text -> [Series]
forall b c a. (b -> c) -> (a -> b) -> a -> c
GHC.Base.. (Key
"subchannel" Key -> Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
forall v. ToJSON v => Key -> v -> Series
Data.Aeson.Types.ToJSON..=)) (AccountAcquisitionUpdate -> Maybe Text
accountAcquisitionUpdateSubchannel AccountAcquisitionUpdate
obj) [Series] -> [[Series]] -> [[Series]]
forall a. a -> [a] -> [a]
: [[Series]]
forall a. Monoid a => a
GHC.Base.mempty)))
instance Data.Aeson.Types.FromJSON.FromJSON AccountAcquisitionUpdate where
    parseJSON :: Value -> Parser AccountAcquisitionUpdate
parseJSON = String
-> (Object -> Parser AccountAcquisitionUpdate)
-> Value
-> Parser AccountAcquisitionUpdate
forall a. String -> (Object -> Parser a) -> Value -> Parser a
Data.Aeson.Types.FromJSON.withObject String
"AccountAcquisitionUpdate" (\Object
obj -> ((((Maybe Text
 -> Maybe AccountAcquisitionUpdateChannel
 -> Maybe AccountAcquisitionUpdateCost
 -> Maybe Text
 -> AccountAcquisitionUpdate)
-> Parser
     (Maybe Text
      -> Maybe AccountAcquisitionUpdateChannel
      -> Maybe AccountAcquisitionUpdateCost
      -> Maybe Text
      -> AccountAcquisitionUpdate)
forall a. a -> Parser a
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure Maybe Text
-> Maybe AccountAcquisitionUpdateChannel
-> Maybe AccountAcquisitionUpdateCost
-> Maybe Text
-> AccountAcquisitionUpdate
AccountAcquisitionUpdate Parser
  (Maybe Text
   -> Maybe AccountAcquisitionUpdateChannel
   -> Maybe AccountAcquisitionUpdateCost
   -> Maybe Text
   -> AccountAcquisitionUpdate)
-> Parser (Maybe Text)
-> Parser
     (Maybe AccountAcquisitionUpdateChannel
      -> Maybe AccountAcquisitionUpdateCost
      -> Maybe Text
      -> AccountAcquisitionUpdate)
forall a b. Parser (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Key -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Key
"campaign")) Parser
  (Maybe AccountAcquisitionUpdateChannel
   -> Maybe AccountAcquisitionUpdateCost
   -> Maybe Text
   -> AccountAcquisitionUpdate)
-> Parser (Maybe AccountAcquisitionUpdateChannel)
-> Parser
     (Maybe AccountAcquisitionUpdateCost
      -> Maybe Text -> AccountAcquisitionUpdate)
forall a b. Parser (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Key -> Parser (Maybe AccountAcquisitionUpdateChannel)
forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Key
"channel")) Parser
  (Maybe AccountAcquisitionUpdateCost
   -> Maybe Text -> AccountAcquisitionUpdate)
-> Parser (Maybe AccountAcquisitionUpdateCost)
-> Parser (Maybe Text -> AccountAcquisitionUpdate)
forall a b. Parser (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Key -> Parser (Maybe AccountAcquisitionUpdateCost)
forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Key
"cost")) Parser (Maybe Text -> AccountAcquisitionUpdate)
-> Parser (Maybe Text) -> Parser AccountAcquisitionUpdate
forall a b. Parser (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Key -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Key
"subchannel"))

-- | Create a new 'AccountAcquisitionUpdate' with all required fields.
mkAccountAcquisitionUpdate :: AccountAcquisitionUpdate
mkAccountAcquisitionUpdate :: AccountAcquisitionUpdate
mkAccountAcquisitionUpdate =
    AccountAcquisitionUpdate
        { accountAcquisitionUpdateCampaign :: Maybe Text
accountAcquisitionUpdateCampaign = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing
        , accountAcquisitionUpdateChannel :: Maybe AccountAcquisitionUpdateChannel
accountAcquisitionUpdateChannel = Maybe AccountAcquisitionUpdateChannel
forall a. Maybe a
GHC.Maybe.Nothing
        , accountAcquisitionUpdateCost :: Maybe AccountAcquisitionUpdateCost
accountAcquisitionUpdateCost = Maybe AccountAcquisitionUpdateCost
forall a. Maybe a
GHC.Maybe.Nothing
        , accountAcquisitionUpdateSubchannel :: Maybe Text
accountAcquisitionUpdateSubchannel = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing
        }

{- | Defines the enum schema located at @components.schemas.AccountAcquisitionUpdate.properties.channel@ in the specification.

The channel through which the account was acquired.
-}
data AccountAcquisitionUpdateChannel
    = -- | This case is used if the value encountered during decoding does not match any of the provided cases in the specification.
      AccountAcquisitionUpdateChannelOther Data.Aeson.Types.Internal.Value
    | -- | This constructor can be used to send values to the server which are not present in the specification yet.
      AccountAcquisitionUpdateChannelTyped Data.Text.Internal.Text
    | -- | Represents the JSON value @"advertising"@
      AccountAcquisitionUpdateChannelEnumAdvertising
    | -- | Represents the JSON value @"blog"@
      AccountAcquisitionUpdateChannelEnumBlog
    | -- | Represents the JSON value @"direct_traffic"@
      AccountAcquisitionUpdateChannelEnumDirect_traffic
    | -- | Represents the JSON value @"email"@
      AccountAcquisitionUpdateChannelEnumEmail
    | -- | Represents the JSON value @"events"@
      AccountAcquisitionUpdateChannelEnumEvents
    | -- | Represents the JSON value @"marketing_content"@
      AccountAcquisitionUpdateChannelEnumMarketing_content
    | -- | Represents the JSON value @"organic_search"@
      AccountAcquisitionUpdateChannelEnumOrganic_search
    | -- | Represents the JSON value @"other"@
      AccountAcquisitionUpdateChannelEnumOther
    | -- | Represents the JSON value @"outbound_sales"@
      AccountAcquisitionUpdateChannelEnumOutbound_sales
    | -- | Represents the JSON value @"paid_search"@
      AccountAcquisitionUpdateChannelEnumPaid_search
    | -- | Represents the JSON value @"public_relations"@
      AccountAcquisitionUpdateChannelEnumPublic_relations
    | -- | Represents the JSON value @"referral"@
      AccountAcquisitionUpdateChannelEnumReferral
    | -- | Represents the JSON value @"social_media"@
      AccountAcquisitionUpdateChannelEnumSocial_media
    deriving (Int -> AccountAcquisitionUpdateChannel -> ShowS
[AccountAcquisitionUpdateChannel] -> ShowS
AccountAcquisitionUpdateChannel -> String
(Int -> AccountAcquisitionUpdateChannel -> ShowS)
-> (AccountAcquisitionUpdateChannel -> String)
-> ([AccountAcquisitionUpdateChannel] -> ShowS)
-> Show AccountAcquisitionUpdateChannel
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> AccountAcquisitionUpdateChannel -> ShowS
showsPrec :: Int -> AccountAcquisitionUpdateChannel -> ShowS
$cshow :: AccountAcquisitionUpdateChannel -> String
show :: AccountAcquisitionUpdateChannel -> String
$cshowList :: [AccountAcquisitionUpdateChannel] -> ShowS
showList :: [AccountAcquisitionUpdateChannel] -> ShowS
GHC.Show.Show, AccountAcquisitionUpdateChannel
-> AccountAcquisitionUpdateChannel -> Bool
(AccountAcquisitionUpdateChannel
 -> AccountAcquisitionUpdateChannel -> Bool)
-> (AccountAcquisitionUpdateChannel
    -> AccountAcquisitionUpdateChannel -> Bool)
-> Eq AccountAcquisitionUpdateChannel
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: AccountAcquisitionUpdateChannel
-> AccountAcquisitionUpdateChannel -> Bool
== :: AccountAcquisitionUpdateChannel
-> AccountAcquisitionUpdateChannel -> Bool
$c/= :: AccountAcquisitionUpdateChannel
-> AccountAcquisitionUpdateChannel -> Bool
/= :: AccountAcquisitionUpdateChannel
-> AccountAcquisitionUpdateChannel -> Bool
GHC.Classes.Eq)

instance Data.Aeson.Types.ToJSON.ToJSON AccountAcquisitionUpdateChannel where
    toJSON :: AccountAcquisitionUpdateChannel -> Value
toJSON (AccountAcquisitionUpdateChannelOther Value
val) = Value
val
    toJSON (AccountAcquisitionUpdateChannelTyped Text
val) = Text -> Value
forall a. ToJSON a => a -> Value
Data.Aeson.Types.ToJSON.toJSON Text
val
    toJSON (AccountAcquisitionUpdateChannel
AccountAcquisitionUpdateChannelEnumAdvertising) = Value
"advertising"
    toJSON (AccountAcquisitionUpdateChannel
AccountAcquisitionUpdateChannelEnumBlog) = Value
"blog"
    toJSON (AccountAcquisitionUpdateChannel
AccountAcquisitionUpdateChannelEnumDirect_traffic) = Value
"direct_traffic"
    toJSON (AccountAcquisitionUpdateChannel
AccountAcquisitionUpdateChannelEnumEmail) = Value
"email"
    toJSON (AccountAcquisitionUpdateChannel
AccountAcquisitionUpdateChannelEnumEvents) = Value
"events"
    toJSON (AccountAcquisitionUpdateChannel
AccountAcquisitionUpdateChannelEnumMarketing_content) = Value
"marketing_content"
    toJSON (AccountAcquisitionUpdateChannel
AccountAcquisitionUpdateChannelEnumOrganic_search) = Value
"organic_search"
    toJSON (AccountAcquisitionUpdateChannel
AccountAcquisitionUpdateChannelEnumOther) = Value
"other"
    toJSON (AccountAcquisitionUpdateChannel
AccountAcquisitionUpdateChannelEnumOutbound_sales) = Value
"outbound_sales"
    toJSON (AccountAcquisitionUpdateChannel
AccountAcquisitionUpdateChannelEnumPaid_search) = Value
"paid_search"
    toJSON (AccountAcquisitionUpdateChannel
AccountAcquisitionUpdateChannelEnumPublic_relations) = Value
"public_relations"
    toJSON (AccountAcquisitionUpdateChannel
AccountAcquisitionUpdateChannelEnumReferral) = Value
"referral"
    toJSON (AccountAcquisitionUpdateChannel
AccountAcquisitionUpdateChannelEnumSocial_media) = Value
"social_media"
instance Data.Aeson.Types.FromJSON.FromJSON AccountAcquisitionUpdateChannel where
    parseJSON :: Value -> Parser AccountAcquisitionUpdateChannel
parseJSON Value
val =
        AccountAcquisitionUpdateChannel
-> Parser AccountAcquisitionUpdateChannel
forall a. a -> Parser a
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
"advertising" -> AccountAcquisitionUpdateChannel
AccountAcquisitionUpdateChannelEnumAdvertising
                | Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"blog" -> AccountAcquisitionUpdateChannel
AccountAcquisitionUpdateChannelEnumBlog
                | Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"direct_traffic" -> AccountAcquisitionUpdateChannel
AccountAcquisitionUpdateChannelEnumDirect_traffic
                | Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"email" -> AccountAcquisitionUpdateChannel
AccountAcquisitionUpdateChannelEnumEmail
                | Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"events" -> AccountAcquisitionUpdateChannel
AccountAcquisitionUpdateChannelEnumEvents
                | Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"marketing_content" -> AccountAcquisitionUpdateChannel
AccountAcquisitionUpdateChannelEnumMarketing_content
                | Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"organic_search" -> AccountAcquisitionUpdateChannel
AccountAcquisitionUpdateChannelEnumOrganic_search
                | Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"other" -> AccountAcquisitionUpdateChannel
AccountAcquisitionUpdateChannelEnumOther
                | Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"outbound_sales" -> AccountAcquisitionUpdateChannel
AccountAcquisitionUpdateChannelEnumOutbound_sales
                | Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"paid_search" -> AccountAcquisitionUpdateChannel
AccountAcquisitionUpdateChannelEnumPaid_search
                | Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"public_relations" -> AccountAcquisitionUpdateChannel
AccountAcquisitionUpdateChannelEnumPublic_relations
                | Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"referral" -> AccountAcquisitionUpdateChannel
AccountAcquisitionUpdateChannelEnumReferral
                | Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"social_media" -> AccountAcquisitionUpdateChannel
AccountAcquisitionUpdateChannelEnumSocial_media
                | Bool
GHC.Base.otherwise -> Value -> AccountAcquisitionUpdateChannel
AccountAcquisitionUpdateChannelOther Value
val
            )

-- | Defines the object schema located at @components.schemas.AccountAcquisitionUpdate.properties.cost@ in the specification.
data AccountAcquisitionUpdateCost = AccountAcquisitionUpdateCost
    { AccountAcquisitionUpdateCost -> Maybe Float
accountAcquisitionUpdateCostAmount :: (GHC.Maybe.Maybe GHC.Types.Float)
    -- ^ amount: The amount of the corresponding currency used to acquire the account.
    , AccountAcquisitionUpdateCost -> Maybe Text
accountAcquisitionUpdateCostCurrency :: (GHC.Maybe.Maybe Data.Text.Internal.Text)
    -- ^ currency: 3-letter ISO 4217 currency code.
    --
    -- Constraints:
    --
    -- * Maximum length of 3
    }
    deriving
        ( Int -> AccountAcquisitionUpdateCost -> ShowS
[AccountAcquisitionUpdateCost] -> ShowS
AccountAcquisitionUpdateCost -> String
(Int -> AccountAcquisitionUpdateCost -> ShowS)
-> (AccountAcquisitionUpdateCost -> String)
-> ([AccountAcquisitionUpdateCost] -> ShowS)
-> Show AccountAcquisitionUpdateCost
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> AccountAcquisitionUpdateCost -> ShowS
showsPrec :: Int -> AccountAcquisitionUpdateCost -> ShowS
$cshow :: AccountAcquisitionUpdateCost -> String
show :: AccountAcquisitionUpdateCost -> String
$cshowList :: [AccountAcquisitionUpdateCost] -> ShowS
showList :: [AccountAcquisitionUpdateCost] -> ShowS
GHC.Show.Show
        , AccountAcquisitionUpdateCost
-> AccountAcquisitionUpdateCost -> Bool
(AccountAcquisitionUpdateCost
 -> AccountAcquisitionUpdateCost -> Bool)
-> (AccountAcquisitionUpdateCost
    -> AccountAcquisitionUpdateCost -> Bool)
-> Eq AccountAcquisitionUpdateCost
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: AccountAcquisitionUpdateCost
-> AccountAcquisitionUpdateCost -> Bool
== :: AccountAcquisitionUpdateCost
-> AccountAcquisitionUpdateCost -> Bool
$c/= :: AccountAcquisitionUpdateCost
-> AccountAcquisitionUpdateCost -> Bool
/= :: AccountAcquisitionUpdateCost
-> AccountAcquisitionUpdateCost -> Bool
GHC.Classes.Eq
        )

instance Data.Aeson.Types.ToJSON.ToJSON AccountAcquisitionUpdateCost where
    toJSON :: AccountAcquisitionUpdateCost -> Value
toJSON AccountAcquisitionUpdateCost
obj = [Pair] -> Value
Data.Aeson.Types.Internal.object ([[Pair]] -> [Pair]
forall (t :: * -> *) a. Foldable t => t [a] -> [a]
Data.Foldable.concat ([Pair] -> (Float -> [Pair]) -> Maybe Float -> [Pair]
forall b a. b -> (a -> b) -> Maybe a -> b
Data.Maybe.maybe [Pair]
forall a. Monoid a => a
GHC.Base.mempty (Pair -> [Pair]
forall a. a -> [a]
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure (Pair -> [Pair]) -> (Float -> Pair) -> Float -> [Pair]
forall b c a. (b -> c) -> (a -> b) -> a -> c
GHC.Base.. (Key
"amount" Key -> Float -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
forall v. ToJSON v => Key -> v -> Pair
Data.Aeson.Types.ToJSON..=)) (AccountAcquisitionUpdateCost -> Maybe Float
accountAcquisitionUpdateCostAmount AccountAcquisitionUpdateCost
obj) [Pair] -> [[Pair]] -> [[Pair]]
forall a. a -> [a] -> [a]
: [Pair] -> (Text -> [Pair]) -> Maybe Text -> [Pair]
forall b a. b -> (a -> b) -> Maybe a -> b
Data.Maybe.maybe [Pair]
forall a. Monoid a => a
GHC.Base.mempty (Pair -> [Pair]
forall a. a -> [a]
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure (Pair -> [Pair]) -> (Text -> Pair) -> Text -> [Pair]
forall b c a. (b -> c) -> (a -> b) -> a -> c
GHC.Base.. (Key
"currency" Key -> Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
forall v. ToJSON v => Key -> v -> Pair
Data.Aeson.Types.ToJSON..=)) (AccountAcquisitionUpdateCost -> Maybe Text
accountAcquisitionUpdateCostCurrency AccountAcquisitionUpdateCost
obj) [Pair] -> [[Pair]] -> [[Pair]]
forall a. a -> [a] -> [a]
: [[Pair]]
forall a. Monoid a => a
GHC.Base.mempty))
    toEncoding :: AccountAcquisitionUpdateCost -> Encoding
toEncoding AccountAcquisitionUpdateCost
obj = Series -> Encoding
Data.Aeson.Encoding.Internal.pairs ([Series] -> Series
forall a. Monoid a => [a] -> a
GHC.Base.mconcat ([[Series]] -> [Series]
forall (t :: * -> *) a. Foldable t => t [a] -> [a]
Data.Foldable.concat ([Series] -> (Float -> [Series]) -> Maybe Float -> [Series]
forall b a. b -> (a -> b) -> Maybe a -> b
Data.Maybe.maybe [Series]
forall a. Monoid a => a
GHC.Base.mempty (Series -> [Series]
forall a. a -> [a]
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure (Series -> [Series]) -> (Float -> Series) -> Float -> [Series]
forall b c a. (b -> c) -> (a -> b) -> a -> c
GHC.Base.. (Key
"amount" Key -> Float -> Series
forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
forall v. ToJSON v => Key -> v -> Series
Data.Aeson.Types.ToJSON..=)) (AccountAcquisitionUpdateCost -> Maybe Float
accountAcquisitionUpdateCostAmount AccountAcquisitionUpdateCost
obj) [Series] -> [[Series]] -> [[Series]]
forall a. a -> [a] -> [a]
: [Series] -> (Text -> [Series]) -> Maybe Text -> [Series]
forall b a. b -> (a -> b) -> Maybe a -> b
Data.Maybe.maybe [Series]
forall a. Monoid a => a
GHC.Base.mempty (Series -> [Series]
forall a. a -> [a]
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure (Series -> [Series]) -> (Text -> Series) -> Text -> [Series]
forall b c a. (b -> c) -> (a -> b) -> a -> c
GHC.Base.. (Key
"currency" Key -> Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
forall v. ToJSON v => Key -> v -> Series
Data.Aeson.Types.ToJSON..=)) (AccountAcquisitionUpdateCost -> Maybe Text
accountAcquisitionUpdateCostCurrency AccountAcquisitionUpdateCost
obj) [Series] -> [[Series]] -> [[Series]]
forall a. a -> [a] -> [a]
: [[Series]]
forall a. Monoid a => a
GHC.Base.mempty)))
instance Data.Aeson.Types.FromJSON.FromJSON AccountAcquisitionUpdateCost where
    parseJSON :: Value -> Parser AccountAcquisitionUpdateCost
parseJSON = String
-> (Object -> Parser AccountAcquisitionUpdateCost)
-> Value
-> Parser AccountAcquisitionUpdateCost
forall a. String -> (Object -> Parser a) -> Value -> Parser a
Data.Aeson.Types.FromJSON.withObject String
"AccountAcquisitionUpdateCost" (\Object
obj -> ((Maybe Float -> Maybe Text -> AccountAcquisitionUpdateCost)
-> Parser
     (Maybe Float -> Maybe Text -> AccountAcquisitionUpdateCost)
forall a. a -> Parser a
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure Maybe Float -> Maybe Text -> AccountAcquisitionUpdateCost
AccountAcquisitionUpdateCost Parser (Maybe Float -> Maybe Text -> AccountAcquisitionUpdateCost)
-> Parser (Maybe Float)
-> Parser (Maybe Text -> AccountAcquisitionUpdateCost)
forall a b. Parser (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Key -> Parser (Maybe Float)
forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Key
"amount")) Parser (Maybe Text -> AccountAcquisitionUpdateCost)
-> Parser (Maybe Text) -> Parser AccountAcquisitionUpdateCost
forall a b. Parser (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Key -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Key
"currency"))

-- | Create a new 'AccountAcquisitionUpdateCost' with all required fields.
mkAccountAcquisitionUpdateCost :: AccountAcquisitionUpdateCost
mkAccountAcquisitionUpdateCost :: AccountAcquisitionUpdateCost
mkAccountAcquisitionUpdateCost =
    AccountAcquisitionUpdateCost
        { accountAcquisitionUpdateCostAmount :: Maybe Float
accountAcquisitionUpdateCostAmount = Maybe Float
forall a. Maybe a
GHC.Maybe.Nothing
        , accountAcquisitionUpdateCostCurrency :: Maybe Text
accountAcquisitionUpdateCostCurrency = Maybe Text
forall a. Maybe a
GHC.Maybe.Nothing
        }