{-# 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.LookoutMetrics.GetDataQualityMetrics
(
GetDataQualityMetrics (..),
newGetDataQualityMetrics,
getDataQualityMetrics_metricSetArn,
getDataQualityMetrics_anomalyDetectorArn,
GetDataQualityMetricsResponse (..),
newGetDataQualityMetricsResponse,
getDataQualityMetricsResponse_anomalyDetectorDataQualityMetricList,
getDataQualityMetricsResponse_httpStatus,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import Amazonka.LookoutMetrics.Types
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data GetDataQualityMetrics = GetDataQualityMetrics'
{
GetDataQualityMetrics -> Maybe Text
metricSetArn :: Prelude.Maybe Prelude.Text,
GetDataQualityMetrics -> Text
anomalyDetectorArn :: Prelude.Text
}
deriving (GetDataQualityMetrics -> GetDataQualityMetrics -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: GetDataQualityMetrics -> GetDataQualityMetrics -> Bool
$c/= :: GetDataQualityMetrics -> GetDataQualityMetrics -> Bool
== :: GetDataQualityMetrics -> GetDataQualityMetrics -> Bool
$c== :: GetDataQualityMetrics -> GetDataQualityMetrics -> Bool
Prelude.Eq, ReadPrec [GetDataQualityMetrics]
ReadPrec GetDataQualityMetrics
Int -> ReadS GetDataQualityMetrics
ReadS [GetDataQualityMetrics]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [GetDataQualityMetrics]
$creadListPrec :: ReadPrec [GetDataQualityMetrics]
readPrec :: ReadPrec GetDataQualityMetrics
$creadPrec :: ReadPrec GetDataQualityMetrics
readList :: ReadS [GetDataQualityMetrics]
$creadList :: ReadS [GetDataQualityMetrics]
readsPrec :: Int -> ReadS GetDataQualityMetrics
$creadsPrec :: Int -> ReadS GetDataQualityMetrics
Prelude.Read, Int -> GetDataQualityMetrics -> ShowS
[GetDataQualityMetrics] -> ShowS
GetDataQualityMetrics -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [GetDataQualityMetrics] -> ShowS
$cshowList :: [GetDataQualityMetrics] -> ShowS
show :: GetDataQualityMetrics -> String
$cshow :: GetDataQualityMetrics -> String
showsPrec :: Int -> GetDataQualityMetrics -> ShowS
$cshowsPrec :: Int -> GetDataQualityMetrics -> ShowS
Prelude.Show, forall x. Rep GetDataQualityMetrics x -> GetDataQualityMetrics
forall x. GetDataQualityMetrics -> Rep GetDataQualityMetrics x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep GetDataQualityMetrics x -> GetDataQualityMetrics
$cfrom :: forall x. GetDataQualityMetrics -> Rep GetDataQualityMetrics x
Prelude.Generic)
newGetDataQualityMetrics ::
Prelude.Text ->
GetDataQualityMetrics
newGetDataQualityMetrics :: Text -> GetDataQualityMetrics
newGetDataQualityMetrics Text
pAnomalyDetectorArn_ =
GetDataQualityMetrics'
{ $sel:metricSetArn:GetDataQualityMetrics' :: Maybe Text
metricSetArn =
forall a. Maybe a
Prelude.Nothing,
$sel:anomalyDetectorArn:GetDataQualityMetrics' :: Text
anomalyDetectorArn = Text
pAnomalyDetectorArn_
}
getDataQualityMetrics_metricSetArn :: Lens.Lens' GetDataQualityMetrics (Prelude.Maybe Prelude.Text)
getDataQualityMetrics_metricSetArn :: Lens' GetDataQualityMetrics (Maybe Text)
getDataQualityMetrics_metricSetArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetDataQualityMetrics' {Maybe Text
metricSetArn :: Maybe Text
$sel:metricSetArn:GetDataQualityMetrics' :: GetDataQualityMetrics -> Maybe Text
metricSetArn} -> Maybe Text
metricSetArn) (\s :: GetDataQualityMetrics
s@GetDataQualityMetrics' {} Maybe Text
a -> GetDataQualityMetrics
s {$sel:metricSetArn:GetDataQualityMetrics' :: Maybe Text
metricSetArn = Maybe Text
a} :: GetDataQualityMetrics)
getDataQualityMetrics_anomalyDetectorArn :: Lens.Lens' GetDataQualityMetrics Prelude.Text
getDataQualityMetrics_anomalyDetectorArn :: Lens' GetDataQualityMetrics Text
getDataQualityMetrics_anomalyDetectorArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetDataQualityMetrics' {Text
anomalyDetectorArn :: Text
$sel:anomalyDetectorArn:GetDataQualityMetrics' :: GetDataQualityMetrics -> Text
anomalyDetectorArn} -> Text
anomalyDetectorArn) (\s :: GetDataQualityMetrics
s@GetDataQualityMetrics' {} Text
a -> GetDataQualityMetrics
s {$sel:anomalyDetectorArn:GetDataQualityMetrics' :: Text
anomalyDetectorArn = Text
a} :: GetDataQualityMetrics)
instance Core.AWSRequest GetDataQualityMetrics where
type
AWSResponse GetDataQualityMetrics =
GetDataQualityMetricsResponse
request :: (Service -> Service)
-> GetDataQualityMetrics -> Request GetDataQualityMetrics
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 GetDataQualityMetrics
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse GetDataQualityMetrics)))
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 [AnomalyDetectorDataQualityMetric]
-> Int -> GetDataQualityMetricsResponse
GetDataQualityMetricsResponse'
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
"AnomalyDetectorDataQualityMetricList"
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 GetDataQualityMetrics where
hashWithSalt :: Int -> GetDataQualityMetrics -> Int
hashWithSalt Int
_salt GetDataQualityMetrics' {Maybe Text
Text
anomalyDetectorArn :: Text
metricSetArn :: Maybe Text
$sel:anomalyDetectorArn:GetDataQualityMetrics' :: GetDataQualityMetrics -> Text
$sel:metricSetArn:GetDataQualityMetrics' :: GetDataQualityMetrics -> Maybe Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
metricSetArn
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
anomalyDetectorArn
instance Prelude.NFData GetDataQualityMetrics where
rnf :: GetDataQualityMetrics -> ()
rnf GetDataQualityMetrics' {Maybe Text
Text
anomalyDetectorArn :: Text
metricSetArn :: Maybe Text
$sel:anomalyDetectorArn:GetDataQualityMetrics' :: GetDataQualityMetrics -> Text
$sel:metricSetArn:GetDataQualityMetrics' :: GetDataQualityMetrics -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
metricSetArn
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
anomalyDetectorArn
instance Data.ToHeaders GetDataQualityMetrics where
toHeaders :: GetDataQualityMetrics -> 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 GetDataQualityMetrics where
toJSON :: GetDataQualityMetrics -> Value
toJSON GetDataQualityMetrics' {Maybe Text
Text
anomalyDetectorArn :: Text
metricSetArn :: Maybe Text
$sel:anomalyDetectorArn:GetDataQualityMetrics' :: GetDataQualityMetrics -> Text
$sel:metricSetArn:GetDataQualityMetrics' :: GetDataQualityMetrics -> Maybe Text
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ (Key
"MetricSetArn" 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
metricSetArn,
forall a. a -> Maybe a
Prelude.Just
(Key
"AnomalyDetectorArn" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
anomalyDetectorArn)
]
)
instance Data.ToPath GetDataQualityMetrics where
toPath :: GetDataQualityMetrics -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/GetDataQualityMetrics"
instance Data.ToQuery GetDataQualityMetrics where
toQuery :: GetDataQualityMetrics -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data GetDataQualityMetricsResponse = GetDataQualityMetricsResponse'
{
GetDataQualityMetricsResponse
-> Maybe [AnomalyDetectorDataQualityMetric]
anomalyDetectorDataQualityMetricList :: Prelude.Maybe [AnomalyDetectorDataQualityMetric],
GetDataQualityMetricsResponse -> Int
httpStatus :: Prelude.Int
}
deriving (GetDataQualityMetricsResponse
-> GetDataQualityMetricsResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: GetDataQualityMetricsResponse
-> GetDataQualityMetricsResponse -> Bool
$c/= :: GetDataQualityMetricsResponse
-> GetDataQualityMetricsResponse -> Bool
== :: GetDataQualityMetricsResponse
-> GetDataQualityMetricsResponse -> Bool
$c== :: GetDataQualityMetricsResponse
-> GetDataQualityMetricsResponse -> Bool
Prelude.Eq, ReadPrec [GetDataQualityMetricsResponse]
ReadPrec GetDataQualityMetricsResponse
Int -> ReadS GetDataQualityMetricsResponse
ReadS [GetDataQualityMetricsResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [GetDataQualityMetricsResponse]
$creadListPrec :: ReadPrec [GetDataQualityMetricsResponse]
readPrec :: ReadPrec GetDataQualityMetricsResponse
$creadPrec :: ReadPrec GetDataQualityMetricsResponse
readList :: ReadS [GetDataQualityMetricsResponse]
$creadList :: ReadS [GetDataQualityMetricsResponse]
readsPrec :: Int -> ReadS GetDataQualityMetricsResponse
$creadsPrec :: Int -> ReadS GetDataQualityMetricsResponse
Prelude.Read, Int -> GetDataQualityMetricsResponse -> ShowS
[GetDataQualityMetricsResponse] -> ShowS
GetDataQualityMetricsResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [GetDataQualityMetricsResponse] -> ShowS
$cshowList :: [GetDataQualityMetricsResponse] -> ShowS
show :: GetDataQualityMetricsResponse -> String
$cshow :: GetDataQualityMetricsResponse -> String
showsPrec :: Int -> GetDataQualityMetricsResponse -> ShowS
$cshowsPrec :: Int -> GetDataQualityMetricsResponse -> ShowS
Prelude.Show, forall x.
Rep GetDataQualityMetricsResponse x
-> GetDataQualityMetricsResponse
forall x.
GetDataQualityMetricsResponse
-> Rep GetDataQualityMetricsResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep GetDataQualityMetricsResponse x
-> GetDataQualityMetricsResponse
$cfrom :: forall x.
GetDataQualityMetricsResponse
-> Rep GetDataQualityMetricsResponse x
Prelude.Generic)
newGetDataQualityMetricsResponse ::
Prelude.Int ->
GetDataQualityMetricsResponse
newGetDataQualityMetricsResponse :: Int -> GetDataQualityMetricsResponse
newGetDataQualityMetricsResponse Int
pHttpStatus_ =
GetDataQualityMetricsResponse'
{ $sel:anomalyDetectorDataQualityMetricList:GetDataQualityMetricsResponse' :: Maybe [AnomalyDetectorDataQualityMetric]
anomalyDetectorDataQualityMetricList =
forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:GetDataQualityMetricsResponse' :: Int
httpStatus = Int
pHttpStatus_
}
getDataQualityMetricsResponse_anomalyDetectorDataQualityMetricList :: Lens.Lens' GetDataQualityMetricsResponse (Prelude.Maybe [AnomalyDetectorDataQualityMetric])
getDataQualityMetricsResponse_anomalyDetectorDataQualityMetricList :: Lens'
GetDataQualityMetricsResponse
(Maybe [AnomalyDetectorDataQualityMetric])
getDataQualityMetricsResponse_anomalyDetectorDataQualityMetricList = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetDataQualityMetricsResponse' {Maybe [AnomalyDetectorDataQualityMetric]
anomalyDetectorDataQualityMetricList :: Maybe [AnomalyDetectorDataQualityMetric]
$sel:anomalyDetectorDataQualityMetricList:GetDataQualityMetricsResponse' :: GetDataQualityMetricsResponse
-> Maybe [AnomalyDetectorDataQualityMetric]
anomalyDetectorDataQualityMetricList} -> Maybe [AnomalyDetectorDataQualityMetric]
anomalyDetectorDataQualityMetricList) (\s :: GetDataQualityMetricsResponse
s@GetDataQualityMetricsResponse' {} Maybe [AnomalyDetectorDataQualityMetric]
a -> GetDataQualityMetricsResponse
s {$sel:anomalyDetectorDataQualityMetricList:GetDataQualityMetricsResponse' :: Maybe [AnomalyDetectorDataQualityMetric]
anomalyDetectorDataQualityMetricList = Maybe [AnomalyDetectorDataQualityMetric]
a} :: GetDataQualityMetricsResponse) 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
getDataQualityMetricsResponse_httpStatus :: Lens.Lens' GetDataQualityMetricsResponse Prelude.Int
getDataQualityMetricsResponse_httpStatus :: Lens' GetDataQualityMetricsResponse Int
getDataQualityMetricsResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetDataQualityMetricsResponse' {Int
httpStatus :: Int
$sel:httpStatus:GetDataQualityMetricsResponse' :: GetDataQualityMetricsResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: GetDataQualityMetricsResponse
s@GetDataQualityMetricsResponse' {} Int
a -> GetDataQualityMetricsResponse
s {$sel:httpStatus:GetDataQualityMetricsResponse' :: Int
httpStatus = Int
a} :: GetDataQualityMetricsResponse)
instance Prelude.NFData GetDataQualityMetricsResponse where
rnf :: GetDataQualityMetricsResponse -> ()
rnf GetDataQualityMetricsResponse' {Int
Maybe [AnomalyDetectorDataQualityMetric]
httpStatus :: Int
anomalyDetectorDataQualityMetricList :: Maybe [AnomalyDetectorDataQualityMetric]
$sel:httpStatus:GetDataQualityMetricsResponse' :: GetDataQualityMetricsResponse -> Int
$sel:anomalyDetectorDataQualityMetricList:GetDataQualityMetricsResponse' :: GetDataQualityMetricsResponse
-> Maybe [AnomalyDetectorDataQualityMetric]
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe [AnomalyDetectorDataQualityMetric]
anomalyDetectorDataQualityMetricList
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus