{-# 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.DescribeEffectiveInstanceAssociations
(
describeEffectiveInstanceAssociations
, DescribeEffectiveInstanceAssociations
, deiaNextToken
, deiaMaxResults
, deiaInstanceId
, describeEffectiveInstanceAssociationsResponse
, DescribeEffectiveInstanceAssociationsResponse
, deiarsNextToken
, deiarsAssociations
, deiarsResponseStatus
) 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 DescribeEffectiveInstanceAssociations = DescribeEffectiveInstanceAssociations'
{ _deiaNextToken :: !(Maybe Text)
, _deiaMaxResults :: !(Maybe Nat)
, _deiaInstanceId :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
describeEffectiveInstanceAssociations
:: Text
-> DescribeEffectiveInstanceAssociations
describeEffectiveInstanceAssociations pInstanceId_ =
DescribeEffectiveInstanceAssociations'
{ _deiaNextToken = Nothing
, _deiaMaxResults = Nothing
, _deiaInstanceId = pInstanceId_
}
deiaNextToken :: Lens' DescribeEffectiveInstanceAssociations (Maybe Text)
deiaNextToken = lens _deiaNextToken (\ s a -> s{_deiaNextToken = a})
deiaMaxResults :: Lens' DescribeEffectiveInstanceAssociations (Maybe Natural)
deiaMaxResults = lens _deiaMaxResults (\ s a -> s{_deiaMaxResults = a}) . mapping _Nat
deiaInstanceId :: Lens' DescribeEffectiveInstanceAssociations Text
deiaInstanceId = lens _deiaInstanceId (\ s a -> s{_deiaInstanceId = a})
instance AWSRequest
DescribeEffectiveInstanceAssociations
where
type Rs DescribeEffectiveInstanceAssociations =
DescribeEffectiveInstanceAssociationsResponse
request = postJSON ssm
response
= receiveJSON
(\ s h x ->
DescribeEffectiveInstanceAssociationsResponse' <$>
(x .?> "NextToken") <*>
(x .?> "Associations" .!@ mempty)
<*> (pure (fromEnum s)))
instance Hashable
DescribeEffectiveInstanceAssociations
where
instance NFData DescribeEffectiveInstanceAssociations
where
instance ToHeaders
DescribeEffectiveInstanceAssociations
where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("AmazonSSM.DescribeEffectiveInstanceAssociations" ::
ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON DescribeEffectiveInstanceAssociations
where
toJSON DescribeEffectiveInstanceAssociations'{..}
= object
(catMaybes
[("NextToken" .=) <$> _deiaNextToken,
("MaxResults" .=) <$> _deiaMaxResults,
Just ("InstanceId" .= _deiaInstanceId)])
instance ToPath DescribeEffectiveInstanceAssociations
where
toPath = const "/"
instance ToQuery
DescribeEffectiveInstanceAssociations
where
toQuery = const mempty
data DescribeEffectiveInstanceAssociationsResponse = DescribeEffectiveInstanceAssociationsResponse'
{ _deiarsNextToken :: !(Maybe Text)
, _deiarsAssociations :: !(Maybe [InstanceAssociation])
, _deiarsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
describeEffectiveInstanceAssociationsResponse
:: Int
-> DescribeEffectiveInstanceAssociationsResponse
describeEffectiveInstanceAssociationsResponse pResponseStatus_ =
DescribeEffectiveInstanceAssociationsResponse'
{ _deiarsNextToken = Nothing
, _deiarsAssociations = Nothing
, _deiarsResponseStatus = pResponseStatus_
}
deiarsNextToken :: Lens' DescribeEffectiveInstanceAssociationsResponse (Maybe Text)
deiarsNextToken = lens _deiarsNextToken (\ s a -> s{_deiarsNextToken = a})
deiarsAssociations :: Lens' DescribeEffectiveInstanceAssociationsResponse [InstanceAssociation]
deiarsAssociations = lens _deiarsAssociations (\ s a -> s{_deiarsAssociations = a}) . _Default . _Coerce
deiarsResponseStatus :: Lens' DescribeEffectiveInstanceAssociationsResponse Int
deiarsResponseStatus = lens _deiarsResponseStatus (\ s a -> s{_deiarsResponseStatus = a})
instance NFData
DescribeEffectiveInstanceAssociationsResponse
where