module Network.AWS.Inspector.DeleteAssessmentTemplate
(
deleteAssessmentTemplate
, DeleteAssessmentTemplate
, datAssessmentTemplateARN
, deleteAssessmentTemplateResponse
, DeleteAssessmentTemplateResponse
) where
import Network.AWS.Inspector.Types
import Network.AWS.Inspector.Types.Product
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
newtype DeleteAssessmentTemplate = DeleteAssessmentTemplate'
{ _datAssessmentTemplateARN :: Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
deleteAssessmentTemplate
:: Text
-> DeleteAssessmentTemplate
deleteAssessmentTemplate pAssessmentTemplateARN_ =
DeleteAssessmentTemplate'
{ _datAssessmentTemplateARN = pAssessmentTemplateARN_
}
datAssessmentTemplateARN :: Lens' DeleteAssessmentTemplate Text
datAssessmentTemplateARN = lens _datAssessmentTemplateARN (\ s a -> s{_datAssessmentTemplateARN = a});
instance AWSRequest DeleteAssessmentTemplate where
type Rs DeleteAssessmentTemplate =
DeleteAssessmentTemplateResponse
request = postJSON inspector
response
= receiveNull DeleteAssessmentTemplateResponse'
instance Hashable DeleteAssessmentTemplate
instance NFData DeleteAssessmentTemplate
instance ToHeaders DeleteAssessmentTemplate where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("InspectorService.DeleteAssessmentTemplate" ::
ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON DeleteAssessmentTemplate where
toJSON DeleteAssessmentTemplate'{..}
= object
(catMaybes
[Just
("assessmentTemplateArn" .=
_datAssessmentTemplateARN)])
instance ToPath DeleteAssessmentTemplate where
toPath = const "/"
instance ToQuery DeleteAssessmentTemplate where
toQuery = const mempty
data DeleteAssessmentTemplateResponse =
DeleteAssessmentTemplateResponse'
deriving (Eq,Read,Show,Data,Typeable,Generic)
deleteAssessmentTemplateResponse
:: DeleteAssessmentTemplateResponse
deleteAssessmentTemplateResponse = DeleteAssessmentTemplateResponse'
instance NFData DeleteAssessmentTemplateResponse