{-# 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
, daAssociationVersion
, describeAssociationResponse
, DescribeAssociationResponse
, daarsAssociationDescription
, daarsResponseStatus
) 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)
, _daAssociationVersion :: !(Maybe Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
describeAssociation
:: DescribeAssociation
describeAssociation =
DescribeAssociation'
{ _daAssociationId = Nothing
, _daInstanceId = Nothing
, _daName = Nothing
, _daAssociationVersion = 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})
daAssociationVersion :: Lens' DescribeAssociation (Maybe Text)
daAssociationVersion = lens _daAssociationVersion (\ s a -> s{_daAssociationVersion = 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 where
instance NFData DescribeAssociation where
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,
("AssociationVersion" .=) <$> _daAssociationVersion])
instance ToPath DescribeAssociation where
toPath = const "/"
instance ToQuery DescribeAssociation where
toQuery = const mempty
data DescribeAssociationResponse = DescribeAssociationResponse'
{ _daarsAssociationDescription :: !(Maybe AssociationDescription)
, _daarsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
describeAssociationResponse
:: Int
-> DescribeAssociationResponse
describeAssociationResponse pResponseStatus_ =
DescribeAssociationResponse'
{ _daarsAssociationDescription = Nothing
, _daarsResponseStatus = pResponseStatus_
}
daarsAssociationDescription :: Lens' DescribeAssociationResponse (Maybe AssociationDescription)
daarsAssociationDescription = lens _daarsAssociationDescription (\ s a -> s{_daarsAssociationDescription = a})
daarsResponseStatus :: Lens' DescribeAssociationResponse Int
daarsResponseStatus = lens _daarsResponseStatus (\ s a -> s{_daarsResponseStatus = a})
instance NFData DescribeAssociationResponse where