{-# 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 SubscriptionCancel
module RecurlyClient.Types.SubscriptionCancel 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.SubscriptionCancel@ in the specification.
data SubscriptionCancel = SubscriptionCancel
    { SubscriptionCancel -> Maybe SubscriptionCancelTimeframe
subscriptionCancelTimeframe :: (GHC.Maybe.Maybe SubscriptionCancelTimeframe)
    -- ^ timeframe: The timeframe parameter controls when the expiration takes place. The \`bill_date\` timeframe causes the subscription to expire when the subscription is scheduled to bill next. The \`term_end\` timeframe causes the subscription to continue to bill until the end of the subscription term, then expire.
    }
    deriving
        ( Int -> SubscriptionCancel -> ShowS
[SubscriptionCancel] -> ShowS
SubscriptionCancel -> String
(Int -> SubscriptionCancel -> ShowS)
-> (SubscriptionCancel -> String)
-> ([SubscriptionCancel] -> ShowS)
-> Show SubscriptionCancel
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> SubscriptionCancel -> ShowS
showsPrec :: Int -> SubscriptionCancel -> ShowS
$cshow :: SubscriptionCancel -> String
show :: SubscriptionCancel -> String
$cshowList :: [SubscriptionCancel] -> ShowS
showList :: [SubscriptionCancel] -> ShowS
GHC.Show.Show
        , SubscriptionCancel -> SubscriptionCancel -> Bool
(SubscriptionCancel -> SubscriptionCancel -> Bool)
-> (SubscriptionCancel -> SubscriptionCancel -> Bool)
-> Eq SubscriptionCancel
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: SubscriptionCancel -> SubscriptionCancel -> Bool
== :: SubscriptionCancel -> SubscriptionCancel -> Bool
$c/= :: SubscriptionCancel -> SubscriptionCancel -> Bool
/= :: SubscriptionCancel -> SubscriptionCancel -> Bool
GHC.Classes.Eq
        )

instance Data.Aeson.Types.ToJSON.ToJSON SubscriptionCancel where
    toJSON :: SubscriptionCancel -> Value
toJSON SubscriptionCancel
obj = [Pair] -> Value
Data.Aeson.Types.Internal.object ([[Pair]] -> [Pair]
forall (t :: * -> *) a. Foldable t => t [a] -> [a]
Data.Foldable.concat ([Pair]
-> (SubscriptionCancelTimeframe -> [Pair])
-> Maybe SubscriptionCancelTimeframe
-> [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])
-> (SubscriptionCancelTimeframe -> Pair)
-> SubscriptionCancelTimeframe
-> [Pair]
forall b c a. (b -> c) -> (a -> b) -> a -> c
GHC.Base.. (Key
"timeframe" Key -> SubscriptionCancelTimeframe -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
forall v. ToJSON v => Key -> v -> Pair
Data.Aeson.Types.ToJSON..=)) (SubscriptionCancel -> Maybe SubscriptionCancelTimeframe
subscriptionCancelTimeframe SubscriptionCancel
obj) [Pair] -> [[Pair]] -> [[Pair]]
forall a. a -> [a] -> [a]
: [[Pair]]
forall a. Monoid a => a
GHC.Base.mempty))
    toEncoding :: SubscriptionCancel -> Encoding
toEncoding SubscriptionCancel
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]
-> (SubscriptionCancelTimeframe -> [Series])
-> Maybe SubscriptionCancelTimeframe
-> [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])
-> (SubscriptionCancelTimeframe -> Series)
-> SubscriptionCancelTimeframe
-> [Series]
forall b c a. (b -> c) -> (a -> b) -> a -> c
GHC.Base.. (Key
"timeframe" Key -> SubscriptionCancelTimeframe -> Series
forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
forall v. ToJSON v => Key -> v -> Series
Data.Aeson.Types.ToJSON..=)) (SubscriptionCancel -> Maybe SubscriptionCancelTimeframe
subscriptionCancelTimeframe SubscriptionCancel
obj) [Series] -> [[Series]] -> [[Series]]
forall a. a -> [a] -> [a]
: [[Series]]
forall a. Monoid a => a
GHC.Base.mempty)))
instance Data.Aeson.Types.FromJSON.FromJSON SubscriptionCancel where
    parseJSON :: Value -> Parser SubscriptionCancel
parseJSON = String
-> (Object -> Parser SubscriptionCancel)
-> Value
-> Parser SubscriptionCancel
forall a. String -> (Object -> Parser a) -> Value -> Parser a
Data.Aeson.Types.FromJSON.withObject String
"SubscriptionCancel" (\Object
obj -> (Maybe SubscriptionCancelTimeframe -> SubscriptionCancel)
-> Parser (Maybe SubscriptionCancelTimeframe -> SubscriptionCancel)
forall a. a -> Parser a
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure Maybe SubscriptionCancelTimeframe -> SubscriptionCancel
SubscriptionCancel Parser (Maybe SubscriptionCancelTimeframe -> SubscriptionCancel)
-> Parser (Maybe SubscriptionCancelTimeframe)
-> Parser SubscriptionCancel
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 SubscriptionCancelTimeframe)
forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data.Aeson.Types.FromJSON..:? Key
"timeframe"))

-- | Create a new 'SubscriptionCancel' with all required fields.
mkSubscriptionCancel :: SubscriptionCancel
mkSubscriptionCancel :: SubscriptionCancel
mkSubscriptionCancel = SubscriptionCancel{subscriptionCancelTimeframe :: Maybe SubscriptionCancelTimeframe
subscriptionCancelTimeframe = Maybe SubscriptionCancelTimeframe
forall a. Maybe a
GHC.Maybe.Nothing}

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

The timeframe parameter controls when the expiration takes place. The \`bill_date\` timeframe causes the subscription to expire when the subscription is scheduled to bill next. The \`term_end\` timeframe causes the subscription to continue to bill until the end of the subscription term, then expire.
-}
data SubscriptionCancelTimeframe
    = -- | This case is used if the value encountered during decoding does not match any of the provided cases in the specification.
      SubscriptionCancelTimeframeOther Data.Aeson.Types.Internal.Value
    | -- | This constructor can be used to send values to the server which are not present in the specification yet.
      SubscriptionCancelTimeframeTyped Data.Text.Internal.Text
    | -- | Represents the JSON value @"bill_date"@
      SubscriptionCancelTimeframeEnumBill_date
    | -- | Represents the JSON value @"term_end"@
      SubscriptionCancelTimeframeEnumTerm_end
    deriving (Int -> SubscriptionCancelTimeframe -> ShowS
[SubscriptionCancelTimeframe] -> ShowS
SubscriptionCancelTimeframe -> String
(Int -> SubscriptionCancelTimeframe -> ShowS)
-> (SubscriptionCancelTimeframe -> String)
-> ([SubscriptionCancelTimeframe] -> ShowS)
-> Show SubscriptionCancelTimeframe
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> SubscriptionCancelTimeframe -> ShowS
showsPrec :: Int -> SubscriptionCancelTimeframe -> ShowS
$cshow :: SubscriptionCancelTimeframe -> String
show :: SubscriptionCancelTimeframe -> String
$cshowList :: [SubscriptionCancelTimeframe] -> ShowS
showList :: [SubscriptionCancelTimeframe] -> ShowS
GHC.Show.Show, SubscriptionCancelTimeframe -> SubscriptionCancelTimeframe -> Bool
(SubscriptionCancelTimeframe
 -> SubscriptionCancelTimeframe -> Bool)
-> (SubscriptionCancelTimeframe
    -> SubscriptionCancelTimeframe -> Bool)
-> Eq SubscriptionCancelTimeframe
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: SubscriptionCancelTimeframe -> SubscriptionCancelTimeframe -> Bool
== :: SubscriptionCancelTimeframe -> SubscriptionCancelTimeframe -> Bool
$c/= :: SubscriptionCancelTimeframe -> SubscriptionCancelTimeframe -> Bool
/= :: SubscriptionCancelTimeframe -> SubscriptionCancelTimeframe -> Bool
GHC.Classes.Eq)

instance Data.Aeson.Types.ToJSON.ToJSON SubscriptionCancelTimeframe where
    toJSON :: SubscriptionCancelTimeframe -> Value
toJSON (SubscriptionCancelTimeframeOther Value
val) = Value
val
    toJSON (SubscriptionCancelTimeframeTyped Text
val) = Text -> Value
forall a. ToJSON a => a -> Value
Data.Aeson.Types.ToJSON.toJSON Text
val
    toJSON (SubscriptionCancelTimeframe
SubscriptionCancelTimeframeEnumBill_date) = Value
"bill_date"
    toJSON (SubscriptionCancelTimeframe
SubscriptionCancelTimeframeEnumTerm_end) = Value
"term_end"
instance Data.Aeson.Types.FromJSON.FromJSON SubscriptionCancelTimeframe where
    parseJSON :: Value -> Parser SubscriptionCancelTimeframe
parseJSON Value
val =
        SubscriptionCancelTimeframe -> Parser SubscriptionCancelTimeframe
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
"bill_date" -> SubscriptionCancelTimeframe
SubscriptionCancelTimeframeEnumBill_date
                | Value
val Value -> Value -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Value
"term_end" -> SubscriptionCancelTimeframe
SubscriptionCancelTimeframeEnumTerm_end
                | Bool
GHC.Base.otherwise -> Value -> SubscriptionCancelTimeframe
SubscriptionCancelTimeframeOther Value
val
            )