{-# 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.UpdateMaintenanceWindowTask
(
updateMaintenanceWindowTask
, UpdateMaintenanceWindowTask
, umwtServiceRoleARN
, umwtReplace
, umwtTaskParameters
, umwtPriority
, umwtTaskARN
, umwtMaxErrors
, umwtTaskInvocationParameters
, umwtName
, umwtTargets
, umwtLoggingInfo
, umwtDescription
, umwtMaxConcurrency
, umwtWindowId
, umwtWindowTaskId
, updateMaintenanceWindowTaskResponse
, UpdateMaintenanceWindowTaskResponse
, umwtrsServiceRoleARN
, umwtrsWindowTaskId
, umwtrsTaskParameters
, umwtrsPriority
, umwtrsTaskARN
, umwtrsMaxErrors
, umwtrsTaskInvocationParameters
, umwtrsName
, umwtrsTargets
, umwtrsLoggingInfo
, umwtrsDescription
, umwtrsMaxConcurrency
, umwtrsWindowId
, umwtrsResponseStatus
) 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 UpdateMaintenanceWindowTask = UpdateMaintenanceWindowTask'
{ _umwtServiceRoleARN :: !(Maybe Text)
, _umwtReplace :: !(Maybe Bool)
, _umwtTaskParameters :: !(Maybe (Sensitive (Map Text (Sensitive MaintenanceWindowTaskParameterValueExpression))))
, _umwtPriority :: !(Maybe Nat)
, _umwtTaskARN :: !(Maybe Text)
, _umwtMaxErrors :: !(Maybe Text)
, _umwtTaskInvocationParameters :: !(Maybe MaintenanceWindowTaskInvocationParameters)
, _umwtName :: !(Maybe Text)
, _umwtTargets :: !(Maybe [Target])
, _umwtLoggingInfo :: !(Maybe LoggingInfo)
, _umwtDescription :: !(Maybe (Sensitive Text))
, _umwtMaxConcurrency :: !(Maybe Text)
, _umwtWindowId :: !Text
, _umwtWindowTaskId :: !Text
} deriving (Eq, Show, Data, Typeable, Generic)
updateMaintenanceWindowTask
:: Text
-> Text
-> UpdateMaintenanceWindowTask
updateMaintenanceWindowTask pWindowId_ pWindowTaskId_ =
UpdateMaintenanceWindowTask'
{ _umwtServiceRoleARN = Nothing
, _umwtReplace = Nothing
, _umwtTaskParameters = Nothing
, _umwtPriority = Nothing
, _umwtTaskARN = Nothing
, _umwtMaxErrors = Nothing
, _umwtTaskInvocationParameters = Nothing
, _umwtName = Nothing
, _umwtTargets = Nothing
, _umwtLoggingInfo = Nothing
, _umwtDescription = Nothing
, _umwtMaxConcurrency = Nothing
, _umwtWindowId = pWindowId_
, _umwtWindowTaskId = pWindowTaskId_
}
umwtServiceRoleARN :: Lens' UpdateMaintenanceWindowTask (Maybe Text)
umwtServiceRoleARN = lens _umwtServiceRoleARN (\ s a -> s{_umwtServiceRoleARN = a})
umwtReplace :: Lens' UpdateMaintenanceWindowTask (Maybe Bool)
umwtReplace = lens _umwtReplace (\ s a -> s{_umwtReplace = a})
umwtTaskParameters :: Lens' UpdateMaintenanceWindowTask (Maybe (HashMap Text MaintenanceWindowTaskParameterValueExpression))
umwtTaskParameters = lens _umwtTaskParameters (\ s a -> s{_umwtTaskParameters = a}) . mapping (_Sensitive . _Map)
umwtPriority :: Lens' UpdateMaintenanceWindowTask (Maybe Natural)
umwtPriority = lens _umwtPriority (\ s a -> s{_umwtPriority = a}) . mapping _Nat
umwtTaskARN :: Lens' UpdateMaintenanceWindowTask (Maybe Text)
umwtTaskARN = lens _umwtTaskARN (\ s a -> s{_umwtTaskARN = a})
umwtMaxErrors :: Lens' UpdateMaintenanceWindowTask (Maybe Text)
umwtMaxErrors = lens _umwtMaxErrors (\ s a -> s{_umwtMaxErrors = a})
umwtTaskInvocationParameters :: Lens' UpdateMaintenanceWindowTask (Maybe MaintenanceWindowTaskInvocationParameters)
umwtTaskInvocationParameters = lens _umwtTaskInvocationParameters (\ s a -> s{_umwtTaskInvocationParameters = a})
umwtName :: Lens' UpdateMaintenanceWindowTask (Maybe Text)
umwtName = lens _umwtName (\ s a -> s{_umwtName = a})
umwtTargets :: Lens' UpdateMaintenanceWindowTask [Target]
umwtTargets = lens _umwtTargets (\ s a -> s{_umwtTargets = a}) . _Default . _Coerce
umwtLoggingInfo :: Lens' UpdateMaintenanceWindowTask (Maybe LoggingInfo)
umwtLoggingInfo = lens _umwtLoggingInfo (\ s a -> s{_umwtLoggingInfo = a})
umwtDescription :: Lens' UpdateMaintenanceWindowTask (Maybe Text)
umwtDescription = lens _umwtDescription (\ s a -> s{_umwtDescription = a}) . mapping _Sensitive
umwtMaxConcurrency :: Lens' UpdateMaintenanceWindowTask (Maybe Text)
umwtMaxConcurrency = lens _umwtMaxConcurrency (\ s a -> s{_umwtMaxConcurrency = a})
umwtWindowId :: Lens' UpdateMaintenanceWindowTask Text
umwtWindowId = lens _umwtWindowId (\ s a -> s{_umwtWindowId = a})
umwtWindowTaskId :: Lens' UpdateMaintenanceWindowTask Text
umwtWindowTaskId = lens _umwtWindowTaskId (\ s a -> s{_umwtWindowTaskId = a})
instance AWSRequest UpdateMaintenanceWindowTask where
type Rs UpdateMaintenanceWindowTask =
UpdateMaintenanceWindowTaskResponse
request = postJSON ssm
response
= receiveJSON
(\ s h x ->
UpdateMaintenanceWindowTaskResponse' <$>
(x .?> "ServiceRoleArn") <*> (x .?> "WindowTaskId")
<*> (x .?> "TaskParameters" .!@ mempty)
<*> (x .?> "Priority")
<*> (x .?> "TaskArn")
<*> (x .?> "MaxErrors")
<*> (x .?> "TaskInvocationParameters")
<*> (x .?> "Name")
<*> (x .?> "Targets" .!@ mempty)
<*> (x .?> "LoggingInfo")
<*> (x .?> "Description")
<*> (x .?> "MaxConcurrency")
<*> (x .?> "WindowId")
<*> (pure (fromEnum s)))
instance Hashable UpdateMaintenanceWindowTask where
instance NFData UpdateMaintenanceWindowTask where
instance ToHeaders UpdateMaintenanceWindowTask where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("AmazonSSM.UpdateMaintenanceWindowTask" ::
ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON UpdateMaintenanceWindowTask where
toJSON UpdateMaintenanceWindowTask'{..}
= object
(catMaybes
[("ServiceRoleArn" .=) <$> _umwtServiceRoleARN,
("Replace" .=) <$> _umwtReplace,
("TaskParameters" .=) <$> _umwtTaskParameters,
("Priority" .=) <$> _umwtPriority,
("TaskArn" .=) <$> _umwtTaskARN,
("MaxErrors" .=) <$> _umwtMaxErrors,
("TaskInvocationParameters" .=) <$>
_umwtTaskInvocationParameters,
("Name" .=) <$> _umwtName,
("Targets" .=) <$> _umwtTargets,
("LoggingInfo" .=) <$> _umwtLoggingInfo,
("Description" .=) <$> _umwtDescription,
("MaxConcurrency" .=) <$> _umwtMaxConcurrency,
Just ("WindowId" .= _umwtWindowId),
Just ("WindowTaskId" .= _umwtWindowTaskId)])
instance ToPath UpdateMaintenanceWindowTask where
toPath = const "/"
instance ToQuery UpdateMaintenanceWindowTask where
toQuery = const mempty
data UpdateMaintenanceWindowTaskResponse = UpdateMaintenanceWindowTaskResponse'
{ _umwtrsServiceRoleARN :: !(Maybe Text)
, _umwtrsWindowTaskId :: !(Maybe Text)
, _umwtrsTaskParameters :: !(Maybe (Sensitive (Map Text (Sensitive MaintenanceWindowTaskParameterValueExpression))))
, _umwtrsPriority :: !(Maybe Nat)
, _umwtrsTaskARN :: !(Maybe Text)
, _umwtrsMaxErrors :: !(Maybe Text)
, _umwtrsTaskInvocationParameters :: !(Maybe MaintenanceWindowTaskInvocationParameters)
, _umwtrsName :: !(Maybe Text)
, _umwtrsTargets :: !(Maybe [Target])
, _umwtrsLoggingInfo :: !(Maybe LoggingInfo)
, _umwtrsDescription :: !(Maybe (Sensitive Text))
, _umwtrsMaxConcurrency :: !(Maybe Text)
, _umwtrsWindowId :: !(Maybe Text)
, _umwtrsResponseStatus :: !Int
} deriving (Eq, Show, Data, Typeable, Generic)
updateMaintenanceWindowTaskResponse
:: Int
-> UpdateMaintenanceWindowTaskResponse
updateMaintenanceWindowTaskResponse pResponseStatus_ =
UpdateMaintenanceWindowTaskResponse'
{ _umwtrsServiceRoleARN = Nothing
, _umwtrsWindowTaskId = Nothing
, _umwtrsTaskParameters = Nothing
, _umwtrsPriority = Nothing
, _umwtrsTaskARN = Nothing
, _umwtrsMaxErrors = Nothing
, _umwtrsTaskInvocationParameters = Nothing
, _umwtrsName = Nothing
, _umwtrsTargets = Nothing
, _umwtrsLoggingInfo = Nothing
, _umwtrsDescription = Nothing
, _umwtrsMaxConcurrency = Nothing
, _umwtrsWindowId = Nothing
, _umwtrsResponseStatus = pResponseStatus_
}
umwtrsServiceRoleARN :: Lens' UpdateMaintenanceWindowTaskResponse (Maybe Text)
umwtrsServiceRoleARN = lens _umwtrsServiceRoleARN (\ s a -> s{_umwtrsServiceRoleARN = a})
umwtrsWindowTaskId :: Lens' UpdateMaintenanceWindowTaskResponse (Maybe Text)
umwtrsWindowTaskId = lens _umwtrsWindowTaskId (\ s a -> s{_umwtrsWindowTaskId = a})
umwtrsTaskParameters :: Lens' UpdateMaintenanceWindowTaskResponse (Maybe (HashMap Text MaintenanceWindowTaskParameterValueExpression))
umwtrsTaskParameters = lens _umwtrsTaskParameters (\ s a -> s{_umwtrsTaskParameters = a}) . mapping (_Sensitive . _Map)
umwtrsPriority :: Lens' UpdateMaintenanceWindowTaskResponse (Maybe Natural)
umwtrsPriority = lens _umwtrsPriority (\ s a -> s{_umwtrsPriority = a}) . mapping _Nat
umwtrsTaskARN :: Lens' UpdateMaintenanceWindowTaskResponse (Maybe Text)
umwtrsTaskARN = lens _umwtrsTaskARN (\ s a -> s{_umwtrsTaskARN = a})
umwtrsMaxErrors :: Lens' UpdateMaintenanceWindowTaskResponse (Maybe Text)
umwtrsMaxErrors = lens _umwtrsMaxErrors (\ s a -> s{_umwtrsMaxErrors = a})
umwtrsTaskInvocationParameters :: Lens' UpdateMaintenanceWindowTaskResponse (Maybe MaintenanceWindowTaskInvocationParameters)
umwtrsTaskInvocationParameters = lens _umwtrsTaskInvocationParameters (\ s a -> s{_umwtrsTaskInvocationParameters = a})
umwtrsName :: Lens' UpdateMaintenanceWindowTaskResponse (Maybe Text)
umwtrsName = lens _umwtrsName (\ s a -> s{_umwtrsName = a})
umwtrsTargets :: Lens' UpdateMaintenanceWindowTaskResponse [Target]
umwtrsTargets = lens _umwtrsTargets (\ s a -> s{_umwtrsTargets = a}) . _Default . _Coerce
umwtrsLoggingInfo :: Lens' UpdateMaintenanceWindowTaskResponse (Maybe LoggingInfo)
umwtrsLoggingInfo = lens _umwtrsLoggingInfo (\ s a -> s{_umwtrsLoggingInfo = a})
umwtrsDescription :: Lens' UpdateMaintenanceWindowTaskResponse (Maybe Text)
umwtrsDescription = lens _umwtrsDescription (\ s a -> s{_umwtrsDescription = a}) . mapping _Sensitive
umwtrsMaxConcurrency :: Lens' UpdateMaintenanceWindowTaskResponse (Maybe Text)
umwtrsMaxConcurrency = lens _umwtrsMaxConcurrency (\ s a -> s{_umwtrsMaxConcurrency = a})
umwtrsWindowId :: Lens' UpdateMaintenanceWindowTaskResponse (Maybe Text)
umwtrsWindowId = lens _umwtrsWindowId (\ s a -> s{_umwtrsWindowId = a})
umwtrsResponseStatus :: Lens' UpdateMaintenanceWindowTaskResponse Int
umwtrsResponseStatus = lens _umwtrsResponseStatus (\ s a -> s{_umwtrsResponseStatus = a})
instance NFData UpdateMaintenanceWindowTaskResponse
where