{-# 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.RegisterTargetWithMaintenanceWindow
(
registerTargetWithMaintenanceWindow
, RegisterTargetWithMaintenanceWindow
, rClientToken
, rOwnerInformation
, rName
, rDescription
, rWindowId
, rResourceType
, rTargets
, registerTargetWithMaintenanceWindowResponse
, RegisterTargetWithMaintenanceWindowResponse
, rrsWindowTargetId
, rrsResponseStatus
) 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 RegisterTargetWithMaintenanceWindow = RegisterTargetWithMaintenanceWindow'
{ _rClientToken :: !(Maybe Text)
, _rOwnerInformation :: !(Maybe (Sensitive Text))
, _rName :: !(Maybe Text)
, _rDescription :: !(Maybe (Sensitive Text))
, _rWindowId :: !Text
, _rResourceType :: !MaintenanceWindowResourceType
, _rTargets :: ![Target]
} deriving (Eq, Show, Data, Typeable, Generic)
registerTargetWithMaintenanceWindow
:: Text
-> MaintenanceWindowResourceType
-> RegisterTargetWithMaintenanceWindow
registerTargetWithMaintenanceWindow pWindowId_ pResourceType_ =
RegisterTargetWithMaintenanceWindow'
{ _rClientToken = Nothing
, _rOwnerInformation = Nothing
, _rName = Nothing
, _rDescription = Nothing
, _rWindowId = pWindowId_
, _rResourceType = pResourceType_
, _rTargets = mempty
}
rClientToken :: Lens' RegisterTargetWithMaintenanceWindow (Maybe Text)
rClientToken = lens _rClientToken (\ s a -> s{_rClientToken = a})
rOwnerInformation :: Lens' RegisterTargetWithMaintenanceWindow (Maybe Text)
rOwnerInformation = lens _rOwnerInformation (\ s a -> s{_rOwnerInformation = a}) . mapping _Sensitive
rName :: Lens' RegisterTargetWithMaintenanceWindow (Maybe Text)
rName = lens _rName (\ s a -> s{_rName = a})
rDescription :: Lens' RegisterTargetWithMaintenanceWindow (Maybe Text)
rDescription = lens _rDescription (\ s a -> s{_rDescription = a}) . mapping _Sensitive
rWindowId :: Lens' RegisterTargetWithMaintenanceWindow Text
rWindowId = lens _rWindowId (\ s a -> s{_rWindowId = a})
rResourceType :: Lens' RegisterTargetWithMaintenanceWindow MaintenanceWindowResourceType
rResourceType = lens _rResourceType (\ s a -> s{_rResourceType = a})
rTargets :: Lens' RegisterTargetWithMaintenanceWindow [Target]
rTargets = lens _rTargets (\ s a -> s{_rTargets = a}) . _Coerce
instance AWSRequest
RegisterTargetWithMaintenanceWindow
where
type Rs RegisterTargetWithMaintenanceWindow =
RegisterTargetWithMaintenanceWindowResponse
request = postJSON ssm
response
= receiveJSON
(\ s h x ->
RegisterTargetWithMaintenanceWindowResponse' <$>
(x .?> "WindowTargetId") <*> (pure (fromEnum s)))
instance Hashable RegisterTargetWithMaintenanceWindow
where
instance NFData RegisterTargetWithMaintenanceWindow
where
instance ToHeaders
RegisterTargetWithMaintenanceWindow
where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("AmazonSSM.RegisterTargetWithMaintenanceWindow" ::
ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON RegisterTargetWithMaintenanceWindow
where
toJSON RegisterTargetWithMaintenanceWindow'{..}
= object
(catMaybes
[("ClientToken" .=) <$> _rClientToken,
("OwnerInformation" .=) <$> _rOwnerInformation,
("Name" .=) <$> _rName,
("Description" .=) <$> _rDescription,
Just ("WindowId" .= _rWindowId),
Just ("ResourceType" .= _rResourceType),
Just ("Targets" .= _rTargets)])
instance ToPath RegisterTargetWithMaintenanceWindow
where
toPath = const "/"
instance ToQuery RegisterTargetWithMaintenanceWindow
where
toQuery = const mempty
data RegisterTargetWithMaintenanceWindowResponse = RegisterTargetWithMaintenanceWindowResponse'
{ _rrsWindowTargetId :: !(Maybe Text)
, _rrsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
registerTargetWithMaintenanceWindowResponse
:: Int
-> RegisterTargetWithMaintenanceWindowResponse
registerTargetWithMaintenanceWindowResponse pResponseStatus_ =
RegisterTargetWithMaintenanceWindowResponse'
{_rrsWindowTargetId = Nothing, _rrsResponseStatus = pResponseStatus_}
rrsWindowTargetId :: Lens' RegisterTargetWithMaintenanceWindowResponse (Maybe Text)
rrsWindowTargetId = lens _rrsWindowTargetId (\ s a -> s{_rrsWindowTargetId = a})
rrsResponseStatus :: Lens' RegisterTargetWithMaintenanceWindowResponse Int
rrsResponseStatus = lens _rrsResponseStatus (\ s a -> s{_rrsResponseStatus = a})
instance NFData
RegisterTargetWithMaintenanceWindowResponse
where