{-# 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.MemoryDb.Types.ReservedNode where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import Amazonka.MemoryDb.Types.RecurringCharge
import qualified Amazonka.Prelude as Prelude
data ReservedNode = ReservedNode'
{
ReservedNode -> Maybe Text
arn :: Prelude.Maybe Prelude.Text,
ReservedNode -> Maybe Int
duration :: Prelude.Maybe Prelude.Int,
ReservedNode -> Maybe Double
fixedPrice :: Prelude.Maybe Prelude.Double,
ReservedNode -> Maybe Int
nodeCount :: Prelude.Maybe Prelude.Int,
ReservedNode -> Maybe Text
nodeType :: Prelude.Maybe Prelude.Text,
ReservedNode -> Maybe Text
offeringType :: Prelude.Maybe Prelude.Text,
ReservedNode -> Maybe [RecurringCharge]
recurringCharges :: Prelude.Maybe [RecurringCharge],
ReservedNode -> Maybe Text
reservationId :: Prelude.Maybe Prelude.Text,
ReservedNode -> Maybe Text
reservedNodesOfferingId :: Prelude.Maybe Prelude.Text,
ReservedNode -> Maybe POSIX
startTime :: Prelude.Maybe Data.POSIX,
ReservedNode -> Maybe Text
state :: Prelude.Maybe Prelude.Text
}
deriving (ReservedNode -> ReservedNode -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ReservedNode -> ReservedNode -> Bool
$c/= :: ReservedNode -> ReservedNode -> Bool
== :: ReservedNode -> ReservedNode -> Bool
$c== :: ReservedNode -> ReservedNode -> Bool
Prelude.Eq, ReadPrec [ReservedNode]
ReadPrec ReservedNode
Int -> ReadS ReservedNode
ReadS [ReservedNode]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [ReservedNode]
$creadListPrec :: ReadPrec [ReservedNode]
readPrec :: ReadPrec ReservedNode
$creadPrec :: ReadPrec ReservedNode
readList :: ReadS [ReservedNode]
$creadList :: ReadS [ReservedNode]
readsPrec :: Int -> ReadS ReservedNode
$creadsPrec :: Int -> ReadS ReservedNode
Prelude.Read, Int -> ReservedNode -> ShowS
[ReservedNode] -> ShowS
ReservedNode -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ReservedNode] -> ShowS
$cshowList :: [ReservedNode] -> ShowS
show :: ReservedNode -> String
$cshow :: ReservedNode -> String
showsPrec :: Int -> ReservedNode -> ShowS
$cshowsPrec :: Int -> ReservedNode -> ShowS
Prelude.Show, forall x. Rep ReservedNode x -> ReservedNode
forall x. ReservedNode -> Rep ReservedNode x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep ReservedNode x -> ReservedNode
$cfrom :: forall x. ReservedNode -> Rep ReservedNode x
Prelude.Generic)
newReservedNode ::
ReservedNode
newReservedNode :: ReservedNode
newReservedNode =
ReservedNode'
{ $sel:arn:ReservedNode' :: Maybe Text
arn = forall a. Maybe a
Prelude.Nothing,
$sel:duration:ReservedNode' :: Maybe Int
duration = forall a. Maybe a
Prelude.Nothing,
$sel:fixedPrice:ReservedNode' :: Maybe Double
fixedPrice = forall a. Maybe a
Prelude.Nothing,
$sel:nodeCount:ReservedNode' :: Maybe Int
nodeCount = forall a. Maybe a
Prelude.Nothing,
$sel:nodeType:ReservedNode' :: Maybe Text
nodeType = forall a. Maybe a
Prelude.Nothing,
$sel:offeringType:ReservedNode' :: Maybe Text
offeringType = forall a. Maybe a
Prelude.Nothing,
$sel:recurringCharges:ReservedNode' :: Maybe [RecurringCharge]
recurringCharges = forall a. Maybe a
Prelude.Nothing,
$sel:reservationId:ReservedNode' :: Maybe Text
reservationId = forall a. Maybe a
Prelude.Nothing,
$sel:reservedNodesOfferingId:ReservedNode' :: Maybe Text
reservedNodesOfferingId = forall a. Maybe a
Prelude.Nothing,
$sel:startTime:ReservedNode' :: Maybe POSIX
startTime = forall a. Maybe a
Prelude.Nothing,
$sel:state:ReservedNode' :: Maybe Text
state = forall a. Maybe a
Prelude.Nothing
}
reservedNode_arn :: Lens.Lens' ReservedNode (Prelude.Maybe Prelude.Text)
reservedNode_arn :: Lens' ReservedNode (Maybe Text)
reservedNode_arn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ReservedNode' {Maybe Text
arn :: Maybe Text
$sel:arn:ReservedNode' :: ReservedNode -> Maybe Text
arn} -> Maybe Text
arn) (\s :: ReservedNode
s@ReservedNode' {} Maybe Text
a -> ReservedNode
s {$sel:arn:ReservedNode' :: Maybe Text
arn = Maybe Text
a} :: ReservedNode)
reservedNode_duration :: Lens.Lens' ReservedNode (Prelude.Maybe Prelude.Int)
reservedNode_duration :: Lens' ReservedNode (Maybe Int)
reservedNode_duration = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ReservedNode' {Maybe Int
duration :: Maybe Int
$sel:duration:ReservedNode' :: ReservedNode -> Maybe Int
duration} -> Maybe Int
duration) (\s :: ReservedNode
s@ReservedNode' {} Maybe Int
a -> ReservedNode
s {$sel:duration:ReservedNode' :: Maybe Int
duration = Maybe Int
a} :: ReservedNode)
reservedNode_fixedPrice :: Lens.Lens' ReservedNode (Prelude.Maybe Prelude.Double)
reservedNode_fixedPrice :: Lens' ReservedNode (Maybe Double)
reservedNode_fixedPrice = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ReservedNode' {Maybe Double
fixedPrice :: Maybe Double
$sel:fixedPrice:ReservedNode' :: ReservedNode -> Maybe Double
fixedPrice} -> Maybe Double
fixedPrice) (\s :: ReservedNode
s@ReservedNode' {} Maybe Double
a -> ReservedNode
s {$sel:fixedPrice:ReservedNode' :: Maybe Double
fixedPrice = Maybe Double
a} :: ReservedNode)
reservedNode_nodeCount :: Lens.Lens' ReservedNode (Prelude.Maybe Prelude.Int)
reservedNode_nodeCount :: Lens' ReservedNode (Maybe Int)
reservedNode_nodeCount = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ReservedNode' {Maybe Int
nodeCount :: Maybe Int
$sel:nodeCount:ReservedNode' :: ReservedNode -> Maybe Int
nodeCount} -> Maybe Int
nodeCount) (\s :: ReservedNode
s@ReservedNode' {} Maybe Int
a -> ReservedNode
s {$sel:nodeCount:ReservedNode' :: Maybe Int
nodeCount = Maybe Int
a} :: ReservedNode)
reservedNode_nodeType :: Lens.Lens' ReservedNode (Prelude.Maybe Prelude.Text)
reservedNode_nodeType :: Lens' ReservedNode (Maybe Text)
reservedNode_nodeType = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ReservedNode' {Maybe Text
nodeType :: Maybe Text
$sel:nodeType:ReservedNode' :: ReservedNode -> Maybe Text
nodeType} -> Maybe Text
nodeType) (\s :: ReservedNode
s@ReservedNode' {} Maybe Text
a -> ReservedNode
s {$sel:nodeType:ReservedNode' :: Maybe Text
nodeType = Maybe Text
a} :: ReservedNode)
reservedNode_offeringType :: Lens.Lens' ReservedNode (Prelude.Maybe Prelude.Text)
reservedNode_offeringType :: Lens' ReservedNode (Maybe Text)
reservedNode_offeringType = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ReservedNode' {Maybe Text
offeringType :: Maybe Text
$sel:offeringType:ReservedNode' :: ReservedNode -> Maybe Text
offeringType} -> Maybe Text
offeringType) (\s :: ReservedNode
s@ReservedNode' {} Maybe Text
a -> ReservedNode
s {$sel:offeringType:ReservedNode' :: Maybe Text
offeringType = Maybe Text
a} :: ReservedNode)
reservedNode_recurringCharges :: Lens.Lens' ReservedNode (Prelude.Maybe [RecurringCharge])
reservedNode_recurringCharges :: Lens' ReservedNode (Maybe [RecurringCharge])
reservedNode_recurringCharges = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ReservedNode' {Maybe [RecurringCharge]
recurringCharges :: Maybe [RecurringCharge]
$sel:recurringCharges:ReservedNode' :: ReservedNode -> Maybe [RecurringCharge]
recurringCharges} -> Maybe [RecurringCharge]
recurringCharges) (\s :: ReservedNode
s@ReservedNode' {} Maybe [RecurringCharge]
a -> ReservedNode
s {$sel:recurringCharges:ReservedNode' :: Maybe [RecurringCharge]
recurringCharges = Maybe [RecurringCharge]
a} :: ReservedNode) 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
reservedNode_reservationId :: Lens.Lens' ReservedNode (Prelude.Maybe Prelude.Text)
reservedNode_reservationId :: Lens' ReservedNode (Maybe Text)
reservedNode_reservationId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ReservedNode' {Maybe Text
reservationId :: Maybe Text
$sel:reservationId:ReservedNode' :: ReservedNode -> Maybe Text
reservationId} -> Maybe Text
reservationId) (\s :: ReservedNode
s@ReservedNode' {} Maybe Text
a -> ReservedNode
s {$sel:reservationId:ReservedNode' :: Maybe Text
reservationId = Maybe Text
a} :: ReservedNode)
reservedNode_reservedNodesOfferingId :: Lens.Lens' ReservedNode (Prelude.Maybe Prelude.Text)
reservedNode_reservedNodesOfferingId :: Lens' ReservedNode (Maybe Text)
reservedNode_reservedNodesOfferingId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ReservedNode' {Maybe Text
reservedNodesOfferingId :: Maybe Text
$sel:reservedNodesOfferingId:ReservedNode' :: ReservedNode -> Maybe Text
reservedNodesOfferingId} -> Maybe Text
reservedNodesOfferingId) (\s :: ReservedNode
s@ReservedNode' {} Maybe Text
a -> ReservedNode
s {$sel:reservedNodesOfferingId:ReservedNode' :: Maybe Text
reservedNodesOfferingId = Maybe Text
a} :: ReservedNode)
reservedNode_startTime :: Lens.Lens' ReservedNode (Prelude.Maybe Prelude.UTCTime)
reservedNode_startTime :: Lens' ReservedNode (Maybe UTCTime)
reservedNode_startTime = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ReservedNode' {Maybe POSIX
startTime :: Maybe POSIX
$sel:startTime:ReservedNode' :: ReservedNode -> Maybe POSIX
startTime} -> Maybe POSIX
startTime) (\s :: ReservedNode
s@ReservedNode' {} Maybe POSIX
a -> ReservedNode
s {$sel:startTime:ReservedNode' :: Maybe POSIX
startTime = Maybe POSIX
a} :: ReservedNode) 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 (a :: Format). Iso' (Time a) UTCTime
Data._Time
reservedNode_state :: Lens.Lens' ReservedNode (Prelude.Maybe Prelude.Text)
reservedNode_state :: Lens' ReservedNode (Maybe Text)
reservedNode_state = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ReservedNode' {Maybe Text
state :: Maybe Text
$sel:state:ReservedNode' :: ReservedNode -> Maybe Text
state} -> Maybe Text
state) (\s :: ReservedNode
s@ReservedNode' {} Maybe Text
a -> ReservedNode
s {$sel:state:ReservedNode' :: Maybe Text
state = Maybe Text
a} :: ReservedNode)
instance Data.FromJSON ReservedNode where
parseJSON :: Value -> Parser ReservedNode
parseJSON =
forall a. String -> (Object -> Parser a) -> Value -> Parser a
Data.withObject
String
"ReservedNode"
( \Object
x ->
Maybe Text
-> Maybe Int
-> Maybe Double
-> Maybe Int
-> Maybe Text
-> Maybe Text
-> Maybe [RecurringCharge]
-> Maybe Text
-> Maybe Text
-> Maybe POSIX
-> Maybe Text
-> ReservedNode
ReservedNode'
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
"ARN")
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
"Duration")
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
"FixedPrice")
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
"NodeCount")
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
"NodeType")
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
"OfferingType")
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
"RecurringCharges"
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
"ReservationId")
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
"ReservedNodesOfferingId")
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
"StartTime")
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
"State")
)
instance Prelude.Hashable ReservedNode where
hashWithSalt :: Int -> ReservedNode -> Int
hashWithSalt Int
_salt ReservedNode' {Maybe Double
Maybe Int
Maybe [RecurringCharge]
Maybe Text
Maybe POSIX
state :: Maybe Text
startTime :: Maybe POSIX
reservedNodesOfferingId :: Maybe Text
reservationId :: Maybe Text
recurringCharges :: Maybe [RecurringCharge]
offeringType :: Maybe Text
nodeType :: Maybe Text
nodeCount :: Maybe Int
fixedPrice :: Maybe Double
duration :: Maybe Int
arn :: Maybe Text
$sel:state:ReservedNode' :: ReservedNode -> Maybe Text
$sel:startTime:ReservedNode' :: ReservedNode -> Maybe POSIX
$sel:reservedNodesOfferingId:ReservedNode' :: ReservedNode -> Maybe Text
$sel:reservationId:ReservedNode' :: ReservedNode -> Maybe Text
$sel:recurringCharges:ReservedNode' :: ReservedNode -> Maybe [RecurringCharge]
$sel:offeringType:ReservedNode' :: ReservedNode -> Maybe Text
$sel:nodeType:ReservedNode' :: ReservedNode -> Maybe Text
$sel:nodeCount:ReservedNode' :: ReservedNode -> Maybe Int
$sel:fixedPrice:ReservedNode' :: ReservedNode -> Maybe Double
$sel:duration:ReservedNode' :: ReservedNode -> Maybe Int
$sel:arn:ReservedNode' :: ReservedNode -> Maybe Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
arn
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 Int
nodeCount
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
nodeType
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
offeringType
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [RecurringCharge]
recurringCharges
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
reservationId
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
reservedNodesOfferingId
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe POSIX
startTime
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
state
instance Prelude.NFData ReservedNode where
rnf :: ReservedNode -> ()
rnf ReservedNode' {Maybe Double
Maybe Int
Maybe [RecurringCharge]
Maybe Text
Maybe POSIX
state :: Maybe Text
startTime :: Maybe POSIX
reservedNodesOfferingId :: Maybe Text
reservationId :: Maybe Text
recurringCharges :: Maybe [RecurringCharge]
offeringType :: Maybe Text
nodeType :: Maybe Text
nodeCount :: Maybe Int
fixedPrice :: Maybe Double
duration :: Maybe Int
arn :: Maybe Text
$sel:state:ReservedNode' :: ReservedNode -> Maybe Text
$sel:startTime:ReservedNode' :: ReservedNode -> Maybe POSIX
$sel:reservedNodesOfferingId:ReservedNode' :: ReservedNode -> Maybe Text
$sel:reservationId:ReservedNode' :: ReservedNode -> Maybe Text
$sel:recurringCharges:ReservedNode' :: ReservedNode -> Maybe [RecurringCharge]
$sel:offeringType:ReservedNode' :: ReservedNode -> Maybe Text
$sel:nodeType:ReservedNode' :: ReservedNode -> Maybe Text
$sel:nodeCount:ReservedNode' :: ReservedNode -> Maybe Int
$sel:fixedPrice:ReservedNode' :: ReservedNode -> Maybe Double
$sel:duration:ReservedNode' :: ReservedNode -> Maybe Int
$sel:arn:ReservedNode' :: ReservedNode -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
arn
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 Int
nodeCount
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
nodeType
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 [RecurringCharge]
recurringCharges
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
reservationId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
reservedNodesOfferingId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe POSIX
startTime
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
state