{-# 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.DescribeInventoryDeletions
(
describeInventoryDeletions
, DescribeInventoryDeletions
, didNextToken
, didMaxResults
, didDeletionId
, describeInventoryDeletionsResponse
, DescribeInventoryDeletionsResponse
, didrsInventoryDeletions
, didrsNextToken
, didrsResponseStatus
) 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 DescribeInventoryDeletions = DescribeInventoryDeletions'
{ _didNextToken :: !(Maybe Text)
, _didMaxResults :: !(Maybe Nat)
, _didDeletionId :: !(Maybe Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
describeInventoryDeletions
:: DescribeInventoryDeletions
describeInventoryDeletions =
DescribeInventoryDeletions'
{ _didNextToken = Nothing
, _didMaxResults = Nothing
, _didDeletionId = Nothing
}
didNextToken :: Lens' DescribeInventoryDeletions (Maybe Text)
didNextToken = lens _didNextToken (\ s a -> s{_didNextToken = a})
didMaxResults :: Lens' DescribeInventoryDeletions (Maybe Natural)
didMaxResults = lens _didMaxResults (\ s a -> s{_didMaxResults = a}) . mapping _Nat
didDeletionId :: Lens' DescribeInventoryDeletions (Maybe Text)
didDeletionId = lens _didDeletionId (\ s a -> s{_didDeletionId = a})
instance AWSRequest DescribeInventoryDeletions where
type Rs DescribeInventoryDeletions =
DescribeInventoryDeletionsResponse
request = postJSON ssm
response
= receiveJSON
(\ s h x ->
DescribeInventoryDeletionsResponse' <$>
(x .?> "InventoryDeletions" .!@ mempty) <*>
(x .?> "NextToken")
<*> (pure (fromEnum s)))
instance Hashable DescribeInventoryDeletions where
instance NFData DescribeInventoryDeletions where
instance ToHeaders DescribeInventoryDeletions where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("AmazonSSM.DescribeInventoryDeletions" ::
ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON DescribeInventoryDeletions where
toJSON DescribeInventoryDeletions'{..}
= object
(catMaybes
[("NextToken" .=) <$> _didNextToken,
("MaxResults" .=) <$> _didMaxResults,
("DeletionId" .=) <$> _didDeletionId])
instance ToPath DescribeInventoryDeletions where
toPath = const "/"
instance ToQuery DescribeInventoryDeletions where
toQuery = const mempty
data DescribeInventoryDeletionsResponse = DescribeInventoryDeletionsResponse'
{ _didrsInventoryDeletions :: !(Maybe [InventoryDeletionStatusItem])
, _didrsNextToken :: !(Maybe Text)
, _didrsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
describeInventoryDeletionsResponse
:: Int
-> DescribeInventoryDeletionsResponse
describeInventoryDeletionsResponse pResponseStatus_ =
DescribeInventoryDeletionsResponse'
{ _didrsInventoryDeletions = Nothing
, _didrsNextToken = Nothing
, _didrsResponseStatus = pResponseStatus_
}
didrsInventoryDeletions :: Lens' DescribeInventoryDeletionsResponse [InventoryDeletionStatusItem]
didrsInventoryDeletions = lens _didrsInventoryDeletions (\ s a -> s{_didrsInventoryDeletions = a}) . _Default . _Coerce
didrsNextToken :: Lens' DescribeInventoryDeletionsResponse (Maybe Text)
didrsNextToken = lens _didrsNextToken (\ s a -> s{_didrsNextToken = a})
didrsResponseStatus :: Lens' DescribeInventoryDeletionsResponse Int
didrsResponseStatus = lens _didrsResponseStatus (\ s a -> s{_didrsResponseStatus = a})
instance NFData DescribeInventoryDeletionsResponse
where