{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE DuplicateRecordFields #-}
{-# LANGUAGE NamedFieldPuns #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE StrictData #-}
{-# LANGUAGE TypeFamilies #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# OPTIONS_GHC -fno-warn-unused-binds #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
{-# OPTIONS_GHC -fno-warn-unused-matches #-}
module Amazonka.ElastiCache.PurchaseReservedCacheNodesOffering
(
PurchaseReservedCacheNodesOffering (..),
newPurchaseReservedCacheNodesOffering,
purchaseReservedCacheNodesOffering_cacheNodeCount,
purchaseReservedCacheNodesOffering_reservedCacheNodeId,
purchaseReservedCacheNodesOffering_tags,
purchaseReservedCacheNodesOffering_reservedCacheNodesOfferingId,
PurchaseReservedCacheNodesOfferingResponse (..),
newPurchaseReservedCacheNodesOfferingResponse,
purchaseReservedCacheNodesOfferingResponse_reservedCacheNode,
purchaseReservedCacheNodesOfferingResponse_httpStatus,
)
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
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data PurchaseReservedCacheNodesOffering = PurchaseReservedCacheNodesOffering'
{
PurchaseReservedCacheNodesOffering -> Maybe Int
cacheNodeCount :: Prelude.Maybe Prelude.Int,
PurchaseReservedCacheNodesOffering -> Maybe Text
reservedCacheNodeId :: Prelude.Maybe Prelude.Text,
PurchaseReservedCacheNodesOffering -> Maybe [Tag]
tags :: Prelude.Maybe [Tag],
PurchaseReservedCacheNodesOffering -> Text
reservedCacheNodesOfferingId :: Prelude.Text
}
deriving (PurchaseReservedCacheNodesOffering
-> PurchaseReservedCacheNodesOffering -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PurchaseReservedCacheNodesOffering
-> PurchaseReservedCacheNodesOffering -> Bool
$c/= :: PurchaseReservedCacheNodesOffering
-> PurchaseReservedCacheNodesOffering -> Bool
== :: PurchaseReservedCacheNodesOffering
-> PurchaseReservedCacheNodesOffering -> Bool
$c== :: PurchaseReservedCacheNodesOffering
-> PurchaseReservedCacheNodesOffering -> Bool
Prelude.Eq, ReadPrec [PurchaseReservedCacheNodesOffering]
ReadPrec PurchaseReservedCacheNodesOffering
Int -> ReadS PurchaseReservedCacheNodesOffering
ReadS [PurchaseReservedCacheNodesOffering]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [PurchaseReservedCacheNodesOffering]
$creadListPrec :: ReadPrec [PurchaseReservedCacheNodesOffering]
readPrec :: ReadPrec PurchaseReservedCacheNodesOffering
$creadPrec :: ReadPrec PurchaseReservedCacheNodesOffering
readList :: ReadS [PurchaseReservedCacheNodesOffering]
$creadList :: ReadS [PurchaseReservedCacheNodesOffering]
readsPrec :: Int -> ReadS PurchaseReservedCacheNodesOffering
$creadsPrec :: Int -> ReadS PurchaseReservedCacheNodesOffering
Prelude.Read, Int -> PurchaseReservedCacheNodesOffering -> ShowS
[PurchaseReservedCacheNodesOffering] -> ShowS
PurchaseReservedCacheNodesOffering -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PurchaseReservedCacheNodesOffering] -> ShowS
$cshowList :: [PurchaseReservedCacheNodesOffering] -> ShowS
show :: PurchaseReservedCacheNodesOffering -> String
$cshow :: PurchaseReservedCacheNodesOffering -> String
showsPrec :: Int -> PurchaseReservedCacheNodesOffering -> ShowS
$cshowsPrec :: Int -> PurchaseReservedCacheNodesOffering -> ShowS
Prelude.Show, forall x.
Rep PurchaseReservedCacheNodesOffering x
-> PurchaseReservedCacheNodesOffering
forall x.
PurchaseReservedCacheNodesOffering
-> Rep PurchaseReservedCacheNodesOffering x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep PurchaseReservedCacheNodesOffering x
-> PurchaseReservedCacheNodesOffering
$cfrom :: forall x.
PurchaseReservedCacheNodesOffering
-> Rep PurchaseReservedCacheNodesOffering x
Prelude.Generic)
newPurchaseReservedCacheNodesOffering ::
Prelude.Text ->
PurchaseReservedCacheNodesOffering
newPurchaseReservedCacheNodesOffering :: Text -> PurchaseReservedCacheNodesOffering
newPurchaseReservedCacheNodesOffering
Text
pReservedCacheNodesOfferingId_ =
PurchaseReservedCacheNodesOffering'
{ $sel:cacheNodeCount:PurchaseReservedCacheNodesOffering' :: Maybe Int
cacheNodeCount =
forall a. Maybe a
Prelude.Nothing,
$sel:reservedCacheNodeId:PurchaseReservedCacheNodesOffering' :: Maybe Text
reservedCacheNodeId = forall a. Maybe a
Prelude.Nothing,
$sel:tags:PurchaseReservedCacheNodesOffering' :: Maybe [Tag]
tags = forall a. Maybe a
Prelude.Nothing,
$sel:reservedCacheNodesOfferingId:PurchaseReservedCacheNodesOffering' :: Text
reservedCacheNodesOfferingId =
Text
pReservedCacheNodesOfferingId_
}
purchaseReservedCacheNodesOffering_cacheNodeCount :: Lens.Lens' PurchaseReservedCacheNodesOffering (Prelude.Maybe Prelude.Int)
purchaseReservedCacheNodesOffering_cacheNodeCount :: Lens' PurchaseReservedCacheNodesOffering (Maybe Int)
purchaseReservedCacheNodesOffering_cacheNodeCount = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PurchaseReservedCacheNodesOffering' {Maybe Int
cacheNodeCount :: Maybe Int
$sel:cacheNodeCount:PurchaseReservedCacheNodesOffering' :: PurchaseReservedCacheNodesOffering -> Maybe Int
cacheNodeCount} -> Maybe Int
cacheNodeCount) (\s :: PurchaseReservedCacheNodesOffering
s@PurchaseReservedCacheNodesOffering' {} Maybe Int
a -> PurchaseReservedCacheNodesOffering
s {$sel:cacheNodeCount:PurchaseReservedCacheNodesOffering' :: Maybe Int
cacheNodeCount = Maybe Int
a} :: PurchaseReservedCacheNodesOffering)
purchaseReservedCacheNodesOffering_reservedCacheNodeId :: Lens.Lens' PurchaseReservedCacheNodesOffering (Prelude.Maybe Prelude.Text)
purchaseReservedCacheNodesOffering_reservedCacheNodeId :: Lens' PurchaseReservedCacheNodesOffering (Maybe Text)
purchaseReservedCacheNodesOffering_reservedCacheNodeId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PurchaseReservedCacheNodesOffering' {Maybe Text
reservedCacheNodeId :: Maybe Text
$sel:reservedCacheNodeId:PurchaseReservedCacheNodesOffering' :: PurchaseReservedCacheNodesOffering -> Maybe Text
reservedCacheNodeId} -> Maybe Text
reservedCacheNodeId) (\s :: PurchaseReservedCacheNodesOffering
s@PurchaseReservedCacheNodesOffering' {} Maybe Text
a -> PurchaseReservedCacheNodesOffering
s {$sel:reservedCacheNodeId:PurchaseReservedCacheNodesOffering' :: Maybe Text
reservedCacheNodeId = Maybe Text
a} :: PurchaseReservedCacheNodesOffering)
purchaseReservedCacheNodesOffering_tags :: Lens.Lens' PurchaseReservedCacheNodesOffering (Prelude.Maybe [Tag])
purchaseReservedCacheNodesOffering_tags :: Lens' PurchaseReservedCacheNodesOffering (Maybe [Tag])
purchaseReservedCacheNodesOffering_tags = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PurchaseReservedCacheNodesOffering' {Maybe [Tag]
tags :: Maybe [Tag]
$sel:tags:PurchaseReservedCacheNodesOffering' :: PurchaseReservedCacheNodesOffering -> Maybe [Tag]
tags} -> Maybe [Tag]
tags) (\s :: PurchaseReservedCacheNodesOffering
s@PurchaseReservedCacheNodesOffering' {} Maybe [Tag]
a -> PurchaseReservedCacheNodesOffering
s {$sel:tags:PurchaseReservedCacheNodesOffering' :: Maybe [Tag]
tags = Maybe [Tag]
a} :: PurchaseReservedCacheNodesOffering) 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
purchaseReservedCacheNodesOffering_reservedCacheNodesOfferingId :: Lens.Lens' PurchaseReservedCacheNodesOffering Prelude.Text
purchaseReservedCacheNodesOffering_reservedCacheNodesOfferingId :: Lens' PurchaseReservedCacheNodesOffering Text
purchaseReservedCacheNodesOffering_reservedCacheNodesOfferingId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PurchaseReservedCacheNodesOffering' {Text
reservedCacheNodesOfferingId :: Text
$sel:reservedCacheNodesOfferingId:PurchaseReservedCacheNodesOffering' :: PurchaseReservedCacheNodesOffering -> Text
reservedCacheNodesOfferingId} -> Text
reservedCacheNodesOfferingId) (\s :: PurchaseReservedCacheNodesOffering
s@PurchaseReservedCacheNodesOffering' {} Text
a -> PurchaseReservedCacheNodesOffering
s {$sel:reservedCacheNodesOfferingId:PurchaseReservedCacheNodesOffering' :: Text
reservedCacheNodesOfferingId = Text
a} :: PurchaseReservedCacheNodesOffering)
instance
Core.AWSRequest
PurchaseReservedCacheNodesOffering
where
type
AWSResponse PurchaseReservedCacheNodesOffering =
PurchaseReservedCacheNodesOfferingResponse
request :: (Service -> Service)
-> PurchaseReservedCacheNodesOffering
-> Request PurchaseReservedCacheNodesOffering
request Service -> Service
overrides =
forall a. ToRequest a => Service -> a -> Request a
Request.postQuery (Service -> Service
overrides Service
defaultService)
response :: forall (m :: * -> *).
MonadResource m =>
(ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy PurchaseReservedCacheNodesOffering
-> ClientResponse ClientBody
-> m (Either
Error
(ClientResponse (AWSResponse PurchaseReservedCacheNodesOffering)))
response =
forall (m :: * -> *) a.
MonadResource m =>
Text
-> (Int
-> ResponseHeaders -> [Node] -> Either String (AWSResponse a))
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveXMLWrapper
Text
"PurchaseReservedCacheNodesOfferingResult"
( \Int
s ResponseHeaders
h [Node]
x ->
Maybe ReservedCacheNode
-> Int -> PurchaseReservedCacheNodesOfferingResponse
PurchaseReservedCacheNodesOfferingResponse'
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
"ReservedCacheNode")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure (forall a. Enum a => a -> Int
Prelude.fromEnum Int
s))
)
instance
Prelude.Hashable
PurchaseReservedCacheNodesOffering
where
hashWithSalt :: Int -> PurchaseReservedCacheNodesOffering -> Int
hashWithSalt
Int
_salt
PurchaseReservedCacheNodesOffering' {Maybe Int
Maybe [Tag]
Maybe Text
Text
reservedCacheNodesOfferingId :: Text
tags :: Maybe [Tag]
reservedCacheNodeId :: Maybe Text
cacheNodeCount :: Maybe Int
$sel:reservedCacheNodesOfferingId:PurchaseReservedCacheNodesOffering' :: PurchaseReservedCacheNodesOffering -> Text
$sel:tags:PurchaseReservedCacheNodesOffering' :: PurchaseReservedCacheNodesOffering -> Maybe [Tag]
$sel:reservedCacheNodeId:PurchaseReservedCacheNodesOffering' :: PurchaseReservedCacheNodesOffering -> Maybe Text
$sel:cacheNodeCount:PurchaseReservedCacheNodesOffering' :: PurchaseReservedCacheNodesOffering -> Maybe Int
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Int
cacheNodeCount
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
reservedCacheNodeId
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [Tag]
tags
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
reservedCacheNodesOfferingId
instance
Prelude.NFData
PurchaseReservedCacheNodesOffering
where
rnf :: PurchaseReservedCacheNodesOffering -> ()
rnf PurchaseReservedCacheNodesOffering' {Maybe Int
Maybe [Tag]
Maybe Text
Text
reservedCacheNodesOfferingId :: Text
tags :: Maybe [Tag]
reservedCacheNodeId :: Maybe Text
cacheNodeCount :: Maybe Int
$sel:reservedCacheNodesOfferingId:PurchaseReservedCacheNodesOffering' :: PurchaseReservedCacheNodesOffering -> Text
$sel:tags:PurchaseReservedCacheNodesOffering' :: PurchaseReservedCacheNodesOffering -> Maybe [Tag]
$sel:reservedCacheNodeId:PurchaseReservedCacheNodesOffering' :: PurchaseReservedCacheNodesOffering -> Maybe Text
$sel:cacheNodeCount:PurchaseReservedCacheNodesOffering' :: PurchaseReservedCacheNodesOffering -> Maybe Int
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Int
cacheNodeCount
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
reservedCacheNodeId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [Tag]
tags
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
reservedCacheNodesOfferingId
instance
Data.ToHeaders
PurchaseReservedCacheNodesOffering
where
toHeaders :: PurchaseReservedCacheNodesOffering -> ResponseHeaders
toHeaders = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
instance
Data.ToPath
PurchaseReservedCacheNodesOffering
where
toPath :: PurchaseReservedCacheNodesOffering -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance
Data.ToQuery
PurchaseReservedCacheNodesOffering
where
toQuery :: PurchaseReservedCacheNodesOffering -> QueryString
toQuery PurchaseReservedCacheNodesOffering' {Maybe Int
Maybe [Tag]
Maybe Text
Text
reservedCacheNodesOfferingId :: Text
tags :: Maybe [Tag]
reservedCacheNodeId :: Maybe Text
cacheNodeCount :: Maybe Int
$sel:reservedCacheNodesOfferingId:PurchaseReservedCacheNodesOffering' :: PurchaseReservedCacheNodesOffering -> Text
$sel:tags:PurchaseReservedCacheNodesOffering' :: PurchaseReservedCacheNodesOffering -> Maybe [Tag]
$sel:reservedCacheNodeId:PurchaseReservedCacheNodesOffering' :: PurchaseReservedCacheNodesOffering -> Maybe Text
$sel:cacheNodeCount:PurchaseReservedCacheNodesOffering' :: PurchaseReservedCacheNodesOffering -> Maybe Int
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"Action"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: ( ByteString
"PurchaseReservedCacheNodesOffering" ::
Prelude.ByteString
),
ByteString
"Version"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: (ByteString
"2015-02-02" :: Prelude.ByteString),
ByteString
"CacheNodeCount" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Int
cacheNodeCount,
ByteString
"ReservedCacheNodeId" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
reservedCacheNodeId,
ByteString
"Tags"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: forall a. ToQuery a => a -> QueryString
Data.toQuery
(forall a.
(IsList a, ToQuery (Item a)) =>
ByteString -> a -> QueryString
Data.toQueryList ByteString
"Tag" forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [Tag]
tags),
ByteString
"ReservedCacheNodesOfferingId"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Text
reservedCacheNodesOfferingId
]
data PurchaseReservedCacheNodesOfferingResponse = PurchaseReservedCacheNodesOfferingResponse'
{ PurchaseReservedCacheNodesOfferingResponse
-> Maybe ReservedCacheNode
reservedCacheNode :: Prelude.Maybe ReservedCacheNode,
PurchaseReservedCacheNodesOfferingResponse -> Int
httpStatus :: Prelude.Int
}
deriving (PurchaseReservedCacheNodesOfferingResponse
-> PurchaseReservedCacheNodesOfferingResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PurchaseReservedCacheNodesOfferingResponse
-> PurchaseReservedCacheNodesOfferingResponse -> Bool
$c/= :: PurchaseReservedCacheNodesOfferingResponse
-> PurchaseReservedCacheNodesOfferingResponse -> Bool
== :: PurchaseReservedCacheNodesOfferingResponse
-> PurchaseReservedCacheNodesOfferingResponse -> Bool
$c== :: PurchaseReservedCacheNodesOfferingResponse
-> PurchaseReservedCacheNodesOfferingResponse -> Bool
Prelude.Eq, ReadPrec [PurchaseReservedCacheNodesOfferingResponse]
ReadPrec PurchaseReservedCacheNodesOfferingResponse
Int -> ReadS PurchaseReservedCacheNodesOfferingResponse
ReadS [PurchaseReservedCacheNodesOfferingResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [PurchaseReservedCacheNodesOfferingResponse]
$creadListPrec :: ReadPrec [PurchaseReservedCacheNodesOfferingResponse]
readPrec :: ReadPrec PurchaseReservedCacheNodesOfferingResponse
$creadPrec :: ReadPrec PurchaseReservedCacheNodesOfferingResponse
readList :: ReadS [PurchaseReservedCacheNodesOfferingResponse]
$creadList :: ReadS [PurchaseReservedCacheNodesOfferingResponse]
readsPrec :: Int -> ReadS PurchaseReservedCacheNodesOfferingResponse
$creadsPrec :: Int -> ReadS PurchaseReservedCacheNodesOfferingResponse
Prelude.Read, Int -> PurchaseReservedCacheNodesOfferingResponse -> ShowS
[PurchaseReservedCacheNodesOfferingResponse] -> ShowS
PurchaseReservedCacheNodesOfferingResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PurchaseReservedCacheNodesOfferingResponse] -> ShowS
$cshowList :: [PurchaseReservedCacheNodesOfferingResponse] -> ShowS
show :: PurchaseReservedCacheNodesOfferingResponse -> String
$cshow :: PurchaseReservedCacheNodesOfferingResponse -> String
showsPrec :: Int -> PurchaseReservedCacheNodesOfferingResponse -> ShowS
$cshowsPrec :: Int -> PurchaseReservedCacheNodesOfferingResponse -> ShowS
Prelude.Show, forall x.
Rep PurchaseReservedCacheNodesOfferingResponse x
-> PurchaseReservedCacheNodesOfferingResponse
forall x.
PurchaseReservedCacheNodesOfferingResponse
-> Rep PurchaseReservedCacheNodesOfferingResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep PurchaseReservedCacheNodesOfferingResponse x
-> PurchaseReservedCacheNodesOfferingResponse
$cfrom :: forall x.
PurchaseReservedCacheNodesOfferingResponse
-> Rep PurchaseReservedCacheNodesOfferingResponse x
Prelude.Generic)
newPurchaseReservedCacheNodesOfferingResponse ::
Prelude.Int ->
PurchaseReservedCacheNodesOfferingResponse
newPurchaseReservedCacheNodesOfferingResponse :: Int -> PurchaseReservedCacheNodesOfferingResponse
newPurchaseReservedCacheNodesOfferingResponse
Int
pHttpStatus_ =
PurchaseReservedCacheNodesOfferingResponse'
{ $sel:reservedCacheNode:PurchaseReservedCacheNodesOfferingResponse' :: Maybe ReservedCacheNode
reservedCacheNode =
forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:PurchaseReservedCacheNodesOfferingResponse' :: Int
httpStatus = Int
pHttpStatus_
}
purchaseReservedCacheNodesOfferingResponse_reservedCacheNode :: Lens.Lens' PurchaseReservedCacheNodesOfferingResponse (Prelude.Maybe ReservedCacheNode)
purchaseReservedCacheNodesOfferingResponse_reservedCacheNode :: Lens'
PurchaseReservedCacheNodesOfferingResponse
(Maybe ReservedCacheNode)
purchaseReservedCacheNodesOfferingResponse_reservedCacheNode = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PurchaseReservedCacheNodesOfferingResponse' {Maybe ReservedCacheNode
reservedCacheNode :: Maybe ReservedCacheNode
$sel:reservedCacheNode:PurchaseReservedCacheNodesOfferingResponse' :: PurchaseReservedCacheNodesOfferingResponse
-> Maybe ReservedCacheNode
reservedCacheNode} -> Maybe ReservedCacheNode
reservedCacheNode) (\s :: PurchaseReservedCacheNodesOfferingResponse
s@PurchaseReservedCacheNodesOfferingResponse' {} Maybe ReservedCacheNode
a -> PurchaseReservedCacheNodesOfferingResponse
s {$sel:reservedCacheNode:PurchaseReservedCacheNodesOfferingResponse' :: Maybe ReservedCacheNode
reservedCacheNode = Maybe ReservedCacheNode
a} :: PurchaseReservedCacheNodesOfferingResponse)
purchaseReservedCacheNodesOfferingResponse_httpStatus :: Lens.Lens' PurchaseReservedCacheNodesOfferingResponse Prelude.Int
purchaseReservedCacheNodesOfferingResponse_httpStatus :: Lens' PurchaseReservedCacheNodesOfferingResponse Int
purchaseReservedCacheNodesOfferingResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PurchaseReservedCacheNodesOfferingResponse' {Int
httpStatus :: Int
$sel:httpStatus:PurchaseReservedCacheNodesOfferingResponse' :: PurchaseReservedCacheNodesOfferingResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: PurchaseReservedCacheNodesOfferingResponse
s@PurchaseReservedCacheNodesOfferingResponse' {} Int
a -> PurchaseReservedCacheNodesOfferingResponse
s {$sel:httpStatus:PurchaseReservedCacheNodesOfferingResponse' :: Int
httpStatus = Int
a} :: PurchaseReservedCacheNodesOfferingResponse)
instance
Prelude.NFData
PurchaseReservedCacheNodesOfferingResponse
where
rnf :: PurchaseReservedCacheNodesOfferingResponse -> ()
rnf PurchaseReservedCacheNodesOfferingResponse' {Int
Maybe ReservedCacheNode
httpStatus :: Int
reservedCacheNode :: Maybe ReservedCacheNode
$sel:httpStatus:PurchaseReservedCacheNodesOfferingResponse' :: PurchaseReservedCacheNodesOfferingResponse -> Int
$sel:reservedCacheNode:PurchaseReservedCacheNodesOfferingResponse' :: PurchaseReservedCacheNodesOfferingResponse
-> Maybe ReservedCacheNode
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe ReservedCacheNode
reservedCacheNode
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus