{-# 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.SSM.DeleteMaintenanceWindow
(
deleteMaintenanceWindow
, DeleteMaintenanceWindow
, dmwWindowId
, deleteMaintenanceWindowResponse
, DeleteMaintenanceWindowResponse
, dmwrsWindowId
, dmwrsResponseStatus
) where
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
import Network.AWS.SSM.Types
import Network.AWS.SSM.Types.Product
newtype DeleteMaintenanceWindow = DeleteMaintenanceWindow'
{ _dmwWindowId :: Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
deleteMaintenanceWindow
:: Text
-> DeleteMaintenanceWindow
deleteMaintenanceWindow pWindowId_ =
DeleteMaintenanceWindow' {_dmwWindowId = pWindowId_}
dmwWindowId :: Lens' DeleteMaintenanceWindow Text
dmwWindowId = lens _dmwWindowId (\ s a -> s{_dmwWindowId = a})
instance AWSRequest DeleteMaintenanceWindow where
type Rs DeleteMaintenanceWindow =
DeleteMaintenanceWindowResponse
request = postJSON ssm
response
= receiveJSON
(\ s h x ->
DeleteMaintenanceWindowResponse' <$>
(x .?> "WindowId") <*> (pure (fromEnum s)))
instance Hashable DeleteMaintenanceWindow where
instance NFData DeleteMaintenanceWindow where
instance ToHeaders DeleteMaintenanceWindow where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("AmazonSSM.DeleteMaintenanceWindow" :: ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON DeleteMaintenanceWindow where
toJSON DeleteMaintenanceWindow'{..}
= object
(catMaybes [Just ("WindowId" .= _dmwWindowId)])
instance ToPath DeleteMaintenanceWindow where
toPath = const "/"
instance ToQuery DeleteMaintenanceWindow where
toQuery = const mempty
data DeleteMaintenanceWindowResponse = DeleteMaintenanceWindowResponse'
{ _dmwrsWindowId :: !(Maybe Text)
, _dmwrsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
deleteMaintenanceWindowResponse
:: Int
-> DeleteMaintenanceWindowResponse
deleteMaintenanceWindowResponse pResponseStatus_ =
DeleteMaintenanceWindowResponse'
{_dmwrsWindowId = Nothing, _dmwrsResponseStatus = pResponseStatus_}
dmwrsWindowId :: Lens' DeleteMaintenanceWindowResponse (Maybe Text)
dmwrsWindowId = lens _dmwrsWindowId (\ s a -> s{_dmwrsWindowId = a})
dmwrsResponseStatus :: Lens' DeleteMaintenanceWindowResponse Int
dmwrsResponseStatus = lens _dmwrsResponseStatus (\ s a -> s{_dmwrsResponseStatus = a})
instance NFData DeleteMaintenanceWindowResponse where