{-# 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.DataExchange.DeleteAsset
(
DeleteAsset (..),
newDeleteAsset,
deleteAsset_assetId,
deleteAsset_dataSetId,
deleteAsset_revisionId,
DeleteAssetResponse (..),
newDeleteAssetResponse,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import Amazonka.DataExchange.Types
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data DeleteAsset = DeleteAsset'
{
DeleteAsset -> Text
assetId :: Prelude.Text,
DeleteAsset -> Text
dataSetId :: Prelude.Text,
DeleteAsset -> Text
revisionId :: Prelude.Text
}
deriving (DeleteAsset -> DeleteAsset -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DeleteAsset -> DeleteAsset -> Bool
$c/= :: DeleteAsset -> DeleteAsset -> Bool
== :: DeleteAsset -> DeleteAsset -> Bool
$c== :: DeleteAsset -> DeleteAsset -> Bool
Prelude.Eq, ReadPrec [DeleteAsset]
ReadPrec DeleteAsset
Int -> ReadS DeleteAsset
ReadS [DeleteAsset]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DeleteAsset]
$creadListPrec :: ReadPrec [DeleteAsset]
readPrec :: ReadPrec DeleteAsset
$creadPrec :: ReadPrec DeleteAsset
readList :: ReadS [DeleteAsset]
$creadList :: ReadS [DeleteAsset]
readsPrec :: Int -> ReadS DeleteAsset
$creadsPrec :: Int -> ReadS DeleteAsset
Prelude.Read, Int -> DeleteAsset -> ShowS
[DeleteAsset] -> ShowS
DeleteAsset -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DeleteAsset] -> ShowS
$cshowList :: [DeleteAsset] -> ShowS
show :: DeleteAsset -> String
$cshow :: DeleteAsset -> String
showsPrec :: Int -> DeleteAsset -> ShowS
$cshowsPrec :: Int -> DeleteAsset -> ShowS
Prelude.Show, forall x. Rep DeleteAsset x -> DeleteAsset
forall x. DeleteAsset -> Rep DeleteAsset x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep DeleteAsset x -> DeleteAsset
$cfrom :: forall x. DeleteAsset -> Rep DeleteAsset x
Prelude.Generic)
newDeleteAsset ::
Prelude.Text ->
Prelude.Text ->
Prelude.Text ->
DeleteAsset
newDeleteAsset :: Text -> Text -> Text -> DeleteAsset
newDeleteAsset Text
pAssetId_ Text
pDataSetId_ Text
pRevisionId_ =
DeleteAsset'
{ $sel:assetId:DeleteAsset' :: Text
assetId = Text
pAssetId_,
$sel:dataSetId:DeleteAsset' :: Text
dataSetId = Text
pDataSetId_,
$sel:revisionId:DeleteAsset' :: Text
revisionId = Text
pRevisionId_
}
deleteAsset_assetId :: Lens.Lens' DeleteAsset Prelude.Text
deleteAsset_assetId :: Lens' DeleteAsset Text
deleteAsset_assetId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteAsset' {Text
assetId :: Text
$sel:assetId:DeleteAsset' :: DeleteAsset -> Text
assetId} -> Text
assetId) (\s :: DeleteAsset
s@DeleteAsset' {} Text
a -> DeleteAsset
s {$sel:assetId:DeleteAsset' :: Text
assetId = Text
a} :: DeleteAsset)
deleteAsset_dataSetId :: Lens.Lens' DeleteAsset Prelude.Text
deleteAsset_dataSetId :: Lens' DeleteAsset Text
deleteAsset_dataSetId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteAsset' {Text
dataSetId :: Text
$sel:dataSetId:DeleteAsset' :: DeleteAsset -> Text
dataSetId} -> Text
dataSetId) (\s :: DeleteAsset
s@DeleteAsset' {} Text
a -> DeleteAsset
s {$sel:dataSetId:DeleteAsset' :: Text
dataSetId = Text
a} :: DeleteAsset)
deleteAsset_revisionId :: Lens.Lens' DeleteAsset Prelude.Text
deleteAsset_revisionId :: Lens' DeleteAsset Text
deleteAsset_revisionId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteAsset' {Text
revisionId :: Text
$sel:revisionId:DeleteAsset' :: DeleteAsset -> Text
revisionId} -> Text
revisionId) (\s :: DeleteAsset
s@DeleteAsset' {} Text
a -> DeleteAsset
s {$sel:revisionId:DeleteAsset' :: Text
revisionId = Text
a} :: DeleteAsset)
instance Core.AWSRequest DeleteAsset where
type AWSResponse DeleteAsset = DeleteAssetResponse
request :: (Service -> Service) -> DeleteAsset -> Request DeleteAsset
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 DeleteAsset
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse DeleteAsset)))
response = forall (m :: * -> *) a.
MonadResource m =>
AWSResponse a
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveNull DeleteAssetResponse
DeleteAssetResponse'
instance Prelude.Hashable DeleteAsset where
hashWithSalt :: Int -> DeleteAsset -> Int
hashWithSalt Int
_salt DeleteAsset' {Text
revisionId :: Text
dataSetId :: Text
assetId :: Text
$sel:revisionId:DeleteAsset' :: DeleteAsset -> Text
$sel:dataSetId:DeleteAsset' :: DeleteAsset -> Text
$sel:assetId:DeleteAsset' :: DeleteAsset -> Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
assetId
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
dataSetId
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
revisionId
instance Prelude.NFData DeleteAsset where
rnf :: DeleteAsset -> ()
rnf DeleteAsset' {Text
revisionId :: Text
dataSetId :: Text
assetId :: Text
$sel:revisionId:DeleteAsset' :: DeleteAsset -> Text
$sel:dataSetId:DeleteAsset' :: DeleteAsset -> Text
$sel:assetId:DeleteAsset' :: DeleteAsset -> Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Text
assetId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
dataSetId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
revisionId
instance Data.ToHeaders DeleteAsset where
toHeaders :: DeleteAsset -> [Header]
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 -> [Header]
Data.=# ( ByteString
"application/x-amz-json-1.1" ::
Prelude.ByteString
)
]
)
instance Data.ToPath DeleteAsset where
toPath :: DeleteAsset -> ByteString
toPath DeleteAsset' {Text
revisionId :: Text
dataSetId :: Text
assetId :: Text
$sel:revisionId:DeleteAsset' :: DeleteAsset -> Text
$sel:dataSetId:DeleteAsset' :: DeleteAsset -> Text
$sel:assetId:DeleteAsset' :: DeleteAsset -> Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"/v1/data-sets/",
forall a. ToByteString a => a -> ByteString
Data.toBS Text
dataSetId,
ByteString
"/revisions/",
forall a. ToByteString a => a -> ByteString
Data.toBS Text
revisionId,
ByteString
"/assets/",
forall a. ToByteString a => a -> ByteString
Data.toBS Text
assetId
]
instance Data.ToQuery DeleteAsset where
toQuery :: DeleteAsset -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data DeleteAssetResponse = DeleteAssetResponse'
{
}
deriving (DeleteAssetResponse -> DeleteAssetResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DeleteAssetResponse -> DeleteAssetResponse -> Bool
$c/= :: DeleteAssetResponse -> DeleteAssetResponse -> Bool
== :: DeleteAssetResponse -> DeleteAssetResponse -> Bool
$c== :: DeleteAssetResponse -> DeleteAssetResponse -> Bool
Prelude.Eq, ReadPrec [DeleteAssetResponse]
ReadPrec DeleteAssetResponse
Int -> ReadS DeleteAssetResponse
ReadS [DeleteAssetResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DeleteAssetResponse]
$creadListPrec :: ReadPrec [DeleteAssetResponse]
readPrec :: ReadPrec DeleteAssetResponse
$creadPrec :: ReadPrec DeleteAssetResponse
readList :: ReadS [DeleteAssetResponse]
$creadList :: ReadS [DeleteAssetResponse]
readsPrec :: Int -> ReadS DeleteAssetResponse
$creadsPrec :: Int -> ReadS DeleteAssetResponse
Prelude.Read, Int -> DeleteAssetResponse -> ShowS
[DeleteAssetResponse] -> ShowS
DeleteAssetResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DeleteAssetResponse] -> ShowS
$cshowList :: [DeleteAssetResponse] -> ShowS
show :: DeleteAssetResponse -> String
$cshow :: DeleteAssetResponse -> String
showsPrec :: Int -> DeleteAssetResponse -> ShowS
$cshowsPrec :: Int -> DeleteAssetResponse -> ShowS
Prelude.Show, forall x. Rep DeleteAssetResponse x -> DeleteAssetResponse
forall x. DeleteAssetResponse -> Rep DeleteAssetResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep DeleteAssetResponse x -> DeleteAssetResponse
$cfrom :: forall x. DeleteAssetResponse -> Rep DeleteAssetResponse x
Prelude.Generic)
newDeleteAssetResponse ::
DeleteAssetResponse
newDeleteAssetResponse :: DeleteAssetResponse
newDeleteAssetResponse = DeleteAssetResponse
DeleteAssetResponse'
instance Prelude.NFData DeleteAssetResponse where
rnf :: DeleteAssetResponse -> ()
rnf DeleteAssetResponse
_ = ()