{-# 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.IoTEvents.DescribeDetectorModelAnalysis
(
DescribeDetectorModelAnalysis (..),
newDescribeDetectorModelAnalysis,
describeDetectorModelAnalysis_analysisId,
DescribeDetectorModelAnalysisResponse (..),
newDescribeDetectorModelAnalysisResponse,
describeDetectorModelAnalysisResponse_status,
describeDetectorModelAnalysisResponse_httpStatus,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import Amazonka.IoTEvents.Types
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data DescribeDetectorModelAnalysis = DescribeDetectorModelAnalysis'
{
DescribeDetectorModelAnalysis -> Text
analysisId :: Prelude.Text
}
deriving (DescribeDetectorModelAnalysis
-> DescribeDetectorModelAnalysis -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DescribeDetectorModelAnalysis
-> DescribeDetectorModelAnalysis -> Bool
$c/= :: DescribeDetectorModelAnalysis
-> DescribeDetectorModelAnalysis -> Bool
== :: DescribeDetectorModelAnalysis
-> DescribeDetectorModelAnalysis -> Bool
$c== :: DescribeDetectorModelAnalysis
-> DescribeDetectorModelAnalysis -> Bool
Prelude.Eq, ReadPrec [DescribeDetectorModelAnalysis]
ReadPrec DescribeDetectorModelAnalysis
Int -> ReadS DescribeDetectorModelAnalysis
ReadS [DescribeDetectorModelAnalysis]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DescribeDetectorModelAnalysis]
$creadListPrec :: ReadPrec [DescribeDetectorModelAnalysis]
readPrec :: ReadPrec DescribeDetectorModelAnalysis
$creadPrec :: ReadPrec DescribeDetectorModelAnalysis
readList :: ReadS [DescribeDetectorModelAnalysis]
$creadList :: ReadS [DescribeDetectorModelAnalysis]
readsPrec :: Int -> ReadS DescribeDetectorModelAnalysis
$creadsPrec :: Int -> ReadS DescribeDetectorModelAnalysis
Prelude.Read, Int -> DescribeDetectorModelAnalysis -> ShowS
[DescribeDetectorModelAnalysis] -> ShowS
DescribeDetectorModelAnalysis -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DescribeDetectorModelAnalysis] -> ShowS
$cshowList :: [DescribeDetectorModelAnalysis] -> ShowS
show :: DescribeDetectorModelAnalysis -> String
$cshow :: DescribeDetectorModelAnalysis -> String
showsPrec :: Int -> DescribeDetectorModelAnalysis -> ShowS
$cshowsPrec :: Int -> DescribeDetectorModelAnalysis -> ShowS
Prelude.Show, forall x.
Rep DescribeDetectorModelAnalysis x
-> DescribeDetectorModelAnalysis
forall x.
DescribeDetectorModelAnalysis
-> Rep DescribeDetectorModelAnalysis x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DescribeDetectorModelAnalysis x
-> DescribeDetectorModelAnalysis
$cfrom :: forall x.
DescribeDetectorModelAnalysis
-> Rep DescribeDetectorModelAnalysis x
Prelude.Generic)
newDescribeDetectorModelAnalysis ::
Prelude.Text ->
DescribeDetectorModelAnalysis
newDescribeDetectorModelAnalysis :: Text -> DescribeDetectorModelAnalysis
newDescribeDetectorModelAnalysis Text
pAnalysisId_ =
DescribeDetectorModelAnalysis'
{ $sel:analysisId:DescribeDetectorModelAnalysis' :: Text
analysisId =
Text
pAnalysisId_
}
describeDetectorModelAnalysis_analysisId :: Lens.Lens' DescribeDetectorModelAnalysis Prelude.Text
describeDetectorModelAnalysis_analysisId :: Lens' DescribeDetectorModelAnalysis Text
describeDetectorModelAnalysis_analysisId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeDetectorModelAnalysis' {Text
analysisId :: Text
$sel:analysisId:DescribeDetectorModelAnalysis' :: DescribeDetectorModelAnalysis -> Text
analysisId} -> Text
analysisId) (\s :: DescribeDetectorModelAnalysis
s@DescribeDetectorModelAnalysis' {} Text
a -> DescribeDetectorModelAnalysis
s {$sel:analysisId:DescribeDetectorModelAnalysis' :: Text
analysisId = Text
a} :: DescribeDetectorModelAnalysis)
instance
Core.AWSRequest
DescribeDetectorModelAnalysis
where
type
AWSResponse DescribeDetectorModelAnalysis =
DescribeDetectorModelAnalysisResponse
request :: (Service -> Service)
-> DescribeDetectorModelAnalysis
-> Request DescribeDetectorModelAnalysis
request Service -> Service
overrides =
forall a. ToRequest a => Service -> a -> Request a
Request.get (Service -> Service
overrides Service
defaultService)
response :: forall (m :: * -> *).
MonadResource m =>
(ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy DescribeDetectorModelAnalysis
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse DescribeDetectorModelAnalysis)))
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 AnalysisStatus
-> Int -> DescribeDetectorModelAnalysisResponse
DescribeDetectorModelAnalysisResponse'
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
"status")
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
DescribeDetectorModelAnalysis
where
hashWithSalt :: Int -> DescribeDetectorModelAnalysis -> Int
hashWithSalt Int
_salt DescribeDetectorModelAnalysis' {Text
analysisId :: Text
$sel:analysisId:DescribeDetectorModelAnalysis' :: DescribeDetectorModelAnalysis -> Text
..} =
Int
_salt forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
analysisId
instance Prelude.NFData DescribeDetectorModelAnalysis where
rnf :: DescribeDetectorModelAnalysis -> ()
rnf DescribeDetectorModelAnalysis' {Text
analysisId :: Text
$sel:analysisId:DescribeDetectorModelAnalysis' :: DescribeDetectorModelAnalysis -> Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Text
analysisId
instance Data.ToHeaders DescribeDetectorModelAnalysis where
toHeaders :: DescribeDetectorModelAnalysis -> ResponseHeaders
toHeaders = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
instance Data.ToPath DescribeDetectorModelAnalysis where
toPath :: DescribeDetectorModelAnalysis -> ByteString
toPath DescribeDetectorModelAnalysis' {Text
analysisId :: Text
$sel:analysisId:DescribeDetectorModelAnalysis' :: DescribeDetectorModelAnalysis -> Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ByteString
"/analysis/detector-models/", forall a. ToByteString a => a -> ByteString
Data.toBS Text
analysisId]
instance Data.ToQuery DescribeDetectorModelAnalysis where
toQuery :: DescribeDetectorModelAnalysis -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data DescribeDetectorModelAnalysisResponse = DescribeDetectorModelAnalysisResponse'
{
DescribeDetectorModelAnalysisResponse -> Maybe AnalysisStatus
status :: Prelude.Maybe AnalysisStatus,
DescribeDetectorModelAnalysisResponse -> Int
httpStatus :: Prelude.Int
}
deriving (DescribeDetectorModelAnalysisResponse
-> DescribeDetectorModelAnalysisResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DescribeDetectorModelAnalysisResponse
-> DescribeDetectorModelAnalysisResponse -> Bool
$c/= :: DescribeDetectorModelAnalysisResponse
-> DescribeDetectorModelAnalysisResponse -> Bool
== :: DescribeDetectorModelAnalysisResponse
-> DescribeDetectorModelAnalysisResponse -> Bool
$c== :: DescribeDetectorModelAnalysisResponse
-> DescribeDetectorModelAnalysisResponse -> Bool
Prelude.Eq, ReadPrec [DescribeDetectorModelAnalysisResponse]
ReadPrec DescribeDetectorModelAnalysisResponse
Int -> ReadS DescribeDetectorModelAnalysisResponse
ReadS [DescribeDetectorModelAnalysisResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DescribeDetectorModelAnalysisResponse]
$creadListPrec :: ReadPrec [DescribeDetectorModelAnalysisResponse]
readPrec :: ReadPrec DescribeDetectorModelAnalysisResponse
$creadPrec :: ReadPrec DescribeDetectorModelAnalysisResponse
readList :: ReadS [DescribeDetectorModelAnalysisResponse]
$creadList :: ReadS [DescribeDetectorModelAnalysisResponse]
readsPrec :: Int -> ReadS DescribeDetectorModelAnalysisResponse
$creadsPrec :: Int -> ReadS DescribeDetectorModelAnalysisResponse
Prelude.Read, Int -> DescribeDetectorModelAnalysisResponse -> ShowS
[DescribeDetectorModelAnalysisResponse] -> ShowS
DescribeDetectorModelAnalysisResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DescribeDetectorModelAnalysisResponse] -> ShowS
$cshowList :: [DescribeDetectorModelAnalysisResponse] -> ShowS
show :: DescribeDetectorModelAnalysisResponse -> String
$cshow :: DescribeDetectorModelAnalysisResponse -> String
showsPrec :: Int -> DescribeDetectorModelAnalysisResponse -> ShowS
$cshowsPrec :: Int -> DescribeDetectorModelAnalysisResponse -> ShowS
Prelude.Show, forall x.
Rep DescribeDetectorModelAnalysisResponse x
-> DescribeDetectorModelAnalysisResponse
forall x.
DescribeDetectorModelAnalysisResponse
-> Rep DescribeDetectorModelAnalysisResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DescribeDetectorModelAnalysisResponse x
-> DescribeDetectorModelAnalysisResponse
$cfrom :: forall x.
DescribeDetectorModelAnalysisResponse
-> Rep DescribeDetectorModelAnalysisResponse x
Prelude.Generic)
newDescribeDetectorModelAnalysisResponse ::
Prelude.Int ->
DescribeDetectorModelAnalysisResponse
newDescribeDetectorModelAnalysisResponse :: Int -> DescribeDetectorModelAnalysisResponse
newDescribeDetectorModelAnalysisResponse Int
pHttpStatus_ =
DescribeDetectorModelAnalysisResponse'
{ $sel:status:DescribeDetectorModelAnalysisResponse' :: Maybe AnalysisStatus
status =
forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:DescribeDetectorModelAnalysisResponse' :: Int
httpStatus = Int
pHttpStatus_
}
describeDetectorModelAnalysisResponse_status :: Lens.Lens' DescribeDetectorModelAnalysisResponse (Prelude.Maybe AnalysisStatus)
describeDetectorModelAnalysisResponse_status :: Lens' DescribeDetectorModelAnalysisResponse (Maybe AnalysisStatus)
describeDetectorModelAnalysisResponse_status = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeDetectorModelAnalysisResponse' {Maybe AnalysisStatus
status :: Maybe AnalysisStatus
$sel:status:DescribeDetectorModelAnalysisResponse' :: DescribeDetectorModelAnalysisResponse -> Maybe AnalysisStatus
status} -> Maybe AnalysisStatus
status) (\s :: DescribeDetectorModelAnalysisResponse
s@DescribeDetectorModelAnalysisResponse' {} Maybe AnalysisStatus
a -> DescribeDetectorModelAnalysisResponse
s {$sel:status:DescribeDetectorModelAnalysisResponse' :: Maybe AnalysisStatus
status = Maybe AnalysisStatus
a} :: DescribeDetectorModelAnalysisResponse)
describeDetectorModelAnalysisResponse_httpStatus :: Lens.Lens' DescribeDetectorModelAnalysisResponse Prelude.Int
describeDetectorModelAnalysisResponse_httpStatus :: Lens' DescribeDetectorModelAnalysisResponse Int
describeDetectorModelAnalysisResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeDetectorModelAnalysisResponse' {Int
httpStatus :: Int
$sel:httpStatus:DescribeDetectorModelAnalysisResponse' :: DescribeDetectorModelAnalysisResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: DescribeDetectorModelAnalysisResponse
s@DescribeDetectorModelAnalysisResponse' {} Int
a -> DescribeDetectorModelAnalysisResponse
s {$sel:httpStatus:DescribeDetectorModelAnalysisResponse' :: Int
httpStatus = Int
a} :: DescribeDetectorModelAnalysisResponse)
instance
Prelude.NFData
DescribeDetectorModelAnalysisResponse
where
rnf :: DescribeDetectorModelAnalysisResponse -> ()
rnf DescribeDetectorModelAnalysisResponse' {Int
Maybe AnalysisStatus
httpStatus :: Int
status :: Maybe AnalysisStatus
$sel:httpStatus:DescribeDetectorModelAnalysisResponse' :: DescribeDetectorModelAnalysisResponse -> Int
$sel:status:DescribeDetectorModelAnalysisResponse' :: DescribeDetectorModelAnalysisResponse -> Maybe AnalysisStatus
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe AnalysisStatus
status
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus