{-# 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.GuardDuty.DeleteThreatIntelSet
(
deleteThreatIntelSet
, DeleteThreatIntelSet
, dtisThreatIntelSetId
, dtisDetectorId
, deleteThreatIntelSetResponse
, DeleteThreatIntelSetResponse
, dtisrsResponseStatus
) where
import Network.AWS.GuardDuty.Types
import Network.AWS.GuardDuty.Types.Product
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data DeleteThreatIntelSet = DeleteThreatIntelSet'
{ _dtisThreatIntelSetId :: !Text
, _dtisDetectorId :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
deleteThreatIntelSet
:: Text
-> Text
-> DeleteThreatIntelSet
deleteThreatIntelSet pThreatIntelSetId_ pDetectorId_ =
DeleteThreatIntelSet'
{_dtisThreatIntelSetId = pThreatIntelSetId_, _dtisDetectorId = pDetectorId_}
dtisThreatIntelSetId :: Lens' DeleteThreatIntelSet Text
dtisThreatIntelSetId = lens _dtisThreatIntelSetId (\ s a -> s{_dtisThreatIntelSetId = a})
dtisDetectorId :: Lens' DeleteThreatIntelSet Text
dtisDetectorId = lens _dtisDetectorId (\ s a -> s{_dtisDetectorId = a})
instance AWSRequest DeleteThreatIntelSet where
type Rs DeleteThreatIntelSet =
DeleteThreatIntelSetResponse
request = delete guardDuty
response
= receiveEmpty
(\ s h x ->
DeleteThreatIntelSetResponse' <$>
(pure (fromEnum s)))
instance Hashable DeleteThreatIntelSet where
instance NFData DeleteThreatIntelSet where
instance ToHeaders DeleteThreatIntelSet where
toHeaders
= const
(mconcat
["Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToPath DeleteThreatIntelSet where
toPath DeleteThreatIntelSet'{..}
= mconcat
["/detector/", toBS _dtisDetectorId,
"/threatintelset/", toBS _dtisThreatIntelSetId]
instance ToQuery DeleteThreatIntelSet where
toQuery = const mempty
newtype DeleteThreatIntelSetResponse = DeleteThreatIntelSetResponse'
{ _dtisrsResponseStatus :: Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
deleteThreatIntelSetResponse
:: Int
-> DeleteThreatIntelSetResponse
deleteThreatIntelSetResponse pResponseStatus_ =
DeleteThreatIntelSetResponse' {_dtisrsResponseStatus = pResponseStatus_}
dtisrsResponseStatus :: Lens' DeleteThreatIntelSetResponse Int
dtisrsResponseStatus = lens _dtisrsResponseStatus (\ s a -> s{_dtisrsResponseStatus = a})
instance NFData DeleteThreatIntelSetResponse where