{-# 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.DescribeMaintenanceWindowExecutionTaskInvocations
(
describeMaintenanceWindowExecutionTaskInvocations
, DescribeMaintenanceWindowExecutionTaskInvocations
, dmwetiFilters
, dmwetiNextToken
, dmwetiMaxResults
, dmwetiWindowExecutionId
, dmwetiTaskId
, describeMaintenanceWindowExecutionTaskInvocationsResponse
, DescribeMaintenanceWindowExecutionTaskInvocationsResponse
, dmwetirsWindowExecutionTaskInvocationIdentities
, dmwetirsNextToken
, dmwetirsResponseStatus
) 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 DescribeMaintenanceWindowExecutionTaskInvocations = DescribeMaintenanceWindowExecutionTaskInvocations'
{ _dmwetiFilters :: !(Maybe [MaintenanceWindowFilter])
, _dmwetiNextToken :: !(Maybe Text)
, _dmwetiMaxResults :: !(Maybe Nat)
, _dmwetiWindowExecutionId :: !Text
, _dmwetiTaskId :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
describeMaintenanceWindowExecutionTaskInvocations
:: Text
-> Text
-> DescribeMaintenanceWindowExecutionTaskInvocations
describeMaintenanceWindowExecutionTaskInvocations pWindowExecutionId_ pTaskId_ =
DescribeMaintenanceWindowExecutionTaskInvocations'
{ _dmwetiFilters = Nothing
, _dmwetiNextToken = Nothing
, _dmwetiMaxResults = Nothing
, _dmwetiWindowExecutionId = pWindowExecutionId_
, _dmwetiTaskId = pTaskId_
}
dmwetiFilters :: Lens' DescribeMaintenanceWindowExecutionTaskInvocations [MaintenanceWindowFilter]
dmwetiFilters = lens _dmwetiFilters (\ s a -> s{_dmwetiFilters = a}) . _Default . _Coerce
dmwetiNextToken :: Lens' DescribeMaintenanceWindowExecutionTaskInvocations (Maybe Text)
dmwetiNextToken = lens _dmwetiNextToken (\ s a -> s{_dmwetiNextToken = a})
dmwetiMaxResults :: Lens' DescribeMaintenanceWindowExecutionTaskInvocations (Maybe Natural)
dmwetiMaxResults = lens _dmwetiMaxResults (\ s a -> s{_dmwetiMaxResults = a}) . mapping _Nat
dmwetiWindowExecutionId :: Lens' DescribeMaintenanceWindowExecutionTaskInvocations Text
dmwetiWindowExecutionId = lens _dmwetiWindowExecutionId (\ s a -> s{_dmwetiWindowExecutionId = a})
dmwetiTaskId :: Lens' DescribeMaintenanceWindowExecutionTaskInvocations Text
dmwetiTaskId = lens _dmwetiTaskId (\ s a -> s{_dmwetiTaskId = a})
instance AWSRequest
DescribeMaintenanceWindowExecutionTaskInvocations
where
type Rs
DescribeMaintenanceWindowExecutionTaskInvocations
=
DescribeMaintenanceWindowExecutionTaskInvocationsResponse
request = postJSON ssm
response
= receiveJSON
(\ s h x ->
DescribeMaintenanceWindowExecutionTaskInvocationsResponse'
<$>
(x .?> "WindowExecutionTaskInvocationIdentities" .!@
mempty)
<*> (x .?> "NextToken")
<*> (pure (fromEnum s)))
instance Hashable
DescribeMaintenanceWindowExecutionTaskInvocations
where
instance NFData
DescribeMaintenanceWindowExecutionTaskInvocations
where
instance ToHeaders
DescribeMaintenanceWindowExecutionTaskInvocations
where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("AmazonSSM.DescribeMaintenanceWindowExecutionTaskInvocations"
:: ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON
DescribeMaintenanceWindowExecutionTaskInvocations
where
toJSON
DescribeMaintenanceWindowExecutionTaskInvocations'{..}
= object
(catMaybes
[("Filters" .=) <$> _dmwetiFilters,
("NextToken" .=) <$> _dmwetiNextToken,
("MaxResults" .=) <$> _dmwetiMaxResults,
Just
("WindowExecutionId" .= _dmwetiWindowExecutionId),
Just ("TaskId" .= _dmwetiTaskId)])
instance ToPath
DescribeMaintenanceWindowExecutionTaskInvocations
where
toPath = const "/"
instance ToQuery
DescribeMaintenanceWindowExecutionTaskInvocations
where
toQuery = const mempty
data DescribeMaintenanceWindowExecutionTaskInvocationsResponse = DescribeMaintenanceWindowExecutionTaskInvocationsResponse'
{ _dmwetirsWindowExecutionTaskInvocationIdentities :: !(Maybe [MaintenanceWindowExecutionTaskInvocationIdentity])
, _dmwetirsNextToken :: !(Maybe Text)
, _dmwetirsResponseStatus :: !Int
} deriving (Eq, Show, Data, Typeable, Generic)
describeMaintenanceWindowExecutionTaskInvocationsResponse
:: Int
-> DescribeMaintenanceWindowExecutionTaskInvocationsResponse
describeMaintenanceWindowExecutionTaskInvocationsResponse pResponseStatus_ =
DescribeMaintenanceWindowExecutionTaskInvocationsResponse'
{ _dmwetirsWindowExecutionTaskInvocationIdentities = Nothing
, _dmwetirsNextToken = Nothing
, _dmwetirsResponseStatus = pResponseStatus_
}
dmwetirsWindowExecutionTaskInvocationIdentities :: Lens' DescribeMaintenanceWindowExecutionTaskInvocationsResponse [MaintenanceWindowExecutionTaskInvocationIdentity]
dmwetirsWindowExecutionTaskInvocationIdentities = lens _dmwetirsWindowExecutionTaskInvocationIdentities (\ s a -> s{_dmwetirsWindowExecutionTaskInvocationIdentities = a}) . _Default . _Coerce
dmwetirsNextToken :: Lens' DescribeMaintenanceWindowExecutionTaskInvocationsResponse (Maybe Text)
dmwetirsNextToken = lens _dmwetirsNextToken (\ s a -> s{_dmwetirsNextToken = a})
dmwetirsResponseStatus :: Lens' DescribeMaintenanceWindowExecutionTaskInvocationsResponse Int
dmwetirsResponseStatus = lens _dmwetirsResponseStatus (\ s a -> s{_dmwetirsResponseStatus = a})
instance NFData
DescribeMaintenanceWindowExecutionTaskInvocationsResponse
where