{-# 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.MediaLive.DescribeReservation
(
DescribeReservation (..),
newDescribeReservation,
describeReservation_reservationId,
DescribeReservationResponse (..),
newDescribeReservationResponse,
describeReservationResponse_arn,
describeReservationResponse_count,
describeReservationResponse_currencyCode,
describeReservationResponse_duration,
describeReservationResponse_durationUnits,
describeReservationResponse_end,
describeReservationResponse_fixedPrice,
describeReservationResponse_name,
describeReservationResponse_offeringDescription,
describeReservationResponse_offeringId,
describeReservationResponse_offeringType,
describeReservationResponse_region,
describeReservationResponse_renewalSettings,
describeReservationResponse_reservationId,
describeReservationResponse_resourceSpecification,
describeReservationResponse_start,
describeReservationResponse_state,
describeReservationResponse_tags,
describeReservationResponse_usagePrice,
describeReservationResponse_httpStatus,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import Amazonka.MediaLive.Types
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data DescribeReservation = DescribeReservation'
{
DescribeReservation -> Text
reservationId :: Prelude.Text
}
deriving (DescribeReservation -> DescribeReservation -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DescribeReservation -> DescribeReservation -> Bool
$c/= :: DescribeReservation -> DescribeReservation -> Bool
== :: DescribeReservation -> DescribeReservation -> Bool
$c== :: DescribeReservation -> DescribeReservation -> Bool
Prelude.Eq, ReadPrec [DescribeReservation]
ReadPrec DescribeReservation
Int -> ReadS DescribeReservation
ReadS [DescribeReservation]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DescribeReservation]
$creadListPrec :: ReadPrec [DescribeReservation]
readPrec :: ReadPrec DescribeReservation
$creadPrec :: ReadPrec DescribeReservation
readList :: ReadS [DescribeReservation]
$creadList :: ReadS [DescribeReservation]
readsPrec :: Int -> ReadS DescribeReservation
$creadsPrec :: Int -> ReadS DescribeReservation
Prelude.Read, Int -> DescribeReservation -> ShowS
[DescribeReservation] -> ShowS
DescribeReservation -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DescribeReservation] -> ShowS
$cshowList :: [DescribeReservation] -> ShowS
show :: DescribeReservation -> String
$cshow :: DescribeReservation -> String
showsPrec :: Int -> DescribeReservation -> ShowS
$cshowsPrec :: Int -> DescribeReservation -> ShowS
Prelude.Show, forall x. Rep DescribeReservation x -> DescribeReservation
forall x. DescribeReservation -> Rep DescribeReservation x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep DescribeReservation x -> DescribeReservation
$cfrom :: forall x. DescribeReservation -> Rep DescribeReservation x
Prelude.Generic)
newDescribeReservation ::
Prelude.Text ->
DescribeReservation
newDescribeReservation :: Text -> DescribeReservation
newDescribeReservation Text
pReservationId_ =
DescribeReservation'
{ $sel:reservationId:DescribeReservation' :: Text
reservationId =
Text
pReservationId_
}
describeReservation_reservationId :: Lens.Lens' DescribeReservation Prelude.Text
describeReservation_reservationId :: Lens' DescribeReservation Text
describeReservation_reservationId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeReservation' {Text
reservationId :: Text
$sel:reservationId:DescribeReservation' :: DescribeReservation -> Text
reservationId} -> Text
reservationId) (\s :: DescribeReservation
s@DescribeReservation' {} Text
a -> DescribeReservation
s {$sel:reservationId:DescribeReservation' :: Text
reservationId = Text
a} :: DescribeReservation)
instance Core.AWSRequest DescribeReservation where
type
AWSResponse DescribeReservation =
DescribeReservationResponse
request :: (Service -> Service)
-> DescribeReservation -> Request DescribeReservation
request Service -> Service
overrides =
forall a. ToRequest a => Service -> a -> Request a
Request.get (Service -> Service
overrides Service
defaultService)
response :: forall (m :: * -> *).
MonadResource m =>
(ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy DescribeReservation
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse DescribeReservation)))
response =
forall (m :: * -> *) a.
MonadResource m =>
(Int -> ResponseHeaders -> Object -> Either String (AWSResponse a))
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveJSON
( \Int
s ResponseHeaders
h Object
x ->
Maybe Text
-> Maybe Int
-> Maybe Text
-> Maybe Int
-> Maybe OfferingDurationUnits
-> Maybe Text
-> Maybe Double
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe OfferingType
-> Maybe Text
-> Maybe RenewalSettings
-> Maybe Text
-> Maybe ReservationResourceSpecification
-> Maybe Text
-> Maybe ReservationState
-> Maybe (HashMap Text Text)
-> Maybe Double
-> Int
-> DescribeReservationResponse
DescribeReservationResponse'
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> (Object
x forall a. FromJSON a => Object -> Key -> Either String (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 -> Either String (Maybe a)
Data..?> Key
"count")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"currencyCode")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (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 -> Either String (Maybe a)
Data..?> Key
"durationUnits")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"end")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (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 -> Either String (Maybe a)
Data..?> Key
"name")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"offeringDescription")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"offeringId")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (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 -> Either String (Maybe a)
Data..?> Key
"region")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"renewalSettings")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (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 -> Either String (Maybe a)
Data..?> Key
"resourceSpecification")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"start")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"state")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"tags" forall (f :: * -> *) a. Functor f => f (Maybe a) -> a -> f a
Core..!@ 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 -> Either String (Maybe a)
Data..?> Key
"usagePrice")
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 DescribeReservation where
hashWithSalt :: Int -> DescribeReservation -> Int
hashWithSalt Int
_salt DescribeReservation' {Text
reservationId :: Text
$sel:reservationId:DescribeReservation' :: DescribeReservation -> Text
..} =
Int
_salt forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
reservationId
instance Prelude.NFData DescribeReservation where
rnf :: DescribeReservation -> ()
rnf DescribeReservation' {Text
reservationId :: Text
$sel:reservationId:DescribeReservation' :: DescribeReservation -> Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Text
reservationId
instance Data.ToHeaders DescribeReservation where
toHeaders :: DescribeReservation -> ResponseHeaders
toHeaders =
forall a b. a -> b -> a
Prelude.const
( forall a. Monoid a => [a] -> a
Prelude.mconcat
[ HeaderName
"Content-Type"
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# ( ByteString
"application/x-amz-json-1.1" ::
Prelude.ByteString
)
]
)
instance Data.ToPath DescribeReservation where
toPath :: DescribeReservation -> ByteString
toPath DescribeReservation' {Text
reservationId :: Text
$sel:reservationId:DescribeReservation' :: DescribeReservation -> Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ByteString
"/prod/reservations/", forall a. ToByteString a => a -> ByteString
Data.toBS Text
reservationId]
instance Data.ToQuery DescribeReservation where
toQuery :: DescribeReservation -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data DescribeReservationResponse = DescribeReservationResponse'
{
DescribeReservationResponse -> Maybe Text
arn :: Prelude.Maybe Prelude.Text,
DescribeReservationResponse -> Maybe Int
count :: Prelude.Maybe Prelude.Int,
DescribeReservationResponse -> Maybe Text
currencyCode :: Prelude.Maybe Prelude.Text,
DescribeReservationResponse -> Maybe Int
duration :: Prelude.Maybe Prelude.Int,
DescribeReservationResponse -> Maybe OfferingDurationUnits
durationUnits :: Prelude.Maybe OfferingDurationUnits,
DescribeReservationResponse -> Maybe Text
end :: Prelude.Maybe Prelude.Text,
DescribeReservationResponse -> Maybe Double
fixedPrice :: Prelude.Maybe Prelude.Double,
DescribeReservationResponse -> Maybe Text
name :: Prelude.Maybe Prelude.Text,
DescribeReservationResponse -> Maybe Text
offeringDescription :: Prelude.Maybe Prelude.Text,
DescribeReservationResponse -> Maybe Text
offeringId :: Prelude.Maybe Prelude.Text,
DescribeReservationResponse -> Maybe OfferingType
offeringType :: Prelude.Maybe OfferingType,
DescribeReservationResponse -> Maybe Text
region :: Prelude.Maybe Prelude.Text,
DescribeReservationResponse -> Maybe RenewalSettings
renewalSettings :: Prelude.Maybe RenewalSettings,
DescribeReservationResponse -> Maybe Text
reservationId :: Prelude.Maybe Prelude.Text,
DescribeReservationResponse
-> Maybe ReservationResourceSpecification
resourceSpecification :: Prelude.Maybe ReservationResourceSpecification,
DescribeReservationResponse -> Maybe Text
start :: Prelude.Maybe Prelude.Text,
DescribeReservationResponse -> Maybe ReservationState
state :: Prelude.Maybe ReservationState,
DescribeReservationResponse -> Maybe (HashMap Text Text)
tags :: Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text),
DescribeReservationResponse -> Maybe Double
usagePrice :: Prelude.Maybe Prelude.Double,
DescribeReservationResponse -> Int
httpStatus :: Prelude.Int
}
deriving (DescribeReservationResponse -> DescribeReservationResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DescribeReservationResponse -> DescribeReservationResponse -> Bool
$c/= :: DescribeReservationResponse -> DescribeReservationResponse -> Bool
== :: DescribeReservationResponse -> DescribeReservationResponse -> Bool
$c== :: DescribeReservationResponse -> DescribeReservationResponse -> Bool
Prelude.Eq, ReadPrec [DescribeReservationResponse]
ReadPrec DescribeReservationResponse
Int -> ReadS DescribeReservationResponse
ReadS [DescribeReservationResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DescribeReservationResponse]
$creadListPrec :: ReadPrec [DescribeReservationResponse]
readPrec :: ReadPrec DescribeReservationResponse
$creadPrec :: ReadPrec DescribeReservationResponse
readList :: ReadS [DescribeReservationResponse]
$creadList :: ReadS [DescribeReservationResponse]
readsPrec :: Int -> ReadS DescribeReservationResponse
$creadsPrec :: Int -> ReadS DescribeReservationResponse
Prelude.Read, Int -> DescribeReservationResponse -> ShowS
[DescribeReservationResponse] -> ShowS
DescribeReservationResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DescribeReservationResponse] -> ShowS
$cshowList :: [DescribeReservationResponse] -> ShowS
show :: DescribeReservationResponse -> String
$cshow :: DescribeReservationResponse -> String
showsPrec :: Int -> DescribeReservationResponse -> ShowS
$cshowsPrec :: Int -> DescribeReservationResponse -> ShowS
Prelude.Show, forall x.
Rep DescribeReservationResponse x -> DescribeReservationResponse
forall x.
DescribeReservationResponse -> Rep DescribeReservationResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DescribeReservationResponse x -> DescribeReservationResponse
$cfrom :: forall x.
DescribeReservationResponse -> Rep DescribeReservationResponse x
Prelude.Generic)
newDescribeReservationResponse ::
Prelude.Int ->
DescribeReservationResponse
newDescribeReservationResponse :: Int -> DescribeReservationResponse
newDescribeReservationResponse Int
pHttpStatus_ =
DescribeReservationResponse'
{ $sel:arn:DescribeReservationResponse' :: Maybe Text
arn = forall a. Maybe a
Prelude.Nothing,
$sel:count:DescribeReservationResponse' :: Maybe Int
count = forall a. Maybe a
Prelude.Nothing,
$sel:currencyCode:DescribeReservationResponse' :: Maybe Text
currencyCode = forall a. Maybe a
Prelude.Nothing,
$sel:duration:DescribeReservationResponse' :: Maybe Int
duration = forall a. Maybe a
Prelude.Nothing,
$sel:durationUnits:DescribeReservationResponse' :: Maybe OfferingDurationUnits
durationUnits = forall a. Maybe a
Prelude.Nothing,
$sel:end:DescribeReservationResponse' :: Maybe Text
end = forall a. Maybe a
Prelude.Nothing,
$sel:fixedPrice:DescribeReservationResponse' :: Maybe Double
fixedPrice = forall a. Maybe a
Prelude.Nothing,
$sel:name:DescribeReservationResponse' :: Maybe Text
name = forall a. Maybe a
Prelude.Nothing,
$sel:offeringDescription:DescribeReservationResponse' :: Maybe Text
offeringDescription = forall a. Maybe a
Prelude.Nothing,
$sel:offeringId:DescribeReservationResponse' :: Maybe Text
offeringId = forall a. Maybe a
Prelude.Nothing,
$sel:offeringType:DescribeReservationResponse' :: Maybe OfferingType
offeringType = forall a. Maybe a
Prelude.Nothing,
$sel:region:DescribeReservationResponse' :: Maybe Text
region = forall a. Maybe a
Prelude.Nothing,
$sel:renewalSettings:DescribeReservationResponse' :: Maybe RenewalSettings
renewalSettings = forall a. Maybe a
Prelude.Nothing,
$sel:reservationId:DescribeReservationResponse' :: Maybe Text
reservationId = forall a. Maybe a
Prelude.Nothing,
$sel:resourceSpecification:DescribeReservationResponse' :: Maybe ReservationResourceSpecification
resourceSpecification = forall a. Maybe a
Prelude.Nothing,
$sel:start:DescribeReservationResponse' :: Maybe Text
start = forall a. Maybe a
Prelude.Nothing,
$sel:state:DescribeReservationResponse' :: Maybe ReservationState
state = forall a. Maybe a
Prelude.Nothing,
$sel:tags:DescribeReservationResponse' :: Maybe (HashMap Text Text)
tags = forall a. Maybe a
Prelude.Nothing,
$sel:usagePrice:DescribeReservationResponse' :: Maybe Double
usagePrice = forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:DescribeReservationResponse' :: Int
httpStatus = Int
pHttpStatus_
}
describeReservationResponse_arn :: Lens.Lens' DescribeReservationResponse (Prelude.Maybe Prelude.Text)
describeReservationResponse_arn :: Lens' DescribeReservationResponse (Maybe Text)
describeReservationResponse_arn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeReservationResponse' {Maybe Text
arn :: Maybe Text
$sel:arn:DescribeReservationResponse' :: DescribeReservationResponse -> Maybe Text
arn} -> Maybe Text
arn) (\s :: DescribeReservationResponse
s@DescribeReservationResponse' {} Maybe Text
a -> DescribeReservationResponse
s {$sel:arn:DescribeReservationResponse' :: Maybe Text
arn = Maybe Text
a} :: DescribeReservationResponse)
describeReservationResponse_count :: Lens.Lens' DescribeReservationResponse (Prelude.Maybe Prelude.Int)
describeReservationResponse_count :: Lens' DescribeReservationResponse (Maybe Int)
describeReservationResponse_count = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeReservationResponse' {Maybe Int
count :: Maybe Int
$sel:count:DescribeReservationResponse' :: DescribeReservationResponse -> Maybe Int
count} -> Maybe Int
count) (\s :: DescribeReservationResponse
s@DescribeReservationResponse' {} Maybe Int
a -> DescribeReservationResponse
s {$sel:count:DescribeReservationResponse' :: Maybe Int
count = Maybe Int
a} :: DescribeReservationResponse)
describeReservationResponse_currencyCode :: Lens.Lens' DescribeReservationResponse (Prelude.Maybe Prelude.Text)
describeReservationResponse_currencyCode :: Lens' DescribeReservationResponse (Maybe Text)
describeReservationResponse_currencyCode = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeReservationResponse' {Maybe Text
currencyCode :: Maybe Text
$sel:currencyCode:DescribeReservationResponse' :: DescribeReservationResponse -> Maybe Text
currencyCode} -> Maybe Text
currencyCode) (\s :: DescribeReservationResponse
s@DescribeReservationResponse' {} Maybe Text
a -> DescribeReservationResponse
s {$sel:currencyCode:DescribeReservationResponse' :: Maybe Text
currencyCode = Maybe Text
a} :: DescribeReservationResponse)
describeReservationResponse_duration :: Lens.Lens' DescribeReservationResponse (Prelude.Maybe Prelude.Int)
describeReservationResponse_duration :: Lens' DescribeReservationResponse (Maybe Int)
describeReservationResponse_duration = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeReservationResponse' {Maybe Int
duration :: Maybe Int
$sel:duration:DescribeReservationResponse' :: DescribeReservationResponse -> Maybe Int
duration} -> Maybe Int
duration) (\s :: DescribeReservationResponse
s@DescribeReservationResponse' {} Maybe Int
a -> DescribeReservationResponse
s {$sel:duration:DescribeReservationResponse' :: Maybe Int
duration = Maybe Int
a} :: DescribeReservationResponse)
describeReservationResponse_durationUnits :: Lens.Lens' DescribeReservationResponse (Prelude.Maybe OfferingDurationUnits)
describeReservationResponse_durationUnits :: Lens' DescribeReservationResponse (Maybe OfferingDurationUnits)
describeReservationResponse_durationUnits = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeReservationResponse' {Maybe OfferingDurationUnits
durationUnits :: Maybe OfferingDurationUnits
$sel:durationUnits:DescribeReservationResponse' :: DescribeReservationResponse -> Maybe OfferingDurationUnits
durationUnits} -> Maybe OfferingDurationUnits
durationUnits) (\s :: DescribeReservationResponse
s@DescribeReservationResponse' {} Maybe OfferingDurationUnits
a -> DescribeReservationResponse
s {$sel:durationUnits:DescribeReservationResponse' :: Maybe OfferingDurationUnits
durationUnits = Maybe OfferingDurationUnits
a} :: DescribeReservationResponse)
describeReservationResponse_end :: Lens.Lens' DescribeReservationResponse (Prelude.Maybe Prelude.Text)
describeReservationResponse_end :: Lens' DescribeReservationResponse (Maybe Text)
describeReservationResponse_end = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeReservationResponse' {Maybe Text
end :: Maybe Text
$sel:end:DescribeReservationResponse' :: DescribeReservationResponse -> Maybe Text
end} -> Maybe Text
end) (\s :: DescribeReservationResponse
s@DescribeReservationResponse' {} Maybe Text
a -> DescribeReservationResponse
s {$sel:end:DescribeReservationResponse' :: Maybe Text
end = Maybe Text
a} :: DescribeReservationResponse)
describeReservationResponse_fixedPrice :: Lens.Lens' DescribeReservationResponse (Prelude.Maybe Prelude.Double)
describeReservationResponse_fixedPrice :: Lens' DescribeReservationResponse (Maybe Double)
describeReservationResponse_fixedPrice = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeReservationResponse' {Maybe Double
fixedPrice :: Maybe Double
$sel:fixedPrice:DescribeReservationResponse' :: DescribeReservationResponse -> Maybe Double
fixedPrice} -> Maybe Double
fixedPrice) (\s :: DescribeReservationResponse
s@DescribeReservationResponse' {} Maybe Double
a -> DescribeReservationResponse
s {$sel:fixedPrice:DescribeReservationResponse' :: Maybe Double
fixedPrice = Maybe Double
a} :: DescribeReservationResponse)
describeReservationResponse_name :: Lens.Lens' DescribeReservationResponse (Prelude.Maybe Prelude.Text)
describeReservationResponse_name :: Lens' DescribeReservationResponse (Maybe Text)
describeReservationResponse_name = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeReservationResponse' {Maybe Text
name :: Maybe Text
$sel:name:DescribeReservationResponse' :: DescribeReservationResponse -> Maybe Text
name} -> Maybe Text
name) (\s :: DescribeReservationResponse
s@DescribeReservationResponse' {} Maybe Text
a -> DescribeReservationResponse
s {$sel:name:DescribeReservationResponse' :: Maybe Text
name = Maybe Text
a} :: DescribeReservationResponse)
describeReservationResponse_offeringDescription :: Lens.Lens' DescribeReservationResponse (Prelude.Maybe Prelude.Text)
describeReservationResponse_offeringDescription :: Lens' DescribeReservationResponse (Maybe Text)
describeReservationResponse_offeringDescription = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeReservationResponse' {Maybe Text
offeringDescription :: Maybe Text
$sel:offeringDescription:DescribeReservationResponse' :: DescribeReservationResponse -> Maybe Text
offeringDescription} -> Maybe Text
offeringDescription) (\s :: DescribeReservationResponse
s@DescribeReservationResponse' {} Maybe Text
a -> DescribeReservationResponse
s {$sel:offeringDescription:DescribeReservationResponse' :: Maybe Text
offeringDescription = Maybe Text
a} :: DescribeReservationResponse)
describeReservationResponse_offeringId :: Lens.Lens' DescribeReservationResponse (Prelude.Maybe Prelude.Text)
describeReservationResponse_offeringId :: Lens' DescribeReservationResponse (Maybe Text)
describeReservationResponse_offeringId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeReservationResponse' {Maybe Text
offeringId :: Maybe Text
$sel:offeringId:DescribeReservationResponse' :: DescribeReservationResponse -> Maybe Text
offeringId} -> Maybe Text
offeringId) (\s :: DescribeReservationResponse
s@DescribeReservationResponse' {} Maybe Text
a -> DescribeReservationResponse
s {$sel:offeringId:DescribeReservationResponse' :: Maybe Text
offeringId = Maybe Text
a} :: DescribeReservationResponse)
describeReservationResponse_offeringType :: Lens.Lens' DescribeReservationResponse (Prelude.Maybe OfferingType)
describeReservationResponse_offeringType :: Lens' DescribeReservationResponse (Maybe OfferingType)
describeReservationResponse_offeringType = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeReservationResponse' {Maybe OfferingType
offeringType :: Maybe OfferingType
$sel:offeringType:DescribeReservationResponse' :: DescribeReservationResponse -> Maybe OfferingType
offeringType} -> Maybe OfferingType
offeringType) (\s :: DescribeReservationResponse
s@DescribeReservationResponse' {} Maybe OfferingType
a -> DescribeReservationResponse
s {$sel:offeringType:DescribeReservationResponse' :: Maybe OfferingType
offeringType = Maybe OfferingType
a} :: DescribeReservationResponse)
describeReservationResponse_region :: Lens.Lens' DescribeReservationResponse (Prelude.Maybe Prelude.Text)
describeReservationResponse_region :: Lens' DescribeReservationResponse (Maybe Text)
describeReservationResponse_region = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeReservationResponse' {Maybe Text
region :: Maybe Text
$sel:region:DescribeReservationResponse' :: DescribeReservationResponse -> Maybe Text
region} -> Maybe Text
region) (\s :: DescribeReservationResponse
s@DescribeReservationResponse' {} Maybe Text
a -> DescribeReservationResponse
s {$sel:region:DescribeReservationResponse' :: Maybe Text
region = Maybe Text
a} :: DescribeReservationResponse)
describeReservationResponse_renewalSettings :: Lens.Lens' DescribeReservationResponse (Prelude.Maybe RenewalSettings)
describeReservationResponse_renewalSettings :: Lens' DescribeReservationResponse (Maybe RenewalSettings)
describeReservationResponse_renewalSettings = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeReservationResponse' {Maybe RenewalSettings
renewalSettings :: Maybe RenewalSettings
$sel:renewalSettings:DescribeReservationResponse' :: DescribeReservationResponse -> Maybe RenewalSettings
renewalSettings} -> Maybe RenewalSettings
renewalSettings) (\s :: DescribeReservationResponse
s@DescribeReservationResponse' {} Maybe RenewalSettings
a -> DescribeReservationResponse
s {$sel:renewalSettings:DescribeReservationResponse' :: Maybe RenewalSettings
renewalSettings = Maybe RenewalSettings
a} :: DescribeReservationResponse)
describeReservationResponse_reservationId :: Lens.Lens' DescribeReservationResponse (Prelude.Maybe Prelude.Text)
describeReservationResponse_reservationId :: Lens' DescribeReservationResponse (Maybe Text)
describeReservationResponse_reservationId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeReservationResponse' {Maybe Text
reservationId :: Maybe Text
$sel:reservationId:DescribeReservationResponse' :: DescribeReservationResponse -> Maybe Text
reservationId} -> Maybe Text
reservationId) (\s :: DescribeReservationResponse
s@DescribeReservationResponse' {} Maybe Text
a -> DescribeReservationResponse
s {$sel:reservationId:DescribeReservationResponse' :: Maybe Text
reservationId = Maybe Text
a} :: DescribeReservationResponse)
describeReservationResponse_resourceSpecification :: Lens.Lens' DescribeReservationResponse (Prelude.Maybe ReservationResourceSpecification)
describeReservationResponse_resourceSpecification :: Lens'
DescribeReservationResponse
(Maybe ReservationResourceSpecification)
describeReservationResponse_resourceSpecification = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeReservationResponse' {Maybe ReservationResourceSpecification
resourceSpecification :: Maybe ReservationResourceSpecification
$sel:resourceSpecification:DescribeReservationResponse' :: DescribeReservationResponse
-> Maybe ReservationResourceSpecification
resourceSpecification} -> Maybe ReservationResourceSpecification
resourceSpecification) (\s :: DescribeReservationResponse
s@DescribeReservationResponse' {} Maybe ReservationResourceSpecification
a -> DescribeReservationResponse
s {$sel:resourceSpecification:DescribeReservationResponse' :: Maybe ReservationResourceSpecification
resourceSpecification = Maybe ReservationResourceSpecification
a} :: DescribeReservationResponse)
describeReservationResponse_start :: Lens.Lens' DescribeReservationResponse (Prelude.Maybe Prelude.Text)
describeReservationResponse_start :: Lens' DescribeReservationResponse (Maybe Text)
describeReservationResponse_start = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeReservationResponse' {Maybe Text
start :: Maybe Text
$sel:start:DescribeReservationResponse' :: DescribeReservationResponse -> Maybe Text
start} -> Maybe Text
start) (\s :: DescribeReservationResponse
s@DescribeReservationResponse' {} Maybe Text
a -> DescribeReservationResponse
s {$sel:start:DescribeReservationResponse' :: Maybe Text
start = Maybe Text
a} :: DescribeReservationResponse)
describeReservationResponse_state :: Lens.Lens' DescribeReservationResponse (Prelude.Maybe ReservationState)
describeReservationResponse_state :: Lens' DescribeReservationResponse (Maybe ReservationState)
describeReservationResponse_state = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeReservationResponse' {Maybe ReservationState
state :: Maybe ReservationState
$sel:state:DescribeReservationResponse' :: DescribeReservationResponse -> Maybe ReservationState
state} -> Maybe ReservationState
state) (\s :: DescribeReservationResponse
s@DescribeReservationResponse' {} Maybe ReservationState
a -> DescribeReservationResponse
s {$sel:state:DescribeReservationResponse' :: Maybe ReservationState
state = Maybe ReservationState
a} :: DescribeReservationResponse)
describeReservationResponse_tags :: Lens.Lens' DescribeReservationResponse (Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text))
describeReservationResponse_tags :: Lens' DescribeReservationResponse (Maybe (HashMap Text Text))
describeReservationResponse_tags = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeReservationResponse' {Maybe (HashMap Text Text)
tags :: Maybe (HashMap Text Text)
$sel:tags:DescribeReservationResponse' :: DescribeReservationResponse -> Maybe (HashMap Text Text)
tags} -> Maybe (HashMap Text Text)
tags) (\s :: DescribeReservationResponse
s@DescribeReservationResponse' {} Maybe (HashMap Text Text)
a -> DescribeReservationResponse
s {$sel:tags:DescribeReservationResponse' :: Maybe (HashMap Text Text)
tags = Maybe (HashMap Text Text)
a} :: DescribeReservationResponse) 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
describeReservationResponse_usagePrice :: Lens.Lens' DescribeReservationResponse (Prelude.Maybe Prelude.Double)
describeReservationResponse_usagePrice :: Lens' DescribeReservationResponse (Maybe Double)
describeReservationResponse_usagePrice = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeReservationResponse' {Maybe Double
usagePrice :: Maybe Double
$sel:usagePrice:DescribeReservationResponse' :: DescribeReservationResponse -> Maybe Double
usagePrice} -> Maybe Double
usagePrice) (\s :: DescribeReservationResponse
s@DescribeReservationResponse' {} Maybe Double
a -> DescribeReservationResponse
s {$sel:usagePrice:DescribeReservationResponse' :: Maybe Double
usagePrice = Maybe Double
a} :: DescribeReservationResponse)
describeReservationResponse_httpStatus :: Lens.Lens' DescribeReservationResponse Prelude.Int
describeReservationResponse_httpStatus :: Lens' DescribeReservationResponse Int
describeReservationResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeReservationResponse' {Int
httpStatus :: Int
$sel:httpStatus:DescribeReservationResponse' :: DescribeReservationResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: DescribeReservationResponse
s@DescribeReservationResponse' {} Int
a -> DescribeReservationResponse
s {$sel:httpStatus:DescribeReservationResponse' :: Int
httpStatus = Int
a} :: DescribeReservationResponse)
instance Prelude.NFData DescribeReservationResponse where
rnf :: DescribeReservationResponse -> ()
rnf DescribeReservationResponse' {Int
Maybe Double
Maybe Int
Maybe Text
Maybe (HashMap Text Text)
Maybe OfferingDurationUnits
Maybe OfferingType
Maybe RenewalSettings
Maybe ReservationState
Maybe ReservationResourceSpecification
httpStatus :: Int
usagePrice :: Maybe Double
tags :: Maybe (HashMap Text Text)
state :: Maybe ReservationState
start :: Maybe Text
resourceSpecification :: Maybe ReservationResourceSpecification
reservationId :: Maybe Text
renewalSettings :: Maybe RenewalSettings
region :: Maybe Text
offeringType :: Maybe OfferingType
offeringId :: Maybe Text
offeringDescription :: Maybe Text
name :: Maybe Text
fixedPrice :: Maybe Double
end :: Maybe Text
durationUnits :: Maybe OfferingDurationUnits
duration :: Maybe Int
currencyCode :: Maybe Text
count :: Maybe Int
arn :: Maybe Text
$sel:httpStatus:DescribeReservationResponse' :: DescribeReservationResponse -> Int
$sel:usagePrice:DescribeReservationResponse' :: DescribeReservationResponse -> Maybe Double
$sel:tags:DescribeReservationResponse' :: DescribeReservationResponse -> Maybe (HashMap Text Text)
$sel:state:DescribeReservationResponse' :: DescribeReservationResponse -> Maybe ReservationState
$sel:start:DescribeReservationResponse' :: DescribeReservationResponse -> Maybe Text
$sel:resourceSpecification:DescribeReservationResponse' :: DescribeReservationResponse
-> Maybe ReservationResourceSpecification
$sel:reservationId:DescribeReservationResponse' :: DescribeReservationResponse -> Maybe Text
$sel:renewalSettings:DescribeReservationResponse' :: DescribeReservationResponse -> Maybe RenewalSettings
$sel:region:DescribeReservationResponse' :: DescribeReservationResponse -> Maybe Text
$sel:offeringType:DescribeReservationResponse' :: DescribeReservationResponse -> Maybe OfferingType
$sel:offeringId:DescribeReservationResponse' :: DescribeReservationResponse -> Maybe Text
$sel:offeringDescription:DescribeReservationResponse' :: DescribeReservationResponse -> Maybe Text
$sel:name:DescribeReservationResponse' :: DescribeReservationResponse -> Maybe Text
$sel:fixedPrice:DescribeReservationResponse' :: DescribeReservationResponse -> Maybe Double
$sel:end:DescribeReservationResponse' :: DescribeReservationResponse -> Maybe Text
$sel:durationUnits:DescribeReservationResponse' :: DescribeReservationResponse -> Maybe OfferingDurationUnits
$sel:duration:DescribeReservationResponse' :: DescribeReservationResponse -> Maybe Int
$sel:currencyCode:DescribeReservationResponse' :: DescribeReservationResponse -> Maybe Text
$sel:count:DescribeReservationResponse' :: DescribeReservationResponse -> Maybe Int
$sel:arn:DescribeReservationResponse' :: DescribeReservationResponse -> 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
count
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
currencyCode
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 OfferingDurationUnits
durationUnits
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
end
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
name
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
offeringDescription
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
offeringId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe OfferingType
offeringType
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
region
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe RenewalSettings
renewalSettings
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 ReservationResourceSpecification
resourceSpecification
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
start
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe ReservationState
state
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe (HashMap Text Text)
tags
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Double
usagePrice
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus