{-# 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.BillingConductor.ListPricingRules
(
ListPricingRules (..),
newListPricingRules,
listPricingRules_billingPeriod,
listPricingRules_filters,
listPricingRules_maxResults,
listPricingRules_nextToken,
ListPricingRulesResponse (..),
newListPricingRulesResponse,
listPricingRulesResponse_billingPeriod,
listPricingRulesResponse_nextToken,
listPricingRulesResponse_pricingRules,
listPricingRulesResponse_httpStatus,
)
where
import Amazonka.BillingConductor.Types
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 qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data ListPricingRules = ListPricingRules'
{
ListPricingRules -> Maybe Text
billingPeriod :: Prelude.Maybe Prelude.Text,
ListPricingRules -> Maybe ListPricingRulesFilter
filters :: Prelude.Maybe ListPricingRulesFilter,
ListPricingRules -> Maybe Natural
maxResults :: Prelude.Maybe Prelude.Natural,
ListPricingRules -> Maybe Text
nextToken :: Prelude.Maybe Prelude.Text
}
deriving (ListPricingRules -> ListPricingRules -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ListPricingRules -> ListPricingRules -> Bool
$c/= :: ListPricingRules -> ListPricingRules -> Bool
== :: ListPricingRules -> ListPricingRules -> Bool
$c== :: ListPricingRules -> ListPricingRules -> Bool
Prelude.Eq, ReadPrec [ListPricingRules]
ReadPrec ListPricingRules
Int -> ReadS ListPricingRules
ReadS [ListPricingRules]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [ListPricingRules]
$creadListPrec :: ReadPrec [ListPricingRules]
readPrec :: ReadPrec ListPricingRules
$creadPrec :: ReadPrec ListPricingRules
readList :: ReadS [ListPricingRules]
$creadList :: ReadS [ListPricingRules]
readsPrec :: Int -> ReadS ListPricingRules
$creadsPrec :: Int -> ReadS ListPricingRules
Prelude.Read, Int -> ListPricingRules -> ShowS
[ListPricingRules] -> ShowS
ListPricingRules -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ListPricingRules] -> ShowS
$cshowList :: [ListPricingRules] -> ShowS
show :: ListPricingRules -> String
$cshow :: ListPricingRules -> String
showsPrec :: Int -> ListPricingRules -> ShowS
$cshowsPrec :: Int -> ListPricingRules -> ShowS
Prelude.Show, forall x. Rep ListPricingRules x -> ListPricingRules
forall x. ListPricingRules -> Rep ListPricingRules x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep ListPricingRules x -> ListPricingRules
$cfrom :: forall x. ListPricingRules -> Rep ListPricingRules x
Prelude.Generic)
newListPricingRules ::
ListPricingRules
newListPricingRules :: ListPricingRules
newListPricingRules =
ListPricingRules'
{ $sel:billingPeriod:ListPricingRules' :: Maybe Text
billingPeriod = forall a. Maybe a
Prelude.Nothing,
$sel:filters:ListPricingRules' :: Maybe ListPricingRulesFilter
filters = forall a. Maybe a
Prelude.Nothing,
$sel:maxResults:ListPricingRules' :: Maybe Natural
maxResults = forall a. Maybe a
Prelude.Nothing,
$sel:nextToken:ListPricingRules' :: Maybe Text
nextToken = forall a. Maybe a
Prelude.Nothing
}
listPricingRules_billingPeriod :: Lens.Lens' ListPricingRules (Prelude.Maybe Prelude.Text)
listPricingRules_billingPeriod :: Lens' ListPricingRules (Maybe Text)
listPricingRules_billingPeriod = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListPricingRules' {Maybe Text
billingPeriod :: Maybe Text
$sel:billingPeriod:ListPricingRules' :: ListPricingRules -> Maybe Text
billingPeriod} -> Maybe Text
billingPeriod) (\s :: ListPricingRules
s@ListPricingRules' {} Maybe Text
a -> ListPricingRules
s {$sel:billingPeriod:ListPricingRules' :: Maybe Text
billingPeriod = Maybe Text
a} :: ListPricingRules)
listPricingRules_filters :: Lens.Lens' ListPricingRules (Prelude.Maybe ListPricingRulesFilter)
listPricingRules_filters :: Lens' ListPricingRules (Maybe ListPricingRulesFilter)
listPricingRules_filters = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListPricingRules' {Maybe ListPricingRulesFilter
filters :: Maybe ListPricingRulesFilter
$sel:filters:ListPricingRules' :: ListPricingRules -> Maybe ListPricingRulesFilter
filters} -> Maybe ListPricingRulesFilter
filters) (\s :: ListPricingRules
s@ListPricingRules' {} Maybe ListPricingRulesFilter
a -> ListPricingRules
s {$sel:filters:ListPricingRules' :: Maybe ListPricingRulesFilter
filters = Maybe ListPricingRulesFilter
a} :: ListPricingRules)
listPricingRules_maxResults :: Lens.Lens' ListPricingRules (Prelude.Maybe Prelude.Natural)
listPricingRules_maxResults :: Lens' ListPricingRules (Maybe Natural)
listPricingRules_maxResults = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListPricingRules' {Maybe Natural
maxResults :: Maybe Natural
$sel:maxResults:ListPricingRules' :: ListPricingRules -> Maybe Natural
maxResults} -> Maybe Natural
maxResults) (\s :: ListPricingRules
s@ListPricingRules' {} Maybe Natural
a -> ListPricingRules
s {$sel:maxResults:ListPricingRules' :: Maybe Natural
maxResults = Maybe Natural
a} :: ListPricingRules)
listPricingRules_nextToken :: Lens.Lens' ListPricingRules (Prelude.Maybe Prelude.Text)
listPricingRules_nextToken :: Lens' ListPricingRules (Maybe Text)
listPricingRules_nextToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListPricingRules' {Maybe Text
nextToken :: Maybe Text
$sel:nextToken:ListPricingRules' :: ListPricingRules -> Maybe Text
nextToken} -> Maybe Text
nextToken) (\s :: ListPricingRules
s@ListPricingRules' {} Maybe Text
a -> ListPricingRules
s {$sel:nextToken:ListPricingRules' :: Maybe Text
nextToken = Maybe Text
a} :: ListPricingRules)
instance Core.AWSPager ListPricingRules where
page :: ListPricingRules
-> AWSResponse ListPricingRules -> Maybe ListPricingRules
page ListPricingRules
rq AWSResponse ListPricingRules
rs
| forall a. AWSTruncated a => a -> Bool
Core.stop
( AWSResponse ListPricingRules
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' ListPricingRulesResponse (Maybe Text)
listPricingRulesResponse_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 ListPricingRules
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' ListPricingRulesResponse (Maybe [PricingRuleListElement])
listPricingRulesResponse_pricingRules
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.$ ListPricingRules
rq
forall a b. a -> (a -> b) -> b
Prelude.& Lens' ListPricingRules (Maybe Text)
listPricingRules_nextToken
forall s t a b. ASetter s t a b -> b -> s -> t
Lens..~ AWSResponse ListPricingRules
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' ListPricingRulesResponse (Maybe Text)
listPricingRulesResponse_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 ListPricingRules where
type
AWSResponse ListPricingRules =
ListPricingRulesResponse
request :: (Service -> Service)
-> ListPricingRules -> Request ListPricingRules
request Service -> Service
overrides =
forall a. (ToRequest a, ToJSON a) => Service -> a -> Request a
Request.postJSON (Service -> Service
overrides Service
defaultService)
response :: forall (m :: * -> *).
MonadResource m =>
(ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy ListPricingRules
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse ListPricingRules)))
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 Text
-> Maybe [PricingRuleListElement]
-> Int
-> ListPricingRulesResponse
ListPricingRulesResponse'
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
"BillingPeriod")
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
"NextToken")
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
"PricingRules" 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.<*> (forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure (forall a. Enum a => a -> Int
Prelude.fromEnum Int
s))
)
instance Prelude.Hashable ListPricingRules where
hashWithSalt :: Int -> ListPricingRules -> Int
hashWithSalt Int
_salt ListPricingRules' {Maybe Natural
Maybe Text
Maybe ListPricingRulesFilter
nextToken :: Maybe Text
maxResults :: Maybe Natural
filters :: Maybe ListPricingRulesFilter
billingPeriod :: Maybe Text
$sel:nextToken:ListPricingRules' :: ListPricingRules -> Maybe Text
$sel:maxResults:ListPricingRules' :: ListPricingRules -> Maybe Natural
$sel:filters:ListPricingRules' :: ListPricingRules -> Maybe ListPricingRulesFilter
$sel:billingPeriod:ListPricingRules' :: ListPricingRules -> Maybe Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
billingPeriod
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe ListPricingRulesFilter
filters
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 ListPricingRules where
rnf :: ListPricingRules -> ()
rnf ListPricingRules' {Maybe Natural
Maybe Text
Maybe ListPricingRulesFilter
nextToken :: Maybe Text
maxResults :: Maybe Natural
filters :: Maybe ListPricingRulesFilter
billingPeriod :: Maybe Text
$sel:nextToken:ListPricingRules' :: ListPricingRules -> Maybe Text
$sel:maxResults:ListPricingRules' :: ListPricingRules -> Maybe Natural
$sel:filters:ListPricingRules' :: ListPricingRules -> Maybe ListPricingRulesFilter
$sel:billingPeriod:ListPricingRules' :: ListPricingRules -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
billingPeriod
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe ListPricingRulesFilter
filters
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 ListPricingRules where
toHeaders :: ListPricingRules -> 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.ToJSON ListPricingRules where
toJSON :: ListPricingRules -> Value
toJSON ListPricingRules' {Maybe Natural
Maybe Text
Maybe ListPricingRulesFilter
nextToken :: Maybe Text
maxResults :: Maybe Natural
filters :: Maybe ListPricingRulesFilter
billingPeriod :: Maybe Text
$sel:nextToken:ListPricingRules' :: ListPricingRules -> Maybe Text
$sel:maxResults:ListPricingRules' :: ListPricingRules -> Maybe Natural
$sel:filters:ListPricingRules' :: ListPricingRules -> Maybe ListPricingRulesFilter
$sel:billingPeriod:ListPricingRules' :: ListPricingRules -> Maybe Text
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ (Key
"BillingPeriod" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Text
billingPeriod,
(Key
"Filters" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe ListPricingRulesFilter
filters,
(Key
"MaxResults" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Natural
maxResults,
(Key
"NextToken" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Text
nextToken
]
)
instance Data.ToPath ListPricingRules where
toPath :: ListPricingRules -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/list-pricing-rules"
instance Data.ToQuery ListPricingRules where
toQuery :: ListPricingRules -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data ListPricingRulesResponse = ListPricingRulesResponse'
{
ListPricingRulesResponse -> Maybe Text
billingPeriod :: Prelude.Maybe Prelude.Text,
ListPricingRulesResponse -> Maybe Text
nextToken :: Prelude.Maybe Prelude.Text,
ListPricingRulesResponse -> Maybe [PricingRuleListElement]
pricingRules :: Prelude.Maybe [PricingRuleListElement],
ListPricingRulesResponse -> Int
httpStatus :: Prelude.Int
}
deriving (ListPricingRulesResponse -> ListPricingRulesResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ListPricingRulesResponse -> ListPricingRulesResponse -> Bool
$c/= :: ListPricingRulesResponse -> ListPricingRulesResponse -> Bool
== :: ListPricingRulesResponse -> ListPricingRulesResponse -> Bool
$c== :: ListPricingRulesResponse -> ListPricingRulesResponse -> Bool
Prelude.Eq, Int -> ListPricingRulesResponse -> ShowS
[ListPricingRulesResponse] -> ShowS
ListPricingRulesResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ListPricingRulesResponse] -> ShowS
$cshowList :: [ListPricingRulesResponse] -> ShowS
show :: ListPricingRulesResponse -> String
$cshow :: ListPricingRulesResponse -> String
showsPrec :: Int -> ListPricingRulesResponse -> ShowS
$cshowsPrec :: Int -> ListPricingRulesResponse -> ShowS
Prelude.Show, forall x.
Rep ListPricingRulesResponse x -> ListPricingRulesResponse
forall x.
ListPricingRulesResponse -> Rep ListPricingRulesResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep ListPricingRulesResponse x -> ListPricingRulesResponse
$cfrom :: forall x.
ListPricingRulesResponse -> Rep ListPricingRulesResponse x
Prelude.Generic)
newListPricingRulesResponse ::
Prelude.Int ->
ListPricingRulesResponse
newListPricingRulesResponse :: Int -> ListPricingRulesResponse
newListPricingRulesResponse Int
pHttpStatus_ =
ListPricingRulesResponse'
{ $sel:billingPeriod:ListPricingRulesResponse' :: Maybe Text
billingPeriod =
forall a. Maybe a
Prelude.Nothing,
$sel:nextToken:ListPricingRulesResponse' :: Maybe Text
nextToken = forall a. Maybe a
Prelude.Nothing,
$sel:pricingRules:ListPricingRulesResponse' :: Maybe [PricingRuleListElement]
pricingRules = forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:ListPricingRulesResponse' :: Int
httpStatus = Int
pHttpStatus_
}
listPricingRulesResponse_billingPeriod :: Lens.Lens' ListPricingRulesResponse (Prelude.Maybe Prelude.Text)
listPricingRulesResponse_billingPeriod :: Lens' ListPricingRulesResponse (Maybe Text)
listPricingRulesResponse_billingPeriod = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListPricingRulesResponse' {Maybe Text
billingPeriod :: Maybe Text
$sel:billingPeriod:ListPricingRulesResponse' :: ListPricingRulesResponse -> Maybe Text
billingPeriod} -> Maybe Text
billingPeriod) (\s :: ListPricingRulesResponse
s@ListPricingRulesResponse' {} Maybe Text
a -> ListPricingRulesResponse
s {$sel:billingPeriod:ListPricingRulesResponse' :: Maybe Text
billingPeriod = Maybe Text
a} :: ListPricingRulesResponse)
listPricingRulesResponse_nextToken :: Lens.Lens' ListPricingRulesResponse (Prelude.Maybe Prelude.Text)
listPricingRulesResponse_nextToken :: Lens' ListPricingRulesResponse (Maybe Text)
listPricingRulesResponse_nextToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListPricingRulesResponse' {Maybe Text
nextToken :: Maybe Text
$sel:nextToken:ListPricingRulesResponse' :: ListPricingRulesResponse -> Maybe Text
nextToken} -> Maybe Text
nextToken) (\s :: ListPricingRulesResponse
s@ListPricingRulesResponse' {} Maybe Text
a -> ListPricingRulesResponse
s {$sel:nextToken:ListPricingRulesResponse' :: Maybe Text
nextToken = Maybe Text
a} :: ListPricingRulesResponse)
listPricingRulesResponse_pricingRules :: Lens.Lens' ListPricingRulesResponse (Prelude.Maybe [PricingRuleListElement])
listPricingRulesResponse_pricingRules :: Lens' ListPricingRulesResponse (Maybe [PricingRuleListElement])
listPricingRulesResponse_pricingRules = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListPricingRulesResponse' {Maybe [PricingRuleListElement]
pricingRules :: Maybe [PricingRuleListElement]
$sel:pricingRules:ListPricingRulesResponse' :: ListPricingRulesResponse -> Maybe [PricingRuleListElement]
pricingRules} -> Maybe [PricingRuleListElement]
pricingRules) (\s :: ListPricingRulesResponse
s@ListPricingRulesResponse' {} Maybe [PricingRuleListElement]
a -> ListPricingRulesResponse
s {$sel:pricingRules:ListPricingRulesResponse' :: Maybe [PricingRuleListElement]
pricingRules = Maybe [PricingRuleListElement]
a} :: ListPricingRulesResponse) 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
listPricingRulesResponse_httpStatus :: Lens.Lens' ListPricingRulesResponse Prelude.Int
listPricingRulesResponse_httpStatus :: Lens' ListPricingRulesResponse Int
listPricingRulesResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListPricingRulesResponse' {Int
httpStatus :: Int
$sel:httpStatus:ListPricingRulesResponse' :: ListPricingRulesResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: ListPricingRulesResponse
s@ListPricingRulesResponse' {} Int
a -> ListPricingRulesResponse
s {$sel:httpStatus:ListPricingRulesResponse' :: Int
httpStatus = Int
a} :: ListPricingRulesResponse)
instance Prelude.NFData ListPricingRulesResponse where
rnf :: ListPricingRulesResponse -> ()
rnf ListPricingRulesResponse' {Int
Maybe [PricingRuleListElement]
Maybe Text
httpStatus :: Int
pricingRules :: Maybe [PricingRuleListElement]
nextToken :: Maybe Text
billingPeriod :: Maybe Text
$sel:httpStatus:ListPricingRulesResponse' :: ListPricingRulesResponse -> Int
$sel:pricingRules:ListPricingRulesResponse' :: ListPricingRulesResponse -> Maybe [PricingRuleListElement]
$sel:nextToken:ListPricingRulesResponse' :: ListPricingRulesResponse -> Maybe Text
$sel:billingPeriod:ListPricingRulesResponse' :: ListPricingRulesResponse -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
billingPeriod
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 Maybe [PricingRuleListElement]
pricingRules
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus