{-# 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.Lightsail.GetBucketMetricData
(
GetBucketMetricData (..),
newGetBucketMetricData,
getBucketMetricData_bucketName,
getBucketMetricData_metricName,
getBucketMetricData_startTime,
getBucketMetricData_endTime,
getBucketMetricData_period,
getBucketMetricData_statistics,
getBucketMetricData_unit,
GetBucketMetricDataResponse (..),
newGetBucketMetricDataResponse,
getBucketMetricDataResponse_metricData,
getBucketMetricDataResponse_metricName,
getBucketMetricDataResponse_httpStatus,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import Amazonka.Lightsail.Types
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data GetBucketMetricData = GetBucketMetricData'
{
GetBucketMetricData -> Text
bucketName :: Prelude.Text,
GetBucketMetricData -> BucketMetricName
metricName :: BucketMetricName,
GetBucketMetricData -> POSIX
startTime :: Data.POSIX,
GetBucketMetricData -> POSIX
endTime :: Data.POSIX,
GetBucketMetricData -> Natural
period :: Prelude.Natural,
GetBucketMetricData -> [MetricStatistic]
statistics :: [MetricStatistic],
GetBucketMetricData -> MetricUnit
unit :: MetricUnit
}
deriving (GetBucketMetricData -> GetBucketMetricData -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: GetBucketMetricData -> GetBucketMetricData -> Bool
$c/= :: GetBucketMetricData -> GetBucketMetricData -> Bool
== :: GetBucketMetricData -> GetBucketMetricData -> Bool
$c== :: GetBucketMetricData -> GetBucketMetricData -> Bool
Prelude.Eq, ReadPrec [GetBucketMetricData]
ReadPrec GetBucketMetricData
Int -> ReadS GetBucketMetricData
ReadS [GetBucketMetricData]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [GetBucketMetricData]
$creadListPrec :: ReadPrec [GetBucketMetricData]
readPrec :: ReadPrec GetBucketMetricData
$creadPrec :: ReadPrec GetBucketMetricData
readList :: ReadS [GetBucketMetricData]
$creadList :: ReadS [GetBucketMetricData]
readsPrec :: Int -> ReadS GetBucketMetricData
$creadsPrec :: Int -> ReadS GetBucketMetricData
Prelude.Read, Int -> GetBucketMetricData -> ShowS
[GetBucketMetricData] -> ShowS
GetBucketMetricData -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [GetBucketMetricData] -> ShowS
$cshowList :: [GetBucketMetricData] -> ShowS
show :: GetBucketMetricData -> String
$cshow :: GetBucketMetricData -> String
showsPrec :: Int -> GetBucketMetricData -> ShowS
$cshowsPrec :: Int -> GetBucketMetricData -> ShowS
Prelude.Show, forall x. Rep GetBucketMetricData x -> GetBucketMetricData
forall x. GetBucketMetricData -> Rep GetBucketMetricData x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep GetBucketMetricData x -> GetBucketMetricData
$cfrom :: forall x. GetBucketMetricData -> Rep GetBucketMetricData x
Prelude.Generic)
newGetBucketMetricData ::
Prelude.Text ->
BucketMetricName ->
Prelude.UTCTime ->
Prelude.UTCTime ->
Prelude.Natural ->
MetricUnit ->
GetBucketMetricData
newGetBucketMetricData :: Text
-> BucketMetricName
-> UTCTime
-> UTCTime
-> Natural
-> MetricUnit
-> GetBucketMetricData
newGetBucketMetricData
Text
pBucketName_
BucketMetricName
pMetricName_
UTCTime
pStartTime_
UTCTime
pEndTime_
Natural
pPeriod_
MetricUnit
pUnit_ =
GetBucketMetricData'
{ $sel:bucketName:GetBucketMetricData' :: Text
bucketName = Text
pBucketName_,
$sel:metricName:GetBucketMetricData' :: BucketMetricName
metricName = BucketMetricName
pMetricName_,
$sel:startTime:GetBucketMetricData' :: POSIX
startTime = forall (a :: Format). Iso' (Time a) UTCTime
Data._Time forall t b. AReview t b -> b -> t
Lens.# UTCTime
pStartTime_,
$sel:endTime:GetBucketMetricData' :: POSIX
endTime = forall (a :: Format). Iso' (Time a) UTCTime
Data._Time forall t b. AReview t b -> b -> t
Lens.# UTCTime
pEndTime_,
$sel:period:GetBucketMetricData' :: Natural
period = Natural
pPeriod_,
$sel:statistics:GetBucketMetricData' :: [MetricStatistic]
statistics = forall a. Monoid a => a
Prelude.mempty,
$sel:unit:GetBucketMetricData' :: MetricUnit
unit = MetricUnit
pUnit_
}
getBucketMetricData_bucketName :: Lens.Lens' GetBucketMetricData Prelude.Text
getBucketMetricData_bucketName :: Lens' GetBucketMetricData Text
getBucketMetricData_bucketName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetBucketMetricData' {Text
bucketName :: Text
$sel:bucketName:GetBucketMetricData' :: GetBucketMetricData -> Text
bucketName} -> Text
bucketName) (\s :: GetBucketMetricData
s@GetBucketMetricData' {} Text
a -> GetBucketMetricData
s {$sel:bucketName:GetBucketMetricData' :: Text
bucketName = Text
a} :: GetBucketMetricData)
getBucketMetricData_metricName :: Lens.Lens' GetBucketMetricData BucketMetricName
getBucketMetricData_metricName :: Lens' GetBucketMetricData BucketMetricName
getBucketMetricData_metricName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetBucketMetricData' {BucketMetricName
metricName :: BucketMetricName
$sel:metricName:GetBucketMetricData' :: GetBucketMetricData -> BucketMetricName
metricName} -> BucketMetricName
metricName) (\s :: GetBucketMetricData
s@GetBucketMetricData' {} BucketMetricName
a -> GetBucketMetricData
s {$sel:metricName:GetBucketMetricData' :: BucketMetricName
metricName = BucketMetricName
a} :: GetBucketMetricData)
getBucketMetricData_startTime :: Lens.Lens' GetBucketMetricData Prelude.UTCTime
getBucketMetricData_startTime :: Lens' GetBucketMetricData UTCTime
getBucketMetricData_startTime = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetBucketMetricData' {POSIX
startTime :: POSIX
$sel:startTime:GetBucketMetricData' :: GetBucketMetricData -> POSIX
startTime} -> POSIX
startTime) (\s :: GetBucketMetricData
s@GetBucketMetricData' {} POSIX
a -> GetBucketMetricData
s {$sel:startTime:GetBucketMetricData' :: POSIX
startTime = POSIX
a} :: GetBucketMetricData) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (a :: Format). Iso' (Time a) UTCTime
Data._Time
getBucketMetricData_endTime :: Lens.Lens' GetBucketMetricData Prelude.UTCTime
getBucketMetricData_endTime :: Lens' GetBucketMetricData UTCTime
getBucketMetricData_endTime = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetBucketMetricData' {POSIX
endTime :: POSIX
$sel:endTime:GetBucketMetricData' :: GetBucketMetricData -> POSIX
endTime} -> POSIX
endTime) (\s :: GetBucketMetricData
s@GetBucketMetricData' {} POSIX
a -> GetBucketMetricData
s {$sel:endTime:GetBucketMetricData' :: POSIX
endTime = POSIX
a} :: GetBucketMetricData) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (a :: Format). Iso' (Time a) UTCTime
Data._Time
getBucketMetricData_period :: Lens.Lens' GetBucketMetricData Prelude.Natural
getBucketMetricData_period :: Lens' GetBucketMetricData Natural
getBucketMetricData_period = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetBucketMetricData' {Natural
period :: Natural
$sel:period:GetBucketMetricData' :: GetBucketMetricData -> Natural
period} -> Natural
period) (\s :: GetBucketMetricData
s@GetBucketMetricData' {} Natural
a -> GetBucketMetricData
s {$sel:period:GetBucketMetricData' :: Natural
period = Natural
a} :: GetBucketMetricData)
getBucketMetricData_statistics :: Lens.Lens' GetBucketMetricData [MetricStatistic]
getBucketMetricData_statistics :: Lens' GetBucketMetricData [MetricStatistic]
getBucketMetricData_statistics = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetBucketMetricData' {[MetricStatistic]
statistics :: [MetricStatistic]
$sel:statistics:GetBucketMetricData' :: GetBucketMetricData -> [MetricStatistic]
statistics} -> [MetricStatistic]
statistics) (\s :: GetBucketMetricData
s@GetBucketMetricData' {} [MetricStatistic]
a -> GetBucketMetricData
s {$sel:statistics:GetBucketMetricData' :: [MetricStatistic]
statistics = [MetricStatistic]
a} :: GetBucketMetricData) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced
getBucketMetricData_unit :: Lens.Lens' GetBucketMetricData MetricUnit
getBucketMetricData_unit :: Lens' GetBucketMetricData MetricUnit
getBucketMetricData_unit = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetBucketMetricData' {MetricUnit
unit :: MetricUnit
$sel:unit:GetBucketMetricData' :: GetBucketMetricData -> MetricUnit
unit} -> MetricUnit
unit) (\s :: GetBucketMetricData
s@GetBucketMetricData' {} MetricUnit
a -> GetBucketMetricData
s {$sel:unit:GetBucketMetricData' :: MetricUnit
unit = MetricUnit
a} :: GetBucketMetricData)
instance Core.AWSRequest GetBucketMetricData where
type
AWSResponse GetBucketMetricData =
GetBucketMetricDataResponse
request :: (Service -> Service)
-> GetBucketMetricData -> Request GetBucketMetricData
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 GetBucketMetricData
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse GetBucketMetricData)))
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 [MetricDatapoint]
-> Maybe BucketMetricName -> Int -> GetBucketMetricDataResponse
GetBucketMetricDataResponse'
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
"metricData" 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
"metricName")
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 GetBucketMetricData where
hashWithSalt :: Int -> GetBucketMetricData -> Int
hashWithSalt Int
_salt GetBucketMetricData' {Natural
[MetricStatistic]
Text
POSIX
BucketMetricName
MetricUnit
unit :: MetricUnit
statistics :: [MetricStatistic]
period :: Natural
endTime :: POSIX
startTime :: POSIX
metricName :: BucketMetricName
bucketName :: Text
$sel:unit:GetBucketMetricData' :: GetBucketMetricData -> MetricUnit
$sel:statistics:GetBucketMetricData' :: GetBucketMetricData -> [MetricStatistic]
$sel:period:GetBucketMetricData' :: GetBucketMetricData -> Natural
$sel:endTime:GetBucketMetricData' :: GetBucketMetricData -> POSIX
$sel:startTime:GetBucketMetricData' :: GetBucketMetricData -> POSIX
$sel:metricName:GetBucketMetricData' :: GetBucketMetricData -> BucketMetricName
$sel:bucketName:GetBucketMetricData' :: GetBucketMetricData -> Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
bucketName
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` BucketMetricName
metricName
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` POSIX
startTime
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` POSIX
endTime
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Natural
period
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` [MetricStatistic]
statistics
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` MetricUnit
unit
instance Prelude.NFData GetBucketMetricData where
rnf :: GetBucketMetricData -> ()
rnf GetBucketMetricData' {Natural
[MetricStatistic]
Text
POSIX
BucketMetricName
MetricUnit
unit :: MetricUnit
statistics :: [MetricStatistic]
period :: Natural
endTime :: POSIX
startTime :: POSIX
metricName :: BucketMetricName
bucketName :: Text
$sel:unit:GetBucketMetricData' :: GetBucketMetricData -> MetricUnit
$sel:statistics:GetBucketMetricData' :: GetBucketMetricData -> [MetricStatistic]
$sel:period:GetBucketMetricData' :: GetBucketMetricData -> Natural
$sel:endTime:GetBucketMetricData' :: GetBucketMetricData -> POSIX
$sel:startTime:GetBucketMetricData' :: GetBucketMetricData -> POSIX
$sel:metricName:GetBucketMetricData' :: GetBucketMetricData -> BucketMetricName
$sel:bucketName:GetBucketMetricData' :: GetBucketMetricData -> Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Text
bucketName
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf BucketMetricName
metricName
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf POSIX
startTime
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf POSIX
endTime
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Natural
period
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf [MetricStatistic]
statistics
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf MetricUnit
unit
instance Data.ToHeaders GetBucketMetricData where
toHeaders :: GetBucketMetricData -> ResponseHeaders
toHeaders =
forall a b. a -> b -> a
Prelude.const
( forall a. Monoid a => [a] -> a
Prelude.mconcat
[ HeaderName
"X-Amz-Target"
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# ( ByteString
"Lightsail_20161128.GetBucketMetricData" ::
Prelude.ByteString
),
HeaderName
"Content-Type"
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# ( ByteString
"application/x-amz-json-1.1" ::
Prelude.ByteString
)
]
)
instance Data.ToJSON GetBucketMetricData where
toJSON :: GetBucketMetricData -> Value
toJSON GetBucketMetricData' {Natural
[MetricStatistic]
Text
POSIX
BucketMetricName
MetricUnit
unit :: MetricUnit
statistics :: [MetricStatistic]
period :: Natural
endTime :: POSIX
startTime :: POSIX
metricName :: BucketMetricName
bucketName :: Text
$sel:unit:GetBucketMetricData' :: GetBucketMetricData -> MetricUnit
$sel:statistics:GetBucketMetricData' :: GetBucketMetricData -> [MetricStatistic]
$sel:period:GetBucketMetricData' :: GetBucketMetricData -> Natural
$sel:endTime:GetBucketMetricData' :: GetBucketMetricData -> POSIX
$sel:startTime:GetBucketMetricData' :: GetBucketMetricData -> POSIX
$sel:metricName:GetBucketMetricData' :: GetBucketMetricData -> BucketMetricName
$sel:bucketName:GetBucketMetricData' :: GetBucketMetricData -> Text
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ forall a. a -> Maybe a
Prelude.Just (Key
"bucketName" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
bucketName),
forall a. a -> Maybe a
Prelude.Just (Key
"metricName" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= BucketMetricName
metricName),
forall a. a -> Maybe a
Prelude.Just (Key
"startTime" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= POSIX
startTime),
forall a. a -> Maybe a
Prelude.Just (Key
"endTime" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= POSIX
endTime),
forall a. a -> Maybe a
Prelude.Just (Key
"period" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Natural
period),
forall a. a -> Maybe a
Prelude.Just (Key
"statistics" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= [MetricStatistic]
statistics),
forall a. a -> Maybe a
Prelude.Just (Key
"unit" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= MetricUnit
unit)
]
)
instance Data.ToPath GetBucketMetricData where
toPath :: GetBucketMetricData -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery GetBucketMetricData where
toQuery :: GetBucketMetricData -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data GetBucketMetricDataResponse = GetBucketMetricDataResponse'
{
GetBucketMetricDataResponse -> Maybe [MetricDatapoint]
metricData :: Prelude.Maybe [MetricDatapoint],
GetBucketMetricDataResponse -> Maybe BucketMetricName
metricName :: Prelude.Maybe BucketMetricName,
GetBucketMetricDataResponse -> Int
httpStatus :: Prelude.Int
}
deriving (GetBucketMetricDataResponse -> GetBucketMetricDataResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: GetBucketMetricDataResponse -> GetBucketMetricDataResponse -> Bool
$c/= :: GetBucketMetricDataResponse -> GetBucketMetricDataResponse -> Bool
== :: GetBucketMetricDataResponse -> GetBucketMetricDataResponse -> Bool
$c== :: GetBucketMetricDataResponse -> GetBucketMetricDataResponse -> Bool
Prelude.Eq, ReadPrec [GetBucketMetricDataResponse]
ReadPrec GetBucketMetricDataResponse
Int -> ReadS GetBucketMetricDataResponse
ReadS [GetBucketMetricDataResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [GetBucketMetricDataResponse]
$creadListPrec :: ReadPrec [GetBucketMetricDataResponse]
readPrec :: ReadPrec GetBucketMetricDataResponse
$creadPrec :: ReadPrec GetBucketMetricDataResponse
readList :: ReadS [GetBucketMetricDataResponse]
$creadList :: ReadS [GetBucketMetricDataResponse]
readsPrec :: Int -> ReadS GetBucketMetricDataResponse
$creadsPrec :: Int -> ReadS GetBucketMetricDataResponse
Prelude.Read, Int -> GetBucketMetricDataResponse -> ShowS
[GetBucketMetricDataResponse] -> ShowS
GetBucketMetricDataResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [GetBucketMetricDataResponse] -> ShowS
$cshowList :: [GetBucketMetricDataResponse] -> ShowS
show :: GetBucketMetricDataResponse -> String
$cshow :: GetBucketMetricDataResponse -> String
showsPrec :: Int -> GetBucketMetricDataResponse -> ShowS
$cshowsPrec :: Int -> GetBucketMetricDataResponse -> ShowS
Prelude.Show, forall x.
Rep GetBucketMetricDataResponse x -> GetBucketMetricDataResponse
forall x.
GetBucketMetricDataResponse -> Rep GetBucketMetricDataResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep GetBucketMetricDataResponse x -> GetBucketMetricDataResponse
$cfrom :: forall x.
GetBucketMetricDataResponse -> Rep GetBucketMetricDataResponse x
Prelude.Generic)
newGetBucketMetricDataResponse ::
Prelude.Int ->
GetBucketMetricDataResponse
newGetBucketMetricDataResponse :: Int -> GetBucketMetricDataResponse
newGetBucketMetricDataResponse Int
pHttpStatus_ =
GetBucketMetricDataResponse'
{ $sel:metricData:GetBucketMetricDataResponse' :: Maybe [MetricDatapoint]
metricData =
forall a. Maybe a
Prelude.Nothing,
$sel:metricName:GetBucketMetricDataResponse' :: Maybe BucketMetricName
metricName = forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:GetBucketMetricDataResponse' :: Int
httpStatus = Int
pHttpStatus_
}
getBucketMetricDataResponse_metricData :: Lens.Lens' GetBucketMetricDataResponse (Prelude.Maybe [MetricDatapoint])
getBucketMetricDataResponse_metricData :: Lens' GetBucketMetricDataResponse (Maybe [MetricDatapoint])
getBucketMetricDataResponse_metricData = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetBucketMetricDataResponse' {Maybe [MetricDatapoint]
metricData :: Maybe [MetricDatapoint]
$sel:metricData:GetBucketMetricDataResponse' :: GetBucketMetricDataResponse -> Maybe [MetricDatapoint]
metricData} -> Maybe [MetricDatapoint]
metricData) (\s :: GetBucketMetricDataResponse
s@GetBucketMetricDataResponse' {} Maybe [MetricDatapoint]
a -> GetBucketMetricDataResponse
s {$sel:metricData:GetBucketMetricDataResponse' :: Maybe [MetricDatapoint]
metricData = Maybe [MetricDatapoint]
a} :: GetBucketMetricDataResponse) 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
getBucketMetricDataResponse_metricName :: Lens.Lens' GetBucketMetricDataResponse (Prelude.Maybe BucketMetricName)
getBucketMetricDataResponse_metricName :: Lens' GetBucketMetricDataResponse (Maybe BucketMetricName)
getBucketMetricDataResponse_metricName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetBucketMetricDataResponse' {Maybe BucketMetricName
metricName :: Maybe BucketMetricName
$sel:metricName:GetBucketMetricDataResponse' :: GetBucketMetricDataResponse -> Maybe BucketMetricName
metricName} -> Maybe BucketMetricName
metricName) (\s :: GetBucketMetricDataResponse
s@GetBucketMetricDataResponse' {} Maybe BucketMetricName
a -> GetBucketMetricDataResponse
s {$sel:metricName:GetBucketMetricDataResponse' :: Maybe BucketMetricName
metricName = Maybe BucketMetricName
a} :: GetBucketMetricDataResponse)
getBucketMetricDataResponse_httpStatus :: Lens.Lens' GetBucketMetricDataResponse Prelude.Int
getBucketMetricDataResponse_httpStatus :: Lens' GetBucketMetricDataResponse Int
getBucketMetricDataResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetBucketMetricDataResponse' {Int
httpStatus :: Int
$sel:httpStatus:GetBucketMetricDataResponse' :: GetBucketMetricDataResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: GetBucketMetricDataResponse
s@GetBucketMetricDataResponse' {} Int
a -> GetBucketMetricDataResponse
s {$sel:httpStatus:GetBucketMetricDataResponse' :: Int
httpStatus = Int
a} :: GetBucketMetricDataResponse)
instance Prelude.NFData GetBucketMetricDataResponse where
rnf :: GetBucketMetricDataResponse -> ()
rnf GetBucketMetricDataResponse' {Int
Maybe [MetricDatapoint]
Maybe BucketMetricName
httpStatus :: Int
metricName :: Maybe BucketMetricName
metricData :: Maybe [MetricDatapoint]
$sel:httpStatus:GetBucketMetricDataResponse' :: GetBucketMetricDataResponse -> Int
$sel:metricName:GetBucketMetricDataResponse' :: GetBucketMetricDataResponse -> Maybe BucketMetricName
$sel:metricData:GetBucketMetricDataResponse' :: GetBucketMetricDataResponse -> Maybe [MetricDatapoint]
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe [MetricDatapoint]
metricData
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe BucketMetricName
metricName
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus