{-# 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.PutCompositeAlarm
(
PutCompositeAlarm (..),
newPutCompositeAlarm,
putCompositeAlarm_actionsEnabled,
putCompositeAlarm_actionsSuppressor,
putCompositeAlarm_actionsSuppressorExtensionPeriod,
putCompositeAlarm_actionsSuppressorWaitPeriod,
putCompositeAlarm_alarmActions,
putCompositeAlarm_alarmDescription,
putCompositeAlarm_insufficientDataActions,
putCompositeAlarm_oKActions,
putCompositeAlarm_tags,
putCompositeAlarm_alarmName,
putCompositeAlarm_alarmRule,
PutCompositeAlarmResponse (..),
newPutCompositeAlarmResponse,
)
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 PutCompositeAlarm = PutCompositeAlarm'
{
PutCompositeAlarm -> Maybe Bool
actionsEnabled :: Prelude.Maybe Prelude.Bool,
PutCompositeAlarm -> Maybe Text
actionsSuppressor :: Prelude.Maybe Prelude.Text,
PutCompositeAlarm -> Maybe Int
actionsSuppressorExtensionPeriod :: Prelude.Maybe Prelude.Int,
PutCompositeAlarm -> Maybe Int
actionsSuppressorWaitPeriod :: Prelude.Maybe Prelude.Int,
PutCompositeAlarm -> Maybe [Text]
alarmActions :: Prelude.Maybe [Prelude.Text],
PutCompositeAlarm -> Maybe Text
alarmDescription :: Prelude.Maybe Prelude.Text,
PutCompositeAlarm -> Maybe [Text]
insufficientDataActions :: Prelude.Maybe [Prelude.Text],
PutCompositeAlarm -> Maybe [Text]
oKActions :: Prelude.Maybe [Prelude.Text],
PutCompositeAlarm -> Maybe [Tag]
tags :: Prelude.Maybe [Tag],
PutCompositeAlarm -> Text
alarmName :: Prelude.Text,
PutCompositeAlarm -> Text
alarmRule :: Prelude.Text
}
deriving (PutCompositeAlarm -> PutCompositeAlarm -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PutCompositeAlarm -> PutCompositeAlarm -> Bool
$c/= :: PutCompositeAlarm -> PutCompositeAlarm -> Bool
== :: PutCompositeAlarm -> PutCompositeAlarm -> Bool
$c== :: PutCompositeAlarm -> PutCompositeAlarm -> Bool
Prelude.Eq, ReadPrec [PutCompositeAlarm]
ReadPrec PutCompositeAlarm
Int -> ReadS PutCompositeAlarm
ReadS [PutCompositeAlarm]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [PutCompositeAlarm]
$creadListPrec :: ReadPrec [PutCompositeAlarm]
readPrec :: ReadPrec PutCompositeAlarm
$creadPrec :: ReadPrec PutCompositeAlarm
readList :: ReadS [PutCompositeAlarm]
$creadList :: ReadS [PutCompositeAlarm]
readsPrec :: Int -> ReadS PutCompositeAlarm
$creadsPrec :: Int -> ReadS PutCompositeAlarm
Prelude.Read, Int -> PutCompositeAlarm -> ShowS
[PutCompositeAlarm] -> ShowS
PutCompositeAlarm -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PutCompositeAlarm] -> ShowS
$cshowList :: [PutCompositeAlarm] -> ShowS
show :: PutCompositeAlarm -> String
$cshow :: PutCompositeAlarm -> String
showsPrec :: Int -> PutCompositeAlarm -> ShowS
$cshowsPrec :: Int -> PutCompositeAlarm -> ShowS
Prelude.Show, forall x. Rep PutCompositeAlarm x -> PutCompositeAlarm
forall x. PutCompositeAlarm -> Rep PutCompositeAlarm x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep PutCompositeAlarm x -> PutCompositeAlarm
$cfrom :: forall x. PutCompositeAlarm -> Rep PutCompositeAlarm x
Prelude.Generic)
newPutCompositeAlarm ::
Prelude.Text ->
Prelude.Text ->
PutCompositeAlarm
newPutCompositeAlarm :: Text -> Text -> PutCompositeAlarm
newPutCompositeAlarm Text
pAlarmName_ Text
pAlarmRule_ =
PutCompositeAlarm'
{ $sel:actionsEnabled:PutCompositeAlarm' :: Maybe Bool
actionsEnabled =
forall a. Maybe a
Prelude.Nothing,
$sel:actionsSuppressor:PutCompositeAlarm' :: Maybe Text
actionsSuppressor = forall a. Maybe a
Prelude.Nothing,
$sel:actionsSuppressorExtensionPeriod:PutCompositeAlarm' :: Maybe Int
actionsSuppressorExtensionPeriod = forall a. Maybe a
Prelude.Nothing,
$sel:actionsSuppressorWaitPeriod:PutCompositeAlarm' :: Maybe Int
actionsSuppressorWaitPeriod = forall a. Maybe a
Prelude.Nothing,
$sel:alarmActions:PutCompositeAlarm' :: Maybe [Text]
alarmActions = forall a. Maybe a
Prelude.Nothing,
$sel:alarmDescription:PutCompositeAlarm' :: Maybe Text
alarmDescription = forall a. Maybe a
Prelude.Nothing,
$sel:insufficientDataActions:PutCompositeAlarm' :: Maybe [Text]
insufficientDataActions = forall a. Maybe a
Prelude.Nothing,
$sel:oKActions:PutCompositeAlarm' :: Maybe [Text]
oKActions = forall a. Maybe a
Prelude.Nothing,
$sel:tags:PutCompositeAlarm' :: Maybe [Tag]
tags = forall a. Maybe a
Prelude.Nothing,
$sel:alarmName:PutCompositeAlarm' :: Text
alarmName = Text
pAlarmName_,
$sel:alarmRule:PutCompositeAlarm' :: Text
alarmRule = Text
pAlarmRule_
}
putCompositeAlarm_actionsEnabled :: Lens.Lens' PutCompositeAlarm (Prelude.Maybe Prelude.Bool)
putCompositeAlarm_actionsEnabled :: Lens' PutCompositeAlarm (Maybe Bool)
putCompositeAlarm_actionsEnabled = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutCompositeAlarm' {Maybe Bool
actionsEnabled :: Maybe Bool
$sel:actionsEnabled:PutCompositeAlarm' :: PutCompositeAlarm -> Maybe Bool
actionsEnabled} -> Maybe Bool
actionsEnabled) (\s :: PutCompositeAlarm
s@PutCompositeAlarm' {} Maybe Bool
a -> PutCompositeAlarm
s {$sel:actionsEnabled:PutCompositeAlarm' :: Maybe Bool
actionsEnabled = Maybe Bool
a} :: PutCompositeAlarm)
putCompositeAlarm_actionsSuppressor :: Lens.Lens' PutCompositeAlarm (Prelude.Maybe Prelude.Text)
putCompositeAlarm_actionsSuppressor :: Lens' PutCompositeAlarm (Maybe Text)
putCompositeAlarm_actionsSuppressor = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutCompositeAlarm' {Maybe Text
actionsSuppressor :: Maybe Text
$sel:actionsSuppressor:PutCompositeAlarm' :: PutCompositeAlarm -> Maybe Text
actionsSuppressor} -> Maybe Text
actionsSuppressor) (\s :: PutCompositeAlarm
s@PutCompositeAlarm' {} Maybe Text
a -> PutCompositeAlarm
s {$sel:actionsSuppressor:PutCompositeAlarm' :: Maybe Text
actionsSuppressor = Maybe Text
a} :: PutCompositeAlarm)
putCompositeAlarm_actionsSuppressorExtensionPeriod :: Lens.Lens' PutCompositeAlarm (Prelude.Maybe Prelude.Int)
putCompositeAlarm_actionsSuppressorExtensionPeriod :: Lens' PutCompositeAlarm (Maybe Int)
putCompositeAlarm_actionsSuppressorExtensionPeriod = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutCompositeAlarm' {Maybe Int
actionsSuppressorExtensionPeriod :: Maybe Int
$sel:actionsSuppressorExtensionPeriod:PutCompositeAlarm' :: PutCompositeAlarm -> Maybe Int
actionsSuppressorExtensionPeriod} -> Maybe Int
actionsSuppressorExtensionPeriod) (\s :: PutCompositeAlarm
s@PutCompositeAlarm' {} Maybe Int
a -> PutCompositeAlarm
s {$sel:actionsSuppressorExtensionPeriod:PutCompositeAlarm' :: Maybe Int
actionsSuppressorExtensionPeriod = Maybe Int
a} :: PutCompositeAlarm)
putCompositeAlarm_actionsSuppressorWaitPeriod :: Lens.Lens' PutCompositeAlarm (Prelude.Maybe Prelude.Int)
putCompositeAlarm_actionsSuppressorWaitPeriod :: Lens' PutCompositeAlarm (Maybe Int)
putCompositeAlarm_actionsSuppressorWaitPeriod = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutCompositeAlarm' {Maybe Int
actionsSuppressorWaitPeriod :: Maybe Int
$sel:actionsSuppressorWaitPeriod:PutCompositeAlarm' :: PutCompositeAlarm -> Maybe Int
actionsSuppressorWaitPeriod} -> Maybe Int
actionsSuppressorWaitPeriod) (\s :: PutCompositeAlarm
s@PutCompositeAlarm' {} Maybe Int
a -> PutCompositeAlarm
s {$sel:actionsSuppressorWaitPeriod:PutCompositeAlarm' :: Maybe Int
actionsSuppressorWaitPeriod = Maybe Int
a} :: PutCompositeAlarm)
putCompositeAlarm_alarmActions :: Lens.Lens' PutCompositeAlarm (Prelude.Maybe [Prelude.Text])
putCompositeAlarm_alarmActions :: Lens' PutCompositeAlarm (Maybe [Text])
putCompositeAlarm_alarmActions = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutCompositeAlarm' {Maybe [Text]
alarmActions :: Maybe [Text]
$sel:alarmActions:PutCompositeAlarm' :: PutCompositeAlarm -> Maybe [Text]
alarmActions} -> Maybe [Text]
alarmActions) (\s :: PutCompositeAlarm
s@PutCompositeAlarm' {} Maybe [Text]
a -> PutCompositeAlarm
s {$sel:alarmActions:PutCompositeAlarm' :: Maybe [Text]
alarmActions = Maybe [Text]
a} :: PutCompositeAlarm) 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
putCompositeAlarm_alarmDescription :: Lens.Lens' PutCompositeAlarm (Prelude.Maybe Prelude.Text)
putCompositeAlarm_alarmDescription :: Lens' PutCompositeAlarm (Maybe Text)
putCompositeAlarm_alarmDescription = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutCompositeAlarm' {Maybe Text
alarmDescription :: Maybe Text
$sel:alarmDescription:PutCompositeAlarm' :: PutCompositeAlarm -> Maybe Text
alarmDescription} -> Maybe Text
alarmDescription) (\s :: PutCompositeAlarm
s@PutCompositeAlarm' {} Maybe Text
a -> PutCompositeAlarm
s {$sel:alarmDescription:PutCompositeAlarm' :: Maybe Text
alarmDescription = Maybe Text
a} :: PutCompositeAlarm)
putCompositeAlarm_insufficientDataActions :: Lens.Lens' PutCompositeAlarm (Prelude.Maybe [Prelude.Text])
putCompositeAlarm_insufficientDataActions :: Lens' PutCompositeAlarm (Maybe [Text])
putCompositeAlarm_insufficientDataActions = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutCompositeAlarm' {Maybe [Text]
insufficientDataActions :: Maybe [Text]
$sel:insufficientDataActions:PutCompositeAlarm' :: PutCompositeAlarm -> Maybe [Text]
insufficientDataActions} -> Maybe [Text]
insufficientDataActions) (\s :: PutCompositeAlarm
s@PutCompositeAlarm' {} Maybe [Text]
a -> PutCompositeAlarm
s {$sel:insufficientDataActions:PutCompositeAlarm' :: Maybe [Text]
insufficientDataActions = Maybe [Text]
a} :: PutCompositeAlarm) 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
putCompositeAlarm_oKActions :: Lens.Lens' PutCompositeAlarm (Prelude.Maybe [Prelude.Text])
putCompositeAlarm_oKActions :: Lens' PutCompositeAlarm (Maybe [Text])
putCompositeAlarm_oKActions = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutCompositeAlarm' {Maybe [Text]
oKActions :: Maybe [Text]
$sel:oKActions:PutCompositeAlarm' :: PutCompositeAlarm -> Maybe [Text]
oKActions} -> Maybe [Text]
oKActions) (\s :: PutCompositeAlarm
s@PutCompositeAlarm' {} Maybe [Text]
a -> PutCompositeAlarm
s {$sel:oKActions:PutCompositeAlarm' :: Maybe [Text]
oKActions = Maybe [Text]
a} :: PutCompositeAlarm) 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
putCompositeAlarm_tags :: Lens.Lens' PutCompositeAlarm (Prelude.Maybe [Tag])
putCompositeAlarm_tags :: Lens' PutCompositeAlarm (Maybe [Tag])
putCompositeAlarm_tags = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutCompositeAlarm' {Maybe [Tag]
tags :: Maybe [Tag]
$sel:tags:PutCompositeAlarm' :: PutCompositeAlarm -> Maybe [Tag]
tags} -> Maybe [Tag]
tags) (\s :: PutCompositeAlarm
s@PutCompositeAlarm' {} Maybe [Tag]
a -> PutCompositeAlarm
s {$sel:tags:PutCompositeAlarm' :: Maybe [Tag]
tags = Maybe [Tag]
a} :: PutCompositeAlarm) 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
putCompositeAlarm_alarmName :: Lens.Lens' PutCompositeAlarm Prelude.Text
putCompositeAlarm_alarmName :: Lens' PutCompositeAlarm Text
putCompositeAlarm_alarmName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutCompositeAlarm' {Text
alarmName :: Text
$sel:alarmName:PutCompositeAlarm' :: PutCompositeAlarm -> Text
alarmName} -> Text
alarmName) (\s :: PutCompositeAlarm
s@PutCompositeAlarm' {} Text
a -> PutCompositeAlarm
s {$sel:alarmName:PutCompositeAlarm' :: Text
alarmName = Text
a} :: PutCompositeAlarm)
putCompositeAlarm_alarmRule :: Lens.Lens' PutCompositeAlarm Prelude.Text
putCompositeAlarm_alarmRule :: Lens' PutCompositeAlarm Text
putCompositeAlarm_alarmRule = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutCompositeAlarm' {Text
alarmRule :: Text
$sel:alarmRule:PutCompositeAlarm' :: PutCompositeAlarm -> Text
alarmRule} -> Text
alarmRule) (\s :: PutCompositeAlarm
s@PutCompositeAlarm' {} Text
a -> PutCompositeAlarm
s {$sel:alarmRule:PutCompositeAlarm' :: Text
alarmRule = Text
a} :: PutCompositeAlarm)
instance Core.AWSRequest PutCompositeAlarm where
type
AWSResponse PutCompositeAlarm =
PutCompositeAlarmResponse
request :: (Service -> Service)
-> PutCompositeAlarm -> Request PutCompositeAlarm
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 PutCompositeAlarm
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse PutCompositeAlarm)))
response =
forall (m :: * -> *) a.
MonadResource m =>
AWSResponse a
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveNull PutCompositeAlarmResponse
PutCompositeAlarmResponse'
instance Prelude.Hashable PutCompositeAlarm where
hashWithSalt :: Int -> PutCompositeAlarm -> Int
hashWithSalt Int
_salt PutCompositeAlarm' {Maybe Bool
Maybe Int
Maybe [Text]
Maybe [Tag]
Maybe Text
Text
alarmRule :: Text
alarmName :: Text
tags :: Maybe [Tag]
oKActions :: Maybe [Text]
insufficientDataActions :: Maybe [Text]
alarmDescription :: Maybe Text
alarmActions :: Maybe [Text]
actionsSuppressorWaitPeriod :: Maybe Int
actionsSuppressorExtensionPeriod :: Maybe Int
actionsSuppressor :: Maybe Text
actionsEnabled :: Maybe Bool
$sel:alarmRule:PutCompositeAlarm' :: PutCompositeAlarm -> Text
$sel:alarmName:PutCompositeAlarm' :: PutCompositeAlarm -> Text
$sel:tags:PutCompositeAlarm' :: PutCompositeAlarm -> Maybe [Tag]
$sel:oKActions:PutCompositeAlarm' :: PutCompositeAlarm -> Maybe [Text]
$sel:insufficientDataActions:PutCompositeAlarm' :: PutCompositeAlarm -> Maybe [Text]
$sel:alarmDescription:PutCompositeAlarm' :: PutCompositeAlarm -> Maybe Text
$sel:alarmActions:PutCompositeAlarm' :: PutCompositeAlarm -> Maybe [Text]
$sel:actionsSuppressorWaitPeriod:PutCompositeAlarm' :: PutCompositeAlarm -> Maybe Int
$sel:actionsSuppressorExtensionPeriod:PutCompositeAlarm' :: PutCompositeAlarm -> Maybe Int
$sel:actionsSuppressor:PutCompositeAlarm' :: PutCompositeAlarm -> Maybe Text
$sel:actionsEnabled:PutCompositeAlarm' :: PutCompositeAlarm -> Maybe Bool
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Bool
actionsEnabled
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
actionsSuppressor
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Int
actionsSuppressorExtensionPeriod
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Int
actionsSuppressorWaitPeriod
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [Text]
alarmActions
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
alarmDescription
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [Text]
insufficientDataActions
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [Text]
oKActions
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [Tag]
tags
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
alarmName
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
alarmRule
instance Prelude.NFData PutCompositeAlarm where
rnf :: PutCompositeAlarm -> ()
rnf PutCompositeAlarm' {Maybe Bool
Maybe Int
Maybe [Text]
Maybe [Tag]
Maybe Text
Text
alarmRule :: Text
alarmName :: Text
tags :: Maybe [Tag]
oKActions :: Maybe [Text]
insufficientDataActions :: Maybe [Text]
alarmDescription :: Maybe Text
alarmActions :: Maybe [Text]
actionsSuppressorWaitPeriod :: Maybe Int
actionsSuppressorExtensionPeriod :: Maybe Int
actionsSuppressor :: Maybe Text
actionsEnabled :: Maybe Bool
$sel:alarmRule:PutCompositeAlarm' :: PutCompositeAlarm -> Text
$sel:alarmName:PutCompositeAlarm' :: PutCompositeAlarm -> Text
$sel:tags:PutCompositeAlarm' :: PutCompositeAlarm -> Maybe [Tag]
$sel:oKActions:PutCompositeAlarm' :: PutCompositeAlarm -> Maybe [Text]
$sel:insufficientDataActions:PutCompositeAlarm' :: PutCompositeAlarm -> Maybe [Text]
$sel:alarmDescription:PutCompositeAlarm' :: PutCompositeAlarm -> Maybe Text
$sel:alarmActions:PutCompositeAlarm' :: PutCompositeAlarm -> Maybe [Text]
$sel:actionsSuppressorWaitPeriod:PutCompositeAlarm' :: PutCompositeAlarm -> Maybe Int
$sel:actionsSuppressorExtensionPeriod:PutCompositeAlarm' :: PutCompositeAlarm -> Maybe Int
$sel:actionsSuppressor:PutCompositeAlarm' :: PutCompositeAlarm -> Maybe Text
$sel:actionsEnabled:PutCompositeAlarm' :: PutCompositeAlarm -> Maybe Bool
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Bool
actionsEnabled
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
actionsSuppressor
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Int
actionsSuppressorExtensionPeriod
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Int
actionsSuppressorWaitPeriod
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [Text]
alarmActions
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
alarmDescription
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [Text]
insufficientDataActions
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [Text]
oKActions
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [Tag]
tags
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
alarmName
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
alarmRule
instance Data.ToHeaders PutCompositeAlarm where
toHeaders :: PutCompositeAlarm -> [Header]
toHeaders = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
instance Data.ToPath PutCompositeAlarm where
toPath :: PutCompositeAlarm -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery PutCompositeAlarm where
toQuery :: PutCompositeAlarm -> QueryString
toQuery PutCompositeAlarm' {Maybe Bool
Maybe Int
Maybe [Text]
Maybe [Tag]
Maybe Text
Text
alarmRule :: Text
alarmName :: Text
tags :: Maybe [Tag]
oKActions :: Maybe [Text]
insufficientDataActions :: Maybe [Text]
alarmDescription :: Maybe Text
alarmActions :: Maybe [Text]
actionsSuppressorWaitPeriod :: Maybe Int
actionsSuppressorExtensionPeriod :: Maybe Int
actionsSuppressor :: Maybe Text
actionsEnabled :: Maybe Bool
$sel:alarmRule:PutCompositeAlarm' :: PutCompositeAlarm -> Text
$sel:alarmName:PutCompositeAlarm' :: PutCompositeAlarm -> Text
$sel:tags:PutCompositeAlarm' :: PutCompositeAlarm -> Maybe [Tag]
$sel:oKActions:PutCompositeAlarm' :: PutCompositeAlarm -> Maybe [Text]
$sel:insufficientDataActions:PutCompositeAlarm' :: PutCompositeAlarm -> Maybe [Text]
$sel:alarmDescription:PutCompositeAlarm' :: PutCompositeAlarm -> Maybe Text
$sel:alarmActions:PutCompositeAlarm' :: PutCompositeAlarm -> Maybe [Text]
$sel:actionsSuppressorWaitPeriod:PutCompositeAlarm' :: PutCompositeAlarm -> Maybe Int
$sel:actionsSuppressorExtensionPeriod:PutCompositeAlarm' :: PutCompositeAlarm -> Maybe Int
$sel:actionsSuppressor:PutCompositeAlarm' :: PutCompositeAlarm -> Maybe Text
$sel:actionsEnabled:PutCompositeAlarm' :: PutCompositeAlarm -> Maybe Bool
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"Action"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: (ByteString
"PutCompositeAlarm" :: Prelude.ByteString),
ByteString
"Version"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: (ByteString
"2010-08-01" :: Prelude.ByteString),
ByteString
"ActionsEnabled" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Bool
actionsEnabled,
ByteString
"ActionsSuppressor" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
actionsSuppressor,
ByteString
"ActionsSuppressorExtensionPeriod"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Int
actionsSuppressorExtensionPeriod,
ByteString
"ActionsSuppressorWaitPeriod"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Int
actionsSuppressorWaitPeriod,
ByteString
"AlarmActions"
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]
alarmActions),
ByteString
"AlarmDescription" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
alarmDescription,
ByteString
"InsufficientDataActions"
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]
insufficientDataActions
),
ByteString
"OKActions"
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]
oKActions),
ByteString
"Tags"
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 [Tag]
tags),
ByteString
"AlarmName" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Text
alarmName,
ByteString
"AlarmRule" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Text
alarmRule
]
data PutCompositeAlarmResponse = PutCompositeAlarmResponse'
{
}
deriving (PutCompositeAlarmResponse -> PutCompositeAlarmResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PutCompositeAlarmResponse -> PutCompositeAlarmResponse -> Bool
$c/= :: PutCompositeAlarmResponse -> PutCompositeAlarmResponse -> Bool
== :: PutCompositeAlarmResponse -> PutCompositeAlarmResponse -> Bool
$c== :: PutCompositeAlarmResponse -> PutCompositeAlarmResponse -> Bool
Prelude.Eq, ReadPrec [PutCompositeAlarmResponse]
ReadPrec PutCompositeAlarmResponse
Int -> ReadS PutCompositeAlarmResponse
ReadS [PutCompositeAlarmResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [PutCompositeAlarmResponse]
$creadListPrec :: ReadPrec [PutCompositeAlarmResponse]
readPrec :: ReadPrec PutCompositeAlarmResponse
$creadPrec :: ReadPrec PutCompositeAlarmResponse
readList :: ReadS [PutCompositeAlarmResponse]
$creadList :: ReadS [PutCompositeAlarmResponse]
readsPrec :: Int -> ReadS PutCompositeAlarmResponse
$creadsPrec :: Int -> ReadS PutCompositeAlarmResponse
Prelude.Read, Int -> PutCompositeAlarmResponse -> ShowS
[PutCompositeAlarmResponse] -> ShowS
PutCompositeAlarmResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PutCompositeAlarmResponse] -> ShowS
$cshowList :: [PutCompositeAlarmResponse] -> ShowS
show :: PutCompositeAlarmResponse -> String
$cshow :: PutCompositeAlarmResponse -> String
showsPrec :: Int -> PutCompositeAlarmResponse -> ShowS
$cshowsPrec :: Int -> PutCompositeAlarmResponse -> ShowS
Prelude.Show, forall x.
Rep PutCompositeAlarmResponse x -> PutCompositeAlarmResponse
forall x.
PutCompositeAlarmResponse -> Rep PutCompositeAlarmResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep PutCompositeAlarmResponse x -> PutCompositeAlarmResponse
$cfrom :: forall x.
PutCompositeAlarmResponse -> Rep PutCompositeAlarmResponse x
Prelude.Generic)
newPutCompositeAlarmResponse ::
PutCompositeAlarmResponse
newPutCompositeAlarmResponse :: PutCompositeAlarmResponse
newPutCompositeAlarmResponse =
PutCompositeAlarmResponse
PutCompositeAlarmResponse'
instance Prelude.NFData PutCompositeAlarmResponse where
rnf :: PutCompositeAlarmResponse -> ()
rnf PutCompositeAlarmResponse
_ = ()