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