{-# 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.RDS.DescribeReservedDBInstances
(
DescribeReservedDBInstances (..),
newDescribeReservedDBInstances,
describeReservedDBInstances_dbInstanceClass,
describeReservedDBInstances_duration,
describeReservedDBInstances_filters,
describeReservedDBInstances_leaseId,
describeReservedDBInstances_marker,
describeReservedDBInstances_maxRecords,
describeReservedDBInstances_multiAZ,
describeReservedDBInstances_offeringType,
describeReservedDBInstances_productDescription,
describeReservedDBInstances_reservedDBInstanceId,
describeReservedDBInstances_reservedDBInstancesOfferingId,
DescribeReservedDBInstancesResponse (..),
newDescribeReservedDBInstancesResponse,
describeReservedDBInstancesResponse_marker,
describeReservedDBInstancesResponse_reservedDBInstances,
describeReservedDBInstancesResponse_httpStatus,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import qualified Amazonka.Prelude as Prelude
import Amazonka.RDS.Types
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data DescribeReservedDBInstances = DescribeReservedDBInstances'
{
DescribeReservedDBInstances -> Maybe Text
dbInstanceClass :: Prelude.Maybe Prelude.Text,
DescribeReservedDBInstances -> Maybe Text
duration :: Prelude.Maybe Prelude.Text,
DescribeReservedDBInstances -> Maybe [Filter]
filters :: Prelude.Maybe [Filter],
DescribeReservedDBInstances -> Maybe Text
leaseId :: Prelude.Maybe Prelude.Text,
DescribeReservedDBInstances -> Maybe Text
marker :: Prelude.Maybe Prelude.Text,
DescribeReservedDBInstances -> Maybe Int
maxRecords :: Prelude.Maybe Prelude.Int,
DescribeReservedDBInstances -> Maybe Bool
multiAZ :: Prelude.Maybe Prelude.Bool,
DescribeReservedDBInstances -> Maybe Text
offeringType :: Prelude.Maybe Prelude.Text,
DescribeReservedDBInstances -> Maybe Text
productDescription :: Prelude.Maybe Prelude.Text,
DescribeReservedDBInstances -> Maybe Text
reservedDBInstanceId :: Prelude.Maybe Prelude.Text,
DescribeReservedDBInstances -> Maybe Text
reservedDBInstancesOfferingId :: Prelude.Maybe Prelude.Text
}
deriving (DescribeReservedDBInstances -> DescribeReservedDBInstances -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DescribeReservedDBInstances -> DescribeReservedDBInstances -> Bool
$c/= :: DescribeReservedDBInstances -> DescribeReservedDBInstances -> Bool
== :: DescribeReservedDBInstances -> DescribeReservedDBInstances -> Bool
$c== :: DescribeReservedDBInstances -> DescribeReservedDBInstances -> Bool
Prelude.Eq, ReadPrec [DescribeReservedDBInstances]
ReadPrec DescribeReservedDBInstances
Int -> ReadS DescribeReservedDBInstances
ReadS [DescribeReservedDBInstances]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DescribeReservedDBInstances]
$creadListPrec :: ReadPrec [DescribeReservedDBInstances]
readPrec :: ReadPrec DescribeReservedDBInstances
$creadPrec :: ReadPrec DescribeReservedDBInstances
readList :: ReadS [DescribeReservedDBInstances]
$creadList :: ReadS [DescribeReservedDBInstances]
readsPrec :: Int -> ReadS DescribeReservedDBInstances
$creadsPrec :: Int -> ReadS DescribeReservedDBInstances
Prelude.Read, Int -> DescribeReservedDBInstances -> ShowS
[DescribeReservedDBInstances] -> ShowS
DescribeReservedDBInstances -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DescribeReservedDBInstances] -> ShowS
$cshowList :: [DescribeReservedDBInstances] -> ShowS
show :: DescribeReservedDBInstances -> String
$cshow :: DescribeReservedDBInstances -> String
showsPrec :: Int -> DescribeReservedDBInstances -> ShowS
$cshowsPrec :: Int -> DescribeReservedDBInstances -> ShowS
Prelude.Show, forall x.
Rep DescribeReservedDBInstances x -> DescribeReservedDBInstances
forall x.
DescribeReservedDBInstances -> Rep DescribeReservedDBInstances x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DescribeReservedDBInstances x -> DescribeReservedDBInstances
$cfrom :: forall x.
DescribeReservedDBInstances -> Rep DescribeReservedDBInstances x
Prelude.Generic)
newDescribeReservedDBInstances ::
DescribeReservedDBInstances
newDescribeReservedDBInstances :: DescribeReservedDBInstances
newDescribeReservedDBInstances =
DescribeReservedDBInstances'
{ $sel:dbInstanceClass:DescribeReservedDBInstances' :: Maybe Text
dbInstanceClass =
forall a. Maybe a
Prelude.Nothing,
$sel:duration:DescribeReservedDBInstances' :: Maybe Text
duration = forall a. Maybe a
Prelude.Nothing,
$sel:filters:DescribeReservedDBInstances' :: Maybe [Filter]
filters = forall a. Maybe a
Prelude.Nothing,
$sel:leaseId:DescribeReservedDBInstances' :: Maybe Text
leaseId = forall a. Maybe a
Prelude.Nothing,
$sel:marker:DescribeReservedDBInstances' :: Maybe Text
marker = forall a. Maybe a
Prelude.Nothing,
$sel:maxRecords:DescribeReservedDBInstances' :: Maybe Int
maxRecords = forall a. Maybe a
Prelude.Nothing,
$sel:multiAZ:DescribeReservedDBInstances' :: Maybe Bool
multiAZ = forall a. Maybe a
Prelude.Nothing,
$sel:offeringType:DescribeReservedDBInstances' :: Maybe Text
offeringType = forall a. Maybe a
Prelude.Nothing,
$sel:productDescription:DescribeReservedDBInstances' :: Maybe Text
productDescription = forall a. Maybe a
Prelude.Nothing,
$sel:reservedDBInstanceId:DescribeReservedDBInstances' :: Maybe Text
reservedDBInstanceId = forall a. Maybe a
Prelude.Nothing,
$sel:reservedDBInstancesOfferingId:DescribeReservedDBInstances' :: Maybe Text
reservedDBInstancesOfferingId =
forall a. Maybe a
Prelude.Nothing
}
describeReservedDBInstances_dbInstanceClass :: Lens.Lens' DescribeReservedDBInstances (Prelude.Maybe Prelude.Text)
describeReservedDBInstances_dbInstanceClass :: Lens' DescribeReservedDBInstances (Maybe Text)
describeReservedDBInstances_dbInstanceClass = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeReservedDBInstances' {Maybe Text
dbInstanceClass :: Maybe Text
$sel:dbInstanceClass:DescribeReservedDBInstances' :: DescribeReservedDBInstances -> Maybe Text
dbInstanceClass} -> Maybe Text
dbInstanceClass) (\s :: DescribeReservedDBInstances
s@DescribeReservedDBInstances' {} Maybe Text
a -> DescribeReservedDBInstances
s {$sel:dbInstanceClass:DescribeReservedDBInstances' :: Maybe Text
dbInstanceClass = Maybe Text
a} :: DescribeReservedDBInstances)
describeReservedDBInstances_duration :: Lens.Lens' DescribeReservedDBInstances (Prelude.Maybe Prelude.Text)
describeReservedDBInstances_duration :: Lens' DescribeReservedDBInstances (Maybe Text)
describeReservedDBInstances_duration = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeReservedDBInstances' {Maybe Text
duration :: Maybe Text
$sel:duration:DescribeReservedDBInstances' :: DescribeReservedDBInstances -> Maybe Text
duration} -> Maybe Text
duration) (\s :: DescribeReservedDBInstances
s@DescribeReservedDBInstances' {} Maybe Text
a -> DescribeReservedDBInstances
s {$sel:duration:DescribeReservedDBInstances' :: Maybe Text
duration = Maybe Text
a} :: DescribeReservedDBInstances)
describeReservedDBInstances_filters :: Lens.Lens' DescribeReservedDBInstances (Prelude.Maybe [Filter])
describeReservedDBInstances_filters :: Lens' DescribeReservedDBInstances (Maybe [Filter])
describeReservedDBInstances_filters = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeReservedDBInstances' {Maybe [Filter]
filters :: Maybe [Filter]
$sel:filters:DescribeReservedDBInstances' :: DescribeReservedDBInstances -> Maybe [Filter]
filters} -> Maybe [Filter]
filters) (\s :: DescribeReservedDBInstances
s@DescribeReservedDBInstances' {} Maybe [Filter]
a -> DescribeReservedDBInstances
s {$sel:filters:DescribeReservedDBInstances' :: Maybe [Filter]
filters = Maybe [Filter]
a} :: DescribeReservedDBInstances) 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
describeReservedDBInstances_leaseId :: Lens.Lens' DescribeReservedDBInstances (Prelude.Maybe Prelude.Text)
describeReservedDBInstances_leaseId :: Lens' DescribeReservedDBInstances (Maybe Text)
describeReservedDBInstances_leaseId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeReservedDBInstances' {Maybe Text
leaseId :: Maybe Text
$sel:leaseId:DescribeReservedDBInstances' :: DescribeReservedDBInstances -> Maybe Text
leaseId} -> Maybe Text
leaseId) (\s :: DescribeReservedDBInstances
s@DescribeReservedDBInstances' {} Maybe Text
a -> DescribeReservedDBInstances
s {$sel:leaseId:DescribeReservedDBInstances' :: Maybe Text
leaseId = Maybe Text
a} :: DescribeReservedDBInstances)
describeReservedDBInstances_marker :: Lens.Lens' DescribeReservedDBInstances (Prelude.Maybe Prelude.Text)
describeReservedDBInstances_marker :: Lens' DescribeReservedDBInstances (Maybe Text)
describeReservedDBInstances_marker = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeReservedDBInstances' {Maybe Text
marker :: Maybe Text
$sel:marker:DescribeReservedDBInstances' :: DescribeReservedDBInstances -> Maybe Text
marker} -> Maybe Text
marker) (\s :: DescribeReservedDBInstances
s@DescribeReservedDBInstances' {} Maybe Text
a -> DescribeReservedDBInstances
s {$sel:marker:DescribeReservedDBInstances' :: Maybe Text
marker = Maybe Text
a} :: DescribeReservedDBInstances)
describeReservedDBInstances_maxRecords :: Lens.Lens' DescribeReservedDBInstances (Prelude.Maybe Prelude.Int)
describeReservedDBInstances_maxRecords :: Lens' DescribeReservedDBInstances (Maybe Int)
describeReservedDBInstances_maxRecords = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeReservedDBInstances' {Maybe Int
maxRecords :: Maybe Int
$sel:maxRecords:DescribeReservedDBInstances' :: DescribeReservedDBInstances -> Maybe Int
maxRecords} -> Maybe Int
maxRecords) (\s :: DescribeReservedDBInstances
s@DescribeReservedDBInstances' {} Maybe Int
a -> DescribeReservedDBInstances
s {$sel:maxRecords:DescribeReservedDBInstances' :: Maybe Int
maxRecords = Maybe Int
a} :: DescribeReservedDBInstances)
describeReservedDBInstances_multiAZ :: Lens.Lens' DescribeReservedDBInstances (Prelude.Maybe Prelude.Bool)
describeReservedDBInstances_multiAZ :: Lens' DescribeReservedDBInstances (Maybe Bool)
describeReservedDBInstances_multiAZ = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeReservedDBInstances' {Maybe Bool
multiAZ :: Maybe Bool
$sel:multiAZ:DescribeReservedDBInstances' :: DescribeReservedDBInstances -> Maybe Bool
multiAZ} -> Maybe Bool
multiAZ) (\s :: DescribeReservedDBInstances
s@DescribeReservedDBInstances' {} Maybe Bool
a -> DescribeReservedDBInstances
s {$sel:multiAZ:DescribeReservedDBInstances' :: Maybe Bool
multiAZ = Maybe Bool
a} :: DescribeReservedDBInstances)
describeReservedDBInstances_offeringType :: Lens.Lens' DescribeReservedDBInstances (Prelude.Maybe Prelude.Text)
describeReservedDBInstances_offeringType :: Lens' DescribeReservedDBInstances (Maybe Text)
describeReservedDBInstances_offeringType = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeReservedDBInstances' {Maybe Text
offeringType :: Maybe Text
$sel:offeringType:DescribeReservedDBInstances' :: DescribeReservedDBInstances -> Maybe Text
offeringType} -> Maybe Text
offeringType) (\s :: DescribeReservedDBInstances
s@DescribeReservedDBInstances' {} Maybe Text
a -> DescribeReservedDBInstances
s {$sel:offeringType:DescribeReservedDBInstances' :: Maybe Text
offeringType = Maybe Text
a} :: DescribeReservedDBInstances)
describeReservedDBInstances_productDescription :: Lens.Lens' DescribeReservedDBInstances (Prelude.Maybe Prelude.Text)
describeReservedDBInstances_productDescription :: Lens' DescribeReservedDBInstances (Maybe Text)
describeReservedDBInstances_productDescription = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeReservedDBInstances' {Maybe Text
productDescription :: Maybe Text
$sel:productDescription:DescribeReservedDBInstances' :: DescribeReservedDBInstances -> Maybe Text
productDescription} -> Maybe Text
productDescription) (\s :: DescribeReservedDBInstances
s@DescribeReservedDBInstances' {} Maybe Text
a -> DescribeReservedDBInstances
s {$sel:productDescription:DescribeReservedDBInstances' :: Maybe Text
productDescription = Maybe Text
a} :: DescribeReservedDBInstances)
describeReservedDBInstances_reservedDBInstanceId :: Lens.Lens' DescribeReservedDBInstances (Prelude.Maybe Prelude.Text)
describeReservedDBInstances_reservedDBInstanceId :: Lens' DescribeReservedDBInstances (Maybe Text)
describeReservedDBInstances_reservedDBInstanceId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeReservedDBInstances' {Maybe Text
reservedDBInstanceId :: Maybe Text
$sel:reservedDBInstanceId:DescribeReservedDBInstances' :: DescribeReservedDBInstances -> Maybe Text
reservedDBInstanceId} -> Maybe Text
reservedDBInstanceId) (\s :: DescribeReservedDBInstances
s@DescribeReservedDBInstances' {} Maybe Text
a -> DescribeReservedDBInstances
s {$sel:reservedDBInstanceId:DescribeReservedDBInstances' :: Maybe Text
reservedDBInstanceId = Maybe Text
a} :: DescribeReservedDBInstances)
describeReservedDBInstances_reservedDBInstancesOfferingId :: Lens.Lens' DescribeReservedDBInstances (Prelude.Maybe Prelude.Text)
describeReservedDBInstances_reservedDBInstancesOfferingId :: Lens' DescribeReservedDBInstances (Maybe Text)
describeReservedDBInstances_reservedDBInstancesOfferingId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeReservedDBInstances' {Maybe Text
reservedDBInstancesOfferingId :: Maybe Text
$sel:reservedDBInstancesOfferingId:DescribeReservedDBInstances' :: DescribeReservedDBInstances -> Maybe Text
reservedDBInstancesOfferingId} -> Maybe Text
reservedDBInstancesOfferingId) (\s :: DescribeReservedDBInstances
s@DescribeReservedDBInstances' {} Maybe Text
a -> DescribeReservedDBInstances
s {$sel:reservedDBInstancesOfferingId:DescribeReservedDBInstances' :: Maybe Text
reservedDBInstancesOfferingId = Maybe Text
a} :: DescribeReservedDBInstances)
instance Core.AWSPager DescribeReservedDBInstances where
page :: DescribeReservedDBInstances
-> AWSResponse DescribeReservedDBInstances
-> Maybe DescribeReservedDBInstances
page DescribeReservedDBInstances
rq AWSResponse DescribeReservedDBInstances
rs
| forall a. AWSTruncated a => a -> Bool
Core.stop
( AWSResponse DescribeReservedDBInstances
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' DescribeReservedDBInstancesResponse (Maybe Text)
describeReservedDBInstancesResponse_marker
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall a b. Prism (Maybe a) (Maybe b) a b
Lens._Just
) =
forall a. Maybe a
Prelude.Nothing
| forall a. AWSTruncated a => a -> Bool
Core.stop
( AWSResponse DescribeReservedDBInstances
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens'
DescribeReservedDBInstancesResponse (Maybe [ReservedDBInstance])
describeReservedDBInstancesResponse_reservedDBInstances
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall a b. Prism (Maybe a) (Maybe b) a b
Lens._Just
) =
forall a. Maybe a
Prelude.Nothing
| Bool
Prelude.otherwise =
forall a. a -> Maybe a
Prelude.Just
forall a b. (a -> b) -> a -> b
Prelude.$ DescribeReservedDBInstances
rq
forall a b. a -> (a -> b) -> b
Prelude.& Lens' DescribeReservedDBInstances (Maybe Text)
describeReservedDBInstances_marker
forall s t a b. ASetter s t a b -> b -> s -> t
Lens..~ AWSResponse DescribeReservedDBInstances
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' DescribeReservedDBInstancesResponse (Maybe Text)
describeReservedDBInstancesResponse_marker
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall a b. Prism (Maybe a) (Maybe b) a b
Lens._Just
instance Core.AWSRequest DescribeReservedDBInstances where
type
AWSResponse DescribeReservedDBInstances =
DescribeReservedDBInstancesResponse
request :: (Service -> Service)
-> DescribeReservedDBInstances
-> Request DescribeReservedDBInstances
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 DescribeReservedDBInstances
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse DescribeReservedDBInstances)))
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
"DescribeReservedDBInstancesResult"
( \Int
s ResponseHeaders
h [Node]
x ->
Maybe Text
-> Maybe [ReservedDBInstance]
-> Int
-> DescribeReservedDBInstancesResponse
DescribeReservedDBInstancesResponse'
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
"Marker")
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
"ReservedDBInstances"
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
"ReservedDBInstance")
)
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 DescribeReservedDBInstances where
hashWithSalt :: Int -> DescribeReservedDBInstances -> Int
hashWithSalt Int
_salt DescribeReservedDBInstances' {Maybe Bool
Maybe Int
Maybe [Filter]
Maybe Text
reservedDBInstancesOfferingId :: Maybe Text
reservedDBInstanceId :: Maybe Text
productDescription :: Maybe Text
offeringType :: Maybe Text
multiAZ :: Maybe Bool
maxRecords :: Maybe Int
marker :: Maybe Text
leaseId :: Maybe Text
filters :: Maybe [Filter]
duration :: Maybe Text
dbInstanceClass :: Maybe Text
$sel:reservedDBInstancesOfferingId:DescribeReservedDBInstances' :: DescribeReservedDBInstances -> Maybe Text
$sel:reservedDBInstanceId:DescribeReservedDBInstances' :: DescribeReservedDBInstances -> Maybe Text
$sel:productDescription:DescribeReservedDBInstances' :: DescribeReservedDBInstances -> Maybe Text
$sel:offeringType:DescribeReservedDBInstances' :: DescribeReservedDBInstances -> Maybe Text
$sel:multiAZ:DescribeReservedDBInstances' :: DescribeReservedDBInstances -> Maybe Bool
$sel:maxRecords:DescribeReservedDBInstances' :: DescribeReservedDBInstances -> Maybe Int
$sel:marker:DescribeReservedDBInstances' :: DescribeReservedDBInstances -> Maybe Text
$sel:leaseId:DescribeReservedDBInstances' :: DescribeReservedDBInstances -> Maybe Text
$sel:filters:DescribeReservedDBInstances' :: DescribeReservedDBInstances -> Maybe [Filter]
$sel:duration:DescribeReservedDBInstances' :: DescribeReservedDBInstances -> Maybe Text
$sel:dbInstanceClass:DescribeReservedDBInstances' :: DescribeReservedDBInstances -> Maybe Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
dbInstanceClass
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
duration
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [Filter]
filters
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
leaseId
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
marker
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Int
maxRecords
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Bool
multiAZ
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 Text
reservedDBInstanceId
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
reservedDBInstancesOfferingId
instance Prelude.NFData DescribeReservedDBInstances where
rnf :: DescribeReservedDBInstances -> ()
rnf DescribeReservedDBInstances' {Maybe Bool
Maybe Int
Maybe [Filter]
Maybe Text
reservedDBInstancesOfferingId :: Maybe Text
reservedDBInstanceId :: Maybe Text
productDescription :: Maybe Text
offeringType :: Maybe Text
multiAZ :: Maybe Bool
maxRecords :: Maybe Int
marker :: Maybe Text
leaseId :: Maybe Text
filters :: Maybe [Filter]
duration :: Maybe Text
dbInstanceClass :: Maybe Text
$sel:reservedDBInstancesOfferingId:DescribeReservedDBInstances' :: DescribeReservedDBInstances -> Maybe Text
$sel:reservedDBInstanceId:DescribeReservedDBInstances' :: DescribeReservedDBInstances -> Maybe Text
$sel:productDescription:DescribeReservedDBInstances' :: DescribeReservedDBInstances -> Maybe Text
$sel:offeringType:DescribeReservedDBInstances' :: DescribeReservedDBInstances -> Maybe Text
$sel:multiAZ:DescribeReservedDBInstances' :: DescribeReservedDBInstances -> Maybe Bool
$sel:maxRecords:DescribeReservedDBInstances' :: DescribeReservedDBInstances -> Maybe Int
$sel:marker:DescribeReservedDBInstances' :: DescribeReservedDBInstances -> Maybe Text
$sel:leaseId:DescribeReservedDBInstances' :: DescribeReservedDBInstances -> Maybe Text
$sel:filters:DescribeReservedDBInstances' :: DescribeReservedDBInstances -> Maybe [Filter]
$sel:duration:DescribeReservedDBInstances' :: DescribeReservedDBInstances -> Maybe Text
$sel:dbInstanceClass:DescribeReservedDBInstances' :: DescribeReservedDBInstances -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
dbInstanceClass
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
duration
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [Filter]
filters
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
leaseId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
marker
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Int
maxRecords
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Bool
multiAZ
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 Text
reservedDBInstanceId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
reservedDBInstancesOfferingId
instance Data.ToHeaders DescribeReservedDBInstances where
toHeaders :: DescribeReservedDBInstances -> ResponseHeaders
toHeaders = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
instance Data.ToPath DescribeReservedDBInstances where
toPath :: DescribeReservedDBInstances -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery DescribeReservedDBInstances where
toQuery :: DescribeReservedDBInstances -> QueryString
toQuery DescribeReservedDBInstances' {Maybe Bool
Maybe Int
Maybe [Filter]
Maybe Text
reservedDBInstancesOfferingId :: Maybe Text
reservedDBInstanceId :: Maybe Text
productDescription :: Maybe Text
offeringType :: Maybe Text
multiAZ :: Maybe Bool
maxRecords :: Maybe Int
marker :: Maybe Text
leaseId :: Maybe Text
filters :: Maybe [Filter]
duration :: Maybe Text
dbInstanceClass :: Maybe Text
$sel:reservedDBInstancesOfferingId:DescribeReservedDBInstances' :: DescribeReservedDBInstances -> Maybe Text
$sel:reservedDBInstanceId:DescribeReservedDBInstances' :: DescribeReservedDBInstances -> Maybe Text
$sel:productDescription:DescribeReservedDBInstances' :: DescribeReservedDBInstances -> Maybe Text
$sel:offeringType:DescribeReservedDBInstances' :: DescribeReservedDBInstances -> Maybe Text
$sel:multiAZ:DescribeReservedDBInstances' :: DescribeReservedDBInstances -> Maybe Bool
$sel:maxRecords:DescribeReservedDBInstances' :: DescribeReservedDBInstances -> Maybe Int
$sel:marker:DescribeReservedDBInstances' :: DescribeReservedDBInstances -> Maybe Text
$sel:leaseId:DescribeReservedDBInstances' :: DescribeReservedDBInstances -> Maybe Text
$sel:filters:DescribeReservedDBInstances' :: DescribeReservedDBInstances -> Maybe [Filter]
$sel:duration:DescribeReservedDBInstances' :: DescribeReservedDBInstances -> Maybe Text
$sel:dbInstanceClass:DescribeReservedDBInstances' :: DescribeReservedDBInstances -> Maybe Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"Action"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: ( ByteString
"DescribeReservedDBInstances" ::
Prelude.ByteString
),
ByteString
"Version"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: (ByteString
"2014-10-31" :: Prelude.ByteString),
ByteString
"DBInstanceClass" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
dbInstanceClass,
ByteString
"Duration" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
duration,
ByteString
"Filters"
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
"Filter" forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [Filter]
filters),
ByteString
"LeaseId" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
leaseId,
ByteString
"Marker" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
marker,
ByteString
"MaxRecords" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Int
maxRecords,
ByteString
"MultiAZ" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Bool
multiAZ,
ByteString
"OfferingType" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
offeringType,
ByteString
"ProductDescription" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
productDescription,
ByteString
"ReservedDBInstanceId" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
reservedDBInstanceId,
ByteString
"ReservedDBInstancesOfferingId"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
reservedDBInstancesOfferingId
]
data DescribeReservedDBInstancesResponse = DescribeReservedDBInstancesResponse'
{
DescribeReservedDBInstancesResponse -> Maybe Text
marker :: Prelude.Maybe Prelude.Text,
DescribeReservedDBInstancesResponse -> Maybe [ReservedDBInstance]
reservedDBInstances :: Prelude.Maybe [ReservedDBInstance],
DescribeReservedDBInstancesResponse -> Int
httpStatus :: Prelude.Int
}
deriving (DescribeReservedDBInstancesResponse
-> DescribeReservedDBInstancesResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DescribeReservedDBInstancesResponse
-> DescribeReservedDBInstancesResponse -> Bool
$c/= :: DescribeReservedDBInstancesResponse
-> DescribeReservedDBInstancesResponse -> Bool
== :: DescribeReservedDBInstancesResponse
-> DescribeReservedDBInstancesResponse -> Bool
$c== :: DescribeReservedDBInstancesResponse
-> DescribeReservedDBInstancesResponse -> Bool
Prelude.Eq, ReadPrec [DescribeReservedDBInstancesResponse]
ReadPrec DescribeReservedDBInstancesResponse
Int -> ReadS DescribeReservedDBInstancesResponse
ReadS [DescribeReservedDBInstancesResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DescribeReservedDBInstancesResponse]
$creadListPrec :: ReadPrec [DescribeReservedDBInstancesResponse]
readPrec :: ReadPrec DescribeReservedDBInstancesResponse
$creadPrec :: ReadPrec DescribeReservedDBInstancesResponse
readList :: ReadS [DescribeReservedDBInstancesResponse]
$creadList :: ReadS [DescribeReservedDBInstancesResponse]
readsPrec :: Int -> ReadS DescribeReservedDBInstancesResponse
$creadsPrec :: Int -> ReadS DescribeReservedDBInstancesResponse
Prelude.Read, Int -> DescribeReservedDBInstancesResponse -> ShowS
[DescribeReservedDBInstancesResponse] -> ShowS
DescribeReservedDBInstancesResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DescribeReservedDBInstancesResponse] -> ShowS
$cshowList :: [DescribeReservedDBInstancesResponse] -> ShowS
show :: DescribeReservedDBInstancesResponse -> String
$cshow :: DescribeReservedDBInstancesResponse -> String
showsPrec :: Int -> DescribeReservedDBInstancesResponse -> ShowS
$cshowsPrec :: Int -> DescribeReservedDBInstancesResponse -> ShowS
Prelude.Show, forall x.
Rep DescribeReservedDBInstancesResponse x
-> DescribeReservedDBInstancesResponse
forall x.
DescribeReservedDBInstancesResponse
-> Rep DescribeReservedDBInstancesResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DescribeReservedDBInstancesResponse x
-> DescribeReservedDBInstancesResponse
$cfrom :: forall x.
DescribeReservedDBInstancesResponse
-> Rep DescribeReservedDBInstancesResponse x
Prelude.Generic)
newDescribeReservedDBInstancesResponse ::
Prelude.Int ->
DescribeReservedDBInstancesResponse
newDescribeReservedDBInstancesResponse :: Int -> DescribeReservedDBInstancesResponse
newDescribeReservedDBInstancesResponse Int
pHttpStatus_ =
DescribeReservedDBInstancesResponse'
{ $sel:marker:DescribeReservedDBInstancesResponse' :: Maybe Text
marker =
forall a. Maybe a
Prelude.Nothing,
$sel:reservedDBInstances:DescribeReservedDBInstancesResponse' :: Maybe [ReservedDBInstance]
reservedDBInstances = forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:DescribeReservedDBInstancesResponse' :: Int
httpStatus = Int
pHttpStatus_
}
describeReservedDBInstancesResponse_marker :: Lens.Lens' DescribeReservedDBInstancesResponse (Prelude.Maybe Prelude.Text)
describeReservedDBInstancesResponse_marker :: Lens' DescribeReservedDBInstancesResponse (Maybe Text)
describeReservedDBInstancesResponse_marker = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeReservedDBInstancesResponse' {Maybe Text
marker :: Maybe Text
$sel:marker:DescribeReservedDBInstancesResponse' :: DescribeReservedDBInstancesResponse -> Maybe Text
marker} -> Maybe Text
marker) (\s :: DescribeReservedDBInstancesResponse
s@DescribeReservedDBInstancesResponse' {} Maybe Text
a -> DescribeReservedDBInstancesResponse
s {$sel:marker:DescribeReservedDBInstancesResponse' :: Maybe Text
marker = Maybe Text
a} :: DescribeReservedDBInstancesResponse)
describeReservedDBInstancesResponse_reservedDBInstances :: Lens.Lens' DescribeReservedDBInstancesResponse (Prelude.Maybe [ReservedDBInstance])
describeReservedDBInstancesResponse_reservedDBInstances :: Lens'
DescribeReservedDBInstancesResponse (Maybe [ReservedDBInstance])
describeReservedDBInstancesResponse_reservedDBInstances = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeReservedDBInstancesResponse' {Maybe [ReservedDBInstance]
reservedDBInstances :: Maybe [ReservedDBInstance]
$sel:reservedDBInstances:DescribeReservedDBInstancesResponse' :: DescribeReservedDBInstancesResponse -> Maybe [ReservedDBInstance]
reservedDBInstances} -> Maybe [ReservedDBInstance]
reservedDBInstances) (\s :: DescribeReservedDBInstancesResponse
s@DescribeReservedDBInstancesResponse' {} Maybe [ReservedDBInstance]
a -> DescribeReservedDBInstancesResponse
s {$sel:reservedDBInstances:DescribeReservedDBInstancesResponse' :: Maybe [ReservedDBInstance]
reservedDBInstances = Maybe [ReservedDBInstance]
a} :: DescribeReservedDBInstancesResponse) 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
describeReservedDBInstancesResponse_httpStatus :: Lens.Lens' DescribeReservedDBInstancesResponse Prelude.Int
describeReservedDBInstancesResponse_httpStatus :: Lens' DescribeReservedDBInstancesResponse Int
describeReservedDBInstancesResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeReservedDBInstancesResponse' {Int
httpStatus :: Int
$sel:httpStatus:DescribeReservedDBInstancesResponse' :: DescribeReservedDBInstancesResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: DescribeReservedDBInstancesResponse
s@DescribeReservedDBInstancesResponse' {} Int
a -> DescribeReservedDBInstancesResponse
s {$sel:httpStatus:DescribeReservedDBInstancesResponse' :: Int
httpStatus = Int
a} :: DescribeReservedDBInstancesResponse)
instance
Prelude.NFData
DescribeReservedDBInstancesResponse
where
rnf :: DescribeReservedDBInstancesResponse -> ()
rnf DescribeReservedDBInstancesResponse' {Int
Maybe [ReservedDBInstance]
Maybe Text
httpStatus :: Int
reservedDBInstances :: Maybe [ReservedDBInstance]
marker :: Maybe Text
$sel:httpStatus:DescribeReservedDBInstancesResponse' :: DescribeReservedDBInstancesResponse -> Int
$sel:reservedDBInstances:DescribeReservedDBInstancesResponse' :: DescribeReservedDBInstancesResponse -> Maybe [ReservedDBInstance]
$sel:marker:DescribeReservedDBInstancesResponse' :: DescribeReservedDBInstancesResponse -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
marker
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [ReservedDBInstance]
reservedDBInstances
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus