{-# 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.DescribeMaintenanceWindowTargets
(
describeMaintenanceWindowTargets
, DescribeMaintenanceWindowTargets
, dmwtFilters
, dmwtNextToken
, dmwtMaxResults
, dmwtWindowId
, describeMaintenanceWindowTargetsResponse
, DescribeMaintenanceWindowTargetsResponse
, dmwtrsNextToken
, dmwtrsTargets
, dmwtrsResponseStatus
) 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 DescribeMaintenanceWindowTargets = DescribeMaintenanceWindowTargets'
{ _dmwtFilters :: !(Maybe [MaintenanceWindowFilter])
, _dmwtNextToken :: !(Maybe Text)
, _dmwtMaxResults :: !(Maybe Nat)
, _dmwtWindowId :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
describeMaintenanceWindowTargets
:: Text
-> DescribeMaintenanceWindowTargets
describeMaintenanceWindowTargets pWindowId_ =
DescribeMaintenanceWindowTargets'
{ _dmwtFilters = Nothing
, _dmwtNextToken = Nothing
, _dmwtMaxResults = Nothing
, _dmwtWindowId = pWindowId_
}
dmwtFilters :: Lens' DescribeMaintenanceWindowTargets [MaintenanceWindowFilter]
dmwtFilters = lens _dmwtFilters (\ s a -> s{_dmwtFilters = a}) . _Default . _Coerce
dmwtNextToken :: Lens' DescribeMaintenanceWindowTargets (Maybe Text)
dmwtNextToken = lens _dmwtNextToken (\ s a -> s{_dmwtNextToken = a})
dmwtMaxResults :: Lens' DescribeMaintenanceWindowTargets (Maybe Natural)
dmwtMaxResults = lens _dmwtMaxResults (\ s a -> s{_dmwtMaxResults = a}) . mapping _Nat
dmwtWindowId :: Lens' DescribeMaintenanceWindowTargets Text
dmwtWindowId = lens _dmwtWindowId (\ s a -> s{_dmwtWindowId = a})
instance AWSRequest DescribeMaintenanceWindowTargets
where
type Rs DescribeMaintenanceWindowTargets =
DescribeMaintenanceWindowTargetsResponse
request = postJSON ssm
response
= receiveJSON
(\ s h x ->
DescribeMaintenanceWindowTargetsResponse' <$>
(x .?> "NextToken") <*> (x .?> "Targets" .!@ mempty)
<*> (pure (fromEnum s)))
instance Hashable DescribeMaintenanceWindowTargets
where
instance NFData DescribeMaintenanceWindowTargets
where
instance ToHeaders DescribeMaintenanceWindowTargets
where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("AmazonSSM.DescribeMaintenanceWindowTargets" ::
ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON DescribeMaintenanceWindowTargets
where
toJSON DescribeMaintenanceWindowTargets'{..}
= object
(catMaybes
[("Filters" .=) <$> _dmwtFilters,
("NextToken" .=) <$> _dmwtNextToken,
("MaxResults" .=) <$> _dmwtMaxResults,
Just ("WindowId" .= _dmwtWindowId)])
instance ToPath DescribeMaintenanceWindowTargets
where
toPath = const "/"
instance ToQuery DescribeMaintenanceWindowTargets
where
toQuery = const mempty
data DescribeMaintenanceWindowTargetsResponse = DescribeMaintenanceWindowTargetsResponse'
{ _dmwtrsNextToken :: !(Maybe Text)
, _dmwtrsTargets :: !(Maybe [MaintenanceWindowTarget])
, _dmwtrsResponseStatus :: !Int
} deriving (Eq, Show, Data, Typeable, Generic)
describeMaintenanceWindowTargetsResponse
:: Int
-> DescribeMaintenanceWindowTargetsResponse
describeMaintenanceWindowTargetsResponse pResponseStatus_ =
DescribeMaintenanceWindowTargetsResponse'
{ _dmwtrsNextToken = Nothing
, _dmwtrsTargets = Nothing
, _dmwtrsResponseStatus = pResponseStatus_
}
dmwtrsNextToken :: Lens' DescribeMaintenanceWindowTargetsResponse (Maybe Text)
dmwtrsNextToken = lens _dmwtrsNextToken (\ s a -> s{_dmwtrsNextToken = a})
dmwtrsTargets :: Lens' DescribeMaintenanceWindowTargetsResponse [MaintenanceWindowTarget]
dmwtrsTargets = lens _dmwtrsTargets (\ s a -> s{_dmwtrsTargets = a}) . _Default . _Coerce
dmwtrsResponseStatus :: Lens' DescribeMaintenanceWindowTargetsResponse Int
dmwtrsResponseStatus = lens _dmwtrsResponseStatus (\ s a -> s{_dmwtrsResponseStatus = a})
instance NFData
DescribeMaintenanceWindowTargetsResponse
where