{-# 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.MachineLearning.DeleteTags
(
DeleteTags (..),
newDeleteTags,
deleteTags_tagKeys,
deleteTags_resourceId,
deleteTags_resourceType,
DeleteTagsResponse (..),
newDeleteTagsResponse,
deleteTagsResponse_resourceId,
deleteTagsResponse_resourceType,
deleteTagsResponse_httpStatus,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import Amazonka.MachineLearning.Types
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data DeleteTags = DeleteTags'
{
DeleteTags -> [Text]
tagKeys :: [Prelude.Text],
DeleteTags -> Text
resourceId :: Prelude.Text,
DeleteTags -> TaggableResourceType
resourceType :: TaggableResourceType
}
deriving (DeleteTags -> DeleteTags -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DeleteTags -> DeleteTags -> Bool
$c/= :: DeleteTags -> DeleteTags -> Bool
== :: DeleteTags -> DeleteTags -> Bool
$c== :: DeleteTags -> DeleteTags -> Bool
Prelude.Eq, ReadPrec [DeleteTags]
ReadPrec DeleteTags
Int -> ReadS DeleteTags
ReadS [DeleteTags]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DeleteTags]
$creadListPrec :: ReadPrec [DeleteTags]
readPrec :: ReadPrec DeleteTags
$creadPrec :: ReadPrec DeleteTags
readList :: ReadS [DeleteTags]
$creadList :: ReadS [DeleteTags]
readsPrec :: Int -> ReadS DeleteTags
$creadsPrec :: Int -> ReadS DeleteTags
Prelude.Read, Int -> DeleteTags -> ShowS
[DeleteTags] -> ShowS
DeleteTags -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DeleteTags] -> ShowS
$cshowList :: [DeleteTags] -> ShowS
show :: DeleteTags -> String
$cshow :: DeleteTags -> String
showsPrec :: Int -> DeleteTags -> ShowS
$cshowsPrec :: Int -> DeleteTags -> ShowS
Prelude.Show, forall x. Rep DeleteTags x -> DeleteTags
forall x. DeleteTags -> Rep DeleteTags x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep DeleteTags x -> DeleteTags
$cfrom :: forall x. DeleteTags -> Rep DeleteTags x
Prelude.Generic)
newDeleteTags ::
Prelude.Text ->
TaggableResourceType ->
DeleteTags
newDeleteTags :: Text -> TaggableResourceType -> DeleteTags
newDeleteTags Text
pResourceId_ TaggableResourceType
pResourceType_ =
DeleteTags'
{ $sel:tagKeys:DeleteTags' :: [Text]
tagKeys = forall a. Monoid a => a
Prelude.mempty,
$sel:resourceId:DeleteTags' :: Text
resourceId = Text
pResourceId_,
$sel:resourceType:DeleteTags' :: TaggableResourceType
resourceType = TaggableResourceType
pResourceType_
}
deleteTags_tagKeys :: Lens.Lens' DeleteTags [Prelude.Text]
deleteTags_tagKeys :: Lens' DeleteTags [Text]
deleteTags_tagKeys = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteTags' {[Text]
tagKeys :: [Text]
$sel:tagKeys:DeleteTags' :: DeleteTags -> [Text]
tagKeys} -> [Text]
tagKeys) (\s :: DeleteTags
s@DeleteTags' {} [Text]
a -> DeleteTags
s {$sel:tagKeys:DeleteTags' :: [Text]
tagKeys = [Text]
a} :: DeleteTags) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced
deleteTags_resourceId :: Lens.Lens' DeleteTags Prelude.Text
deleteTags_resourceId :: Lens' DeleteTags Text
deleteTags_resourceId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteTags' {Text
resourceId :: Text
$sel:resourceId:DeleteTags' :: DeleteTags -> Text
resourceId} -> Text
resourceId) (\s :: DeleteTags
s@DeleteTags' {} Text
a -> DeleteTags
s {$sel:resourceId:DeleteTags' :: Text
resourceId = Text
a} :: DeleteTags)
deleteTags_resourceType :: Lens.Lens' DeleteTags TaggableResourceType
deleteTags_resourceType :: Lens' DeleteTags TaggableResourceType
deleteTags_resourceType = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteTags' {TaggableResourceType
resourceType :: TaggableResourceType
$sel:resourceType:DeleteTags' :: DeleteTags -> TaggableResourceType
resourceType} -> TaggableResourceType
resourceType) (\s :: DeleteTags
s@DeleteTags' {} TaggableResourceType
a -> DeleteTags
s {$sel:resourceType:DeleteTags' :: TaggableResourceType
resourceType = TaggableResourceType
a} :: DeleteTags)
instance Core.AWSRequest DeleteTags where
type AWSResponse DeleteTags = DeleteTagsResponse
request :: (Service -> Service) -> DeleteTags -> Request DeleteTags
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 DeleteTags
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse DeleteTags)))
response =
forall (m :: * -> *) a.
MonadResource m =>
(Int -> ResponseHeaders -> Object -> Either String (AWSResponse a))
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveJSON
( \Int
s ResponseHeaders
h Object
x ->
Maybe Text
-> Maybe TaggableResourceType -> Int -> DeleteTagsResponse
DeleteTagsResponse'
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"ResourceId")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"ResourceType")
forall (f :: * -> *) a b. Applicative f => 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 DeleteTags where
hashWithSalt :: Int -> DeleteTags -> Int
hashWithSalt Int
_salt DeleteTags' {[Text]
Text
TaggableResourceType
resourceType :: TaggableResourceType
resourceId :: Text
tagKeys :: [Text]
$sel:resourceType:DeleteTags' :: DeleteTags -> TaggableResourceType
$sel:resourceId:DeleteTags' :: DeleteTags -> Text
$sel:tagKeys:DeleteTags' :: DeleteTags -> [Text]
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` [Text]
tagKeys
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
resourceId
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` TaggableResourceType
resourceType
instance Prelude.NFData DeleteTags where
rnf :: DeleteTags -> ()
rnf DeleteTags' {[Text]
Text
TaggableResourceType
resourceType :: TaggableResourceType
resourceId :: Text
tagKeys :: [Text]
$sel:resourceType:DeleteTags' :: DeleteTags -> TaggableResourceType
$sel:resourceId:DeleteTags' :: DeleteTags -> Text
$sel:tagKeys:DeleteTags' :: DeleteTags -> [Text]
..} =
forall a. NFData a => a -> ()
Prelude.rnf [Text]
tagKeys
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
resourceId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf TaggableResourceType
resourceType
instance Data.ToHeaders DeleteTags where
toHeaders :: DeleteTags -> ResponseHeaders
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 -> ResponseHeaders
Data.=# ( ByteString
"AmazonML_20141212.DeleteTags" ::
Prelude.ByteString
),
HeaderName
"Content-Type"
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# ( ByteString
"application/x-amz-json-1.1" ::
Prelude.ByteString
)
]
)
instance Data.ToJSON DeleteTags where
toJSON :: DeleteTags -> Value
toJSON DeleteTags' {[Text]
Text
TaggableResourceType
resourceType :: TaggableResourceType
resourceId :: Text
tagKeys :: [Text]
$sel:resourceType:DeleteTags' :: DeleteTags -> TaggableResourceType
$sel:resourceId:DeleteTags' :: DeleteTags -> Text
$sel:tagKeys:DeleteTags' :: DeleteTags -> [Text]
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ forall a. a -> Maybe a
Prelude.Just (Key
"TagKeys" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= [Text]
tagKeys),
forall a. a -> Maybe a
Prelude.Just (Key
"ResourceId" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
resourceId),
forall a. a -> Maybe a
Prelude.Just (Key
"ResourceType" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= TaggableResourceType
resourceType)
]
)
instance Data.ToPath DeleteTags where
toPath :: DeleteTags -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery DeleteTags where
toQuery :: DeleteTags -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data DeleteTagsResponse = DeleteTagsResponse'
{
DeleteTagsResponse -> Maybe Text
resourceId :: Prelude.Maybe Prelude.Text,
DeleteTagsResponse -> Maybe TaggableResourceType
resourceType :: Prelude.Maybe TaggableResourceType,
DeleteTagsResponse -> Int
httpStatus :: Prelude.Int
}
deriving (DeleteTagsResponse -> DeleteTagsResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DeleteTagsResponse -> DeleteTagsResponse -> Bool
$c/= :: DeleteTagsResponse -> DeleteTagsResponse -> Bool
== :: DeleteTagsResponse -> DeleteTagsResponse -> Bool
$c== :: DeleteTagsResponse -> DeleteTagsResponse -> Bool
Prelude.Eq, ReadPrec [DeleteTagsResponse]
ReadPrec DeleteTagsResponse
Int -> ReadS DeleteTagsResponse
ReadS [DeleteTagsResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DeleteTagsResponse]
$creadListPrec :: ReadPrec [DeleteTagsResponse]
readPrec :: ReadPrec DeleteTagsResponse
$creadPrec :: ReadPrec DeleteTagsResponse
readList :: ReadS [DeleteTagsResponse]
$creadList :: ReadS [DeleteTagsResponse]
readsPrec :: Int -> ReadS DeleteTagsResponse
$creadsPrec :: Int -> ReadS DeleteTagsResponse
Prelude.Read, Int -> DeleteTagsResponse -> ShowS
[DeleteTagsResponse] -> ShowS
DeleteTagsResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DeleteTagsResponse] -> ShowS
$cshowList :: [DeleteTagsResponse] -> ShowS
show :: DeleteTagsResponse -> String
$cshow :: DeleteTagsResponse -> String
showsPrec :: Int -> DeleteTagsResponse -> ShowS
$cshowsPrec :: Int -> DeleteTagsResponse -> ShowS
Prelude.Show, forall x. Rep DeleteTagsResponse x -> DeleteTagsResponse
forall x. DeleteTagsResponse -> Rep DeleteTagsResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep DeleteTagsResponse x -> DeleteTagsResponse
$cfrom :: forall x. DeleteTagsResponse -> Rep DeleteTagsResponse x
Prelude.Generic)
newDeleteTagsResponse ::
Prelude.Int ->
DeleteTagsResponse
newDeleteTagsResponse :: Int -> DeleteTagsResponse
newDeleteTagsResponse Int
pHttpStatus_ =
DeleteTagsResponse'
{ $sel:resourceId:DeleteTagsResponse' :: Maybe Text
resourceId = forall a. Maybe a
Prelude.Nothing,
$sel:resourceType:DeleteTagsResponse' :: Maybe TaggableResourceType
resourceType = forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:DeleteTagsResponse' :: Int
httpStatus = Int
pHttpStatus_
}
deleteTagsResponse_resourceId :: Lens.Lens' DeleteTagsResponse (Prelude.Maybe Prelude.Text)
deleteTagsResponse_resourceId :: Lens' DeleteTagsResponse (Maybe Text)
deleteTagsResponse_resourceId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteTagsResponse' {Maybe Text
resourceId :: Maybe Text
$sel:resourceId:DeleteTagsResponse' :: DeleteTagsResponse -> Maybe Text
resourceId} -> Maybe Text
resourceId) (\s :: DeleteTagsResponse
s@DeleteTagsResponse' {} Maybe Text
a -> DeleteTagsResponse
s {$sel:resourceId:DeleteTagsResponse' :: Maybe Text
resourceId = Maybe Text
a} :: DeleteTagsResponse)
deleteTagsResponse_resourceType :: Lens.Lens' DeleteTagsResponse (Prelude.Maybe TaggableResourceType)
deleteTagsResponse_resourceType :: Lens' DeleteTagsResponse (Maybe TaggableResourceType)
deleteTagsResponse_resourceType = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteTagsResponse' {Maybe TaggableResourceType
resourceType :: Maybe TaggableResourceType
$sel:resourceType:DeleteTagsResponse' :: DeleteTagsResponse -> Maybe TaggableResourceType
resourceType} -> Maybe TaggableResourceType
resourceType) (\s :: DeleteTagsResponse
s@DeleteTagsResponse' {} Maybe TaggableResourceType
a -> DeleteTagsResponse
s {$sel:resourceType:DeleteTagsResponse' :: Maybe TaggableResourceType
resourceType = Maybe TaggableResourceType
a} :: DeleteTagsResponse)
deleteTagsResponse_httpStatus :: Lens.Lens' DeleteTagsResponse Prelude.Int
deleteTagsResponse_httpStatus :: Lens' DeleteTagsResponse Int
deleteTagsResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteTagsResponse' {Int
httpStatus :: Int
$sel:httpStatus:DeleteTagsResponse' :: DeleteTagsResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: DeleteTagsResponse
s@DeleteTagsResponse' {} Int
a -> DeleteTagsResponse
s {$sel:httpStatus:DeleteTagsResponse' :: Int
httpStatus = Int
a} :: DeleteTagsResponse)
instance Prelude.NFData DeleteTagsResponse where
rnf :: DeleteTagsResponse -> ()
rnf DeleteTagsResponse' {Int
Maybe Text
Maybe TaggableResourceType
httpStatus :: Int
resourceType :: Maybe TaggableResourceType
resourceId :: Maybe Text
$sel:httpStatus:DeleteTagsResponse' :: DeleteTagsResponse -> Int
$sel:resourceType:DeleteTagsResponse' :: DeleteTagsResponse -> Maybe TaggableResourceType
$sel:resourceId:DeleteTagsResponse' :: DeleteTagsResponse -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
resourceId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe TaggableResourceType
resourceType
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus