{-# 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.ListAlarmModelVersions
(
ListAlarmModelVersions (..),
newListAlarmModelVersions,
listAlarmModelVersions_maxResults,
listAlarmModelVersions_nextToken,
listAlarmModelVersions_alarmModelName,
ListAlarmModelVersionsResponse (..),
newListAlarmModelVersionsResponse,
listAlarmModelVersionsResponse_alarmModelVersionSummaries,
listAlarmModelVersionsResponse_nextToken,
listAlarmModelVersionsResponse_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 ListAlarmModelVersions = ListAlarmModelVersions'
{
ListAlarmModelVersions -> Maybe Natural
maxResults :: Prelude.Maybe Prelude.Natural,
ListAlarmModelVersions -> Maybe Text
nextToken :: Prelude.Maybe Prelude.Text,
ListAlarmModelVersions -> Text
alarmModelName :: Prelude.Text
}
deriving (ListAlarmModelVersions -> ListAlarmModelVersions -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ListAlarmModelVersions -> ListAlarmModelVersions -> Bool
$c/= :: ListAlarmModelVersions -> ListAlarmModelVersions -> Bool
== :: ListAlarmModelVersions -> ListAlarmModelVersions -> Bool
$c== :: ListAlarmModelVersions -> ListAlarmModelVersions -> Bool
Prelude.Eq, ReadPrec [ListAlarmModelVersions]
ReadPrec ListAlarmModelVersions
Int -> ReadS ListAlarmModelVersions
ReadS [ListAlarmModelVersions]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [ListAlarmModelVersions]
$creadListPrec :: ReadPrec [ListAlarmModelVersions]
readPrec :: ReadPrec ListAlarmModelVersions
$creadPrec :: ReadPrec ListAlarmModelVersions
readList :: ReadS [ListAlarmModelVersions]
$creadList :: ReadS [ListAlarmModelVersions]
readsPrec :: Int -> ReadS ListAlarmModelVersions
$creadsPrec :: Int -> ReadS ListAlarmModelVersions
Prelude.Read, Int -> ListAlarmModelVersions -> ShowS
[ListAlarmModelVersions] -> ShowS
ListAlarmModelVersions -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ListAlarmModelVersions] -> ShowS
$cshowList :: [ListAlarmModelVersions] -> ShowS
show :: ListAlarmModelVersions -> String
$cshow :: ListAlarmModelVersions -> String
showsPrec :: Int -> ListAlarmModelVersions -> ShowS
$cshowsPrec :: Int -> ListAlarmModelVersions -> ShowS
Prelude.Show, forall x. Rep ListAlarmModelVersions x -> ListAlarmModelVersions
forall x. ListAlarmModelVersions -> Rep ListAlarmModelVersions x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep ListAlarmModelVersions x -> ListAlarmModelVersions
$cfrom :: forall x. ListAlarmModelVersions -> Rep ListAlarmModelVersions x
Prelude.Generic)
newListAlarmModelVersions ::
Prelude.Text ->
ListAlarmModelVersions
newListAlarmModelVersions :: Text -> ListAlarmModelVersions
newListAlarmModelVersions Text
pAlarmModelName_ =
ListAlarmModelVersions'
{ $sel:maxResults:ListAlarmModelVersions' :: Maybe Natural
maxResults =
forall a. Maybe a
Prelude.Nothing,
$sel:nextToken:ListAlarmModelVersions' :: Maybe Text
nextToken = forall a. Maybe a
Prelude.Nothing,
$sel:alarmModelName:ListAlarmModelVersions' :: Text
alarmModelName = Text
pAlarmModelName_
}
listAlarmModelVersions_maxResults :: Lens.Lens' ListAlarmModelVersions (Prelude.Maybe Prelude.Natural)
listAlarmModelVersions_maxResults :: Lens' ListAlarmModelVersions (Maybe Natural)
listAlarmModelVersions_maxResults = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListAlarmModelVersions' {Maybe Natural
maxResults :: Maybe Natural
$sel:maxResults:ListAlarmModelVersions' :: ListAlarmModelVersions -> Maybe Natural
maxResults} -> Maybe Natural
maxResults) (\s :: ListAlarmModelVersions
s@ListAlarmModelVersions' {} Maybe Natural
a -> ListAlarmModelVersions
s {$sel:maxResults:ListAlarmModelVersions' :: Maybe Natural
maxResults = Maybe Natural
a} :: ListAlarmModelVersions)
listAlarmModelVersions_nextToken :: Lens.Lens' ListAlarmModelVersions (Prelude.Maybe Prelude.Text)
listAlarmModelVersions_nextToken :: Lens' ListAlarmModelVersions (Maybe Text)
listAlarmModelVersions_nextToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListAlarmModelVersions' {Maybe Text
nextToken :: Maybe Text
$sel:nextToken:ListAlarmModelVersions' :: ListAlarmModelVersions -> Maybe Text
nextToken} -> Maybe Text
nextToken) (\s :: ListAlarmModelVersions
s@ListAlarmModelVersions' {} Maybe Text
a -> ListAlarmModelVersions
s {$sel:nextToken:ListAlarmModelVersions' :: Maybe Text
nextToken = Maybe Text
a} :: ListAlarmModelVersions)
listAlarmModelVersions_alarmModelName :: Lens.Lens' ListAlarmModelVersions Prelude.Text
listAlarmModelVersions_alarmModelName :: Lens' ListAlarmModelVersions Text
listAlarmModelVersions_alarmModelName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListAlarmModelVersions' {Text
alarmModelName :: Text
$sel:alarmModelName:ListAlarmModelVersions' :: ListAlarmModelVersions -> Text
alarmModelName} -> Text
alarmModelName) (\s :: ListAlarmModelVersions
s@ListAlarmModelVersions' {} Text
a -> ListAlarmModelVersions
s {$sel:alarmModelName:ListAlarmModelVersions' :: Text
alarmModelName = Text
a} :: ListAlarmModelVersions)
instance Core.AWSRequest ListAlarmModelVersions where
type
AWSResponse ListAlarmModelVersions =
ListAlarmModelVersionsResponse
request :: (Service -> Service)
-> ListAlarmModelVersions -> Request ListAlarmModelVersions
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 ListAlarmModelVersions
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse ListAlarmModelVersions)))
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 [AlarmModelVersionSummary]
-> Maybe Text -> Int -> ListAlarmModelVersionsResponse
ListAlarmModelVersionsResponse'
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
"alarmModelVersionSummaries"
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 ListAlarmModelVersions where
hashWithSalt :: Int -> ListAlarmModelVersions -> Int
hashWithSalt Int
_salt ListAlarmModelVersions' {Maybe Natural
Maybe Text
Text
alarmModelName :: Text
nextToken :: Maybe Text
maxResults :: Maybe Natural
$sel:alarmModelName:ListAlarmModelVersions' :: ListAlarmModelVersions -> Text
$sel:nextToken:ListAlarmModelVersions' :: ListAlarmModelVersions -> Maybe Text
$sel:maxResults:ListAlarmModelVersions' :: ListAlarmModelVersions -> 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
alarmModelName
instance Prelude.NFData ListAlarmModelVersions where
rnf :: ListAlarmModelVersions -> ()
rnf ListAlarmModelVersions' {Maybe Natural
Maybe Text
Text
alarmModelName :: Text
nextToken :: Maybe Text
maxResults :: Maybe Natural
$sel:alarmModelName:ListAlarmModelVersions' :: ListAlarmModelVersions -> Text
$sel:nextToken:ListAlarmModelVersions' :: ListAlarmModelVersions -> Maybe Text
$sel:maxResults:ListAlarmModelVersions' :: ListAlarmModelVersions -> 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
alarmModelName
instance Data.ToHeaders ListAlarmModelVersions where
toHeaders :: ListAlarmModelVersions -> ResponseHeaders
toHeaders = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
instance Data.ToPath ListAlarmModelVersions where
toPath :: ListAlarmModelVersions -> ByteString
toPath ListAlarmModelVersions' {Maybe Natural
Maybe Text
Text
alarmModelName :: Text
nextToken :: Maybe Text
maxResults :: Maybe Natural
$sel:alarmModelName:ListAlarmModelVersions' :: ListAlarmModelVersions -> Text
$sel:nextToken:ListAlarmModelVersions' :: ListAlarmModelVersions -> Maybe Text
$sel:maxResults:ListAlarmModelVersions' :: ListAlarmModelVersions -> Maybe Natural
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"/alarm-models/",
forall a. ToByteString a => a -> ByteString
Data.toBS Text
alarmModelName,
ByteString
"/versions"
]
instance Data.ToQuery ListAlarmModelVersions where
toQuery :: ListAlarmModelVersions -> QueryString
toQuery ListAlarmModelVersions' {Maybe Natural
Maybe Text
Text
alarmModelName :: Text
nextToken :: Maybe Text
maxResults :: Maybe Natural
$sel:alarmModelName:ListAlarmModelVersions' :: ListAlarmModelVersions -> Text
$sel:nextToken:ListAlarmModelVersions' :: ListAlarmModelVersions -> Maybe Text
$sel:maxResults:ListAlarmModelVersions' :: ListAlarmModelVersions -> 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 ListAlarmModelVersionsResponse = ListAlarmModelVersionsResponse'
{
ListAlarmModelVersionsResponse -> Maybe [AlarmModelVersionSummary]
alarmModelVersionSummaries :: Prelude.Maybe [AlarmModelVersionSummary],
ListAlarmModelVersionsResponse -> Maybe Text
nextToken :: Prelude.Maybe Prelude.Text,
ListAlarmModelVersionsResponse -> Int
httpStatus :: Prelude.Int
}
deriving (ListAlarmModelVersionsResponse
-> ListAlarmModelVersionsResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ListAlarmModelVersionsResponse
-> ListAlarmModelVersionsResponse -> Bool
$c/= :: ListAlarmModelVersionsResponse
-> ListAlarmModelVersionsResponse -> Bool
== :: ListAlarmModelVersionsResponse
-> ListAlarmModelVersionsResponse -> Bool
$c== :: ListAlarmModelVersionsResponse
-> ListAlarmModelVersionsResponse -> Bool
Prelude.Eq, ReadPrec [ListAlarmModelVersionsResponse]
ReadPrec ListAlarmModelVersionsResponse
Int -> ReadS ListAlarmModelVersionsResponse
ReadS [ListAlarmModelVersionsResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [ListAlarmModelVersionsResponse]
$creadListPrec :: ReadPrec [ListAlarmModelVersionsResponse]
readPrec :: ReadPrec ListAlarmModelVersionsResponse
$creadPrec :: ReadPrec ListAlarmModelVersionsResponse
readList :: ReadS [ListAlarmModelVersionsResponse]
$creadList :: ReadS [ListAlarmModelVersionsResponse]
readsPrec :: Int -> ReadS ListAlarmModelVersionsResponse
$creadsPrec :: Int -> ReadS ListAlarmModelVersionsResponse
Prelude.Read, Int -> ListAlarmModelVersionsResponse -> ShowS
[ListAlarmModelVersionsResponse] -> ShowS
ListAlarmModelVersionsResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ListAlarmModelVersionsResponse] -> ShowS
$cshowList :: [ListAlarmModelVersionsResponse] -> ShowS
show :: ListAlarmModelVersionsResponse -> String
$cshow :: ListAlarmModelVersionsResponse -> String
showsPrec :: Int -> ListAlarmModelVersionsResponse -> ShowS
$cshowsPrec :: Int -> ListAlarmModelVersionsResponse -> ShowS
Prelude.Show, forall x.
Rep ListAlarmModelVersionsResponse x
-> ListAlarmModelVersionsResponse
forall x.
ListAlarmModelVersionsResponse
-> Rep ListAlarmModelVersionsResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep ListAlarmModelVersionsResponse x
-> ListAlarmModelVersionsResponse
$cfrom :: forall x.
ListAlarmModelVersionsResponse
-> Rep ListAlarmModelVersionsResponse x
Prelude.Generic)
newListAlarmModelVersionsResponse ::
Prelude.Int ->
ListAlarmModelVersionsResponse
newListAlarmModelVersionsResponse :: Int -> ListAlarmModelVersionsResponse
newListAlarmModelVersionsResponse Int
pHttpStatus_ =
ListAlarmModelVersionsResponse'
{ $sel:alarmModelVersionSummaries:ListAlarmModelVersionsResponse' :: Maybe [AlarmModelVersionSummary]
alarmModelVersionSummaries =
forall a. Maybe a
Prelude.Nothing,
$sel:nextToken:ListAlarmModelVersionsResponse' :: Maybe Text
nextToken = forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:ListAlarmModelVersionsResponse' :: Int
httpStatus = Int
pHttpStatus_
}
listAlarmModelVersionsResponse_alarmModelVersionSummaries :: Lens.Lens' ListAlarmModelVersionsResponse (Prelude.Maybe [AlarmModelVersionSummary])
listAlarmModelVersionsResponse_alarmModelVersionSummaries :: Lens'
ListAlarmModelVersionsResponse (Maybe [AlarmModelVersionSummary])
listAlarmModelVersionsResponse_alarmModelVersionSummaries = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListAlarmModelVersionsResponse' {Maybe [AlarmModelVersionSummary]
alarmModelVersionSummaries :: Maybe [AlarmModelVersionSummary]
$sel:alarmModelVersionSummaries:ListAlarmModelVersionsResponse' :: ListAlarmModelVersionsResponse -> Maybe [AlarmModelVersionSummary]
alarmModelVersionSummaries} -> Maybe [AlarmModelVersionSummary]
alarmModelVersionSummaries) (\s :: ListAlarmModelVersionsResponse
s@ListAlarmModelVersionsResponse' {} Maybe [AlarmModelVersionSummary]
a -> ListAlarmModelVersionsResponse
s {$sel:alarmModelVersionSummaries:ListAlarmModelVersionsResponse' :: Maybe [AlarmModelVersionSummary]
alarmModelVersionSummaries = Maybe [AlarmModelVersionSummary]
a} :: ListAlarmModelVersionsResponse) 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
listAlarmModelVersionsResponse_nextToken :: Lens.Lens' ListAlarmModelVersionsResponse (Prelude.Maybe Prelude.Text)
listAlarmModelVersionsResponse_nextToken :: Lens' ListAlarmModelVersionsResponse (Maybe Text)
listAlarmModelVersionsResponse_nextToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListAlarmModelVersionsResponse' {Maybe Text
nextToken :: Maybe Text
$sel:nextToken:ListAlarmModelVersionsResponse' :: ListAlarmModelVersionsResponse -> Maybe Text
nextToken} -> Maybe Text
nextToken) (\s :: ListAlarmModelVersionsResponse
s@ListAlarmModelVersionsResponse' {} Maybe Text
a -> ListAlarmModelVersionsResponse
s {$sel:nextToken:ListAlarmModelVersionsResponse' :: Maybe Text
nextToken = Maybe Text
a} :: ListAlarmModelVersionsResponse)
listAlarmModelVersionsResponse_httpStatus :: Lens.Lens' ListAlarmModelVersionsResponse Prelude.Int
listAlarmModelVersionsResponse_httpStatus :: Lens' ListAlarmModelVersionsResponse Int
listAlarmModelVersionsResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListAlarmModelVersionsResponse' {Int
httpStatus :: Int
$sel:httpStatus:ListAlarmModelVersionsResponse' :: ListAlarmModelVersionsResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: ListAlarmModelVersionsResponse
s@ListAlarmModelVersionsResponse' {} Int
a -> ListAlarmModelVersionsResponse
s {$sel:httpStatus:ListAlarmModelVersionsResponse' :: Int
httpStatus = Int
a} :: ListAlarmModelVersionsResponse)
instance
Prelude.NFData
ListAlarmModelVersionsResponse
where
rnf :: ListAlarmModelVersionsResponse -> ()
rnf ListAlarmModelVersionsResponse' {Int
Maybe [AlarmModelVersionSummary]
Maybe Text
httpStatus :: Int
nextToken :: Maybe Text
alarmModelVersionSummaries :: Maybe [AlarmModelVersionSummary]
$sel:httpStatus:ListAlarmModelVersionsResponse' :: ListAlarmModelVersionsResponse -> Int
$sel:nextToken:ListAlarmModelVersionsResponse' :: ListAlarmModelVersionsResponse -> Maybe Text
$sel:alarmModelVersionSummaries:ListAlarmModelVersionsResponse' :: ListAlarmModelVersionsResponse -> Maybe [AlarmModelVersionSummary]
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe [AlarmModelVersionSummary]
alarmModelVersionSummaries
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