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