{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE DuplicateRecordFields #-}
{-# LANGUAGE NamedFieldPuns #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE StrictData #-}
{-# LANGUAGE TypeFamilies #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# OPTIONS_GHC -fno-warn-unused-binds #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
{-# OPTIONS_GHC -fno-warn-unused-matches #-}
module Amazonka.MacieV2.DeleteFindingsFilter
(
DeleteFindingsFilter (..),
newDeleteFindingsFilter,
deleteFindingsFilter_id,
DeleteFindingsFilterResponse (..),
newDeleteFindingsFilterResponse,
deleteFindingsFilterResponse_httpStatus,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import Amazonka.MacieV2.Types
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data DeleteFindingsFilter = DeleteFindingsFilter'
{
DeleteFindingsFilter -> Text
id :: Prelude.Text
}
deriving (DeleteFindingsFilter -> DeleteFindingsFilter -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DeleteFindingsFilter -> DeleteFindingsFilter -> Bool
$c/= :: DeleteFindingsFilter -> DeleteFindingsFilter -> Bool
== :: DeleteFindingsFilter -> DeleteFindingsFilter -> Bool
$c== :: DeleteFindingsFilter -> DeleteFindingsFilter -> Bool
Prelude.Eq, ReadPrec [DeleteFindingsFilter]
ReadPrec DeleteFindingsFilter
Int -> ReadS DeleteFindingsFilter
ReadS [DeleteFindingsFilter]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DeleteFindingsFilter]
$creadListPrec :: ReadPrec [DeleteFindingsFilter]
readPrec :: ReadPrec DeleteFindingsFilter
$creadPrec :: ReadPrec DeleteFindingsFilter
readList :: ReadS [DeleteFindingsFilter]
$creadList :: ReadS [DeleteFindingsFilter]
readsPrec :: Int -> ReadS DeleteFindingsFilter
$creadsPrec :: Int -> ReadS DeleteFindingsFilter
Prelude.Read, Int -> DeleteFindingsFilter -> ShowS
[DeleteFindingsFilter] -> ShowS
DeleteFindingsFilter -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DeleteFindingsFilter] -> ShowS
$cshowList :: [DeleteFindingsFilter] -> ShowS
show :: DeleteFindingsFilter -> String
$cshow :: DeleteFindingsFilter -> String
showsPrec :: Int -> DeleteFindingsFilter -> ShowS
$cshowsPrec :: Int -> DeleteFindingsFilter -> ShowS
Prelude.Show, forall x. Rep DeleteFindingsFilter x -> DeleteFindingsFilter
forall x. DeleteFindingsFilter -> Rep DeleteFindingsFilter x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep DeleteFindingsFilter x -> DeleteFindingsFilter
$cfrom :: forall x. DeleteFindingsFilter -> Rep DeleteFindingsFilter x
Prelude.Generic)
newDeleteFindingsFilter ::
Prelude.Text ->
DeleteFindingsFilter
newDeleteFindingsFilter :: Text -> DeleteFindingsFilter
newDeleteFindingsFilter Text
pId_ =
DeleteFindingsFilter' {$sel:id:DeleteFindingsFilter' :: Text
id = Text
pId_}
deleteFindingsFilter_id :: Lens.Lens' DeleteFindingsFilter Prelude.Text
deleteFindingsFilter_id :: Lens' DeleteFindingsFilter Text
deleteFindingsFilter_id = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteFindingsFilter' {Text
id :: Text
$sel:id:DeleteFindingsFilter' :: DeleteFindingsFilter -> Text
id} -> Text
id) (\s :: DeleteFindingsFilter
s@DeleteFindingsFilter' {} Text
a -> DeleteFindingsFilter
s {$sel:id:DeleteFindingsFilter' :: Text
id = Text
a} :: DeleteFindingsFilter)
instance Core.AWSRequest DeleteFindingsFilter where
type
AWSResponse DeleteFindingsFilter =
DeleteFindingsFilterResponse
request :: (Service -> Service)
-> DeleteFindingsFilter -> Request DeleteFindingsFilter
request Service -> Service
overrides =
forall a. ToRequest a => Service -> a -> Request a
Request.delete (Service -> Service
overrides Service
defaultService)
response :: forall (m :: * -> *).
MonadResource m =>
(ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy DeleteFindingsFilter
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse DeleteFindingsFilter)))
response =
forall (m :: * -> *) a.
MonadResource m =>
(Int -> ResponseHeaders -> () -> Either String (AWSResponse a))
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveEmpty
( \Int
s ResponseHeaders
h ()
x ->
Int -> DeleteFindingsFilterResponse
DeleteFindingsFilterResponse'
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> (forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure (forall a. Enum a => a -> Int
Prelude.fromEnum Int
s))
)
instance Prelude.Hashable DeleteFindingsFilter where
hashWithSalt :: Int -> DeleteFindingsFilter -> Int
hashWithSalt Int
_salt DeleteFindingsFilter' {Text
id :: Text
$sel:id:DeleteFindingsFilter' :: DeleteFindingsFilter -> Text
..} =
Int
_salt forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
id
instance Prelude.NFData DeleteFindingsFilter where
rnf :: DeleteFindingsFilter -> ()
rnf DeleteFindingsFilter' {Text
id :: Text
$sel:id:DeleteFindingsFilter' :: DeleteFindingsFilter -> Text
..} = forall a. NFData a => a -> ()
Prelude.rnf Text
id
instance Data.ToHeaders DeleteFindingsFilter where
toHeaders :: DeleteFindingsFilter -> ResponseHeaders
toHeaders =
forall a b. a -> b -> a
Prelude.const
( forall a. Monoid a => [a] -> a
Prelude.mconcat
[ HeaderName
"Content-Type"
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# ( ByteString
"application/x-amz-json-1.1" ::
Prelude.ByteString
)
]
)
instance Data.ToPath DeleteFindingsFilter where
toPath :: DeleteFindingsFilter -> ByteString
toPath DeleteFindingsFilter' {Text
id :: Text
$sel:id:DeleteFindingsFilter' :: DeleteFindingsFilter -> Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat [ByteString
"/findingsfilters/", forall a. ToByteString a => a -> ByteString
Data.toBS Text
id]
instance Data.ToQuery DeleteFindingsFilter where
toQuery :: DeleteFindingsFilter -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data DeleteFindingsFilterResponse = DeleteFindingsFilterResponse'
{
DeleteFindingsFilterResponse -> Int
httpStatus :: Prelude.Int
}
deriving (DeleteFindingsFilterResponse
-> DeleteFindingsFilterResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DeleteFindingsFilterResponse
-> DeleteFindingsFilterResponse -> Bool
$c/= :: DeleteFindingsFilterResponse
-> DeleteFindingsFilterResponse -> Bool
== :: DeleteFindingsFilterResponse
-> DeleteFindingsFilterResponse -> Bool
$c== :: DeleteFindingsFilterResponse
-> DeleteFindingsFilterResponse -> Bool
Prelude.Eq, ReadPrec [DeleteFindingsFilterResponse]
ReadPrec DeleteFindingsFilterResponse
Int -> ReadS DeleteFindingsFilterResponse
ReadS [DeleteFindingsFilterResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DeleteFindingsFilterResponse]
$creadListPrec :: ReadPrec [DeleteFindingsFilterResponse]
readPrec :: ReadPrec DeleteFindingsFilterResponse
$creadPrec :: ReadPrec DeleteFindingsFilterResponse
readList :: ReadS [DeleteFindingsFilterResponse]
$creadList :: ReadS [DeleteFindingsFilterResponse]
readsPrec :: Int -> ReadS DeleteFindingsFilterResponse
$creadsPrec :: Int -> ReadS DeleteFindingsFilterResponse
Prelude.Read, Int -> DeleteFindingsFilterResponse -> ShowS
[DeleteFindingsFilterResponse] -> ShowS
DeleteFindingsFilterResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DeleteFindingsFilterResponse] -> ShowS
$cshowList :: [DeleteFindingsFilterResponse] -> ShowS
show :: DeleteFindingsFilterResponse -> String
$cshow :: DeleteFindingsFilterResponse -> String
showsPrec :: Int -> DeleteFindingsFilterResponse -> ShowS
$cshowsPrec :: Int -> DeleteFindingsFilterResponse -> ShowS
Prelude.Show, forall x.
Rep DeleteFindingsFilterResponse x -> DeleteFindingsFilterResponse
forall x.
DeleteFindingsFilterResponse -> Rep DeleteFindingsFilterResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DeleteFindingsFilterResponse x -> DeleteFindingsFilterResponse
$cfrom :: forall x.
DeleteFindingsFilterResponse -> Rep DeleteFindingsFilterResponse x
Prelude.Generic)
newDeleteFindingsFilterResponse ::
Prelude.Int ->
DeleteFindingsFilterResponse
newDeleteFindingsFilterResponse :: Int -> DeleteFindingsFilterResponse
newDeleteFindingsFilterResponse Int
pHttpStatus_ =
DeleteFindingsFilterResponse'
{ $sel:httpStatus:DeleteFindingsFilterResponse' :: Int
httpStatus =
Int
pHttpStatus_
}
deleteFindingsFilterResponse_httpStatus :: Lens.Lens' DeleteFindingsFilterResponse Prelude.Int
deleteFindingsFilterResponse_httpStatus :: Lens' DeleteFindingsFilterResponse Int
deleteFindingsFilterResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteFindingsFilterResponse' {Int
httpStatus :: Int
$sel:httpStatus:DeleteFindingsFilterResponse' :: DeleteFindingsFilterResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: DeleteFindingsFilterResponse
s@DeleteFindingsFilterResponse' {} Int
a -> DeleteFindingsFilterResponse
s {$sel:httpStatus:DeleteFindingsFilterResponse' :: Int
httpStatus = Int
a} :: DeleteFindingsFilterResponse)
instance Prelude.NFData DeleteFindingsFilterResponse where
rnf :: DeleteFindingsFilterResponse -> ()
rnf DeleteFindingsFilterResponse' {Int
httpStatus :: Int
$sel:httpStatus:DeleteFindingsFilterResponse' :: DeleteFindingsFilterResponse -> Int
..} =
forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus