{-# 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.DescribeMaintenanceWindowExecutionTasks
(
describeMaintenanceWindowExecutionTasks
, DescribeMaintenanceWindowExecutionTasks
, dmwetFilters
, dmwetNextToken
, dmwetMaxResults
, dmwetWindowExecutionId
, describeMaintenanceWindowExecutionTasksResponse
, DescribeMaintenanceWindowExecutionTasksResponse
, dmwetrsNextToken
, dmwetrsWindowExecutionTaskIdentities
, dmwetrsResponseStatus
) 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 DescribeMaintenanceWindowExecutionTasks = DescribeMaintenanceWindowExecutionTasks'
{ _dmwetFilters :: !(Maybe [MaintenanceWindowFilter])
, _dmwetNextToken :: !(Maybe Text)
, _dmwetMaxResults :: !(Maybe Nat)
, _dmwetWindowExecutionId :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
describeMaintenanceWindowExecutionTasks
:: Text
-> DescribeMaintenanceWindowExecutionTasks
describeMaintenanceWindowExecutionTasks pWindowExecutionId_ =
DescribeMaintenanceWindowExecutionTasks'
{ _dmwetFilters = Nothing
, _dmwetNextToken = Nothing
, _dmwetMaxResults = Nothing
, _dmwetWindowExecutionId = pWindowExecutionId_
}
dmwetFilters :: Lens' DescribeMaintenanceWindowExecutionTasks [MaintenanceWindowFilter]
dmwetFilters = lens _dmwetFilters (\ s a -> s{_dmwetFilters = a}) . _Default . _Coerce
dmwetNextToken :: Lens' DescribeMaintenanceWindowExecutionTasks (Maybe Text)
dmwetNextToken = lens _dmwetNextToken (\ s a -> s{_dmwetNextToken = a})
dmwetMaxResults :: Lens' DescribeMaintenanceWindowExecutionTasks (Maybe Natural)
dmwetMaxResults = lens _dmwetMaxResults (\ s a -> s{_dmwetMaxResults = a}) . mapping _Nat
dmwetWindowExecutionId :: Lens' DescribeMaintenanceWindowExecutionTasks Text
dmwetWindowExecutionId = lens _dmwetWindowExecutionId (\ s a -> s{_dmwetWindowExecutionId = a})
instance AWSRequest
DescribeMaintenanceWindowExecutionTasks
where
type Rs DescribeMaintenanceWindowExecutionTasks =
DescribeMaintenanceWindowExecutionTasksResponse
request = postJSON ssm
response
= receiveJSON
(\ s h x ->
DescribeMaintenanceWindowExecutionTasksResponse' <$>
(x .?> "NextToken") <*>
(x .?> "WindowExecutionTaskIdentities" .!@ mempty)
<*> (pure (fromEnum s)))
instance Hashable
DescribeMaintenanceWindowExecutionTasks
where
instance NFData
DescribeMaintenanceWindowExecutionTasks
where
instance ToHeaders
DescribeMaintenanceWindowExecutionTasks
where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("AmazonSSM.DescribeMaintenanceWindowExecutionTasks"
:: ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON
DescribeMaintenanceWindowExecutionTasks
where
toJSON DescribeMaintenanceWindowExecutionTasks'{..}
= object
(catMaybes
[("Filters" .=) <$> _dmwetFilters,
("NextToken" .=) <$> _dmwetNextToken,
("MaxResults" .=) <$> _dmwetMaxResults,
Just
("WindowExecutionId" .= _dmwetWindowExecutionId)])
instance ToPath
DescribeMaintenanceWindowExecutionTasks
where
toPath = const "/"
instance ToQuery
DescribeMaintenanceWindowExecutionTasks
where
toQuery = const mempty
data DescribeMaintenanceWindowExecutionTasksResponse = DescribeMaintenanceWindowExecutionTasksResponse'
{ _dmwetrsNextToken :: !(Maybe Text)
, _dmwetrsWindowExecutionTaskIdentities :: !(Maybe [MaintenanceWindowExecutionTaskIdentity])
, _dmwetrsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
describeMaintenanceWindowExecutionTasksResponse
:: Int
-> DescribeMaintenanceWindowExecutionTasksResponse
describeMaintenanceWindowExecutionTasksResponse pResponseStatus_ =
DescribeMaintenanceWindowExecutionTasksResponse'
{ _dmwetrsNextToken = Nothing
, _dmwetrsWindowExecutionTaskIdentities = Nothing
, _dmwetrsResponseStatus = pResponseStatus_
}
dmwetrsNextToken :: Lens' DescribeMaintenanceWindowExecutionTasksResponse (Maybe Text)
dmwetrsNextToken = lens _dmwetrsNextToken (\ s a -> s{_dmwetrsNextToken = a})
dmwetrsWindowExecutionTaskIdentities :: Lens' DescribeMaintenanceWindowExecutionTasksResponse [MaintenanceWindowExecutionTaskIdentity]
dmwetrsWindowExecutionTaskIdentities = lens _dmwetrsWindowExecutionTaskIdentities (\ s a -> s{_dmwetrsWindowExecutionTaskIdentities = a}) . _Default . _Coerce
dmwetrsResponseStatus :: Lens' DescribeMaintenanceWindowExecutionTasksResponse Int
dmwetrsResponseStatus = lens _dmwetrsResponseStatus (\ s a -> s{_dmwetrsResponseStatus = a})
instance NFData
DescribeMaintenanceWindowExecutionTasksResponse
where