module Network.AWS.CloudWatch.DisableAlarmActions
(
DisableAlarmActions
, disableAlarmActions
, daaAlarmNames
, DisableAlarmActionsResponse
, disableAlarmActionsResponse
) where
import Network.AWS.Prelude
import Network.AWS.Request.Query
import Network.AWS.CloudWatch.Types
import qualified GHC.Exts
newtype DisableAlarmActions = DisableAlarmActions
{ _daaAlarmNames :: List "member" Text
} deriving (Eq, Ord, Read, Show, Monoid, Semigroup)
instance GHC.Exts.IsList DisableAlarmActions where
type Item DisableAlarmActions = Text
fromList = DisableAlarmActions . GHC.Exts.fromList
toList = GHC.Exts.toList . _daaAlarmNames
disableAlarmActions :: DisableAlarmActions
disableAlarmActions = DisableAlarmActions
{ _daaAlarmNames = mempty
}
daaAlarmNames :: Lens' DisableAlarmActions [Text]
daaAlarmNames = lens _daaAlarmNames (\s a -> s { _daaAlarmNames = a }) . _List
data DisableAlarmActionsResponse = DisableAlarmActionsResponse
deriving (Eq, Ord, Read, Show, Generic)
disableAlarmActionsResponse :: DisableAlarmActionsResponse
disableAlarmActionsResponse = DisableAlarmActionsResponse
instance ToPath DisableAlarmActions where
toPath = const "/"
instance ToQuery DisableAlarmActions where
toQuery DisableAlarmActions{..} = mconcat
[ "AlarmNames" =? _daaAlarmNames
]
instance ToHeaders DisableAlarmActions
instance AWSRequest DisableAlarmActions where
type Sv DisableAlarmActions = CloudWatch
type Rs DisableAlarmActions = DisableAlarmActionsResponse
request = post "DisableAlarmActions"
response = nullResponse DisableAlarmActionsResponse