{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE DuplicateRecordFields #-}
{-# LANGUAGE NamedFieldPuns #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE StrictData #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
{-# OPTIONS_GHC -fno-warn-unused-matches #-}
module Amazonka.SavingsPlans.Types.SavingsPlanOfferingRate where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import qualified Amazonka.Prelude as Prelude
import Amazonka.SavingsPlans.Types.ParentSavingsPlanOffering
import Amazonka.SavingsPlans.Types.SavingsPlanOfferingRateProperty
import Amazonka.SavingsPlans.Types.SavingsPlanProductType
import Amazonka.SavingsPlans.Types.SavingsPlanRateServiceCode
import Amazonka.SavingsPlans.Types.SavingsPlanRateUnit
data SavingsPlanOfferingRate = SavingsPlanOfferingRate'
{
SavingsPlanOfferingRate -> Maybe Text
operation :: Prelude.Maybe Prelude.Text,
SavingsPlanOfferingRate -> Maybe SavingsPlanProductType
productType :: Prelude.Maybe SavingsPlanProductType,
SavingsPlanOfferingRate -> Maybe [SavingsPlanOfferingRateProperty]
properties :: Prelude.Maybe [SavingsPlanOfferingRateProperty],
SavingsPlanOfferingRate -> Maybe Text
rate :: Prelude.Maybe Prelude.Text,
SavingsPlanOfferingRate -> Maybe ParentSavingsPlanOffering
savingsPlanOffering :: Prelude.Maybe ParentSavingsPlanOffering,
SavingsPlanOfferingRate -> Maybe SavingsPlanRateServiceCode
serviceCode :: Prelude.Maybe SavingsPlanRateServiceCode,
SavingsPlanOfferingRate -> Maybe SavingsPlanRateUnit
unit :: Prelude.Maybe SavingsPlanRateUnit,
SavingsPlanOfferingRate -> Maybe Text
usageType :: Prelude.Maybe Prelude.Text
}
deriving (SavingsPlanOfferingRate -> SavingsPlanOfferingRate -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: SavingsPlanOfferingRate -> SavingsPlanOfferingRate -> Bool
$c/= :: SavingsPlanOfferingRate -> SavingsPlanOfferingRate -> Bool
== :: SavingsPlanOfferingRate -> SavingsPlanOfferingRate -> Bool
$c== :: SavingsPlanOfferingRate -> SavingsPlanOfferingRate -> Bool
Prelude.Eq, ReadPrec [SavingsPlanOfferingRate]
ReadPrec SavingsPlanOfferingRate
Int -> ReadS SavingsPlanOfferingRate
ReadS [SavingsPlanOfferingRate]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [SavingsPlanOfferingRate]
$creadListPrec :: ReadPrec [SavingsPlanOfferingRate]
readPrec :: ReadPrec SavingsPlanOfferingRate
$creadPrec :: ReadPrec SavingsPlanOfferingRate
readList :: ReadS [SavingsPlanOfferingRate]
$creadList :: ReadS [SavingsPlanOfferingRate]
readsPrec :: Int -> ReadS SavingsPlanOfferingRate
$creadsPrec :: Int -> ReadS SavingsPlanOfferingRate
Prelude.Read, Int -> SavingsPlanOfferingRate -> ShowS
[SavingsPlanOfferingRate] -> ShowS
SavingsPlanOfferingRate -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [SavingsPlanOfferingRate] -> ShowS
$cshowList :: [SavingsPlanOfferingRate] -> ShowS
show :: SavingsPlanOfferingRate -> String
$cshow :: SavingsPlanOfferingRate -> String
showsPrec :: Int -> SavingsPlanOfferingRate -> ShowS
$cshowsPrec :: Int -> SavingsPlanOfferingRate -> ShowS
Prelude.Show, forall x. Rep SavingsPlanOfferingRate x -> SavingsPlanOfferingRate
forall x. SavingsPlanOfferingRate -> Rep SavingsPlanOfferingRate x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep SavingsPlanOfferingRate x -> SavingsPlanOfferingRate
$cfrom :: forall x. SavingsPlanOfferingRate -> Rep SavingsPlanOfferingRate x
Prelude.Generic)
newSavingsPlanOfferingRate ::
SavingsPlanOfferingRate
newSavingsPlanOfferingRate :: SavingsPlanOfferingRate
newSavingsPlanOfferingRate =
SavingsPlanOfferingRate'
{ $sel:operation:SavingsPlanOfferingRate' :: Maybe Text
operation =
forall a. Maybe a
Prelude.Nothing,
$sel:productType:SavingsPlanOfferingRate' :: Maybe SavingsPlanProductType
productType = forall a. Maybe a
Prelude.Nothing,
$sel:properties:SavingsPlanOfferingRate' :: Maybe [SavingsPlanOfferingRateProperty]
properties = forall a. Maybe a
Prelude.Nothing,
$sel:rate:SavingsPlanOfferingRate' :: Maybe Text
rate = forall a. Maybe a
Prelude.Nothing,
$sel:savingsPlanOffering:SavingsPlanOfferingRate' :: Maybe ParentSavingsPlanOffering
savingsPlanOffering = forall a. Maybe a
Prelude.Nothing,
$sel:serviceCode:SavingsPlanOfferingRate' :: Maybe SavingsPlanRateServiceCode
serviceCode = forall a. Maybe a
Prelude.Nothing,
$sel:unit:SavingsPlanOfferingRate' :: Maybe SavingsPlanRateUnit
unit = forall a. Maybe a
Prelude.Nothing,
$sel:usageType:SavingsPlanOfferingRate' :: Maybe Text
usageType = forall a. Maybe a
Prelude.Nothing
}
savingsPlanOfferingRate_operation :: Lens.Lens' SavingsPlanOfferingRate (Prelude.Maybe Prelude.Text)
savingsPlanOfferingRate_operation :: Lens' SavingsPlanOfferingRate (Maybe Text)
savingsPlanOfferingRate_operation = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SavingsPlanOfferingRate' {Maybe Text
operation :: Maybe Text
$sel:operation:SavingsPlanOfferingRate' :: SavingsPlanOfferingRate -> Maybe Text
operation} -> Maybe Text
operation) (\s :: SavingsPlanOfferingRate
s@SavingsPlanOfferingRate' {} Maybe Text
a -> SavingsPlanOfferingRate
s {$sel:operation:SavingsPlanOfferingRate' :: Maybe Text
operation = Maybe Text
a} :: SavingsPlanOfferingRate)
savingsPlanOfferingRate_productType :: Lens.Lens' SavingsPlanOfferingRate (Prelude.Maybe SavingsPlanProductType)
savingsPlanOfferingRate_productType :: Lens' SavingsPlanOfferingRate (Maybe SavingsPlanProductType)
savingsPlanOfferingRate_productType = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SavingsPlanOfferingRate' {Maybe SavingsPlanProductType
productType :: Maybe SavingsPlanProductType
$sel:productType:SavingsPlanOfferingRate' :: SavingsPlanOfferingRate -> Maybe SavingsPlanProductType
productType} -> Maybe SavingsPlanProductType
productType) (\s :: SavingsPlanOfferingRate
s@SavingsPlanOfferingRate' {} Maybe SavingsPlanProductType
a -> SavingsPlanOfferingRate
s {$sel:productType:SavingsPlanOfferingRate' :: Maybe SavingsPlanProductType
productType = Maybe SavingsPlanProductType
a} :: SavingsPlanOfferingRate)
savingsPlanOfferingRate_properties :: Lens.Lens' SavingsPlanOfferingRate (Prelude.Maybe [SavingsPlanOfferingRateProperty])
savingsPlanOfferingRate_properties :: Lens'
SavingsPlanOfferingRate (Maybe [SavingsPlanOfferingRateProperty])
savingsPlanOfferingRate_properties = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SavingsPlanOfferingRate' {Maybe [SavingsPlanOfferingRateProperty]
properties :: Maybe [SavingsPlanOfferingRateProperty]
$sel:properties:SavingsPlanOfferingRate' :: SavingsPlanOfferingRate -> Maybe [SavingsPlanOfferingRateProperty]
properties} -> Maybe [SavingsPlanOfferingRateProperty]
properties) (\s :: SavingsPlanOfferingRate
s@SavingsPlanOfferingRate' {} Maybe [SavingsPlanOfferingRateProperty]
a -> SavingsPlanOfferingRate
s {$sel:properties:SavingsPlanOfferingRate' :: Maybe [SavingsPlanOfferingRateProperty]
properties = Maybe [SavingsPlanOfferingRateProperty]
a} :: SavingsPlanOfferingRate) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (g :: * -> *) s t a b.
(Functor f, Functor g) =>
AnIso s t a b -> Iso (f s) (g t) (f a) (g b)
Lens.mapping forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced
savingsPlanOfferingRate_rate :: Lens.Lens' SavingsPlanOfferingRate (Prelude.Maybe Prelude.Text)
savingsPlanOfferingRate_rate :: Lens' SavingsPlanOfferingRate (Maybe Text)
savingsPlanOfferingRate_rate = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SavingsPlanOfferingRate' {Maybe Text
rate :: Maybe Text
$sel:rate:SavingsPlanOfferingRate' :: SavingsPlanOfferingRate -> Maybe Text
rate} -> Maybe Text
rate) (\s :: SavingsPlanOfferingRate
s@SavingsPlanOfferingRate' {} Maybe Text
a -> SavingsPlanOfferingRate
s {$sel:rate:SavingsPlanOfferingRate' :: Maybe Text
rate = Maybe Text
a} :: SavingsPlanOfferingRate)
savingsPlanOfferingRate_savingsPlanOffering :: Lens.Lens' SavingsPlanOfferingRate (Prelude.Maybe ParentSavingsPlanOffering)
savingsPlanOfferingRate_savingsPlanOffering :: Lens' SavingsPlanOfferingRate (Maybe ParentSavingsPlanOffering)
savingsPlanOfferingRate_savingsPlanOffering = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SavingsPlanOfferingRate' {Maybe ParentSavingsPlanOffering
savingsPlanOffering :: Maybe ParentSavingsPlanOffering
$sel:savingsPlanOffering:SavingsPlanOfferingRate' :: SavingsPlanOfferingRate -> Maybe ParentSavingsPlanOffering
savingsPlanOffering} -> Maybe ParentSavingsPlanOffering
savingsPlanOffering) (\s :: SavingsPlanOfferingRate
s@SavingsPlanOfferingRate' {} Maybe ParentSavingsPlanOffering
a -> SavingsPlanOfferingRate
s {$sel:savingsPlanOffering:SavingsPlanOfferingRate' :: Maybe ParentSavingsPlanOffering
savingsPlanOffering = Maybe ParentSavingsPlanOffering
a} :: SavingsPlanOfferingRate)
savingsPlanOfferingRate_serviceCode :: Lens.Lens' SavingsPlanOfferingRate (Prelude.Maybe SavingsPlanRateServiceCode)
savingsPlanOfferingRate_serviceCode :: Lens' SavingsPlanOfferingRate (Maybe SavingsPlanRateServiceCode)
savingsPlanOfferingRate_serviceCode = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SavingsPlanOfferingRate' {Maybe SavingsPlanRateServiceCode
serviceCode :: Maybe SavingsPlanRateServiceCode
$sel:serviceCode:SavingsPlanOfferingRate' :: SavingsPlanOfferingRate -> Maybe SavingsPlanRateServiceCode
serviceCode} -> Maybe SavingsPlanRateServiceCode
serviceCode) (\s :: SavingsPlanOfferingRate
s@SavingsPlanOfferingRate' {} Maybe SavingsPlanRateServiceCode
a -> SavingsPlanOfferingRate
s {$sel:serviceCode:SavingsPlanOfferingRate' :: Maybe SavingsPlanRateServiceCode
serviceCode = Maybe SavingsPlanRateServiceCode
a} :: SavingsPlanOfferingRate)
savingsPlanOfferingRate_unit :: Lens.Lens' SavingsPlanOfferingRate (Prelude.Maybe SavingsPlanRateUnit)
savingsPlanOfferingRate_unit :: Lens' SavingsPlanOfferingRate (Maybe SavingsPlanRateUnit)
savingsPlanOfferingRate_unit = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SavingsPlanOfferingRate' {Maybe SavingsPlanRateUnit
unit :: Maybe SavingsPlanRateUnit
$sel:unit:SavingsPlanOfferingRate' :: SavingsPlanOfferingRate -> Maybe SavingsPlanRateUnit
unit} -> Maybe SavingsPlanRateUnit
unit) (\s :: SavingsPlanOfferingRate
s@SavingsPlanOfferingRate' {} Maybe SavingsPlanRateUnit
a -> SavingsPlanOfferingRate
s {$sel:unit:SavingsPlanOfferingRate' :: Maybe SavingsPlanRateUnit
unit = Maybe SavingsPlanRateUnit
a} :: SavingsPlanOfferingRate)
savingsPlanOfferingRate_usageType :: Lens.Lens' SavingsPlanOfferingRate (Prelude.Maybe Prelude.Text)
savingsPlanOfferingRate_usageType :: Lens' SavingsPlanOfferingRate (Maybe Text)
savingsPlanOfferingRate_usageType = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SavingsPlanOfferingRate' {Maybe Text
usageType :: Maybe Text
$sel:usageType:SavingsPlanOfferingRate' :: SavingsPlanOfferingRate -> Maybe Text
usageType} -> Maybe Text
usageType) (\s :: SavingsPlanOfferingRate
s@SavingsPlanOfferingRate' {} Maybe Text
a -> SavingsPlanOfferingRate
s {$sel:usageType:SavingsPlanOfferingRate' :: Maybe Text
usageType = Maybe Text
a} :: SavingsPlanOfferingRate)
instance Data.FromJSON SavingsPlanOfferingRate where
parseJSON :: Value -> Parser SavingsPlanOfferingRate
parseJSON =
forall a. String -> (Object -> Parser a) -> Value -> Parser a
Data.withObject
String
"SavingsPlanOfferingRate"
( \Object
x ->
Maybe Text
-> Maybe SavingsPlanProductType
-> Maybe [SavingsPlanOfferingRateProperty]
-> Maybe Text
-> Maybe ParentSavingsPlanOffering
-> Maybe SavingsPlanRateServiceCode
-> Maybe SavingsPlanRateUnit
-> Maybe Text
-> SavingsPlanOfferingRate
SavingsPlanOfferingRate'
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"operation")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"productType")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"properties" forall a. Parser (Maybe a) -> a -> Parser a
Data..!= forall a. Monoid a => a
Prelude.mempty)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"rate")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"savingsPlanOffering")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"serviceCode")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"unit")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"usageType")
)
instance Prelude.Hashable SavingsPlanOfferingRate where
hashWithSalt :: Int -> SavingsPlanOfferingRate -> Int
hashWithSalt Int
_salt SavingsPlanOfferingRate' {Maybe [SavingsPlanOfferingRateProperty]
Maybe Text
Maybe SavingsPlanProductType
Maybe SavingsPlanRateServiceCode
Maybe SavingsPlanRateUnit
Maybe ParentSavingsPlanOffering
usageType :: Maybe Text
unit :: Maybe SavingsPlanRateUnit
serviceCode :: Maybe SavingsPlanRateServiceCode
savingsPlanOffering :: Maybe ParentSavingsPlanOffering
rate :: Maybe Text
properties :: Maybe [SavingsPlanOfferingRateProperty]
productType :: Maybe SavingsPlanProductType
operation :: Maybe Text
$sel:usageType:SavingsPlanOfferingRate' :: SavingsPlanOfferingRate -> Maybe Text
$sel:unit:SavingsPlanOfferingRate' :: SavingsPlanOfferingRate -> Maybe SavingsPlanRateUnit
$sel:serviceCode:SavingsPlanOfferingRate' :: SavingsPlanOfferingRate -> Maybe SavingsPlanRateServiceCode
$sel:savingsPlanOffering:SavingsPlanOfferingRate' :: SavingsPlanOfferingRate -> Maybe ParentSavingsPlanOffering
$sel:rate:SavingsPlanOfferingRate' :: SavingsPlanOfferingRate -> Maybe Text
$sel:properties:SavingsPlanOfferingRate' :: SavingsPlanOfferingRate -> Maybe [SavingsPlanOfferingRateProperty]
$sel:productType:SavingsPlanOfferingRate' :: SavingsPlanOfferingRate -> Maybe SavingsPlanProductType
$sel:operation:SavingsPlanOfferingRate' :: SavingsPlanOfferingRate -> Maybe Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
operation
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe SavingsPlanProductType
productType
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [SavingsPlanOfferingRateProperty]
properties
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
rate
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe ParentSavingsPlanOffering
savingsPlanOffering
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe SavingsPlanRateServiceCode
serviceCode
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe SavingsPlanRateUnit
unit
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
usageType
instance Prelude.NFData SavingsPlanOfferingRate where
rnf :: SavingsPlanOfferingRate -> ()
rnf SavingsPlanOfferingRate' {Maybe [SavingsPlanOfferingRateProperty]
Maybe Text
Maybe SavingsPlanProductType
Maybe SavingsPlanRateServiceCode
Maybe SavingsPlanRateUnit
Maybe ParentSavingsPlanOffering
usageType :: Maybe Text
unit :: Maybe SavingsPlanRateUnit
serviceCode :: Maybe SavingsPlanRateServiceCode
savingsPlanOffering :: Maybe ParentSavingsPlanOffering
rate :: Maybe Text
properties :: Maybe [SavingsPlanOfferingRateProperty]
productType :: Maybe SavingsPlanProductType
operation :: Maybe Text
$sel:usageType:SavingsPlanOfferingRate' :: SavingsPlanOfferingRate -> Maybe Text
$sel:unit:SavingsPlanOfferingRate' :: SavingsPlanOfferingRate -> Maybe SavingsPlanRateUnit
$sel:serviceCode:SavingsPlanOfferingRate' :: SavingsPlanOfferingRate -> Maybe SavingsPlanRateServiceCode
$sel:savingsPlanOffering:SavingsPlanOfferingRate' :: SavingsPlanOfferingRate -> Maybe ParentSavingsPlanOffering
$sel:rate:SavingsPlanOfferingRate' :: SavingsPlanOfferingRate -> Maybe Text
$sel:properties:SavingsPlanOfferingRate' :: SavingsPlanOfferingRate -> Maybe [SavingsPlanOfferingRateProperty]
$sel:productType:SavingsPlanOfferingRate' :: SavingsPlanOfferingRate -> Maybe SavingsPlanProductType
$sel:operation:SavingsPlanOfferingRate' :: SavingsPlanOfferingRate -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
operation
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe SavingsPlanProductType
productType
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [SavingsPlanOfferingRateProperty]
properties
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
rate
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe ParentSavingsPlanOffering
savingsPlanOffering
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe SavingsPlanRateServiceCode
serviceCode
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe SavingsPlanRateUnit
unit
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
usageType