{-# LANGUAGE DeriveDataTypeable #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE TypeFamilies #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
{-# OPTIONS_GHC -fno-warn-unused-binds #-}
{-# OPTIONS_GHC -fno-warn-unused-matches #-}
module Network.AWS.CloudWatch.DisableAlarmActions
(
disableAlarmActions
, DisableAlarmActions
, daaAlarmNames
, disableAlarmActionsResponse
, DisableAlarmActionsResponse
) where
import Network.AWS.CloudWatch.Types
import Network.AWS.CloudWatch.Types.Product
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
newtype DisableAlarmActions = DisableAlarmActions'
{ _daaAlarmNames :: [Text]
} deriving (Eq, Read, Show, Data, Typeable, Generic)
disableAlarmActions
:: DisableAlarmActions
disableAlarmActions = DisableAlarmActions' {_daaAlarmNames = mempty}
daaAlarmNames :: Lens' DisableAlarmActions [Text]
daaAlarmNames = lens _daaAlarmNames (\ s a -> s{_daaAlarmNames = a}) . _Coerce
instance AWSRequest DisableAlarmActions where
type Rs DisableAlarmActions =
DisableAlarmActionsResponse
request = postQuery cloudWatch
response = receiveNull DisableAlarmActionsResponse'
instance Hashable DisableAlarmActions where
instance NFData DisableAlarmActions where
instance ToHeaders DisableAlarmActions where
toHeaders = const mempty
instance ToPath DisableAlarmActions where
toPath = const "/"
instance ToQuery DisableAlarmActions where
toQuery DisableAlarmActions'{..}
= mconcat
["Action" =: ("DisableAlarmActions" :: ByteString),
"Version" =: ("2010-08-01" :: ByteString),
"AlarmNames" =: toQueryList "member" _daaAlarmNames]
data DisableAlarmActionsResponse =
DisableAlarmActionsResponse'
deriving (Eq, Read, Show, Data, Typeable, Generic)
disableAlarmActionsResponse
:: DisableAlarmActionsResponse
disableAlarmActionsResponse = DisableAlarmActionsResponse'
instance NFData DisableAlarmActionsResponse where