{-# 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.ListDetectorModelVersions
(
ListDetectorModelVersions (..),
newListDetectorModelVersions,
listDetectorModelVersions_maxResults,
listDetectorModelVersions_nextToken,
listDetectorModelVersions_detectorModelName,
ListDetectorModelVersionsResponse (..),
newListDetectorModelVersionsResponse,
listDetectorModelVersionsResponse_detectorModelVersionSummaries,
listDetectorModelVersionsResponse_nextToken,
listDetectorModelVersionsResponse_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 ListDetectorModelVersions = ListDetectorModelVersions'
{
ListDetectorModelVersions -> Maybe Natural
maxResults :: Prelude.Maybe Prelude.Natural,
ListDetectorModelVersions -> Maybe Text
nextToken :: Prelude.Maybe Prelude.Text,
ListDetectorModelVersions -> Text
detectorModelName :: Prelude.Text
}
deriving (ListDetectorModelVersions -> ListDetectorModelVersions -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ListDetectorModelVersions -> ListDetectorModelVersions -> Bool
$c/= :: ListDetectorModelVersions -> ListDetectorModelVersions -> Bool
== :: ListDetectorModelVersions -> ListDetectorModelVersions -> Bool
$c== :: ListDetectorModelVersions -> ListDetectorModelVersions -> Bool
Prelude.Eq, ReadPrec [ListDetectorModelVersions]
ReadPrec ListDetectorModelVersions
Int -> ReadS ListDetectorModelVersions
ReadS [ListDetectorModelVersions]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [ListDetectorModelVersions]
$creadListPrec :: ReadPrec [ListDetectorModelVersions]
readPrec :: ReadPrec ListDetectorModelVersions
$creadPrec :: ReadPrec ListDetectorModelVersions
readList :: ReadS [ListDetectorModelVersions]
$creadList :: ReadS [ListDetectorModelVersions]
readsPrec :: Int -> ReadS ListDetectorModelVersions
$creadsPrec :: Int -> ReadS ListDetectorModelVersions
Prelude.Read, Int -> ListDetectorModelVersions -> ShowS
[ListDetectorModelVersions] -> ShowS
ListDetectorModelVersions -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ListDetectorModelVersions] -> ShowS
$cshowList :: [ListDetectorModelVersions] -> ShowS
show :: ListDetectorModelVersions -> String
$cshow :: ListDetectorModelVersions -> String
showsPrec :: Int -> ListDetectorModelVersions -> ShowS
$cshowsPrec :: Int -> ListDetectorModelVersions -> ShowS
Prelude.Show, forall x.
Rep ListDetectorModelVersions x -> ListDetectorModelVersions
forall x.
ListDetectorModelVersions -> Rep ListDetectorModelVersions x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep ListDetectorModelVersions x -> ListDetectorModelVersions
$cfrom :: forall x.
ListDetectorModelVersions -> Rep ListDetectorModelVersions x
Prelude.Generic)
newListDetectorModelVersions ::
Prelude.Text ->
ListDetectorModelVersions
newListDetectorModelVersions :: Text -> ListDetectorModelVersions
newListDetectorModelVersions Text
pDetectorModelName_ =
ListDetectorModelVersions'
{ $sel:maxResults:ListDetectorModelVersions' :: Maybe Natural
maxResults =
forall a. Maybe a
Prelude.Nothing,
$sel:nextToken:ListDetectorModelVersions' :: Maybe Text
nextToken = forall a. Maybe a
Prelude.Nothing,
$sel:detectorModelName:ListDetectorModelVersions' :: Text
detectorModelName = Text
pDetectorModelName_
}
listDetectorModelVersions_maxResults :: Lens.Lens' ListDetectorModelVersions (Prelude.Maybe Prelude.Natural)
listDetectorModelVersions_maxResults :: Lens' ListDetectorModelVersions (Maybe Natural)
listDetectorModelVersions_maxResults = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListDetectorModelVersions' {Maybe Natural
maxResults :: Maybe Natural
$sel:maxResults:ListDetectorModelVersions' :: ListDetectorModelVersions -> Maybe Natural
maxResults} -> Maybe Natural
maxResults) (\s :: ListDetectorModelVersions
s@ListDetectorModelVersions' {} Maybe Natural
a -> ListDetectorModelVersions
s {$sel:maxResults:ListDetectorModelVersions' :: Maybe Natural
maxResults = Maybe Natural
a} :: ListDetectorModelVersions)
listDetectorModelVersions_nextToken :: Lens.Lens' ListDetectorModelVersions (Prelude.Maybe Prelude.Text)
listDetectorModelVersions_nextToken :: Lens' ListDetectorModelVersions (Maybe Text)
listDetectorModelVersions_nextToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListDetectorModelVersions' {Maybe Text
nextToken :: Maybe Text
$sel:nextToken:ListDetectorModelVersions' :: ListDetectorModelVersions -> Maybe Text
nextToken} -> Maybe Text
nextToken) (\s :: ListDetectorModelVersions
s@ListDetectorModelVersions' {} Maybe Text
a -> ListDetectorModelVersions
s {$sel:nextToken:ListDetectorModelVersions' :: Maybe Text
nextToken = Maybe Text
a} :: ListDetectorModelVersions)
listDetectorModelVersions_detectorModelName :: Lens.Lens' ListDetectorModelVersions Prelude.Text
listDetectorModelVersions_detectorModelName :: Lens' ListDetectorModelVersions Text
listDetectorModelVersions_detectorModelName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListDetectorModelVersions' {Text
detectorModelName :: Text
$sel:detectorModelName:ListDetectorModelVersions' :: ListDetectorModelVersions -> Text
detectorModelName} -> Text
detectorModelName) (\s :: ListDetectorModelVersions
s@ListDetectorModelVersions' {} Text
a -> ListDetectorModelVersions
s {$sel:detectorModelName:ListDetectorModelVersions' :: Text
detectorModelName = Text
a} :: ListDetectorModelVersions)
instance Core.AWSRequest ListDetectorModelVersions where
type
AWSResponse ListDetectorModelVersions =
ListDetectorModelVersionsResponse
request :: (Service -> Service)
-> ListDetectorModelVersions -> Request ListDetectorModelVersions
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 ListDetectorModelVersions
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse ListDetectorModelVersions)))
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 [DetectorModelVersionSummary]
-> Maybe Text -> Int -> ListDetectorModelVersionsResponse
ListDetectorModelVersionsResponse'
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
"detectorModelVersionSummaries"
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
"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 ListDetectorModelVersions where
hashWithSalt :: Int -> ListDetectorModelVersions -> Int
hashWithSalt Int
_salt ListDetectorModelVersions' {Maybe Natural
Maybe Text
Text
detectorModelName :: Text
nextToken :: Maybe Text
maxResults :: Maybe Natural
$sel:detectorModelName:ListDetectorModelVersions' :: ListDetectorModelVersions -> Text
$sel:nextToken:ListDetectorModelVersions' :: ListDetectorModelVersions -> Maybe Text
$sel:maxResults:ListDetectorModelVersions' :: ListDetectorModelVersions -> Maybe Natural
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Natural
maxResults
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
nextToken
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
detectorModelName
instance Prelude.NFData ListDetectorModelVersions where
rnf :: ListDetectorModelVersions -> ()
rnf ListDetectorModelVersions' {Maybe Natural
Maybe Text
Text
detectorModelName :: Text
nextToken :: Maybe Text
maxResults :: Maybe Natural
$sel:detectorModelName:ListDetectorModelVersions' :: ListDetectorModelVersions -> Text
$sel:nextToken:ListDetectorModelVersions' :: ListDetectorModelVersions -> Maybe Text
$sel:maxResults:ListDetectorModelVersions' :: ListDetectorModelVersions -> Maybe Natural
..} =
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
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
detectorModelName
instance Data.ToHeaders ListDetectorModelVersions where
toHeaders :: ListDetectorModelVersions -> ResponseHeaders
toHeaders = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
instance Data.ToPath ListDetectorModelVersions where
toPath :: ListDetectorModelVersions -> ByteString
toPath ListDetectorModelVersions' {Maybe Natural
Maybe Text
Text
detectorModelName :: Text
nextToken :: Maybe Text
maxResults :: Maybe Natural
$sel:detectorModelName:ListDetectorModelVersions' :: ListDetectorModelVersions -> Text
$sel:nextToken:ListDetectorModelVersions' :: ListDetectorModelVersions -> Maybe Text
$sel:maxResults:ListDetectorModelVersions' :: ListDetectorModelVersions -> Maybe Natural
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"/detector-models/",
forall a. ToByteString a => a -> ByteString
Data.toBS Text
detectorModelName,
ByteString
"/versions"
]
instance Data.ToQuery ListDetectorModelVersions where
toQuery :: ListDetectorModelVersions -> QueryString
toQuery ListDetectorModelVersions' {Maybe Natural
Maybe Text
Text
detectorModelName :: Text
nextToken :: Maybe Text
maxResults :: Maybe Natural
$sel:detectorModelName:ListDetectorModelVersions' :: ListDetectorModelVersions -> Text
$sel:nextToken:ListDetectorModelVersions' :: ListDetectorModelVersions -> Maybe Text
$sel:maxResults:ListDetectorModelVersions' :: ListDetectorModelVersions -> Maybe Natural
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ 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 ListDetectorModelVersionsResponse = ListDetectorModelVersionsResponse'
{
ListDetectorModelVersionsResponse
-> Maybe [DetectorModelVersionSummary]
detectorModelVersionSummaries :: Prelude.Maybe [DetectorModelVersionSummary],
ListDetectorModelVersionsResponse -> Maybe Text
nextToken :: Prelude.Maybe Prelude.Text,
ListDetectorModelVersionsResponse -> Int
httpStatus :: Prelude.Int
}
deriving (ListDetectorModelVersionsResponse
-> ListDetectorModelVersionsResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ListDetectorModelVersionsResponse
-> ListDetectorModelVersionsResponse -> Bool
$c/= :: ListDetectorModelVersionsResponse
-> ListDetectorModelVersionsResponse -> Bool
== :: ListDetectorModelVersionsResponse
-> ListDetectorModelVersionsResponse -> Bool
$c== :: ListDetectorModelVersionsResponse
-> ListDetectorModelVersionsResponse -> Bool
Prelude.Eq, ReadPrec [ListDetectorModelVersionsResponse]
ReadPrec ListDetectorModelVersionsResponse
Int -> ReadS ListDetectorModelVersionsResponse
ReadS [ListDetectorModelVersionsResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [ListDetectorModelVersionsResponse]
$creadListPrec :: ReadPrec [ListDetectorModelVersionsResponse]
readPrec :: ReadPrec ListDetectorModelVersionsResponse
$creadPrec :: ReadPrec ListDetectorModelVersionsResponse
readList :: ReadS [ListDetectorModelVersionsResponse]
$creadList :: ReadS [ListDetectorModelVersionsResponse]
readsPrec :: Int -> ReadS ListDetectorModelVersionsResponse
$creadsPrec :: Int -> ReadS ListDetectorModelVersionsResponse
Prelude.Read, Int -> ListDetectorModelVersionsResponse -> ShowS
[ListDetectorModelVersionsResponse] -> ShowS
ListDetectorModelVersionsResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ListDetectorModelVersionsResponse] -> ShowS
$cshowList :: [ListDetectorModelVersionsResponse] -> ShowS
show :: ListDetectorModelVersionsResponse -> String
$cshow :: ListDetectorModelVersionsResponse -> String
showsPrec :: Int -> ListDetectorModelVersionsResponse -> ShowS
$cshowsPrec :: Int -> ListDetectorModelVersionsResponse -> ShowS
Prelude.Show, forall x.
Rep ListDetectorModelVersionsResponse x
-> ListDetectorModelVersionsResponse
forall x.
ListDetectorModelVersionsResponse
-> Rep ListDetectorModelVersionsResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep ListDetectorModelVersionsResponse x
-> ListDetectorModelVersionsResponse
$cfrom :: forall x.
ListDetectorModelVersionsResponse
-> Rep ListDetectorModelVersionsResponse x
Prelude.Generic)
newListDetectorModelVersionsResponse ::
Prelude.Int ->
ListDetectorModelVersionsResponse
newListDetectorModelVersionsResponse :: Int -> ListDetectorModelVersionsResponse
newListDetectorModelVersionsResponse Int
pHttpStatus_ =
ListDetectorModelVersionsResponse'
{ $sel:detectorModelVersionSummaries:ListDetectorModelVersionsResponse' :: Maybe [DetectorModelVersionSummary]
detectorModelVersionSummaries =
forall a. Maybe a
Prelude.Nothing,
$sel:nextToken:ListDetectorModelVersionsResponse' :: Maybe Text
nextToken = forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:ListDetectorModelVersionsResponse' :: Int
httpStatus = Int
pHttpStatus_
}
listDetectorModelVersionsResponse_detectorModelVersionSummaries :: Lens.Lens' ListDetectorModelVersionsResponse (Prelude.Maybe [DetectorModelVersionSummary])
listDetectorModelVersionsResponse_detectorModelVersionSummaries :: Lens'
ListDetectorModelVersionsResponse
(Maybe [DetectorModelVersionSummary])
listDetectorModelVersionsResponse_detectorModelVersionSummaries = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListDetectorModelVersionsResponse' {Maybe [DetectorModelVersionSummary]
detectorModelVersionSummaries :: Maybe [DetectorModelVersionSummary]
$sel:detectorModelVersionSummaries:ListDetectorModelVersionsResponse' :: ListDetectorModelVersionsResponse
-> Maybe [DetectorModelVersionSummary]
detectorModelVersionSummaries} -> Maybe [DetectorModelVersionSummary]
detectorModelVersionSummaries) (\s :: ListDetectorModelVersionsResponse
s@ListDetectorModelVersionsResponse' {} Maybe [DetectorModelVersionSummary]
a -> ListDetectorModelVersionsResponse
s {$sel:detectorModelVersionSummaries:ListDetectorModelVersionsResponse' :: Maybe [DetectorModelVersionSummary]
detectorModelVersionSummaries = Maybe [DetectorModelVersionSummary]
a} :: ListDetectorModelVersionsResponse) 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
listDetectorModelVersionsResponse_nextToken :: Lens.Lens' ListDetectorModelVersionsResponse (Prelude.Maybe Prelude.Text)
listDetectorModelVersionsResponse_nextToken :: Lens' ListDetectorModelVersionsResponse (Maybe Text)
listDetectorModelVersionsResponse_nextToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListDetectorModelVersionsResponse' {Maybe Text
nextToken :: Maybe Text
$sel:nextToken:ListDetectorModelVersionsResponse' :: ListDetectorModelVersionsResponse -> Maybe Text
nextToken} -> Maybe Text
nextToken) (\s :: ListDetectorModelVersionsResponse
s@ListDetectorModelVersionsResponse' {} Maybe Text
a -> ListDetectorModelVersionsResponse
s {$sel:nextToken:ListDetectorModelVersionsResponse' :: Maybe Text
nextToken = Maybe Text
a} :: ListDetectorModelVersionsResponse)
listDetectorModelVersionsResponse_httpStatus :: Lens.Lens' ListDetectorModelVersionsResponse Prelude.Int
listDetectorModelVersionsResponse_httpStatus :: Lens' ListDetectorModelVersionsResponse Int
listDetectorModelVersionsResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListDetectorModelVersionsResponse' {Int
httpStatus :: Int
$sel:httpStatus:ListDetectorModelVersionsResponse' :: ListDetectorModelVersionsResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: ListDetectorModelVersionsResponse
s@ListDetectorModelVersionsResponse' {} Int
a -> ListDetectorModelVersionsResponse
s {$sel:httpStatus:ListDetectorModelVersionsResponse' :: Int
httpStatus = Int
a} :: ListDetectorModelVersionsResponse)
instance
Prelude.NFData
ListDetectorModelVersionsResponse
where
rnf :: ListDetectorModelVersionsResponse -> ()
rnf ListDetectorModelVersionsResponse' {Int
Maybe [DetectorModelVersionSummary]
Maybe Text
httpStatus :: Int
nextToken :: Maybe Text
detectorModelVersionSummaries :: Maybe [DetectorModelVersionSummary]
$sel:httpStatus:ListDetectorModelVersionsResponse' :: ListDetectorModelVersionsResponse -> Int
$sel:nextToken:ListDetectorModelVersionsResponse' :: ListDetectorModelVersionsResponse -> Maybe Text
$sel:detectorModelVersionSummaries:ListDetectorModelVersionsResponse' :: ListDetectorModelVersionsResponse
-> Maybe [DetectorModelVersionSummary]
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe [DetectorModelVersionSummary]
detectorModelVersionSummaries
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