{-# 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.EC2.DescribeInstanceTypeOfferings
(
DescribeInstanceTypeOfferings (..),
newDescribeInstanceTypeOfferings,
describeInstanceTypeOfferings_dryRun,
describeInstanceTypeOfferings_filters,
describeInstanceTypeOfferings_locationType,
describeInstanceTypeOfferings_maxResults,
describeInstanceTypeOfferings_nextToken,
DescribeInstanceTypeOfferingsResponse (..),
newDescribeInstanceTypeOfferingsResponse,
describeInstanceTypeOfferingsResponse_instanceTypeOfferings,
describeInstanceTypeOfferingsResponse_nextToken,
describeInstanceTypeOfferingsResponse_httpStatus,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import Amazonka.EC2.Types
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data DescribeInstanceTypeOfferings = DescribeInstanceTypeOfferings'
{
DescribeInstanceTypeOfferings -> Maybe Bool
dryRun :: Prelude.Maybe Prelude.Bool,
DescribeInstanceTypeOfferings -> Maybe [Filter]
filters :: Prelude.Maybe [Filter],
DescribeInstanceTypeOfferings -> Maybe LocationType
locationType :: Prelude.Maybe LocationType,
DescribeInstanceTypeOfferings -> Maybe Natural
maxResults :: Prelude.Maybe Prelude.Natural,
DescribeInstanceTypeOfferings -> Maybe Text
nextToken :: Prelude.Maybe Prelude.Text
}
deriving (DescribeInstanceTypeOfferings
-> DescribeInstanceTypeOfferings -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DescribeInstanceTypeOfferings
-> DescribeInstanceTypeOfferings -> Bool
$c/= :: DescribeInstanceTypeOfferings
-> DescribeInstanceTypeOfferings -> Bool
== :: DescribeInstanceTypeOfferings
-> DescribeInstanceTypeOfferings -> Bool
$c== :: DescribeInstanceTypeOfferings
-> DescribeInstanceTypeOfferings -> Bool
Prelude.Eq, ReadPrec [DescribeInstanceTypeOfferings]
ReadPrec DescribeInstanceTypeOfferings
Int -> ReadS DescribeInstanceTypeOfferings
ReadS [DescribeInstanceTypeOfferings]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DescribeInstanceTypeOfferings]
$creadListPrec :: ReadPrec [DescribeInstanceTypeOfferings]
readPrec :: ReadPrec DescribeInstanceTypeOfferings
$creadPrec :: ReadPrec DescribeInstanceTypeOfferings
readList :: ReadS [DescribeInstanceTypeOfferings]
$creadList :: ReadS [DescribeInstanceTypeOfferings]
readsPrec :: Int -> ReadS DescribeInstanceTypeOfferings
$creadsPrec :: Int -> ReadS DescribeInstanceTypeOfferings
Prelude.Read, Int -> DescribeInstanceTypeOfferings -> ShowS
[DescribeInstanceTypeOfferings] -> ShowS
DescribeInstanceTypeOfferings -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DescribeInstanceTypeOfferings] -> ShowS
$cshowList :: [DescribeInstanceTypeOfferings] -> ShowS
show :: DescribeInstanceTypeOfferings -> String
$cshow :: DescribeInstanceTypeOfferings -> String
showsPrec :: Int -> DescribeInstanceTypeOfferings -> ShowS
$cshowsPrec :: Int -> DescribeInstanceTypeOfferings -> ShowS
Prelude.Show, forall x.
Rep DescribeInstanceTypeOfferings x
-> DescribeInstanceTypeOfferings
forall x.
DescribeInstanceTypeOfferings
-> Rep DescribeInstanceTypeOfferings x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DescribeInstanceTypeOfferings x
-> DescribeInstanceTypeOfferings
$cfrom :: forall x.
DescribeInstanceTypeOfferings
-> Rep DescribeInstanceTypeOfferings x
Prelude.Generic)
newDescribeInstanceTypeOfferings ::
DescribeInstanceTypeOfferings
newDescribeInstanceTypeOfferings :: DescribeInstanceTypeOfferings
newDescribeInstanceTypeOfferings =
DescribeInstanceTypeOfferings'
{ $sel:dryRun:DescribeInstanceTypeOfferings' :: Maybe Bool
dryRun =
forall a. Maybe a
Prelude.Nothing,
$sel:filters:DescribeInstanceTypeOfferings' :: Maybe [Filter]
filters = forall a. Maybe a
Prelude.Nothing,
$sel:locationType:DescribeInstanceTypeOfferings' :: Maybe LocationType
locationType = forall a. Maybe a
Prelude.Nothing,
$sel:maxResults:DescribeInstanceTypeOfferings' :: Maybe Natural
maxResults = forall a. Maybe a
Prelude.Nothing,
$sel:nextToken:DescribeInstanceTypeOfferings' :: Maybe Text
nextToken = forall a. Maybe a
Prelude.Nothing
}
describeInstanceTypeOfferings_dryRun :: Lens.Lens' DescribeInstanceTypeOfferings (Prelude.Maybe Prelude.Bool)
describeInstanceTypeOfferings_dryRun :: Lens' DescribeInstanceTypeOfferings (Maybe Bool)
describeInstanceTypeOfferings_dryRun = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeInstanceTypeOfferings' {Maybe Bool
dryRun :: Maybe Bool
$sel:dryRun:DescribeInstanceTypeOfferings' :: DescribeInstanceTypeOfferings -> Maybe Bool
dryRun} -> Maybe Bool
dryRun) (\s :: DescribeInstanceTypeOfferings
s@DescribeInstanceTypeOfferings' {} Maybe Bool
a -> DescribeInstanceTypeOfferings
s {$sel:dryRun:DescribeInstanceTypeOfferings' :: Maybe Bool
dryRun = Maybe Bool
a} :: DescribeInstanceTypeOfferings)
describeInstanceTypeOfferings_filters :: Lens.Lens' DescribeInstanceTypeOfferings (Prelude.Maybe [Filter])
describeInstanceTypeOfferings_filters :: Lens' DescribeInstanceTypeOfferings (Maybe [Filter])
describeInstanceTypeOfferings_filters = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeInstanceTypeOfferings' {Maybe [Filter]
filters :: Maybe [Filter]
$sel:filters:DescribeInstanceTypeOfferings' :: DescribeInstanceTypeOfferings -> Maybe [Filter]
filters} -> Maybe [Filter]
filters) (\s :: DescribeInstanceTypeOfferings
s@DescribeInstanceTypeOfferings' {} Maybe [Filter]
a -> DescribeInstanceTypeOfferings
s {$sel:filters:DescribeInstanceTypeOfferings' :: Maybe [Filter]
filters = Maybe [Filter]
a} :: DescribeInstanceTypeOfferings) 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
describeInstanceTypeOfferings_locationType :: Lens.Lens' DescribeInstanceTypeOfferings (Prelude.Maybe LocationType)
describeInstanceTypeOfferings_locationType :: Lens' DescribeInstanceTypeOfferings (Maybe LocationType)
describeInstanceTypeOfferings_locationType = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeInstanceTypeOfferings' {Maybe LocationType
locationType :: Maybe LocationType
$sel:locationType:DescribeInstanceTypeOfferings' :: DescribeInstanceTypeOfferings -> Maybe LocationType
locationType} -> Maybe LocationType
locationType) (\s :: DescribeInstanceTypeOfferings
s@DescribeInstanceTypeOfferings' {} Maybe LocationType
a -> DescribeInstanceTypeOfferings
s {$sel:locationType:DescribeInstanceTypeOfferings' :: Maybe LocationType
locationType = Maybe LocationType
a} :: DescribeInstanceTypeOfferings)
describeInstanceTypeOfferings_maxResults :: Lens.Lens' DescribeInstanceTypeOfferings (Prelude.Maybe Prelude.Natural)
describeInstanceTypeOfferings_maxResults :: Lens' DescribeInstanceTypeOfferings (Maybe Natural)
describeInstanceTypeOfferings_maxResults = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeInstanceTypeOfferings' {Maybe Natural
maxResults :: Maybe Natural
$sel:maxResults:DescribeInstanceTypeOfferings' :: DescribeInstanceTypeOfferings -> Maybe Natural
maxResults} -> Maybe Natural
maxResults) (\s :: DescribeInstanceTypeOfferings
s@DescribeInstanceTypeOfferings' {} Maybe Natural
a -> DescribeInstanceTypeOfferings
s {$sel:maxResults:DescribeInstanceTypeOfferings' :: Maybe Natural
maxResults = Maybe Natural
a} :: DescribeInstanceTypeOfferings)
describeInstanceTypeOfferings_nextToken :: Lens.Lens' DescribeInstanceTypeOfferings (Prelude.Maybe Prelude.Text)
describeInstanceTypeOfferings_nextToken :: Lens' DescribeInstanceTypeOfferings (Maybe Text)
describeInstanceTypeOfferings_nextToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeInstanceTypeOfferings' {Maybe Text
nextToken :: Maybe Text
$sel:nextToken:DescribeInstanceTypeOfferings' :: DescribeInstanceTypeOfferings -> Maybe Text
nextToken} -> Maybe Text
nextToken) (\s :: DescribeInstanceTypeOfferings
s@DescribeInstanceTypeOfferings' {} Maybe Text
a -> DescribeInstanceTypeOfferings
s {$sel:nextToken:DescribeInstanceTypeOfferings' :: Maybe Text
nextToken = Maybe Text
a} :: DescribeInstanceTypeOfferings)
instance Core.AWSPager DescribeInstanceTypeOfferings where
page :: DescribeInstanceTypeOfferings
-> AWSResponse DescribeInstanceTypeOfferings
-> Maybe DescribeInstanceTypeOfferings
page DescribeInstanceTypeOfferings
rq AWSResponse DescribeInstanceTypeOfferings
rs
| forall a. AWSTruncated a => a -> Bool
Core.stop
( AWSResponse DescribeInstanceTypeOfferings
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' DescribeInstanceTypeOfferingsResponse (Maybe Text)
describeInstanceTypeOfferingsResponse_nextToken
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 DescribeInstanceTypeOfferings
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens'
DescribeInstanceTypeOfferingsResponse
(Maybe [InstanceTypeOffering])
describeInstanceTypeOfferingsResponse_instanceTypeOfferings
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.$ DescribeInstanceTypeOfferings
rq
forall a b. a -> (a -> b) -> b
Prelude.& Lens' DescribeInstanceTypeOfferings (Maybe Text)
describeInstanceTypeOfferings_nextToken
forall s t a b. ASetter s t a b -> b -> s -> t
Lens..~ AWSResponse DescribeInstanceTypeOfferings
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' DescribeInstanceTypeOfferingsResponse (Maybe Text)
describeInstanceTypeOfferingsResponse_nextToken
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
DescribeInstanceTypeOfferings
where
type
AWSResponse DescribeInstanceTypeOfferings =
DescribeInstanceTypeOfferingsResponse
request :: (Service -> Service)
-> DescribeInstanceTypeOfferings
-> Request DescribeInstanceTypeOfferings
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 DescribeInstanceTypeOfferings
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse DescribeInstanceTypeOfferings)))
response =
forall (m :: * -> *) a.
MonadResource m =>
(Int -> ResponseHeaders -> [Node] -> Either String (AWSResponse a))
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveXML
( \Int
s ResponseHeaders
h [Node]
x ->
Maybe [InstanceTypeOffering]
-> Maybe Text -> Int -> DescribeInstanceTypeOfferingsResponse
DescribeInstanceTypeOfferingsResponse'
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
"instanceTypeOfferingSet"
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
"item")
)
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
"nextToken")
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
DescribeInstanceTypeOfferings
where
hashWithSalt :: Int -> DescribeInstanceTypeOfferings -> Int
hashWithSalt Int
_salt DescribeInstanceTypeOfferings' {Maybe Bool
Maybe Natural
Maybe [Filter]
Maybe Text
Maybe LocationType
nextToken :: Maybe Text
maxResults :: Maybe Natural
locationType :: Maybe LocationType
filters :: Maybe [Filter]
dryRun :: Maybe Bool
$sel:nextToken:DescribeInstanceTypeOfferings' :: DescribeInstanceTypeOfferings -> Maybe Text
$sel:maxResults:DescribeInstanceTypeOfferings' :: DescribeInstanceTypeOfferings -> Maybe Natural
$sel:locationType:DescribeInstanceTypeOfferings' :: DescribeInstanceTypeOfferings -> Maybe LocationType
$sel:filters:DescribeInstanceTypeOfferings' :: DescribeInstanceTypeOfferings -> Maybe [Filter]
$sel:dryRun:DescribeInstanceTypeOfferings' :: DescribeInstanceTypeOfferings -> Maybe Bool
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Bool
dryRun
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [Filter]
filters
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe LocationType
locationType
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Natural
maxResults
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
nextToken
instance Prelude.NFData DescribeInstanceTypeOfferings where
rnf :: DescribeInstanceTypeOfferings -> ()
rnf DescribeInstanceTypeOfferings' {Maybe Bool
Maybe Natural
Maybe [Filter]
Maybe Text
Maybe LocationType
nextToken :: Maybe Text
maxResults :: Maybe Natural
locationType :: Maybe LocationType
filters :: Maybe [Filter]
dryRun :: Maybe Bool
$sel:nextToken:DescribeInstanceTypeOfferings' :: DescribeInstanceTypeOfferings -> Maybe Text
$sel:maxResults:DescribeInstanceTypeOfferings' :: DescribeInstanceTypeOfferings -> Maybe Natural
$sel:locationType:DescribeInstanceTypeOfferings' :: DescribeInstanceTypeOfferings -> Maybe LocationType
$sel:filters:DescribeInstanceTypeOfferings' :: DescribeInstanceTypeOfferings -> Maybe [Filter]
$sel:dryRun:DescribeInstanceTypeOfferings' :: DescribeInstanceTypeOfferings -> Maybe Bool
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Bool
dryRun
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 LocationType
locationType
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Natural
maxResults
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
nextToken
instance Data.ToHeaders DescribeInstanceTypeOfferings where
toHeaders :: DescribeInstanceTypeOfferings -> ResponseHeaders
toHeaders = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
instance Data.ToPath DescribeInstanceTypeOfferings where
toPath :: DescribeInstanceTypeOfferings -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery DescribeInstanceTypeOfferings where
toQuery :: DescribeInstanceTypeOfferings -> QueryString
toQuery DescribeInstanceTypeOfferings' {Maybe Bool
Maybe Natural
Maybe [Filter]
Maybe Text
Maybe LocationType
nextToken :: Maybe Text
maxResults :: Maybe Natural
locationType :: Maybe LocationType
filters :: Maybe [Filter]
dryRun :: Maybe Bool
$sel:nextToken:DescribeInstanceTypeOfferings' :: DescribeInstanceTypeOfferings -> Maybe Text
$sel:maxResults:DescribeInstanceTypeOfferings' :: DescribeInstanceTypeOfferings -> Maybe Natural
$sel:locationType:DescribeInstanceTypeOfferings' :: DescribeInstanceTypeOfferings -> Maybe LocationType
$sel:filters:DescribeInstanceTypeOfferings' :: DescribeInstanceTypeOfferings -> Maybe [Filter]
$sel:dryRun:DescribeInstanceTypeOfferings' :: DescribeInstanceTypeOfferings -> Maybe Bool
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"Action"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: ( ByteString
"DescribeInstanceTypeOfferings" ::
Prelude.ByteString
),
ByteString
"Version"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: (ByteString
"2016-11-15" :: Prelude.ByteString),
ByteString
"DryRun" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Bool
dryRun,
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
"LocationType" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe LocationType
locationType,
ByteString
"MaxResults" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Natural
maxResults,
ByteString
"NextToken" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
nextToken
]
data DescribeInstanceTypeOfferingsResponse = DescribeInstanceTypeOfferingsResponse'
{
DescribeInstanceTypeOfferingsResponse
-> Maybe [InstanceTypeOffering]
instanceTypeOfferings :: Prelude.Maybe [InstanceTypeOffering],
DescribeInstanceTypeOfferingsResponse -> Maybe Text
nextToken :: Prelude.Maybe Prelude.Text,
DescribeInstanceTypeOfferingsResponse -> Int
httpStatus :: Prelude.Int
}
deriving (DescribeInstanceTypeOfferingsResponse
-> DescribeInstanceTypeOfferingsResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DescribeInstanceTypeOfferingsResponse
-> DescribeInstanceTypeOfferingsResponse -> Bool
$c/= :: DescribeInstanceTypeOfferingsResponse
-> DescribeInstanceTypeOfferingsResponse -> Bool
== :: DescribeInstanceTypeOfferingsResponse
-> DescribeInstanceTypeOfferingsResponse -> Bool
$c== :: DescribeInstanceTypeOfferingsResponse
-> DescribeInstanceTypeOfferingsResponse -> Bool
Prelude.Eq, ReadPrec [DescribeInstanceTypeOfferingsResponse]
ReadPrec DescribeInstanceTypeOfferingsResponse
Int -> ReadS DescribeInstanceTypeOfferingsResponse
ReadS [DescribeInstanceTypeOfferingsResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DescribeInstanceTypeOfferingsResponse]
$creadListPrec :: ReadPrec [DescribeInstanceTypeOfferingsResponse]
readPrec :: ReadPrec DescribeInstanceTypeOfferingsResponse
$creadPrec :: ReadPrec DescribeInstanceTypeOfferingsResponse
readList :: ReadS [DescribeInstanceTypeOfferingsResponse]
$creadList :: ReadS [DescribeInstanceTypeOfferingsResponse]
readsPrec :: Int -> ReadS DescribeInstanceTypeOfferingsResponse
$creadsPrec :: Int -> ReadS DescribeInstanceTypeOfferingsResponse
Prelude.Read, Int -> DescribeInstanceTypeOfferingsResponse -> ShowS
[DescribeInstanceTypeOfferingsResponse] -> ShowS
DescribeInstanceTypeOfferingsResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DescribeInstanceTypeOfferingsResponse] -> ShowS
$cshowList :: [DescribeInstanceTypeOfferingsResponse] -> ShowS
show :: DescribeInstanceTypeOfferingsResponse -> String
$cshow :: DescribeInstanceTypeOfferingsResponse -> String
showsPrec :: Int -> DescribeInstanceTypeOfferingsResponse -> ShowS
$cshowsPrec :: Int -> DescribeInstanceTypeOfferingsResponse -> ShowS
Prelude.Show, forall x.
Rep DescribeInstanceTypeOfferingsResponse x
-> DescribeInstanceTypeOfferingsResponse
forall x.
DescribeInstanceTypeOfferingsResponse
-> Rep DescribeInstanceTypeOfferingsResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DescribeInstanceTypeOfferingsResponse x
-> DescribeInstanceTypeOfferingsResponse
$cfrom :: forall x.
DescribeInstanceTypeOfferingsResponse
-> Rep DescribeInstanceTypeOfferingsResponse x
Prelude.Generic)
newDescribeInstanceTypeOfferingsResponse ::
Prelude.Int ->
DescribeInstanceTypeOfferingsResponse
newDescribeInstanceTypeOfferingsResponse :: Int -> DescribeInstanceTypeOfferingsResponse
newDescribeInstanceTypeOfferingsResponse Int
pHttpStatus_ =
DescribeInstanceTypeOfferingsResponse'
{ $sel:instanceTypeOfferings:DescribeInstanceTypeOfferingsResponse' :: Maybe [InstanceTypeOffering]
instanceTypeOfferings =
forall a. Maybe a
Prelude.Nothing,
$sel:nextToken:DescribeInstanceTypeOfferingsResponse' :: Maybe Text
nextToken = forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:DescribeInstanceTypeOfferingsResponse' :: Int
httpStatus = Int
pHttpStatus_
}
describeInstanceTypeOfferingsResponse_instanceTypeOfferings :: Lens.Lens' DescribeInstanceTypeOfferingsResponse (Prelude.Maybe [InstanceTypeOffering])
describeInstanceTypeOfferingsResponse_instanceTypeOfferings :: Lens'
DescribeInstanceTypeOfferingsResponse
(Maybe [InstanceTypeOffering])
describeInstanceTypeOfferingsResponse_instanceTypeOfferings = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeInstanceTypeOfferingsResponse' {Maybe [InstanceTypeOffering]
instanceTypeOfferings :: Maybe [InstanceTypeOffering]
$sel:instanceTypeOfferings:DescribeInstanceTypeOfferingsResponse' :: DescribeInstanceTypeOfferingsResponse
-> Maybe [InstanceTypeOffering]
instanceTypeOfferings} -> Maybe [InstanceTypeOffering]
instanceTypeOfferings) (\s :: DescribeInstanceTypeOfferingsResponse
s@DescribeInstanceTypeOfferingsResponse' {} Maybe [InstanceTypeOffering]
a -> DescribeInstanceTypeOfferingsResponse
s {$sel:instanceTypeOfferings:DescribeInstanceTypeOfferingsResponse' :: Maybe [InstanceTypeOffering]
instanceTypeOfferings = Maybe [InstanceTypeOffering]
a} :: DescribeInstanceTypeOfferingsResponse) 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
describeInstanceTypeOfferingsResponse_nextToken :: Lens.Lens' DescribeInstanceTypeOfferingsResponse (Prelude.Maybe Prelude.Text)
describeInstanceTypeOfferingsResponse_nextToken :: Lens' DescribeInstanceTypeOfferingsResponse (Maybe Text)
describeInstanceTypeOfferingsResponse_nextToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeInstanceTypeOfferingsResponse' {Maybe Text
nextToken :: Maybe Text
$sel:nextToken:DescribeInstanceTypeOfferingsResponse' :: DescribeInstanceTypeOfferingsResponse -> Maybe Text
nextToken} -> Maybe Text
nextToken) (\s :: DescribeInstanceTypeOfferingsResponse
s@DescribeInstanceTypeOfferingsResponse' {} Maybe Text
a -> DescribeInstanceTypeOfferingsResponse
s {$sel:nextToken:DescribeInstanceTypeOfferingsResponse' :: Maybe Text
nextToken = Maybe Text
a} :: DescribeInstanceTypeOfferingsResponse)
describeInstanceTypeOfferingsResponse_httpStatus :: Lens.Lens' DescribeInstanceTypeOfferingsResponse Prelude.Int
describeInstanceTypeOfferingsResponse_httpStatus :: Lens' DescribeInstanceTypeOfferingsResponse Int
describeInstanceTypeOfferingsResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeInstanceTypeOfferingsResponse' {Int
httpStatus :: Int
$sel:httpStatus:DescribeInstanceTypeOfferingsResponse' :: DescribeInstanceTypeOfferingsResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: DescribeInstanceTypeOfferingsResponse
s@DescribeInstanceTypeOfferingsResponse' {} Int
a -> DescribeInstanceTypeOfferingsResponse
s {$sel:httpStatus:DescribeInstanceTypeOfferingsResponse' :: Int
httpStatus = Int
a} :: DescribeInstanceTypeOfferingsResponse)
instance
Prelude.NFData
DescribeInstanceTypeOfferingsResponse
where
rnf :: DescribeInstanceTypeOfferingsResponse -> ()
rnf DescribeInstanceTypeOfferingsResponse' {Int
Maybe [InstanceTypeOffering]
Maybe Text
httpStatus :: Int
nextToken :: Maybe Text
instanceTypeOfferings :: Maybe [InstanceTypeOffering]
$sel:httpStatus:DescribeInstanceTypeOfferingsResponse' :: DescribeInstanceTypeOfferingsResponse -> Int
$sel:nextToken:DescribeInstanceTypeOfferingsResponse' :: DescribeInstanceTypeOfferingsResponse -> Maybe Text
$sel:instanceTypeOfferings:DescribeInstanceTypeOfferingsResponse' :: DescribeInstanceTypeOfferingsResponse
-> Maybe [InstanceTypeOffering]
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe [InstanceTypeOffering]
instanceTypeOfferings
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
nextToken
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus