{-# 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.DeleteFilter
(
deleteFilter
, DeleteFilter
, dfDetectorId
, dfFilterName
, deleteFilterResponse
, DeleteFilterResponse
, dfrsResponseStatus
) 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 DeleteFilter = DeleteFilter'
{ _dfDetectorId :: !Text
, _dfFilterName :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
deleteFilter
:: Text
-> Text
-> DeleteFilter
deleteFilter pDetectorId_ pFilterName_ =
DeleteFilter' {_dfDetectorId = pDetectorId_, _dfFilterName = pFilterName_}
dfDetectorId :: Lens' DeleteFilter Text
dfDetectorId = lens _dfDetectorId (\ s a -> s{_dfDetectorId = a})
dfFilterName :: Lens' DeleteFilter Text
dfFilterName = lens _dfFilterName (\ s a -> s{_dfFilterName = a})
instance AWSRequest DeleteFilter where
type Rs DeleteFilter = DeleteFilterResponse
request = delete guardDuty
response
= receiveEmpty
(\ s h x ->
DeleteFilterResponse' <$> (pure (fromEnum s)))
instance Hashable DeleteFilter where
instance NFData DeleteFilter where
instance ToHeaders DeleteFilter where
toHeaders
= const
(mconcat
["Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToPath DeleteFilter where
toPath DeleteFilter'{..}
= mconcat
["/detector/", toBS _dfDetectorId, "/filter/",
toBS _dfFilterName]
instance ToQuery DeleteFilter where
toQuery = const mempty
newtype DeleteFilterResponse = DeleteFilterResponse'
{ _dfrsResponseStatus :: Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
deleteFilterResponse
:: Int
-> DeleteFilterResponse
deleteFilterResponse pResponseStatus_ =
DeleteFilterResponse' {_dfrsResponseStatus = pResponseStatus_}
dfrsResponseStatus :: Lens' DeleteFilterResponse Int
dfrsResponseStatus = lens _dfrsResponseStatus (\ s a -> s{_dfrsResponseStatus = a})
instance NFData DeleteFilterResponse where