{-# 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.DescribeMaintenanceWindowTasks
(
describeMaintenanceWindowTasks
, DescribeMaintenanceWindowTasks
, dFilters
, dNextToken
, dMaxResults
, dWindowId
, describeMaintenanceWindowTasksResponse
, DescribeMaintenanceWindowTasksResponse
, dmwtsrsTasks
, dmwtsrsNextToken
, dmwtsrsResponseStatus
) 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 DescribeMaintenanceWindowTasks = DescribeMaintenanceWindowTasks'
{ _dFilters :: !(Maybe [MaintenanceWindowFilter])
, _dNextToken :: !(Maybe Text)
, _dMaxResults :: !(Maybe Nat)
, _dWindowId :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
describeMaintenanceWindowTasks
:: Text
-> DescribeMaintenanceWindowTasks
describeMaintenanceWindowTasks pWindowId_ =
DescribeMaintenanceWindowTasks'
{ _dFilters = Nothing
, _dNextToken = Nothing
, _dMaxResults = Nothing
, _dWindowId = pWindowId_
}
dFilters :: Lens' DescribeMaintenanceWindowTasks [MaintenanceWindowFilter]
dFilters = lens _dFilters (\ s a -> s{_dFilters = a}) . _Default . _Coerce
dNextToken :: Lens' DescribeMaintenanceWindowTasks (Maybe Text)
dNextToken = lens _dNextToken (\ s a -> s{_dNextToken = a})
dMaxResults :: Lens' DescribeMaintenanceWindowTasks (Maybe Natural)
dMaxResults = lens _dMaxResults (\ s a -> s{_dMaxResults = a}) . mapping _Nat
dWindowId :: Lens' DescribeMaintenanceWindowTasks Text
dWindowId = lens _dWindowId (\ s a -> s{_dWindowId = a})
instance AWSRequest DescribeMaintenanceWindowTasks
where
type Rs DescribeMaintenanceWindowTasks =
DescribeMaintenanceWindowTasksResponse
request = postJSON ssm
response
= receiveJSON
(\ s h x ->
DescribeMaintenanceWindowTasksResponse' <$>
(x .?> "Tasks" .!@ mempty) <*> (x .?> "NextToken")
<*> (pure (fromEnum s)))
instance Hashable DescribeMaintenanceWindowTasks
where
instance NFData DescribeMaintenanceWindowTasks where
instance ToHeaders DescribeMaintenanceWindowTasks
where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("AmazonSSM.DescribeMaintenanceWindowTasks" ::
ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON DescribeMaintenanceWindowTasks where
toJSON DescribeMaintenanceWindowTasks'{..}
= object
(catMaybes
[("Filters" .=) <$> _dFilters,
("NextToken" .=) <$> _dNextToken,
("MaxResults" .=) <$> _dMaxResults,
Just ("WindowId" .= _dWindowId)])
instance ToPath DescribeMaintenanceWindowTasks where
toPath = const "/"
instance ToQuery DescribeMaintenanceWindowTasks where
toQuery = const mempty
data DescribeMaintenanceWindowTasksResponse = DescribeMaintenanceWindowTasksResponse'
{ _dmwtsrsTasks :: !(Maybe [MaintenanceWindowTask])
, _dmwtsrsNextToken :: !(Maybe Text)
, _dmwtsrsResponseStatus :: !Int
} deriving (Eq, Show, Data, Typeable, Generic)
describeMaintenanceWindowTasksResponse
:: Int
-> DescribeMaintenanceWindowTasksResponse
describeMaintenanceWindowTasksResponse pResponseStatus_ =
DescribeMaintenanceWindowTasksResponse'
{ _dmwtsrsTasks = Nothing
, _dmwtsrsNextToken = Nothing
, _dmwtsrsResponseStatus = pResponseStatus_
}
dmwtsrsTasks :: Lens' DescribeMaintenanceWindowTasksResponse [MaintenanceWindowTask]
dmwtsrsTasks = lens _dmwtsrsTasks (\ s a -> s{_dmwtsrsTasks = a}) . _Default . _Coerce
dmwtsrsNextToken :: Lens' DescribeMaintenanceWindowTasksResponse (Maybe Text)
dmwtsrsNextToken = lens _dmwtsrsNextToken (\ s a -> s{_dmwtsrsNextToken = a})
dmwtsrsResponseStatus :: Lens' DescribeMaintenanceWindowTasksResponse Int
dmwtsrsResponseStatus = lens _dmwtsrsResponseStatus (\ s a -> s{_dmwtsrsResponseStatus = a})
instance NFData
DescribeMaintenanceWindowTasksResponse
where