{-# 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.DescribeAssociation
(
describeAssociation
, DescribeAssociation
, daAssociationId
, daInstanceId
, daName
, describeAssociationResponse
, DescribeAssociationResponse
, desrsAssociationDescription
, desrsResponseStatus
) 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 DescribeAssociation = DescribeAssociation'
{ _daAssociationId :: !(Maybe Text)
, _daInstanceId :: !(Maybe Text)
, _daName :: !(Maybe Text)
} deriving (Eq,Read,Show,Data,Typeable,Generic)
describeAssociation
:: DescribeAssociation
describeAssociation =
DescribeAssociation'
{ _daAssociationId = Nothing
, _daInstanceId = Nothing
, _daName = Nothing
}
daAssociationId :: Lens' DescribeAssociation (Maybe Text)
daAssociationId = lens _daAssociationId (\ s a -> s{_daAssociationId = a});
daInstanceId :: Lens' DescribeAssociation (Maybe Text)
daInstanceId = lens _daInstanceId (\ s a -> s{_daInstanceId = a});
daName :: Lens' DescribeAssociation (Maybe Text)
daName = lens _daName (\ s a -> s{_daName = a});
instance AWSRequest DescribeAssociation where
type Rs DescribeAssociation =
DescribeAssociationResponse
request = postJSON ssm
response
= receiveJSON
(\ s h x ->
DescribeAssociationResponse' <$>
(x .?> "AssociationDescription") <*>
(pure (fromEnum s)))
instance Hashable DescribeAssociation
instance NFData DescribeAssociation
instance ToHeaders DescribeAssociation where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("AmazonSSM.DescribeAssociation" :: ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON DescribeAssociation where
toJSON DescribeAssociation'{..}
= object
(catMaybes
[("AssociationId" .=) <$> _daAssociationId,
("InstanceId" .=) <$> _daInstanceId,
("Name" .=) <$> _daName])
instance ToPath DescribeAssociation where
toPath = const "/"
instance ToQuery DescribeAssociation where
toQuery = const mempty
data DescribeAssociationResponse = DescribeAssociationResponse'
{ _desrsAssociationDescription :: !(Maybe AssociationDescription)
, _desrsResponseStatus :: !Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
describeAssociationResponse
:: Int
-> DescribeAssociationResponse
describeAssociationResponse pResponseStatus_ =
DescribeAssociationResponse'
{ _desrsAssociationDescription = Nothing
, _desrsResponseStatus = pResponseStatus_
}
desrsAssociationDescription :: Lens' DescribeAssociationResponse (Maybe AssociationDescription)
desrsAssociationDescription = lens _desrsAssociationDescription (\ s a -> s{_desrsAssociationDescription = a});
desrsResponseStatus :: Lens' DescribeAssociationResponse Int
desrsResponseStatus = lens _desrsResponseStatus (\ s a -> s{_desrsResponseStatus = a});
instance NFData DescribeAssociationResponse