{-# 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.ElastiCache.Types.ReservedCacheNodesOffering where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import Amazonka.ElastiCache.Types.RecurringCharge
import qualified Amazonka.Prelude as Prelude
data ReservedCacheNodesOffering = ReservedCacheNodesOffering'
{
ReservedCacheNodesOffering -> Maybe Text
cacheNodeType :: Prelude.Maybe Prelude.Text,
ReservedCacheNodesOffering -> Maybe Int
duration :: Prelude.Maybe Prelude.Int,
ReservedCacheNodesOffering -> Maybe Double
fixedPrice :: Prelude.Maybe Prelude.Double,
ReservedCacheNodesOffering -> Maybe Text
offeringType :: Prelude.Maybe Prelude.Text,
ReservedCacheNodesOffering -> Maybe Text
productDescription :: Prelude.Maybe Prelude.Text,
ReservedCacheNodesOffering -> Maybe [RecurringCharge]
recurringCharges :: Prelude.Maybe [RecurringCharge],
ReservedCacheNodesOffering -> Maybe Text
reservedCacheNodesOfferingId :: Prelude.Maybe Prelude.Text,
ReservedCacheNodesOffering -> Maybe Double
usagePrice :: Prelude.Maybe Prelude.Double
}
deriving (ReservedCacheNodesOffering -> ReservedCacheNodesOffering -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ReservedCacheNodesOffering -> ReservedCacheNodesOffering -> Bool
$c/= :: ReservedCacheNodesOffering -> ReservedCacheNodesOffering -> Bool
== :: ReservedCacheNodesOffering -> ReservedCacheNodesOffering -> Bool
$c== :: ReservedCacheNodesOffering -> ReservedCacheNodesOffering -> Bool
Prelude.Eq, ReadPrec [ReservedCacheNodesOffering]
ReadPrec ReservedCacheNodesOffering
Int -> ReadS ReservedCacheNodesOffering
ReadS [ReservedCacheNodesOffering]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [ReservedCacheNodesOffering]
$creadListPrec :: ReadPrec [ReservedCacheNodesOffering]
readPrec :: ReadPrec ReservedCacheNodesOffering
$creadPrec :: ReadPrec ReservedCacheNodesOffering
readList :: ReadS [ReservedCacheNodesOffering]
$creadList :: ReadS [ReservedCacheNodesOffering]
readsPrec :: Int -> ReadS ReservedCacheNodesOffering
$creadsPrec :: Int -> ReadS ReservedCacheNodesOffering
Prelude.Read, Int -> ReservedCacheNodesOffering -> ShowS
[ReservedCacheNodesOffering] -> ShowS
ReservedCacheNodesOffering -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ReservedCacheNodesOffering] -> ShowS
$cshowList :: [ReservedCacheNodesOffering] -> ShowS
show :: ReservedCacheNodesOffering -> String
$cshow :: ReservedCacheNodesOffering -> String
showsPrec :: Int -> ReservedCacheNodesOffering -> ShowS
$cshowsPrec :: Int -> ReservedCacheNodesOffering -> ShowS
Prelude.Show, forall x.
Rep ReservedCacheNodesOffering x -> ReservedCacheNodesOffering
forall x.
ReservedCacheNodesOffering -> Rep ReservedCacheNodesOffering x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep ReservedCacheNodesOffering x -> ReservedCacheNodesOffering
$cfrom :: forall x.
ReservedCacheNodesOffering -> Rep ReservedCacheNodesOffering x
Prelude.Generic)
newReservedCacheNodesOffering ::
ReservedCacheNodesOffering
newReservedCacheNodesOffering :: ReservedCacheNodesOffering
newReservedCacheNodesOffering =
ReservedCacheNodesOffering'
{ $sel:cacheNodeType:ReservedCacheNodesOffering' :: Maybe Text
cacheNodeType =
forall a. Maybe a
Prelude.Nothing,
$sel:duration:ReservedCacheNodesOffering' :: Maybe Int
duration = forall a. Maybe a
Prelude.Nothing,
$sel:fixedPrice:ReservedCacheNodesOffering' :: Maybe Double
fixedPrice = forall a. Maybe a
Prelude.Nothing,
$sel:offeringType:ReservedCacheNodesOffering' :: Maybe Text
offeringType = forall a. Maybe a
Prelude.Nothing,
$sel:productDescription:ReservedCacheNodesOffering' :: Maybe Text
productDescription = forall a. Maybe a
Prelude.Nothing,
$sel:recurringCharges:ReservedCacheNodesOffering' :: Maybe [RecurringCharge]
recurringCharges = forall a. Maybe a
Prelude.Nothing,
$sel:reservedCacheNodesOfferingId:ReservedCacheNodesOffering' :: Maybe Text
reservedCacheNodesOfferingId = forall a. Maybe a
Prelude.Nothing,
$sel:usagePrice:ReservedCacheNodesOffering' :: Maybe Double
usagePrice = forall a. Maybe a
Prelude.Nothing
}
reservedCacheNodesOffering_cacheNodeType :: Lens.Lens' ReservedCacheNodesOffering (Prelude.Maybe Prelude.Text)
reservedCacheNodesOffering_cacheNodeType :: Lens' ReservedCacheNodesOffering (Maybe Text)
reservedCacheNodesOffering_cacheNodeType = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ReservedCacheNodesOffering' {Maybe Text
cacheNodeType :: Maybe Text
$sel:cacheNodeType:ReservedCacheNodesOffering' :: ReservedCacheNodesOffering -> Maybe Text
cacheNodeType} -> Maybe Text
cacheNodeType) (\s :: ReservedCacheNodesOffering
s@ReservedCacheNodesOffering' {} Maybe Text
a -> ReservedCacheNodesOffering
s {$sel:cacheNodeType:ReservedCacheNodesOffering' :: Maybe Text
cacheNodeType = Maybe Text
a} :: ReservedCacheNodesOffering)
reservedCacheNodesOffering_duration :: Lens.Lens' ReservedCacheNodesOffering (Prelude.Maybe Prelude.Int)
reservedCacheNodesOffering_duration :: Lens' ReservedCacheNodesOffering (Maybe Int)
reservedCacheNodesOffering_duration = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ReservedCacheNodesOffering' {Maybe Int
duration :: Maybe Int
$sel:duration:ReservedCacheNodesOffering' :: ReservedCacheNodesOffering -> Maybe Int
duration} -> Maybe Int
duration) (\s :: ReservedCacheNodesOffering
s@ReservedCacheNodesOffering' {} Maybe Int
a -> ReservedCacheNodesOffering
s {$sel:duration:ReservedCacheNodesOffering' :: Maybe Int
duration = Maybe Int
a} :: ReservedCacheNodesOffering)
reservedCacheNodesOffering_fixedPrice :: Lens.Lens' ReservedCacheNodesOffering (Prelude.Maybe Prelude.Double)
reservedCacheNodesOffering_fixedPrice :: Lens' ReservedCacheNodesOffering (Maybe Double)
reservedCacheNodesOffering_fixedPrice = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ReservedCacheNodesOffering' {Maybe Double
fixedPrice :: Maybe Double
$sel:fixedPrice:ReservedCacheNodesOffering' :: ReservedCacheNodesOffering -> Maybe Double
fixedPrice} -> Maybe Double
fixedPrice) (\s :: ReservedCacheNodesOffering
s@ReservedCacheNodesOffering' {} Maybe Double
a -> ReservedCacheNodesOffering
s {$sel:fixedPrice:ReservedCacheNodesOffering' :: Maybe Double
fixedPrice = Maybe Double
a} :: ReservedCacheNodesOffering)
reservedCacheNodesOffering_offeringType :: Lens.Lens' ReservedCacheNodesOffering (Prelude.Maybe Prelude.Text)
reservedCacheNodesOffering_offeringType :: Lens' ReservedCacheNodesOffering (Maybe Text)
reservedCacheNodesOffering_offeringType = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ReservedCacheNodesOffering' {Maybe Text
offeringType :: Maybe Text
$sel:offeringType:ReservedCacheNodesOffering' :: ReservedCacheNodesOffering -> Maybe Text
offeringType} -> Maybe Text
offeringType) (\s :: ReservedCacheNodesOffering
s@ReservedCacheNodesOffering' {} Maybe Text
a -> ReservedCacheNodesOffering
s {$sel:offeringType:ReservedCacheNodesOffering' :: Maybe Text
offeringType = Maybe Text
a} :: ReservedCacheNodesOffering)
reservedCacheNodesOffering_productDescription :: Lens.Lens' ReservedCacheNodesOffering (Prelude.Maybe Prelude.Text)
reservedCacheNodesOffering_productDescription :: Lens' ReservedCacheNodesOffering (Maybe Text)
reservedCacheNodesOffering_productDescription = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ReservedCacheNodesOffering' {Maybe Text
productDescription :: Maybe Text
$sel:productDescription:ReservedCacheNodesOffering' :: ReservedCacheNodesOffering -> Maybe Text
productDescription} -> Maybe Text
productDescription) (\s :: ReservedCacheNodesOffering
s@ReservedCacheNodesOffering' {} Maybe Text
a -> ReservedCacheNodesOffering
s {$sel:productDescription:ReservedCacheNodesOffering' :: Maybe Text
productDescription = Maybe Text
a} :: ReservedCacheNodesOffering)
reservedCacheNodesOffering_recurringCharges :: Lens.Lens' ReservedCacheNodesOffering (Prelude.Maybe [RecurringCharge])
reservedCacheNodesOffering_recurringCharges :: Lens' ReservedCacheNodesOffering (Maybe [RecurringCharge])
reservedCacheNodesOffering_recurringCharges = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ReservedCacheNodesOffering' {Maybe [RecurringCharge]
recurringCharges :: Maybe [RecurringCharge]
$sel:recurringCharges:ReservedCacheNodesOffering' :: ReservedCacheNodesOffering -> Maybe [RecurringCharge]
recurringCharges} -> Maybe [RecurringCharge]
recurringCharges) (\s :: ReservedCacheNodesOffering
s@ReservedCacheNodesOffering' {} Maybe [RecurringCharge]
a -> ReservedCacheNodesOffering
s {$sel:recurringCharges:ReservedCacheNodesOffering' :: Maybe [RecurringCharge]
recurringCharges = Maybe [RecurringCharge]
a} :: ReservedCacheNodesOffering) 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
reservedCacheNodesOffering_reservedCacheNodesOfferingId :: Lens.Lens' ReservedCacheNodesOffering (Prelude.Maybe Prelude.Text)
reservedCacheNodesOffering_reservedCacheNodesOfferingId :: Lens' ReservedCacheNodesOffering (Maybe Text)
reservedCacheNodesOffering_reservedCacheNodesOfferingId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ReservedCacheNodesOffering' {Maybe Text
reservedCacheNodesOfferingId :: Maybe Text
$sel:reservedCacheNodesOfferingId:ReservedCacheNodesOffering' :: ReservedCacheNodesOffering -> Maybe Text
reservedCacheNodesOfferingId} -> Maybe Text
reservedCacheNodesOfferingId) (\s :: ReservedCacheNodesOffering
s@ReservedCacheNodesOffering' {} Maybe Text
a -> ReservedCacheNodesOffering
s {$sel:reservedCacheNodesOfferingId:ReservedCacheNodesOffering' :: Maybe Text
reservedCacheNodesOfferingId = Maybe Text
a} :: ReservedCacheNodesOffering)
reservedCacheNodesOffering_usagePrice :: Lens.Lens' ReservedCacheNodesOffering (Prelude.Maybe Prelude.Double)
reservedCacheNodesOffering_usagePrice :: Lens' ReservedCacheNodesOffering (Maybe Double)
reservedCacheNodesOffering_usagePrice = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ReservedCacheNodesOffering' {Maybe Double
usagePrice :: Maybe Double
$sel:usagePrice:ReservedCacheNodesOffering' :: ReservedCacheNodesOffering -> Maybe Double
usagePrice} -> Maybe Double
usagePrice) (\s :: ReservedCacheNodesOffering
s@ReservedCacheNodesOffering' {} Maybe Double
a -> ReservedCacheNodesOffering
s {$sel:usagePrice:ReservedCacheNodesOffering' :: Maybe Double
usagePrice = Maybe Double
a} :: ReservedCacheNodesOffering)
instance Data.FromXML ReservedCacheNodesOffering where
parseXML :: [Node] -> Either String ReservedCacheNodesOffering
parseXML [Node]
x =
Maybe Text
-> Maybe Int
-> Maybe Double
-> Maybe Text
-> Maybe Text
-> Maybe [RecurringCharge]
-> Maybe Text
-> Maybe Double
-> ReservedCacheNodesOffering
ReservedCacheNodesOffering'
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> ([Node]
x forall a. FromXML a => [Node] -> Text -> Either String (Maybe a)
Data..@? Text
"CacheNodeType")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> ([Node]
x forall a. FromXML a => [Node] -> Text -> Either String (Maybe a)
Data..@? Text
"Duration")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> ([Node]
x forall a. FromXML a => [Node] -> Text -> Either String (Maybe a)
Data..@? Text
"FixedPrice")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> ([Node]
x forall a. FromXML a => [Node] -> Text -> Either String (Maybe a)
Data..@? Text
"OfferingType")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> ([Node]
x forall a. FromXML a => [Node] -> Text -> Either String (Maybe a)
Data..@? Text
"ProductDescription")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> ( [Node]
x
forall a. FromXML a => [Node] -> Text -> Either String (Maybe a)
Data..@? Text
"RecurringCharges"
forall (f :: * -> *) a. Functor f => f (Maybe a) -> a -> f a
Core..!@ forall a. Monoid a => a
Prelude.mempty
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
Prelude.>>= forall (f :: * -> *) a b.
Applicative f =>
([a] -> f b) -> [a] -> f (Maybe b)
Core.may (forall a. FromXML a => Text -> [Node] -> Either String [a]
Data.parseXMLList Text
"RecurringCharge")
)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> ([Node]
x forall a. FromXML a => [Node] -> Text -> Either String (Maybe a)
Data..@? Text
"ReservedCacheNodesOfferingId")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> ([Node]
x forall a. FromXML a => [Node] -> Text -> Either String (Maybe a)
Data..@? Text
"UsagePrice")
instance Prelude.Hashable ReservedCacheNodesOffering where
hashWithSalt :: Int -> ReservedCacheNodesOffering -> Int
hashWithSalt Int
_salt ReservedCacheNodesOffering' {Maybe Double
Maybe Int
Maybe [RecurringCharge]
Maybe Text
usagePrice :: Maybe Double
reservedCacheNodesOfferingId :: Maybe Text
recurringCharges :: Maybe [RecurringCharge]
productDescription :: Maybe Text
offeringType :: Maybe Text
fixedPrice :: Maybe Double
duration :: Maybe Int
cacheNodeType :: Maybe Text
$sel:usagePrice:ReservedCacheNodesOffering' :: ReservedCacheNodesOffering -> Maybe Double
$sel:reservedCacheNodesOfferingId:ReservedCacheNodesOffering' :: ReservedCacheNodesOffering -> Maybe Text
$sel:recurringCharges:ReservedCacheNodesOffering' :: ReservedCacheNodesOffering -> Maybe [RecurringCharge]
$sel:productDescription:ReservedCacheNodesOffering' :: ReservedCacheNodesOffering -> Maybe Text
$sel:offeringType:ReservedCacheNodesOffering' :: ReservedCacheNodesOffering -> Maybe Text
$sel:fixedPrice:ReservedCacheNodesOffering' :: ReservedCacheNodesOffering -> Maybe Double
$sel:duration:ReservedCacheNodesOffering' :: ReservedCacheNodesOffering -> Maybe Int
$sel:cacheNodeType:ReservedCacheNodesOffering' :: ReservedCacheNodesOffering -> Maybe Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
cacheNodeType
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Int
duration
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Double
fixedPrice
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
offeringType
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
productDescription
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [RecurringCharge]
recurringCharges
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
reservedCacheNodesOfferingId
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Double
usagePrice
instance Prelude.NFData ReservedCacheNodesOffering where
rnf :: ReservedCacheNodesOffering -> ()
rnf ReservedCacheNodesOffering' {Maybe Double
Maybe Int
Maybe [RecurringCharge]
Maybe Text
usagePrice :: Maybe Double
reservedCacheNodesOfferingId :: Maybe Text
recurringCharges :: Maybe [RecurringCharge]
productDescription :: Maybe Text
offeringType :: Maybe Text
fixedPrice :: Maybe Double
duration :: Maybe Int
cacheNodeType :: Maybe Text
$sel:usagePrice:ReservedCacheNodesOffering' :: ReservedCacheNodesOffering -> Maybe Double
$sel:reservedCacheNodesOfferingId:ReservedCacheNodesOffering' :: ReservedCacheNodesOffering -> Maybe Text
$sel:recurringCharges:ReservedCacheNodesOffering' :: ReservedCacheNodesOffering -> Maybe [RecurringCharge]
$sel:productDescription:ReservedCacheNodesOffering' :: ReservedCacheNodesOffering -> Maybe Text
$sel:offeringType:ReservedCacheNodesOffering' :: ReservedCacheNodesOffering -> Maybe Text
$sel:fixedPrice:ReservedCacheNodesOffering' :: ReservedCacheNodesOffering -> Maybe Double
$sel:duration:ReservedCacheNodesOffering' :: ReservedCacheNodesOffering -> Maybe Int
$sel:cacheNodeType:ReservedCacheNodesOffering' :: ReservedCacheNodesOffering -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
cacheNodeType
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Int
duration
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Double
fixedPrice
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
offeringType
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
productDescription
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [RecurringCharge]
recurringCharges
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
reservedCacheNodesOfferingId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Double
usagePrice