{-# 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.DescribeAutomationExecutions
(
describeAutomationExecutions
, DescribeAutomationExecutions
, daeFilters
, daeNextToken
, daeMaxResults
, describeAutomationExecutionsResponse
, DescribeAutomationExecutionsResponse
, daersNextToken
, daersAutomationExecutionMetadataList
, daersResponseStatus
) 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 DescribeAutomationExecutions = DescribeAutomationExecutions'
{ _daeFilters :: !(Maybe (List1 AutomationExecutionFilter))
, _daeNextToken :: !(Maybe Text)
, _daeMaxResults :: !(Maybe Nat)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
describeAutomationExecutions
:: DescribeAutomationExecutions
describeAutomationExecutions =
DescribeAutomationExecutions'
{_daeFilters = Nothing, _daeNextToken = Nothing, _daeMaxResults = Nothing}
daeFilters :: Lens' DescribeAutomationExecutions (Maybe (NonEmpty AutomationExecutionFilter))
daeFilters = lens _daeFilters (\ s a -> s{_daeFilters = a}) . mapping _List1
daeNextToken :: Lens' DescribeAutomationExecutions (Maybe Text)
daeNextToken = lens _daeNextToken (\ s a -> s{_daeNextToken = a})
daeMaxResults :: Lens' DescribeAutomationExecutions (Maybe Natural)
daeMaxResults = lens _daeMaxResults (\ s a -> s{_daeMaxResults = a}) . mapping _Nat
instance AWSRequest DescribeAutomationExecutions
where
type Rs DescribeAutomationExecutions =
DescribeAutomationExecutionsResponse
request = postJSON ssm
response
= receiveJSON
(\ s h x ->
DescribeAutomationExecutionsResponse' <$>
(x .?> "NextToken") <*>
(x .?> "AutomationExecutionMetadataList" .!@ mempty)
<*> (pure (fromEnum s)))
instance Hashable DescribeAutomationExecutions where
instance NFData DescribeAutomationExecutions where
instance ToHeaders DescribeAutomationExecutions where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("AmazonSSM.DescribeAutomationExecutions" ::
ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON DescribeAutomationExecutions where
toJSON DescribeAutomationExecutions'{..}
= object
(catMaybes
[("Filters" .=) <$> _daeFilters,
("NextToken" .=) <$> _daeNextToken,
("MaxResults" .=) <$> _daeMaxResults])
instance ToPath DescribeAutomationExecutions where
toPath = const "/"
instance ToQuery DescribeAutomationExecutions where
toQuery = const mempty
data DescribeAutomationExecutionsResponse = DescribeAutomationExecutionsResponse'
{ _daersNextToken :: !(Maybe Text)
, _daersAutomationExecutionMetadataList :: !(Maybe [AutomationExecutionMetadata])
, _daersResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
describeAutomationExecutionsResponse
:: Int
-> DescribeAutomationExecutionsResponse
describeAutomationExecutionsResponse pResponseStatus_ =
DescribeAutomationExecutionsResponse'
{ _daersNextToken = Nothing
, _daersAutomationExecutionMetadataList = Nothing
, _daersResponseStatus = pResponseStatus_
}
daersNextToken :: Lens' DescribeAutomationExecutionsResponse (Maybe Text)
daersNextToken = lens _daersNextToken (\ s a -> s{_daersNextToken = a})
daersAutomationExecutionMetadataList :: Lens' DescribeAutomationExecutionsResponse [AutomationExecutionMetadata]
daersAutomationExecutionMetadataList = lens _daersAutomationExecutionMetadataList (\ s a -> s{_daersAutomationExecutionMetadataList = a}) . _Default . _Coerce
daersResponseStatus :: Lens' DescribeAutomationExecutionsResponse Int
daersResponseStatus = lens _daersResponseStatus (\ s a -> s{_daersResponseStatus = a})
instance NFData DescribeAutomationExecutionsResponse
where