{-# 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.DescribeAvailablePatches
(
describeAvailablePatches
, DescribeAvailablePatches
, dapFilters
, dapNextToken
, dapMaxResults
, describeAvailablePatchesResponse
, DescribeAvailablePatchesResponse
, daprsPatches
, daprsNextToken
, daprsResponseStatus
) 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 DescribeAvailablePatches = DescribeAvailablePatches'
{ _dapFilters :: !(Maybe [PatchOrchestratorFilter])
, _dapNextToken :: !(Maybe Text)
, _dapMaxResults :: !(Maybe Nat)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
describeAvailablePatches
:: DescribeAvailablePatches
describeAvailablePatches =
DescribeAvailablePatches'
{_dapFilters = Nothing, _dapNextToken = Nothing, _dapMaxResults = Nothing}
dapFilters :: Lens' DescribeAvailablePatches [PatchOrchestratorFilter]
dapFilters = lens _dapFilters (\ s a -> s{_dapFilters = a}) . _Default . _Coerce
dapNextToken :: Lens' DescribeAvailablePatches (Maybe Text)
dapNextToken = lens _dapNextToken (\ s a -> s{_dapNextToken = a})
dapMaxResults :: Lens' DescribeAvailablePatches (Maybe Natural)
dapMaxResults = lens _dapMaxResults (\ s a -> s{_dapMaxResults = a}) . mapping _Nat
instance AWSRequest DescribeAvailablePatches where
type Rs DescribeAvailablePatches =
DescribeAvailablePatchesResponse
request = postJSON ssm
response
= receiveJSON
(\ s h x ->
DescribeAvailablePatchesResponse' <$>
(x .?> "Patches" .!@ mempty) <*> (x .?> "NextToken")
<*> (pure (fromEnum s)))
instance Hashable DescribeAvailablePatches where
instance NFData DescribeAvailablePatches where
instance ToHeaders DescribeAvailablePatches where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("AmazonSSM.DescribeAvailablePatches" :: ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON DescribeAvailablePatches where
toJSON DescribeAvailablePatches'{..}
= object
(catMaybes
[("Filters" .=) <$> _dapFilters,
("NextToken" .=) <$> _dapNextToken,
("MaxResults" .=) <$> _dapMaxResults])
instance ToPath DescribeAvailablePatches where
toPath = const "/"
instance ToQuery DescribeAvailablePatches where
toQuery = const mempty
data DescribeAvailablePatchesResponse = DescribeAvailablePatchesResponse'
{ _daprsPatches :: !(Maybe [Patch])
, _daprsNextToken :: !(Maybe Text)
, _daprsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
describeAvailablePatchesResponse
:: Int
-> DescribeAvailablePatchesResponse
describeAvailablePatchesResponse pResponseStatus_ =
DescribeAvailablePatchesResponse'
{ _daprsPatches = Nothing
, _daprsNextToken = Nothing
, _daprsResponseStatus = pResponseStatus_
}
daprsPatches :: Lens' DescribeAvailablePatchesResponse [Patch]
daprsPatches = lens _daprsPatches (\ s a -> s{_daprsPatches = a}) . _Default . _Coerce
daprsNextToken :: Lens' DescribeAvailablePatchesResponse (Maybe Text)
daprsNextToken = lens _daprsNextToken (\ s a -> s{_daprsNextToken = a})
daprsResponseStatus :: Lens' DescribeAvailablePatchesResponse Int
daprsResponseStatus = lens _daprsResponseStatus (\ s a -> s{_daprsResponseStatus = a})
instance NFData DescribeAvailablePatchesResponse
where