{-# 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.GetMaintenanceWindowExecutionTask
(
getMaintenanceWindowExecutionTask
, GetMaintenanceWindowExecutionTask
, gmwetWindowExecutionId
, gmwetTaskId
, getMaintenanceWindowExecutionTaskResponse
, GetMaintenanceWindowExecutionTaskResponse
, gmwetrsStatus
, gmwetrsTaskParameters
, gmwetrsTaskExecutionId
, gmwetrsPriority
, gmwetrsStartTime
, gmwetrsTaskARN
, gmwetrsWindowExecutionId
, gmwetrsStatusDetails
, gmwetrsMaxErrors
, gmwetrsEndTime
, gmwetrsType
, gmwetrsMaxConcurrency
, gmwetrsServiceRole
, gmwetrsResponseStatus
) 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 GetMaintenanceWindowExecutionTask = GetMaintenanceWindowExecutionTask'
{ _gmwetWindowExecutionId :: !Text
, _gmwetTaskId :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
getMaintenanceWindowExecutionTask
:: Text
-> Text
-> GetMaintenanceWindowExecutionTask
getMaintenanceWindowExecutionTask pWindowExecutionId_ pTaskId_ =
GetMaintenanceWindowExecutionTask'
{_gmwetWindowExecutionId = pWindowExecutionId_, _gmwetTaskId = pTaskId_}
gmwetWindowExecutionId :: Lens' GetMaintenanceWindowExecutionTask Text
gmwetWindowExecutionId = lens _gmwetWindowExecutionId (\ s a -> s{_gmwetWindowExecutionId = a})
gmwetTaskId :: Lens' GetMaintenanceWindowExecutionTask Text
gmwetTaskId = lens _gmwetTaskId (\ s a -> s{_gmwetTaskId = a})
instance AWSRequest GetMaintenanceWindowExecutionTask
where
type Rs GetMaintenanceWindowExecutionTask =
GetMaintenanceWindowExecutionTaskResponse
request = postJSON ssm
response
= receiveJSON
(\ s h x ->
GetMaintenanceWindowExecutionTaskResponse' <$>
(x .?> "Status") <*>
(x .?> "TaskParameters" .!@ mempty)
<*> (x .?> "TaskExecutionId")
<*> (x .?> "Priority")
<*> (x .?> "StartTime")
<*> (x .?> "TaskArn")
<*> (x .?> "WindowExecutionId")
<*> (x .?> "StatusDetails")
<*> (x .?> "MaxErrors")
<*> (x .?> "EndTime")
<*> (x .?> "Type")
<*> (x .?> "MaxConcurrency")
<*> (x .?> "ServiceRole")
<*> (pure (fromEnum s)))
instance Hashable GetMaintenanceWindowExecutionTask
where
instance NFData GetMaintenanceWindowExecutionTask
where
instance ToHeaders GetMaintenanceWindowExecutionTask
where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("AmazonSSM.GetMaintenanceWindowExecutionTask" ::
ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON GetMaintenanceWindowExecutionTask
where
toJSON GetMaintenanceWindowExecutionTask'{..}
= object
(catMaybes
[Just
("WindowExecutionId" .= _gmwetWindowExecutionId),
Just ("TaskId" .= _gmwetTaskId)])
instance ToPath GetMaintenanceWindowExecutionTask
where
toPath = const "/"
instance ToQuery GetMaintenanceWindowExecutionTask
where
toQuery = const mempty
data GetMaintenanceWindowExecutionTaskResponse = GetMaintenanceWindowExecutionTaskResponse'
{ _gmwetrsStatus :: !(Maybe MaintenanceWindowExecutionStatus)
, _gmwetrsTaskParameters :: !(Maybe (Sensitive [Sensitive (Map Text (Sensitive MaintenanceWindowTaskParameterValueExpression))]))
, _gmwetrsTaskExecutionId :: !(Maybe Text)
, _gmwetrsPriority :: !(Maybe Nat)
, _gmwetrsStartTime :: !(Maybe POSIX)
, _gmwetrsTaskARN :: !(Maybe Text)
, _gmwetrsWindowExecutionId :: !(Maybe Text)
, _gmwetrsStatusDetails :: !(Maybe Text)
, _gmwetrsMaxErrors :: !(Maybe Text)
, _gmwetrsEndTime :: !(Maybe POSIX)
, _gmwetrsType :: !(Maybe MaintenanceWindowTaskType)
, _gmwetrsMaxConcurrency :: !(Maybe Text)
, _gmwetrsServiceRole :: !(Maybe Text)
, _gmwetrsResponseStatus :: !Int
} deriving (Eq, Show, Data, Typeable, Generic)
getMaintenanceWindowExecutionTaskResponse
:: Int
-> GetMaintenanceWindowExecutionTaskResponse
getMaintenanceWindowExecutionTaskResponse pResponseStatus_ =
GetMaintenanceWindowExecutionTaskResponse'
{ _gmwetrsStatus = Nothing
, _gmwetrsTaskParameters = Nothing
, _gmwetrsTaskExecutionId = Nothing
, _gmwetrsPriority = Nothing
, _gmwetrsStartTime = Nothing
, _gmwetrsTaskARN = Nothing
, _gmwetrsWindowExecutionId = Nothing
, _gmwetrsStatusDetails = Nothing
, _gmwetrsMaxErrors = Nothing
, _gmwetrsEndTime = Nothing
, _gmwetrsType = Nothing
, _gmwetrsMaxConcurrency = Nothing
, _gmwetrsServiceRole = Nothing
, _gmwetrsResponseStatus = pResponseStatus_
}
gmwetrsStatus :: Lens' GetMaintenanceWindowExecutionTaskResponse (Maybe MaintenanceWindowExecutionStatus)
gmwetrsStatus = lens _gmwetrsStatus (\ s a -> s{_gmwetrsStatus = a})
gmwetrsTaskParameters :: Lens' GetMaintenanceWindowExecutionTaskResponse (Maybe [HashMap Text MaintenanceWindowTaskParameterValueExpression])
gmwetrsTaskParameters = lens _gmwetrsTaskParameters (\ s a -> s{_gmwetrsTaskParameters = a}) . mapping (_Sensitive . _Coerce)
gmwetrsTaskExecutionId :: Lens' GetMaintenanceWindowExecutionTaskResponse (Maybe Text)
gmwetrsTaskExecutionId = lens _gmwetrsTaskExecutionId (\ s a -> s{_gmwetrsTaskExecutionId = a})
gmwetrsPriority :: Lens' GetMaintenanceWindowExecutionTaskResponse (Maybe Natural)
gmwetrsPriority = lens _gmwetrsPriority (\ s a -> s{_gmwetrsPriority = a}) . mapping _Nat
gmwetrsStartTime :: Lens' GetMaintenanceWindowExecutionTaskResponse (Maybe UTCTime)
gmwetrsStartTime = lens _gmwetrsStartTime (\ s a -> s{_gmwetrsStartTime = a}) . mapping _Time
gmwetrsTaskARN :: Lens' GetMaintenanceWindowExecutionTaskResponse (Maybe Text)
gmwetrsTaskARN = lens _gmwetrsTaskARN (\ s a -> s{_gmwetrsTaskARN = a})
gmwetrsWindowExecutionId :: Lens' GetMaintenanceWindowExecutionTaskResponse (Maybe Text)
gmwetrsWindowExecutionId = lens _gmwetrsWindowExecutionId (\ s a -> s{_gmwetrsWindowExecutionId = a})
gmwetrsStatusDetails :: Lens' GetMaintenanceWindowExecutionTaskResponse (Maybe Text)
gmwetrsStatusDetails = lens _gmwetrsStatusDetails (\ s a -> s{_gmwetrsStatusDetails = a})
gmwetrsMaxErrors :: Lens' GetMaintenanceWindowExecutionTaskResponse (Maybe Text)
gmwetrsMaxErrors = lens _gmwetrsMaxErrors (\ s a -> s{_gmwetrsMaxErrors = a})
gmwetrsEndTime :: Lens' GetMaintenanceWindowExecutionTaskResponse (Maybe UTCTime)
gmwetrsEndTime = lens _gmwetrsEndTime (\ s a -> s{_gmwetrsEndTime = a}) . mapping _Time
gmwetrsType :: Lens' GetMaintenanceWindowExecutionTaskResponse (Maybe MaintenanceWindowTaskType)
gmwetrsType = lens _gmwetrsType (\ s a -> s{_gmwetrsType = a})
gmwetrsMaxConcurrency :: Lens' GetMaintenanceWindowExecutionTaskResponse (Maybe Text)
gmwetrsMaxConcurrency = lens _gmwetrsMaxConcurrency (\ s a -> s{_gmwetrsMaxConcurrency = a})
gmwetrsServiceRole :: Lens' GetMaintenanceWindowExecutionTaskResponse (Maybe Text)
gmwetrsServiceRole = lens _gmwetrsServiceRole (\ s a -> s{_gmwetrsServiceRole = a})
gmwetrsResponseStatus :: Lens' GetMaintenanceWindowExecutionTaskResponse Int
gmwetrsResponseStatus = lens _gmwetrsResponseStatus (\ s a -> s{_gmwetrsResponseStatus = a})
instance NFData
GetMaintenanceWindowExecutionTaskResponse
where