{-# 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.DeregisterTargetFromMaintenanceWindow
(
deregisterTargetFromMaintenanceWindow
, DeregisterTargetFromMaintenanceWindow
, dtfmwSafe
, dtfmwWindowId
, dtfmwWindowTargetId
, deregisterTargetFromMaintenanceWindowResponse
, DeregisterTargetFromMaintenanceWindowResponse
, dtfmwrsWindowTargetId
, dtfmwrsWindowId
, dtfmwrsResponseStatus
) 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 DeregisterTargetFromMaintenanceWindow = DeregisterTargetFromMaintenanceWindow'
{ _dtfmwSafe :: !(Maybe Bool)
, _dtfmwWindowId :: !Text
, _dtfmwWindowTargetId :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
deregisterTargetFromMaintenanceWindow
:: Text
-> Text
-> DeregisterTargetFromMaintenanceWindow
deregisterTargetFromMaintenanceWindow pWindowId_ pWindowTargetId_ =
DeregisterTargetFromMaintenanceWindow'
{ _dtfmwSafe = Nothing
, _dtfmwWindowId = pWindowId_
, _dtfmwWindowTargetId = pWindowTargetId_
}
dtfmwSafe :: Lens' DeregisterTargetFromMaintenanceWindow (Maybe Bool)
dtfmwSafe = lens _dtfmwSafe (\ s a -> s{_dtfmwSafe = a})
dtfmwWindowId :: Lens' DeregisterTargetFromMaintenanceWindow Text
dtfmwWindowId = lens _dtfmwWindowId (\ s a -> s{_dtfmwWindowId = a})
dtfmwWindowTargetId :: Lens' DeregisterTargetFromMaintenanceWindow Text
dtfmwWindowTargetId = lens _dtfmwWindowTargetId (\ s a -> s{_dtfmwWindowTargetId = a})
instance AWSRequest
DeregisterTargetFromMaintenanceWindow
where
type Rs DeregisterTargetFromMaintenanceWindow =
DeregisterTargetFromMaintenanceWindowResponse
request = postJSON ssm
response
= receiveJSON
(\ s h x ->
DeregisterTargetFromMaintenanceWindowResponse' <$>
(x .?> "WindowTargetId") <*> (x .?> "WindowId") <*>
(pure (fromEnum s)))
instance Hashable
DeregisterTargetFromMaintenanceWindow
where
instance NFData DeregisterTargetFromMaintenanceWindow
where
instance ToHeaders
DeregisterTargetFromMaintenanceWindow
where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("AmazonSSM.DeregisterTargetFromMaintenanceWindow" ::
ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON DeregisterTargetFromMaintenanceWindow
where
toJSON DeregisterTargetFromMaintenanceWindow'{..}
= object
(catMaybes
[("Safe" .=) <$> _dtfmwSafe,
Just ("WindowId" .= _dtfmwWindowId),
Just ("WindowTargetId" .= _dtfmwWindowTargetId)])
instance ToPath DeregisterTargetFromMaintenanceWindow
where
toPath = const "/"
instance ToQuery
DeregisterTargetFromMaintenanceWindow
where
toQuery = const mempty
data DeregisterTargetFromMaintenanceWindowResponse = DeregisterTargetFromMaintenanceWindowResponse'
{ _dtfmwrsWindowTargetId :: !(Maybe Text)
, _dtfmwrsWindowId :: !(Maybe Text)
, _dtfmwrsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
deregisterTargetFromMaintenanceWindowResponse
:: Int
-> DeregisterTargetFromMaintenanceWindowResponse
deregisterTargetFromMaintenanceWindowResponse pResponseStatus_ =
DeregisterTargetFromMaintenanceWindowResponse'
{ _dtfmwrsWindowTargetId = Nothing
, _dtfmwrsWindowId = Nothing
, _dtfmwrsResponseStatus = pResponseStatus_
}
dtfmwrsWindowTargetId :: Lens' DeregisterTargetFromMaintenanceWindowResponse (Maybe Text)
dtfmwrsWindowTargetId = lens _dtfmwrsWindowTargetId (\ s a -> s{_dtfmwrsWindowTargetId = a})
dtfmwrsWindowId :: Lens' DeregisterTargetFromMaintenanceWindowResponse (Maybe Text)
dtfmwrsWindowId = lens _dtfmwrsWindowId (\ s a -> s{_dtfmwrsWindowId = a})
dtfmwrsResponseStatus :: Lens' DeregisterTargetFromMaintenanceWindowResponse Int
dtfmwrsResponseStatus = lens _dtfmwrsResponseStatus (\ s a -> s{_dtfmwrsResponseStatus = a})
instance NFData
DeregisterTargetFromMaintenanceWindowResponse
where