{-# 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.DeleteActivation
(
deleteActivation
, DeleteActivation
, daActivationId
, deleteActivationResponse
, DeleteActivationResponse
, delersResponseStatus
) 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
newtype DeleteActivation = DeleteActivation'
{ _daActivationId :: Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
deleteActivation
:: Text
-> DeleteActivation
deleteActivation pActivationId_ =
DeleteActivation' {_daActivationId = pActivationId_}
daActivationId :: Lens' DeleteActivation Text
daActivationId = lens _daActivationId (\ s a -> s{_daActivationId = a})
instance AWSRequest DeleteActivation where
type Rs DeleteActivation = DeleteActivationResponse
request = postJSON ssm
response
= receiveEmpty
(\ s h x ->
DeleteActivationResponse' <$> (pure (fromEnum s)))
instance Hashable DeleteActivation where
instance NFData DeleteActivation where
instance ToHeaders DeleteActivation where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("AmazonSSM.DeleteActivation" :: ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON DeleteActivation where
toJSON DeleteActivation'{..}
= object
(catMaybes
[Just ("ActivationId" .= _daActivationId)])
instance ToPath DeleteActivation where
toPath = const "/"
instance ToQuery DeleteActivation where
toQuery = const mempty
newtype DeleteActivationResponse = DeleteActivationResponse'
{ _delersResponseStatus :: Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
deleteActivationResponse
:: Int
-> DeleteActivationResponse
deleteActivationResponse pResponseStatus_ =
DeleteActivationResponse' {_delersResponseStatus = pResponseStatus_}
delersResponseStatus :: Lens' DeleteActivationResponse Int
delersResponseStatus = lens _delersResponseStatus (\ s a -> s{_delersResponseStatus = a})
instance NFData DeleteActivationResponse where