{-# 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.DeleteAssociation
(
deleteAssociation
, DeleteAssociation
, daaAssociationId
, daaInstanceId
, daaName
, deleteAssociationResponse
, DeleteAssociationResponse
, delrsResponseStatus
) 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 DeleteAssociation = DeleteAssociation'
{ _daaAssociationId :: !(Maybe Text)
, _daaInstanceId :: !(Maybe Text)
, _daaName :: !(Maybe Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
deleteAssociation
:: DeleteAssociation
deleteAssociation =
DeleteAssociation'
{_daaAssociationId = Nothing, _daaInstanceId = Nothing, _daaName = Nothing}
daaAssociationId :: Lens' DeleteAssociation (Maybe Text)
daaAssociationId = lens _daaAssociationId (\ s a -> s{_daaAssociationId = a})
daaInstanceId :: Lens' DeleteAssociation (Maybe Text)
daaInstanceId = lens _daaInstanceId (\ s a -> s{_daaInstanceId = a})
daaName :: Lens' DeleteAssociation (Maybe Text)
daaName = lens _daaName (\ s a -> s{_daaName = a})
instance AWSRequest DeleteAssociation where
type Rs DeleteAssociation = DeleteAssociationResponse
request = postJSON ssm
response
= receiveEmpty
(\ s h x ->
DeleteAssociationResponse' <$> (pure (fromEnum s)))
instance Hashable DeleteAssociation where
instance NFData DeleteAssociation where
instance ToHeaders DeleteAssociation where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("AmazonSSM.DeleteAssociation" :: ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON DeleteAssociation where
toJSON DeleteAssociation'{..}
= object
(catMaybes
[("AssociationId" .=) <$> _daaAssociationId,
("InstanceId" .=) <$> _daaInstanceId,
("Name" .=) <$> _daaName])
instance ToPath DeleteAssociation where
toPath = const "/"
instance ToQuery DeleteAssociation where
toQuery = const mempty
newtype DeleteAssociationResponse = DeleteAssociationResponse'
{ _delrsResponseStatus :: Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
deleteAssociationResponse
:: Int
-> DeleteAssociationResponse
deleteAssociationResponse pResponseStatus_ =
DeleteAssociationResponse' {_delrsResponseStatus = pResponseStatus_}
delrsResponseStatus :: Lens' DeleteAssociationResponse Int
delrsResponseStatus = lens _delrsResponseStatus (\ s a -> s{_delrsResponseStatus = a})
instance NFData DeleteAssociationResponse where