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