{-# 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.Personalize.DeleteFilter
(
DeleteFilter (..),
newDeleteFilter,
deleteFilter_filterArn,
DeleteFilterResponse (..),
newDeleteFilterResponse,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import Amazonka.Personalize.Types
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data DeleteFilter = DeleteFilter'
{
DeleteFilter -> Text
filterArn :: Prelude.Text
}
deriving (DeleteFilter -> DeleteFilter -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DeleteFilter -> DeleteFilter -> Bool
$c/= :: DeleteFilter -> DeleteFilter -> Bool
== :: DeleteFilter -> DeleteFilter -> Bool
$c== :: DeleteFilter -> DeleteFilter -> Bool
Prelude.Eq, ReadPrec [DeleteFilter]
ReadPrec DeleteFilter
Int -> ReadS DeleteFilter
ReadS [DeleteFilter]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DeleteFilter]
$creadListPrec :: ReadPrec [DeleteFilter]
readPrec :: ReadPrec DeleteFilter
$creadPrec :: ReadPrec DeleteFilter
readList :: ReadS [DeleteFilter]
$creadList :: ReadS [DeleteFilter]
readsPrec :: Int -> ReadS DeleteFilter
$creadsPrec :: Int -> ReadS DeleteFilter
Prelude.Read, Int -> DeleteFilter -> ShowS
[DeleteFilter] -> ShowS
DeleteFilter -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DeleteFilter] -> ShowS
$cshowList :: [DeleteFilter] -> ShowS
show :: DeleteFilter -> String
$cshow :: DeleteFilter -> String
showsPrec :: Int -> DeleteFilter -> ShowS
$cshowsPrec :: Int -> DeleteFilter -> ShowS
Prelude.Show, forall x. Rep DeleteFilter x -> DeleteFilter
forall x. DeleteFilter -> Rep DeleteFilter x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep DeleteFilter x -> DeleteFilter
$cfrom :: forall x. DeleteFilter -> Rep DeleteFilter x
Prelude.Generic)
newDeleteFilter ::
Prelude.Text ->
DeleteFilter
newDeleteFilter :: Text -> DeleteFilter
newDeleteFilter Text
pFilterArn_ =
DeleteFilter' {$sel:filterArn:DeleteFilter' :: Text
filterArn = Text
pFilterArn_}
deleteFilter_filterArn :: Lens.Lens' DeleteFilter Prelude.Text
deleteFilter_filterArn :: Lens' DeleteFilter Text
deleteFilter_filterArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteFilter' {Text
filterArn :: Text
$sel:filterArn:DeleteFilter' :: DeleteFilter -> Text
filterArn} -> Text
filterArn) (\s :: DeleteFilter
s@DeleteFilter' {} Text
a -> DeleteFilter
s {$sel:filterArn:DeleteFilter' :: Text
filterArn = Text
a} :: DeleteFilter)
instance Core.AWSRequest DeleteFilter where
type AWSResponse DeleteFilter = DeleteFilterResponse
request :: (Service -> Service) -> DeleteFilter -> Request DeleteFilter
request Service -> Service
overrides =
forall a. (ToRequest a, ToJSON a) => Service -> a -> Request a
Request.postJSON (Service -> Service
overrides Service
defaultService)
response :: forall (m :: * -> *).
MonadResource m =>
(ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy DeleteFilter
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse DeleteFilter)))
response = forall (m :: * -> *) a.
MonadResource m =>
AWSResponse a
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveNull DeleteFilterResponse
DeleteFilterResponse'
instance Prelude.Hashable DeleteFilter where
hashWithSalt :: Int -> DeleteFilter -> Int
hashWithSalt Int
_salt DeleteFilter' {Text
filterArn :: Text
$sel:filterArn:DeleteFilter' :: DeleteFilter -> Text
..} =
Int
_salt forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
filterArn
instance Prelude.NFData DeleteFilter where
rnf :: DeleteFilter -> ()
rnf DeleteFilter' {Text
filterArn :: Text
$sel:filterArn:DeleteFilter' :: DeleteFilter -> Text
..} = forall a. NFData a => a -> ()
Prelude.rnf Text
filterArn
instance Data.ToHeaders DeleteFilter where
toHeaders :: DeleteFilter -> [Header]
toHeaders =
forall a b. a -> b -> a
Prelude.const
( forall a. Monoid a => [a] -> a
Prelude.mconcat
[ HeaderName
"X-Amz-Target"
forall a. ToHeader a => HeaderName -> a -> [Header]
Data.=# ( ByteString
"AmazonPersonalize.DeleteFilter" ::
Prelude.ByteString
),
HeaderName
"Content-Type"
forall a. ToHeader a => HeaderName -> a -> [Header]
Data.=# ( ByteString
"application/x-amz-json-1.1" ::
Prelude.ByteString
)
]
)
instance Data.ToJSON DeleteFilter where
toJSON :: DeleteFilter -> Value
toJSON DeleteFilter' {Text
filterArn :: Text
$sel:filterArn:DeleteFilter' :: DeleteFilter -> Text
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[forall a. a -> Maybe a
Prelude.Just (Key
"filterArn" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
filterArn)]
)
instance Data.ToPath DeleteFilter where
toPath :: DeleteFilter -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery DeleteFilter where
toQuery :: DeleteFilter -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data DeleteFilterResponse = DeleteFilterResponse'
{
}
deriving (DeleteFilterResponse -> DeleteFilterResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DeleteFilterResponse -> DeleteFilterResponse -> Bool
$c/= :: DeleteFilterResponse -> DeleteFilterResponse -> Bool
== :: DeleteFilterResponse -> DeleteFilterResponse -> Bool
$c== :: DeleteFilterResponse -> DeleteFilterResponse -> Bool
Prelude.Eq, ReadPrec [DeleteFilterResponse]
ReadPrec DeleteFilterResponse
Int -> ReadS DeleteFilterResponse
ReadS [DeleteFilterResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DeleteFilterResponse]
$creadListPrec :: ReadPrec [DeleteFilterResponse]
readPrec :: ReadPrec DeleteFilterResponse
$creadPrec :: ReadPrec DeleteFilterResponse
readList :: ReadS [DeleteFilterResponse]
$creadList :: ReadS [DeleteFilterResponse]
readsPrec :: Int -> ReadS DeleteFilterResponse
$creadsPrec :: Int -> ReadS DeleteFilterResponse
Prelude.Read, Int -> DeleteFilterResponse -> ShowS
[DeleteFilterResponse] -> ShowS
DeleteFilterResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DeleteFilterResponse] -> ShowS
$cshowList :: [DeleteFilterResponse] -> ShowS
show :: DeleteFilterResponse -> String
$cshow :: DeleteFilterResponse -> String
showsPrec :: Int -> DeleteFilterResponse -> ShowS
$cshowsPrec :: Int -> DeleteFilterResponse -> ShowS
Prelude.Show, forall x. Rep DeleteFilterResponse x -> DeleteFilterResponse
forall x. DeleteFilterResponse -> Rep DeleteFilterResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep DeleteFilterResponse x -> DeleteFilterResponse
$cfrom :: forall x. DeleteFilterResponse -> Rep DeleteFilterResponse x
Prelude.Generic)
newDeleteFilterResponse ::
DeleteFilterResponse
newDeleteFilterResponse :: DeleteFilterResponse
newDeleteFilterResponse = DeleteFilterResponse
DeleteFilterResponse'
instance Prelude.NFData DeleteFilterResponse where
rnf :: DeleteFilterResponse -> ()
rnf DeleteFilterResponse
_ = ()