module Network.AWS.SSM.DeregisterTaskFromMaintenanceWindow
(
deregisterTaskFromMaintenanceWindow
, DeregisterTaskFromMaintenanceWindow
, derWindowId
, derWindowTaskId
, deregisterTaskFromMaintenanceWindowResponse
, DeregisterTaskFromMaintenanceWindowResponse
, derrsWindowTaskId
, derrsWindowId
, derrsResponseStatus
) 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
data DeregisterTaskFromMaintenanceWindow = DeregisterTaskFromMaintenanceWindow'
{ _derWindowId :: !Text
, _derWindowTaskId :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
deregisterTaskFromMaintenanceWindow
:: Text
-> Text
-> DeregisterTaskFromMaintenanceWindow
deregisterTaskFromMaintenanceWindow pWindowId_ pWindowTaskId_ =
DeregisterTaskFromMaintenanceWindow'
{_derWindowId = pWindowId_, _derWindowTaskId = pWindowTaskId_}
derWindowId :: Lens' DeregisterTaskFromMaintenanceWindow Text
derWindowId = lens _derWindowId (\ s a -> s{_derWindowId = a});
derWindowTaskId :: Lens' DeregisterTaskFromMaintenanceWindow Text
derWindowTaskId = lens _derWindowTaskId (\ s a -> s{_derWindowTaskId = a});
instance AWSRequest
DeregisterTaskFromMaintenanceWindow
where
type Rs DeregisterTaskFromMaintenanceWindow =
DeregisterTaskFromMaintenanceWindowResponse
request = postJSON ssm
response
= receiveJSON
(\ s h x ->
DeregisterTaskFromMaintenanceWindowResponse' <$>
(x .?> "WindowTaskId") <*> (x .?> "WindowId") <*>
(pure (fromEnum s)))
instance Hashable DeregisterTaskFromMaintenanceWindow
where
instance NFData DeregisterTaskFromMaintenanceWindow
where
instance ToHeaders
DeregisterTaskFromMaintenanceWindow
where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("AmazonSSM.DeregisterTaskFromMaintenanceWindow" ::
ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON DeregisterTaskFromMaintenanceWindow
where
toJSON DeregisterTaskFromMaintenanceWindow'{..}
= object
(catMaybes
[Just ("WindowId" .= _derWindowId),
Just ("WindowTaskId" .= _derWindowTaskId)])
instance ToPath DeregisterTaskFromMaintenanceWindow
where
toPath = const "/"
instance ToQuery DeregisterTaskFromMaintenanceWindow
where
toQuery = const mempty
data DeregisterTaskFromMaintenanceWindowResponse = DeregisterTaskFromMaintenanceWindowResponse'
{ _derrsWindowTaskId :: !(Maybe Text)
, _derrsWindowId :: !(Maybe Text)
, _derrsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
deregisterTaskFromMaintenanceWindowResponse
:: Int
-> DeregisterTaskFromMaintenanceWindowResponse
deregisterTaskFromMaintenanceWindowResponse pResponseStatus_ =
DeregisterTaskFromMaintenanceWindowResponse'
{ _derrsWindowTaskId = Nothing
, _derrsWindowId = Nothing
, _derrsResponseStatus = pResponseStatus_
}
derrsWindowTaskId :: Lens' DeregisterTaskFromMaintenanceWindowResponse (Maybe Text)
derrsWindowTaskId = lens _derrsWindowTaskId (\ s a -> s{_derrsWindowTaskId = a});
derrsWindowId :: Lens' DeregisterTaskFromMaintenanceWindowResponse (Maybe Text)
derrsWindowId = lens _derrsWindowId (\ s a -> s{_derrsWindowId = a});
derrsResponseStatus :: Lens' DeregisterTaskFromMaintenanceWindowResponse Int
derrsResponseStatus = lens _derrsResponseStatus (\ s a -> s{_derrsResponseStatus = a});
instance NFData
DeregisterTaskFromMaintenanceWindowResponse
where