{-# 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 #-}

-- Derived from AWS service descriptions, licensed under Apache 2.0.

-- |
-- Module      : Amazonka.LookoutVision.DeleteDataset
-- Copyright   : (c) 2013-2023 Brendan Hay
-- License     : Mozilla Public License, v. 2.0.
-- Maintainer  : Brendan Hay
-- Stability   : auto-generated
-- Portability : non-portable (GHC extensions)
--
-- Deletes an existing Amazon Lookout for Vision @dataset@.
--
-- If your the project has a single dataset, you must create a new dataset
-- before you can create a model.
--
-- If you project has a training dataset and a test dataset consider the
-- following.
--
-- -   If you delete the test dataset, your project reverts to a single
--     dataset project. If you then train the model, Amazon Lookout for
--     Vision internally splits the remaining dataset into a training and
--     test dataset.
--
-- -   If you delete the training dataset, you must create a training
--     dataset before you can create a model.
--
-- This operation requires permissions to perform the
-- @lookoutvision:DeleteDataset@ operation.
module Amazonka.LookoutVision.DeleteDataset
  ( -- * Creating a Request
    DeleteDataset (..),
    newDeleteDataset,

    -- * Request Lenses
    deleteDataset_clientToken,
    deleteDataset_projectName,
    deleteDataset_datasetType,

    -- * Destructuring the Response
    DeleteDatasetResponse (..),
    newDeleteDatasetResponse,

    -- * Response Lenses
    deleteDatasetResponse_httpStatus,
  )
where

import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import Amazonka.LookoutVision.Types
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response

-- | /See:/ 'newDeleteDataset' smart constructor.
data DeleteDataset = DeleteDataset'
  { -- | ClientToken is an idempotency token that ensures a call to
    -- @DeleteDataset@ completes only once. You choose the value to pass. For
    -- example, An issue might prevent you from getting a response from
    -- @DeleteDataset@. In this case, safely retry your call to @DeleteDataset@
    -- by using the same @ClientToken@ parameter value.
    --
    -- If you don\'t supply a value for @ClientToken@, the AWS SDK you are
    -- using inserts a value for you. This prevents retries after a network
    -- error from making multiple deletetion requests. You\'ll need to provide
    -- your own value for other use cases.
    --
    -- An error occurs if the other input parameters are not the same as in the
    -- first request. Using a different value for @ClientToken@ is considered a
    -- new call to @DeleteDataset@. An idempotency token is active for 8 hours.
    DeleteDataset -> Maybe Text
clientToken :: Prelude.Maybe Prelude.Text,
    -- | The name of the project that contains the dataset that you want to
    -- delete.
    DeleteDataset -> Text
projectName :: Prelude.Text,
    -- | The type of the dataset to delete. Specify @train@ to delete the
    -- training dataset. Specify @test@ to delete the test dataset. To delete
    -- the dataset in a single dataset project, specify @train@.
    DeleteDataset -> Text
datasetType :: Prelude.Text
  }
  deriving (DeleteDataset -> DeleteDataset -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DeleteDataset -> DeleteDataset -> Bool
$c/= :: DeleteDataset -> DeleteDataset -> Bool
== :: DeleteDataset -> DeleteDataset -> Bool
$c== :: DeleteDataset -> DeleteDataset -> Bool
Prelude.Eq, ReadPrec [DeleteDataset]
ReadPrec DeleteDataset
Int -> ReadS DeleteDataset
ReadS [DeleteDataset]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DeleteDataset]
$creadListPrec :: ReadPrec [DeleteDataset]
readPrec :: ReadPrec DeleteDataset
$creadPrec :: ReadPrec DeleteDataset
readList :: ReadS [DeleteDataset]
$creadList :: ReadS [DeleteDataset]
readsPrec :: Int -> ReadS DeleteDataset
$creadsPrec :: Int -> ReadS DeleteDataset
Prelude.Read, Int -> DeleteDataset -> ShowS
[DeleteDataset] -> ShowS
DeleteDataset -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DeleteDataset] -> ShowS
$cshowList :: [DeleteDataset] -> ShowS
show :: DeleteDataset -> String
$cshow :: DeleteDataset -> String
showsPrec :: Int -> DeleteDataset -> ShowS
$cshowsPrec :: Int -> DeleteDataset -> ShowS
Prelude.Show, forall x. Rep DeleteDataset x -> DeleteDataset
forall x. DeleteDataset -> Rep DeleteDataset x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep DeleteDataset x -> DeleteDataset
$cfrom :: forall x. DeleteDataset -> Rep DeleteDataset x
Prelude.Generic)

-- |
-- Create a value of 'DeleteDataset' with all optional fields omitted.
--
-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.
--
-- The following record fields are available, with the corresponding lenses provided
-- for backwards compatibility:
--
-- 'clientToken', 'deleteDataset_clientToken' - ClientToken is an idempotency token that ensures a call to
-- @DeleteDataset@ completes only once. You choose the value to pass. For
-- example, An issue might prevent you from getting a response from
-- @DeleteDataset@. In this case, safely retry your call to @DeleteDataset@
-- by using the same @ClientToken@ parameter value.
--
-- If you don\'t supply a value for @ClientToken@, the AWS SDK you are
-- using inserts a value for you. This prevents retries after a network
-- error from making multiple deletetion requests. You\'ll need to provide
-- your own value for other use cases.
--
-- An error occurs if the other input parameters are not the same as in the
-- first request. Using a different value for @ClientToken@ is considered a
-- new call to @DeleteDataset@. An idempotency token is active for 8 hours.
--
-- 'projectName', 'deleteDataset_projectName' - The name of the project that contains the dataset that you want to
-- delete.
--
-- 'datasetType', 'deleteDataset_datasetType' - The type of the dataset to delete. Specify @train@ to delete the
-- training dataset. Specify @test@ to delete the test dataset. To delete
-- the dataset in a single dataset project, specify @train@.
newDeleteDataset ::
  -- | 'projectName'
  Prelude.Text ->
  -- | 'datasetType'
  Prelude.Text ->
  DeleteDataset
newDeleteDataset :: Text -> Text -> DeleteDataset
newDeleteDataset Text
pProjectName_ Text
pDatasetType_ =
  DeleteDataset'
    { $sel:clientToken:DeleteDataset' :: Maybe Text
clientToken = forall a. Maybe a
Prelude.Nothing,
      $sel:projectName:DeleteDataset' :: Text
projectName = Text
pProjectName_,
      $sel:datasetType:DeleteDataset' :: Text
datasetType = Text
pDatasetType_
    }

-- | ClientToken is an idempotency token that ensures a call to
-- @DeleteDataset@ completes only once. You choose the value to pass. For
-- example, An issue might prevent you from getting a response from
-- @DeleteDataset@. In this case, safely retry your call to @DeleteDataset@
-- by using the same @ClientToken@ parameter value.
--
-- If you don\'t supply a value for @ClientToken@, the AWS SDK you are
-- using inserts a value for you. This prevents retries after a network
-- error from making multiple deletetion requests. You\'ll need to provide
-- your own value for other use cases.
--
-- An error occurs if the other input parameters are not the same as in the
-- first request. Using a different value for @ClientToken@ is considered a
-- new call to @DeleteDataset@. An idempotency token is active for 8 hours.
deleteDataset_clientToken :: Lens.Lens' DeleteDataset (Prelude.Maybe Prelude.Text)
deleteDataset_clientToken :: Lens' DeleteDataset (Maybe Text)
deleteDataset_clientToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteDataset' {Maybe Text
clientToken :: Maybe Text
$sel:clientToken:DeleteDataset' :: DeleteDataset -> Maybe Text
clientToken} -> Maybe Text
clientToken) (\s :: DeleteDataset
s@DeleteDataset' {} Maybe Text
a -> DeleteDataset
s {$sel:clientToken:DeleteDataset' :: Maybe Text
clientToken = Maybe Text
a} :: DeleteDataset)

-- | The name of the project that contains the dataset that you want to
-- delete.
deleteDataset_projectName :: Lens.Lens' DeleteDataset Prelude.Text
deleteDataset_projectName :: Lens' DeleteDataset Text
deleteDataset_projectName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteDataset' {Text
projectName :: Text
$sel:projectName:DeleteDataset' :: DeleteDataset -> Text
projectName} -> Text
projectName) (\s :: DeleteDataset
s@DeleteDataset' {} Text
a -> DeleteDataset
s {$sel:projectName:DeleteDataset' :: Text
projectName = Text
a} :: DeleteDataset)

-- | The type of the dataset to delete. Specify @train@ to delete the
-- training dataset. Specify @test@ to delete the test dataset. To delete
-- the dataset in a single dataset project, specify @train@.
deleteDataset_datasetType :: Lens.Lens' DeleteDataset Prelude.Text
deleteDataset_datasetType :: Lens' DeleteDataset Text
deleteDataset_datasetType = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteDataset' {Text
datasetType :: Text
$sel:datasetType:DeleteDataset' :: DeleteDataset -> Text
datasetType} -> Text
datasetType) (\s :: DeleteDataset
s@DeleteDataset' {} Text
a -> DeleteDataset
s {$sel:datasetType:DeleteDataset' :: Text
datasetType = Text
a} :: DeleteDataset)

instance Core.AWSRequest DeleteDataset where
  type
    AWSResponse DeleteDataset =
      DeleteDatasetResponse
  request :: (Service -> Service) -> DeleteDataset -> Request DeleteDataset
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 DeleteDataset
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse DeleteDataset)))
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 -> DeleteDatasetResponse
DeleteDatasetResponse'
            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 DeleteDataset where
  hashWithSalt :: Int -> DeleteDataset -> Int
hashWithSalt Int
_salt DeleteDataset' {Maybe Text
Text
datasetType :: Text
projectName :: Text
clientToken :: Maybe Text
$sel:datasetType:DeleteDataset' :: DeleteDataset -> Text
$sel:projectName:DeleteDataset' :: DeleteDataset -> Text
$sel:clientToken:DeleteDataset' :: DeleteDataset -> Maybe Text
..} =
    Int
_salt
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
clientToken
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
projectName
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
datasetType

instance Prelude.NFData DeleteDataset where
  rnf :: DeleteDataset -> ()
rnf DeleteDataset' {Maybe Text
Text
datasetType :: Text
projectName :: Text
clientToken :: Maybe Text
$sel:datasetType:DeleteDataset' :: DeleteDataset -> Text
$sel:projectName:DeleteDataset' :: DeleteDataset -> Text
$sel:clientToken:DeleteDataset' :: DeleteDataset -> Maybe Text
..} =
    forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
clientToken
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
projectName
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
datasetType

instance Data.ToHeaders DeleteDataset where
  toHeaders :: DeleteDataset -> ResponseHeaders
toHeaders DeleteDataset' {Maybe Text
Text
datasetType :: Text
projectName :: Text
clientToken :: Maybe Text
$sel:datasetType:DeleteDataset' :: DeleteDataset -> Text
$sel:projectName:DeleteDataset' :: DeleteDataset -> Text
$sel:clientToken:DeleteDataset' :: DeleteDataset -> Maybe Text
..} =
    forall a. Monoid a => [a] -> a
Prelude.mconcat
      [ HeaderName
"X-Amzn-Client-Token" forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# Maybe Text
clientToken,
        HeaderName
"Content-Type"
          forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# (ByteString
"application/x-amz-json-1.1" :: Prelude.ByteString)
      ]

instance Data.ToPath DeleteDataset where
  toPath :: DeleteDataset -> ByteString
toPath DeleteDataset' {Maybe Text
Text
datasetType :: Text
projectName :: Text
clientToken :: Maybe Text
$sel:datasetType:DeleteDataset' :: DeleteDataset -> Text
$sel:projectName:DeleteDataset' :: DeleteDataset -> Text
$sel:clientToken:DeleteDataset' :: DeleteDataset -> Maybe Text
..} =
    forall a. Monoid a => [a] -> a
Prelude.mconcat
      [ ByteString
"/2020-11-20/projects/",
        forall a. ToByteString a => a -> ByteString
Data.toBS Text
projectName,
        ByteString
"/datasets/",
        forall a. ToByteString a => a -> ByteString
Data.toBS Text
datasetType
      ]

instance Data.ToQuery DeleteDataset where
  toQuery :: DeleteDataset -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty

-- | /See:/ 'newDeleteDatasetResponse' smart constructor.
data DeleteDatasetResponse = DeleteDatasetResponse'
  { -- | The response's http status code.
    DeleteDatasetResponse -> Int
httpStatus :: Prelude.Int
  }
  deriving (DeleteDatasetResponse -> DeleteDatasetResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DeleteDatasetResponse -> DeleteDatasetResponse -> Bool
$c/= :: DeleteDatasetResponse -> DeleteDatasetResponse -> Bool
== :: DeleteDatasetResponse -> DeleteDatasetResponse -> Bool
$c== :: DeleteDatasetResponse -> DeleteDatasetResponse -> Bool
Prelude.Eq, ReadPrec [DeleteDatasetResponse]
ReadPrec DeleteDatasetResponse
Int -> ReadS DeleteDatasetResponse
ReadS [DeleteDatasetResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DeleteDatasetResponse]
$creadListPrec :: ReadPrec [DeleteDatasetResponse]
readPrec :: ReadPrec DeleteDatasetResponse
$creadPrec :: ReadPrec DeleteDatasetResponse
readList :: ReadS [DeleteDatasetResponse]
$creadList :: ReadS [DeleteDatasetResponse]
readsPrec :: Int -> ReadS DeleteDatasetResponse
$creadsPrec :: Int -> ReadS DeleteDatasetResponse
Prelude.Read, Int -> DeleteDatasetResponse -> ShowS
[DeleteDatasetResponse] -> ShowS
DeleteDatasetResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DeleteDatasetResponse] -> ShowS
$cshowList :: [DeleteDatasetResponse] -> ShowS
show :: DeleteDatasetResponse -> String
$cshow :: DeleteDatasetResponse -> String
showsPrec :: Int -> DeleteDatasetResponse -> ShowS
$cshowsPrec :: Int -> DeleteDatasetResponse -> ShowS
Prelude.Show, forall x. Rep DeleteDatasetResponse x -> DeleteDatasetResponse
forall x. DeleteDatasetResponse -> Rep DeleteDatasetResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep DeleteDatasetResponse x -> DeleteDatasetResponse
$cfrom :: forall x. DeleteDatasetResponse -> Rep DeleteDatasetResponse x
Prelude.Generic)

-- |
-- Create a value of 'DeleteDatasetResponse' with all optional fields omitted.
--
-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.
--
-- The following record fields are available, with the corresponding lenses provided
-- for backwards compatibility:
--
-- 'httpStatus', 'deleteDatasetResponse_httpStatus' - The response's http status code.
newDeleteDatasetResponse ::
  -- | 'httpStatus'
  Prelude.Int ->
  DeleteDatasetResponse
newDeleteDatasetResponse :: Int -> DeleteDatasetResponse
newDeleteDatasetResponse Int
pHttpStatus_ =
  DeleteDatasetResponse' {$sel:httpStatus:DeleteDatasetResponse' :: Int
httpStatus = Int
pHttpStatus_}

-- | The response's http status code.
deleteDatasetResponse_httpStatus :: Lens.Lens' DeleteDatasetResponse Prelude.Int
deleteDatasetResponse_httpStatus :: Lens' DeleteDatasetResponse Int
deleteDatasetResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteDatasetResponse' {Int
httpStatus :: Int
$sel:httpStatus:DeleteDatasetResponse' :: DeleteDatasetResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: DeleteDatasetResponse
s@DeleteDatasetResponse' {} Int
a -> DeleteDatasetResponse
s {$sel:httpStatus:DeleteDatasetResponse' :: Int
httpStatus = Int
a} :: DeleteDatasetResponse)

instance Prelude.NFData DeleteDatasetResponse where
  rnf :: DeleteDatasetResponse -> ()
rnf DeleteDatasetResponse' {Int
httpStatus :: Int
$sel:httpStatus:DeleteDatasetResponse' :: DeleteDatasetResponse -> Int
..} =
    forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus