{-# 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.CloudWatch.DescribeAlarms
(
DescribeAlarms (..),
newDescribeAlarms,
describeAlarms_actionPrefix,
describeAlarms_alarmNamePrefix,
describeAlarms_alarmNames,
describeAlarms_alarmTypes,
describeAlarms_childrenOfAlarmName,
describeAlarms_maxRecords,
describeAlarms_nextToken,
describeAlarms_parentsOfAlarmName,
describeAlarms_stateValue,
DescribeAlarmsResponse (..),
newDescribeAlarmsResponse,
describeAlarmsResponse_compositeAlarms,
describeAlarmsResponse_metricAlarms,
describeAlarmsResponse_nextToken,
describeAlarmsResponse_httpStatus,
)
where
import Amazonka.CloudWatch.Types
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data DescribeAlarms = DescribeAlarms'
{
DescribeAlarms -> Maybe Text
actionPrefix :: Prelude.Maybe Prelude.Text,
DescribeAlarms -> Maybe Text
alarmNamePrefix :: Prelude.Maybe Prelude.Text,
DescribeAlarms -> Maybe [Text]
alarmNames :: Prelude.Maybe [Prelude.Text],
DescribeAlarms -> Maybe [AlarmType]
alarmTypes :: Prelude.Maybe [AlarmType],
DescribeAlarms -> Maybe Text
childrenOfAlarmName :: Prelude.Maybe Prelude.Text,
DescribeAlarms -> Maybe Natural
maxRecords :: Prelude.Maybe Prelude.Natural,
DescribeAlarms -> Maybe Text
nextToken :: Prelude.Maybe Prelude.Text,
DescribeAlarms -> Maybe Text
parentsOfAlarmName :: Prelude.Maybe Prelude.Text,
DescribeAlarms -> Maybe StateValue
stateValue :: Prelude.Maybe StateValue
}
deriving (DescribeAlarms -> DescribeAlarms -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DescribeAlarms -> DescribeAlarms -> Bool
$c/= :: DescribeAlarms -> DescribeAlarms -> Bool
== :: DescribeAlarms -> DescribeAlarms -> Bool
$c== :: DescribeAlarms -> DescribeAlarms -> Bool
Prelude.Eq, ReadPrec [DescribeAlarms]
ReadPrec DescribeAlarms
Int -> ReadS DescribeAlarms
ReadS [DescribeAlarms]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DescribeAlarms]
$creadListPrec :: ReadPrec [DescribeAlarms]
readPrec :: ReadPrec DescribeAlarms
$creadPrec :: ReadPrec DescribeAlarms
readList :: ReadS [DescribeAlarms]
$creadList :: ReadS [DescribeAlarms]
readsPrec :: Int -> ReadS DescribeAlarms
$creadsPrec :: Int -> ReadS DescribeAlarms
Prelude.Read, Int -> DescribeAlarms -> ShowS
[DescribeAlarms] -> ShowS
DescribeAlarms -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DescribeAlarms] -> ShowS
$cshowList :: [DescribeAlarms] -> ShowS
show :: DescribeAlarms -> String
$cshow :: DescribeAlarms -> String
showsPrec :: Int -> DescribeAlarms -> ShowS
$cshowsPrec :: Int -> DescribeAlarms -> ShowS
Prelude.Show, forall x. Rep DescribeAlarms x -> DescribeAlarms
forall x. DescribeAlarms -> Rep DescribeAlarms x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep DescribeAlarms x -> DescribeAlarms
$cfrom :: forall x. DescribeAlarms -> Rep DescribeAlarms x
Prelude.Generic)
newDescribeAlarms ::
DescribeAlarms
newDescribeAlarms :: DescribeAlarms
newDescribeAlarms =
DescribeAlarms'
{ $sel:actionPrefix:DescribeAlarms' :: Maybe Text
actionPrefix = forall a. Maybe a
Prelude.Nothing,
$sel:alarmNamePrefix:DescribeAlarms' :: Maybe Text
alarmNamePrefix = forall a. Maybe a
Prelude.Nothing,
$sel:alarmNames:DescribeAlarms' :: Maybe [Text]
alarmNames = forall a. Maybe a
Prelude.Nothing,
$sel:alarmTypes:DescribeAlarms' :: Maybe [AlarmType]
alarmTypes = forall a. Maybe a
Prelude.Nothing,
$sel:childrenOfAlarmName:DescribeAlarms' :: Maybe Text
childrenOfAlarmName = forall a. Maybe a
Prelude.Nothing,
$sel:maxRecords:DescribeAlarms' :: Maybe Natural
maxRecords = forall a. Maybe a
Prelude.Nothing,
$sel:nextToken:DescribeAlarms' :: Maybe Text
nextToken = forall a. Maybe a
Prelude.Nothing,
$sel:parentsOfAlarmName:DescribeAlarms' :: Maybe Text
parentsOfAlarmName = forall a. Maybe a
Prelude.Nothing,
$sel:stateValue:DescribeAlarms' :: Maybe StateValue
stateValue = forall a. Maybe a
Prelude.Nothing
}
describeAlarms_actionPrefix :: Lens.Lens' DescribeAlarms (Prelude.Maybe Prelude.Text)
describeAlarms_actionPrefix :: Lens' DescribeAlarms (Maybe Text)
describeAlarms_actionPrefix = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeAlarms' {Maybe Text
actionPrefix :: Maybe Text
$sel:actionPrefix:DescribeAlarms' :: DescribeAlarms -> Maybe Text
actionPrefix} -> Maybe Text
actionPrefix) (\s :: DescribeAlarms
s@DescribeAlarms' {} Maybe Text
a -> DescribeAlarms
s {$sel:actionPrefix:DescribeAlarms' :: Maybe Text
actionPrefix = Maybe Text
a} :: DescribeAlarms)
describeAlarms_alarmNamePrefix :: Lens.Lens' DescribeAlarms (Prelude.Maybe Prelude.Text)
describeAlarms_alarmNamePrefix :: Lens' DescribeAlarms (Maybe Text)
describeAlarms_alarmNamePrefix = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeAlarms' {Maybe Text
alarmNamePrefix :: Maybe Text
$sel:alarmNamePrefix:DescribeAlarms' :: DescribeAlarms -> Maybe Text
alarmNamePrefix} -> Maybe Text
alarmNamePrefix) (\s :: DescribeAlarms
s@DescribeAlarms' {} Maybe Text
a -> DescribeAlarms
s {$sel:alarmNamePrefix:DescribeAlarms' :: Maybe Text
alarmNamePrefix = Maybe Text
a} :: DescribeAlarms)
describeAlarms_alarmNames :: Lens.Lens' DescribeAlarms (Prelude.Maybe [Prelude.Text])
describeAlarms_alarmNames :: Lens' DescribeAlarms (Maybe [Text])
describeAlarms_alarmNames = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeAlarms' {Maybe [Text]
alarmNames :: Maybe [Text]
$sel:alarmNames:DescribeAlarms' :: DescribeAlarms -> Maybe [Text]
alarmNames} -> Maybe [Text]
alarmNames) (\s :: DescribeAlarms
s@DescribeAlarms' {} Maybe [Text]
a -> DescribeAlarms
s {$sel:alarmNames:DescribeAlarms' :: Maybe [Text]
alarmNames = Maybe [Text]
a} :: DescribeAlarms) 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
describeAlarms_alarmTypes :: Lens.Lens' DescribeAlarms (Prelude.Maybe [AlarmType])
describeAlarms_alarmTypes :: Lens' DescribeAlarms (Maybe [AlarmType])
describeAlarms_alarmTypes = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeAlarms' {Maybe [AlarmType]
alarmTypes :: Maybe [AlarmType]
$sel:alarmTypes:DescribeAlarms' :: DescribeAlarms -> Maybe [AlarmType]
alarmTypes} -> Maybe [AlarmType]
alarmTypes) (\s :: DescribeAlarms
s@DescribeAlarms' {} Maybe [AlarmType]
a -> DescribeAlarms
s {$sel:alarmTypes:DescribeAlarms' :: Maybe [AlarmType]
alarmTypes = Maybe [AlarmType]
a} :: DescribeAlarms) 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
describeAlarms_childrenOfAlarmName :: Lens.Lens' DescribeAlarms (Prelude.Maybe Prelude.Text)
describeAlarms_childrenOfAlarmName :: Lens' DescribeAlarms (Maybe Text)
describeAlarms_childrenOfAlarmName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeAlarms' {Maybe Text
childrenOfAlarmName :: Maybe Text
$sel:childrenOfAlarmName:DescribeAlarms' :: DescribeAlarms -> Maybe Text
childrenOfAlarmName} -> Maybe Text
childrenOfAlarmName) (\s :: DescribeAlarms
s@DescribeAlarms' {} Maybe Text
a -> DescribeAlarms
s {$sel:childrenOfAlarmName:DescribeAlarms' :: Maybe Text
childrenOfAlarmName = Maybe Text
a} :: DescribeAlarms)
describeAlarms_maxRecords :: Lens.Lens' DescribeAlarms (Prelude.Maybe Prelude.Natural)
describeAlarms_maxRecords :: Lens' DescribeAlarms (Maybe Natural)
describeAlarms_maxRecords = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeAlarms' {Maybe Natural
maxRecords :: Maybe Natural
$sel:maxRecords:DescribeAlarms' :: DescribeAlarms -> Maybe Natural
maxRecords} -> Maybe Natural
maxRecords) (\s :: DescribeAlarms
s@DescribeAlarms' {} Maybe Natural
a -> DescribeAlarms
s {$sel:maxRecords:DescribeAlarms' :: Maybe Natural
maxRecords = Maybe Natural
a} :: DescribeAlarms)
describeAlarms_nextToken :: Lens.Lens' DescribeAlarms (Prelude.Maybe Prelude.Text)
describeAlarms_nextToken :: Lens' DescribeAlarms (Maybe Text)
describeAlarms_nextToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeAlarms' {Maybe Text
nextToken :: Maybe Text
$sel:nextToken:DescribeAlarms' :: DescribeAlarms -> Maybe Text
nextToken} -> Maybe Text
nextToken) (\s :: DescribeAlarms
s@DescribeAlarms' {} Maybe Text
a -> DescribeAlarms
s {$sel:nextToken:DescribeAlarms' :: Maybe Text
nextToken = Maybe Text
a} :: DescribeAlarms)
describeAlarms_parentsOfAlarmName :: Lens.Lens' DescribeAlarms (Prelude.Maybe Prelude.Text)
describeAlarms_parentsOfAlarmName :: Lens' DescribeAlarms (Maybe Text)
describeAlarms_parentsOfAlarmName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeAlarms' {Maybe Text
parentsOfAlarmName :: Maybe Text
$sel:parentsOfAlarmName:DescribeAlarms' :: DescribeAlarms -> Maybe Text
parentsOfAlarmName} -> Maybe Text
parentsOfAlarmName) (\s :: DescribeAlarms
s@DescribeAlarms' {} Maybe Text
a -> DescribeAlarms
s {$sel:parentsOfAlarmName:DescribeAlarms' :: Maybe Text
parentsOfAlarmName = Maybe Text
a} :: DescribeAlarms)
describeAlarms_stateValue :: Lens.Lens' DescribeAlarms (Prelude.Maybe StateValue)
describeAlarms_stateValue :: Lens' DescribeAlarms (Maybe StateValue)
describeAlarms_stateValue = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeAlarms' {Maybe StateValue
stateValue :: Maybe StateValue
$sel:stateValue:DescribeAlarms' :: DescribeAlarms -> Maybe StateValue
stateValue} -> Maybe StateValue
stateValue) (\s :: DescribeAlarms
s@DescribeAlarms' {} Maybe StateValue
a -> DescribeAlarms
s {$sel:stateValue:DescribeAlarms' :: Maybe StateValue
stateValue = Maybe StateValue
a} :: DescribeAlarms)
instance Core.AWSPager DescribeAlarms where
page :: DescribeAlarms
-> AWSResponse DescribeAlarms -> Maybe DescribeAlarms
page DescribeAlarms
rq AWSResponse DescribeAlarms
rs
| forall a. AWSTruncated a => a -> Bool
Core.stop
( AWSResponse DescribeAlarms
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' DescribeAlarmsResponse (Maybe Text)
describeAlarmsResponse_nextToken
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall a b. Prism (Maybe a) (Maybe b) a b
Lens._Just
) =
forall a. Maybe a
Prelude.Nothing
| forall a. AWSTruncated a => a -> Bool
Core.stop
( AWSResponse DescribeAlarms
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' DescribeAlarmsResponse (Maybe [MetricAlarm])
describeAlarmsResponse_metricAlarms
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall a b. Prism (Maybe a) (Maybe b) a b
Lens._Just
) =
forall a. Maybe a
Prelude.Nothing
| forall a. AWSTruncated a => a -> Bool
Core.stop
( AWSResponse DescribeAlarms
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' DescribeAlarmsResponse (Maybe [CompositeAlarm])
describeAlarmsResponse_compositeAlarms
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall a b. Prism (Maybe a) (Maybe b) a b
Lens._Just
) =
forall a. Maybe a
Prelude.Nothing
| Bool
Prelude.otherwise =
forall a. a -> Maybe a
Prelude.Just
forall a b. (a -> b) -> a -> b
Prelude.$ DescribeAlarms
rq
forall a b. a -> (a -> b) -> b
Prelude.& Lens' DescribeAlarms (Maybe Text)
describeAlarms_nextToken
forall s t a b. ASetter s t a b -> b -> s -> t
Lens..~ AWSResponse DescribeAlarms
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' DescribeAlarmsResponse (Maybe Text)
describeAlarmsResponse_nextToken
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall a b. Prism (Maybe a) (Maybe b) a b
Lens._Just
instance Core.AWSRequest DescribeAlarms where
type
AWSResponse DescribeAlarms =
DescribeAlarmsResponse
request :: (Service -> Service) -> DescribeAlarms -> Request DescribeAlarms
request Service -> Service
overrides =
forall a. ToRequest a => Service -> a -> Request a
Request.postQuery (Service -> Service
overrides Service
defaultService)
response :: forall (m :: * -> *).
MonadResource m =>
(ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy DescribeAlarms
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse DescribeAlarms)))
response =
forall (m :: * -> *) a.
MonadResource m =>
Text
-> (Int
-> ResponseHeaders -> [Node] -> Either String (AWSResponse a))
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveXMLWrapper
Text
"DescribeAlarmsResult"
( \Int
s ResponseHeaders
h [Node]
x ->
Maybe [CompositeAlarm]
-> Maybe [MetricAlarm]
-> Maybe Text
-> Int
-> DescribeAlarmsResponse
DescribeAlarmsResponse'
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> ( [Node]
x
forall a. FromXML a => [Node] -> Text -> Either String (Maybe a)
Data..@? Text
"CompositeAlarms"
forall (f :: * -> *) a. Functor f => f (Maybe a) -> a -> f a
Core..!@ forall a. Monoid a => a
Prelude.mempty
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
Prelude.>>= forall (f :: * -> *) a b.
Applicative f =>
([a] -> f b) -> [a] -> f (Maybe b)
Core.may (forall a. FromXML a => Text -> [Node] -> Either String [a]
Data.parseXMLList Text
"member")
)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> ( [Node]
x
forall a. FromXML a => [Node] -> Text -> Either String (Maybe a)
Data..@? Text
"MetricAlarms"
forall (f :: * -> *) a. Functor f => f (Maybe a) -> a -> f a
Core..!@ forall a. Monoid a => a
Prelude.mempty
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
Prelude.>>= forall (f :: * -> *) a b.
Applicative f =>
([a] -> f b) -> [a] -> f (Maybe b)
Core.may (forall a. FromXML a => Text -> [Node] -> Either String [a]
Data.parseXMLList Text
"member")
)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> ([Node]
x forall a. FromXML a => [Node] -> Text -> Either String (Maybe a)
Data..@? Text
"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 DescribeAlarms where
hashWithSalt :: Int -> DescribeAlarms -> Int
hashWithSalt Int
_salt DescribeAlarms' {Maybe Natural
Maybe [Text]
Maybe [AlarmType]
Maybe Text
Maybe StateValue
stateValue :: Maybe StateValue
parentsOfAlarmName :: Maybe Text
nextToken :: Maybe Text
maxRecords :: Maybe Natural
childrenOfAlarmName :: Maybe Text
alarmTypes :: Maybe [AlarmType]
alarmNames :: Maybe [Text]
alarmNamePrefix :: Maybe Text
actionPrefix :: Maybe Text
$sel:stateValue:DescribeAlarms' :: DescribeAlarms -> Maybe StateValue
$sel:parentsOfAlarmName:DescribeAlarms' :: DescribeAlarms -> Maybe Text
$sel:nextToken:DescribeAlarms' :: DescribeAlarms -> Maybe Text
$sel:maxRecords:DescribeAlarms' :: DescribeAlarms -> Maybe Natural
$sel:childrenOfAlarmName:DescribeAlarms' :: DescribeAlarms -> Maybe Text
$sel:alarmTypes:DescribeAlarms' :: DescribeAlarms -> Maybe [AlarmType]
$sel:alarmNames:DescribeAlarms' :: DescribeAlarms -> Maybe [Text]
$sel:alarmNamePrefix:DescribeAlarms' :: DescribeAlarms -> Maybe Text
$sel:actionPrefix:DescribeAlarms' :: DescribeAlarms -> Maybe Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
actionPrefix
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
alarmNamePrefix
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [Text]
alarmNames
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [AlarmType]
alarmTypes
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
childrenOfAlarmName
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Natural
maxRecords
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
nextToken
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
parentsOfAlarmName
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe StateValue
stateValue
instance Prelude.NFData DescribeAlarms where
rnf :: DescribeAlarms -> ()
rnf DescribeAlarms' {Maybe Natural
Maybe [Text]
Maybe [AlarmType]
Maybe Text
Maybe StateValue
stateValue :: Maybe StateValue
parentsOfAlarmName :: Maybe Text
nextToken :: Maybe Text
maxRecords :: Maybe Natural
childrenOfAlarmName :: Maybe Text
alarmTypes :: Maybe [AlarmType]
alarmNames :: Maybe [Text]
alarmNamePrefix :: Maybe Text
actionPrefix :: Maybe Text
$sel:stateValue:DescribeAlarms' :: DescribeAlarms -> Maybe StateValue
$sel:parentsOfAlarmName:DescribeAlarms' :: DescribeAlarms -> Maybe Text
$sel:nextToken:DescribeAlarms' :: DescribeAlarms -> Maybe Text
$sel:maxRecords:DescribeAlarms' :: DescribeAlarms -> Maybe Natural
$sel:childrenOfAlarmName:DescribeAlarms' :: DescribeAlarms -> Maybe Text
$sel:alarmTypes:DescribeAlarms' :: DescribeAlarms -> Maybe [AlarmType]
$sel:alarmNames:DescribeAlarms' :: DescribeAlarms -> Maybe [Text]
$sel:alarmNamePrefix:DescribeAlarms' :: DescribeAlarms -> Maybe Text
$sel:actionPrefix:DescribeAlarms' :: DescribeAlarms -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
actionPrefix
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
alarmNamePrefix
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [Text]
alarmNames
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [AlarmType]
alarmTypes
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
childrenOfAlarmName
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Natural
maxRecords
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 Maybe Text
parentsOfAlarmName
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe StateValue
stateValue
instance Data.ToHeaders DescribeAlarms where
toHeaders :: DescribeAlarms -> ResponseHeaders
toHeaders = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
instance Data.ToPath DescribeAlarms where
toPath :: DescribeAlarms -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery DescribeAlarms where
toQuery :: DescribeAlarms -> QueryString
toQuery DescribeAlarms' {Maybe Natural
Maybe [Text]
Maybe [AlarmType]
Maybe Text
Maybe StateValue
stateValue :: Maybe StateValue
parentsOfAlarmName :: Maybe Text
nextToken :: Maybe Text
maxRecords :: Maybe Natural
childrenOfAlarmName :: Maybe Text
alarmTypes :: Maybe [AlarmType]
alarmNames :: Maybe [Text]
alarmNamePrefix :: Maybe Text
actionPrefix :: Maybe Text
$sel:stateValue:DescribeAlarms' :: DescribeAlarms -> Maybe StateValue
$sel:parentsOfAlarmName:DescribeAlarms' :: DescribeAlarms -> Maybe Text
$sel:nextToken:DescribeAlarms' :: DescribeAlarms -> Maybe Text
$sel:maxRecords:DescribeAlarms' :: DescribeAlarms -> Maybe Natural
$sel:childrenOfAlarmName:DescribeAlarms' :: DescribeAlarms -> Maybe Text
$sel:alarmTypes:DescribeAlarms' :: DescribeAlarms -> Maybe [AlarmType]
$sel:alarmNames:DescribeAlarms' :: DescribeAlarms -> Maybe [Text]
$sel:alarmNamePrefix:DescribeAlarms' :: DescribeAlarms -> Maybe Text
$sel:actionPrefix:DescribeAlarms' :: DescribeAlarms -> Maybe Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"Action"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: (ByteString
"DescribeAlarms" :: Prelude.ByteString),
ByteString
"Version"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: (ByteString
"2010-08-01" :: Prelude.ByteString),
ByteString
"ActionPrefix" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
actionPrefix,
ByteString
"AlarmNamePrefix" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
alarmNamePrefix,
ByteString
"AlarmNames"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: forall a. ToQuery a => a -> QueryString
Data.toQuery
(forall a.
(IsList a, ToQuery (Item a)) =>
ByteString -> a -> QueryString
Data.toQueryList ByteString
"member" forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [Text]
alarmNames),
ByteString
"AlarmTypes"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: forall a. ToQuery a => a -> QueryString
Data.toQuery
(forall a.
(IsList a, ToQuery (Item a)) =>
ByteString -> a -> QueryString
Data.toQueryList ByteString
"member" forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [AlarmType]
alarmTypes),
ByteString
"ChildrenOfAlarmName" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
childrenOfAlarmName,
ByteString
"MaxRecords" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Natural
maxRecords,
ByteString
"NextToken" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
nextToken,
ByteString
"ParentsOfAlarmName" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
parentsOfAlarmName,
ByteString
"StateValue" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe StateValue
stateValue
]
data DescribeAlarmsResponse = DescribeAlarmsResponse'
{
DescribeAlarmsResponse -> Maybe [CompositeAlarm]
compositeAlarms :: Prelude.Maybe [CompositeAlarm],
DescribeAlarmsResponse -> Maybe [MetricAlarm]
metricAlarms :: Prelude.Maybe [MetricAlarm],
DescribeAlarmsResponse -> Maybe Text
nextToken :: Prelude.Maybe Prelude.Text,
DescribeAlarmsResponse -> Int
httpStatus :: Prelude.Int
}
deriving (DescribeAlarmsResponse -> DescribeAlarmsResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DescribeAlarmsResponse -> DescribeAlarmsResponse -> Bool
$c/= :: DescribeAlarmsResponse -> DescribeAlarmsResponse -> Bool
== :: DescribeAlarmsResponse -> DescribeAlarmsResponse -> Bool
$c== :: DescribeAlarmsResponse -> DescribeAlarmsResponse -> Bool
Prelude.Eq, ReadPrec [DescribeAlarmsResponse]
ReadPrec DescribeAlarmsResponse
Int -> ReadS DescribeAlarmsResponse
ReadS [DescribeAlarmsResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DescribeAlarmsResponse]
$creadListPrec :: ReadPrec [DescribeAlarmsResponse]
readPrec :: ReadPrec DescribeAlarmsResponse
$creadPrec :: ReadPrec DescribeAlarmsResponse
readList :: ReadS [DescribeAlarmsResponse]
$creadList :: ReadS [DescribeAlarmsResponse]
readsPrec :: Int -> ReadS DescribeAlarmsResponse
$creadsPrec :: Int -> ReadS DescribeAlarmsResponse
Prelude.Read, Int -> DescribeAlarmsResponse -> ShowS
[DescribeAlarmsResponse] -> ShowS
DescribeAlarmsResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DescribeAlarmsResponse] -> ShowS
$cshowList :: [DescribeAlarmsResponse] -> ShowS
show :: DescribeAlarmsResponse -> String
$cshow :: DescribeAlarmsResponse -> String
showsPrec :: Int -> DescribeAlarmsResponse -> ShowS
$cshowsPrec :: Int -> DescribeAlarmsResponse -> ShowS
Prelude.Show, forall x. Rep DescribeAlarmsResponse x -> DescribeAlarmsResponse
forall x. DescribeAlarmsResponse -> Rep DescribeAlarmsResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep DescribeAlarmsResponse x -> DescribeAlarmsResponse
$cfrom :: forall x. DescribeAlarmsResponse -> Rep DescribeAlarmsResponse x
Prelude.Generic)
newDescribeAlarmsResponse ::
Prelude.Int ->
DescribeAlarmsResponse
newDescribeAlarmsResponse :: Int -> DescribeAlarmsResponse
newDescribeAlarmsResponse Int
pHttpStatus_ =
DescribeAlarmsResponse'
{ $sel:compositeAlarms:DescribeAlarmsResponse' :: Maybe [CompositeAlarm]
compositeAlarms =
forall a. Maybe a
Prelude.Nothing,
$sel:metricAlarms:DescribeAlarmsResponse' :: Maybe [MetricAlarm]
metricAlarms = forall a. Maybe a
Prelude.Nothing,
$sel:nextToken:DescribeAlarmsResponse' :: Maybe Text
nextToken = forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:DescribeAlarmsResponse' :: Int
httpStatus = Int
pHttpStatus_
}
describeAlarmsResponse_compositeAlarms :: Lens.Lens' DescribeAlarmsResponse (Prelude.Maybe [CompositeAlarm])
describeAlarmsResponse_compositeAlarms :: Lens' DescribeAlarmsResponse (Maybe [CompositeAlarm])
describeAlarmsResponse_compositeAlarms = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeAlarmsResponse' {Maybe [CompositeAlarm]
compositeAlarms :: Maybe [CompositeAlarm]
$sel:compositeAlarms:DescribeAlarmsResponse' :: DescribeAlarmsResponse -> Maybe [CompositeAlarm]
compositeAlarms} -> Maybe [CompositeAlarm]
compositeAlarms) (\s :: DescribeAlarmsResponse
s@DescribeAlarmsResponse' {} Maybe [CompositeAlarm]
a -> DescribeAlarmsResponse
s {$sel:compositeAlarms:DescribeAlarmsResponse' :: Maybe [CompositeAlarm]
compositeAlarms = Maybe [CompositeAlarm]
a} :: DescribeAlarmsResponse) 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
describeAlarmsResponse_metricAlarms :: Lens.Lens' DescribeAlarmsResponse (Prelude.Maybe [MetricAlarm])
describeAlarmsResponse_metricAlarms :: Lens' DescribeAlarmsResponse (Maybe [MetricAlarm])
describeAlarmsResponse_metricAlarms = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeAlarmsResponse' {Maybe [MetricAlarm]
metricAlarms :: Maybe [MetricAlarm]
$sel:metricAlarms:DescribeAlarmsResponse' :: DescribeAlarmsResponse -> Maybe [MetricAlarm]
metricAlarms} -> Maybe [MetricAlarm]
metricAlarms) (\s :: DescribeAlarmsResponse
s@DescribeAlarmsResponse' {} Maybe [MetricAlarm]
a -> DescribeAlarmsResponse
s {$sel:metricAlarms:DescribeAlarmsResponse' :: Maybe [MetricAlarm]
metricAlarms = Maybe [MetricAlarm]
a} :: DescribeAlarmsResponse) 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
describeAlarmsResponse_nextToken :: Lens.Lens' DescribeAlarmsResponse (Prelude.Maybe Prelude.Text)
describeAlarmsResponse_nextToken :: Lens' DescribeAlarmsResponse (Maybe Text)
describeAlarmsResponse_nextToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeAlarmsResponse' {Maybe Text
nextToken :: Maybe Text
$sel:nextToken:DescribeAlarmsResponse' :: DescribeAlarmsResponse -> Maybe Text
nextToken} -> Maybe Text
nextToken) (\s :: DescribeAlarmsResponse
s@DescribeAlarmsResponse' {} Maybe Text
a -> DescribeAlarmsResponse
s {$sel:nextToken:DescribeAlarmsResponse' :: Maybe Text
nextToken = Maybe Text
a} :: DescribeAlarmsResponse)
describeAlarmsResponse_httpStatus :: Lens.Lens' DescribeAlarmsResponse Prelude.Int
describeAlarmsResponse_httpStatus :: Lens' DescribeAlarmsResponse Int
describeAlarmsResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeAlarmsResponse' {Int
httpStatus :: Int
$sel:httpStatus:DescribeAlarmsResponse' :: DescribeAlarmsResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: DescribeAlarmsResponse
s@DescribeAlarmsResponse' {} Int
a -> DescribeAlarmsResponse
s {$sel:httpStatus:DescribeAlarmsResponse' :: Int
httpStatus = Int
a} :: DescribeAlarmsResponse)
instance Prelude.NFData DescribeAlarmsResponse where
rnf :: DescribeAlarmsResponse -> ()
rnf DescribeAlarmsResponse' {Int
Maybe [CompositeAlarm]
Maybe [MetricAlarm]
Maybe Text
httpStatus :: Int
nextToken :: Maybe Text
metricAlarms :: Maybe [MetricAlarm]
compositeAlarms :: Maybe [CompositeAlarm]
$sel:httpStatus:DescribeAlarmsResponse' :: DescribeAlarmsResponse -> Int
$sel:nextToken:DescribeAlarmsResponse' :: DescribeAlarmsResponse -> Maybe Text
$sel:metricAlarms:DescribeAlarmsResponse' :: DescribeAlarmsResponse -> Maybe [MetricAlarm]
$sel:compositeAlarms:DescribeAlarmsResponse' :: DescribeAlarmsResponse -> Maybe [CompositeAlarm]
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe [CompositeAlarm]
compositeAlarms
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [MetricAlarm]
metricAlarms
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